怎么批量修改Labeld的caption值 - 编程论坛

#2

风吹过b2016-08-03 23:48

怎么让程序不用点击直接显示

把代码放在 form_load过程中执行一次，就是在窗体显示时已显示好了。
如果内容不是固定值，那在值修改时再显示一回。
Label12(i).font.size=16
没用？

#3

sclx882016-08-04 00:09

回复 2楼风吹过b

这哈有用了，我是没写Font.Size中间那个点，谢谢

#4

ZHRXJR2016-08-04 13:23

程序代码：

Private Sub Form_Load()
'窗体的其他启动代码
Dim i As Integer
Dim n As Integer
n = 0
For i = 0 To Label12.UBound
n = n + 1
Label12(i).Caption = "测试点" & n
Next i
'窗体的其他启动代码
End Sub

在窗体的Form_Load事件(窗体启动加载事件，窗体必须的事件)中加载，加载后直接显示Label12所有内容的更新了。

Label12(i).font.size = 16 的意思是设置Label12标签的字体大小，如果字体大小你已经设置好了，这个语句可以不要。

[此贴子已经被作者于2016-8-4 13:27编辑过]