迷茫......

panda_lees 2001-12-13 04:57:06

在FORM中怎样动态创建一个LABEL控件？

...全文

70 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

panda_lees 2001-12-14

打赏
举报

在窗体上画一个Label控件,它的Index属性值设为0,名字为：lblArray
Private Sub Form_Load()
lblArray(0).Caption = "11111"
Load lblArray(1)
lblArray(1).visible=true
lblArray(1).Caption = "dddd"
End Sub

OK.......

panda_lees 2001-12-14

打赏
举报

foolishtiger:
在窗体上画一个Label控件,它的Index属性值设为0,名字为：lblArray
Private Sub Form_Load()
lblArray(0).Caption = "11111"
Load lblArray(1)
lblArray(1).Caption = "dddd"
End Sub
可还是要报错。。。
:(

foolishtiger 2001-12-13

打赏
举报

在窗体上画一个Label控件,然后把它的Index属性值设为0,就是控件数组了,就可以用sonicdater(发呆呆)的方法了.

panda_lees 2001-12-13

打赏
举报

请问：怎样创建label控件数组
在MSDN上没找到. :(

sonicdater 2001-12-13

打赏
举报

先建了 label控件数组。
如 Name ： lblArray(0)

加载时: Load lblArray(1)
lblArray(1).Caption = "Ok! I am the 2nd Label"
不用时：Unload lblArray(1)

hhbll_2001 2001-12-13

打赏
举报

Private WithEvents newlabel As Label

Private Sub Command1_Click()
If newlabel Is Nothing Then
Set newlabel = Controls.Add("vb.label", "lblnew", Me)
newlabel.Move Form1.Left + 500, 500
newlabel.Caption = "New Lable"
newlabel.Visible = True
Else
MsgBox "New Lable"
End If
End Sub

JAVA2核心技术第1卷.基础知识7th

UML设计实作宝典.pdf

UML基础与Rose建模教程

最近不知道为什么,心里觉得很不踏实.是不是人到而立之年了啊.唉,烦啊.但是自己又不知道如何去面对,感觉世界已变得灰暗灰暗了.生活总不能如意,心情总不能开朗.可能我只有生活在这样的环境才能将生命持续下去吧..........习惯了迷茫.

高考过去了,一直对这个话题避而不谈. 知道分数的那一刻,我脑袋里一片空白. 苦涩,难过,后悔,迷茫.... 复习还是参加自考的大学? 我不知道... 父母日渐衰老的脸庞.. 一缕白发.... 日渐佝偻的身体... 我的心好痛好痛.... 看着天上的月亮.... 我不知道该何去何从.... 好迷茫....