1,453
社区成员
发帖
与我相关
我的任务
分享有一个很笨的问题想请教
我用这个可以定义字体.用什么可以定义字体的大小呢?
On Error Resume Next
Dim Obj As Object
For Each Obj In Me.Controls
Obj.Font.Name = "宋体"
Next Obj
On Error GoTo 0
On Error Resume Next
Dim Obj As Object
For Each Obj In Me.Controls
Obj.Font.Name = "宋体"
Next Obj
On Error GoTo 0
...全文
请发表友善的回复…
发表回复
UltraBejing 2008-05-01
- 打赏
- 举报
什么呀
onetiger1243 2008-03-05
- 打赏
- 举报
heihei
zzyong00 2008-03-04
- 打赏
- 举报
来接分，但未必就能接着
moyifeng 2008-03-04
- 打赏
- 举报
我也来接分
熊孩子开学喽 2008-03-04
- 打赏
- 举报
哦，那就来接分了
cbm6666 2008-03-04
- 打赏
- 举报
呵呵, 楼上几位要接分也得让楼主心服啊,哈哈哈.....
楼主代码问题是很大滴......
Private Sub Command1_Click()
On Error Resume Next
Dim ctl As Control, i%
For Each ctl In Me.Controls
'If TypeName(Me.Controls(i)) 有必要的话还要再判断控件类型是否能赋与Font.Name的属性
Me.Controls(i).Font.Name = "楷体"
i = i + 1
Next
End Sub
楼主代码问题是很大滴......
Private Sub Command1_Click()
On Error Resume Next
Dim ctl As Control, i%
For Each ctl In Me.Controls
'If TypeName(Me.Controls(i)) 有必要的话还要再判断控件类型是否能赋与Font.Name的属性
Me.Controls(i).Font.Name = "楷体"
i = i + 1
Next
End Sub
Sandrer 2008-03-04
- 打赏
- 举报
我也来接！！！
Font.Size = xxx
Font.Size = xxx
lxl200097 2008-03-04
- 打赏
- 举报
不用了,我已经解决了.谢谢.
