- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 显示*号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144120)
-- 发布时间：2019/12/11 12:35:00
-- 显示*号
老师，Lable绑定了列，用Lable显示手机号码，怎么只显示前三位和后四位，中间显示****
Dim s As String ="18628004001"
s = s.Replace("123","****")
Output.Show(s)
怎么写，替换中间4位
[此贴子已经被作者于2019/12/11 12:59:29编辑过]
-- 发布时间：2019/12/11 13:31:00
--
http://www.foxtable.com/webhelp/topics/1338.htm
-- 发布时间：2019/12/11 13:51:00
--
老师，我需求是这样的，做了个抽奖系统，滚动显示姓名及手机号（绑定了字段），滚动的过程中，手机号显示前3后4位。请老师看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:抽奖.rar |
[此贴子已经被作者于2019/12/11 13:53:53编辑过]
-- 发布时间：2019/12/11 13:57:00
--
Dim s As String ="18628004001"
s = s.substring(0,3) & "****" & s.substring(7)
Output.Show(s)
-- 发布时间：2019/12/11 14:04:00
--
明白了
[此贴子已经被作者于2019/12/11 14:10:24编辑过]
-- 发布时间：2019/12/11 14:36:00
--
老师，字体怎么同比例放大呢？
-- 发布时间：2019/12/11 15:04:00
--
计算比例，然后更改字体的size参数
-- 发布时间：2019/12/11 15:23:00
--
能否请老师写一个示例呢？比如窗口尺寸改变后：
\'SizeChanged事件
If vars("width") > 0 AndAlso vars("height") > 0 AndAlso basemainform.windowstate <> 1 Then
For Each c As Winform.Control In e.Form.Controls
c.Left = c.Left * (e.Form.Width / vars("width"))
c.Top = c.Top * (e.Form.Height / vars("height"))
c.Width = c.Width * (e.Form.Width / vars("width"))
c.Height = c.Height * (e.Form.Height / vars("height"))
Next
\'msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height
End If
-- 发布时间：2019/12/11 15:34:00
--
For Each c As Winform.Control In e.Form.Controls
c.Left = c.Left * (e.Form.Width / vars("width"))
c.Top = c.Top * (e.Form.Height / vars("height"))
c.Width = c.Width * (e.Form.Width / vars("width"))
c.Height = c.Height * (e.Form.Height / vars("height"))
Dim f As font = c.font
output.show(f.Size)
c.font = new font(f.Name,f.Size * e.Form.Width / vars("width")，f.style)
Next