当前位置 > vb代码创建控件数组事件vb代码创建控件数组事件是什么
-
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) 这句是关键,,,,,\x0d\x0a Option1(i).Top = Option1(0).Top\x0d\x0a Option1(i).Left = Optio...
2024-08-28 网络 更多内容 750 ℃ 655 -
VB用代码创建控件数组?
以下程序能完成您的需求:Dim n As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)n = n + 1Load Picture1(n) '加载第N个成员Picture1(n).Move X, Y '设置要显示的位置 mousedown事件的x 和yPicture1(n).Visible...
2024-08-28 网络 更多内容 359 ℃ 757 -
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性. Private Sub Form_Load() Dim i% For i = 1 To 3 Load Option1(i) ' 这句是关键,,,,, Option1(i).Top = Option1(0).Top Option1(i).Left = Option1(i 1).Left + Option1(i 1).Width + 200 Optio...
2024-08-28 网络 更多内容 619 ℃ 457 -
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为zd0,就创回建了控件数组,设置你要创建控件数组的其它属性.PrivateSubForm_Load()Dimi%Fori=1To3LoadOption1(i)'这句是关键答,,,,,Option1(i).Top=Option1(0).TopOption1(i).Left=Option1(i1).Left+Option1(i1).Width+200Option1(i).Visible=T...
2024-08-28 网络 更多内容 770 ℃ 352 -
vb 怎么创建控件数组对象
Private Sub Form_Load() Dim a(3) As Frame For i = 0 To UBound(a) Set a(i) = Frame1(i) Next Call other(a) End Sub Sub other(My_frame() As Frame) My_frame(0).BackColor = vbGreen My_frame(1).BackColor = vbRed My_frame(2).BackColor = vbBlue End Sub
2024-08-28 网络 更多内容 742 ℃ 364 -
如何创建vb数组控件
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyButton(3) As Button For I As Byte = 0 To 3 MyButton(I) = New Button MyButton(I).Parent = Me MyButton(I).Left = 50 MyButton(I).Top = 50 + I * MyButton(I).Height Next E...
2024-08-28 网络 更多内容 479 ℃ 911 -
VB怎么用代码创建控件数组?
开始创建一个控件,index属性设为0,以后添加的话可以这样。以textbox为例: Load Text1(1) with text1(1) .top=100 .left=100 ... .visible=true end with
2024-08-28 网络 更多内容 287 ℃ 877 -
VB 动态控件数组 响应事件
单个的动态控件可以设置事件,比如:Dim WithEvents txt1 As TextBox Private Sub Form_Load() Set&nbs... Sub但是动态控件数组则不行,这也许是VB6的bug,或者当初微软根本就不想有这个功能。 所以建议最好不要用这种动态生成控件数组的方法,而...
2024-08-28 网络 更多内容 467 ℃ 156 -
vb代码 控件数组????
问题应该出现在这条语句中:Picture1.BackColor = RGB(HScroll(0).Value.HScroll(1).Value.HScroll(2).Value) 三个颜色值中间要用","隔开而不是“。”要将value后面的"."改成","你再试试。Picture1.BackColor = RGB(HScroll(0).Value,HScroll(1).Value,HSc...
2024-08-28 网络 更多内容 459 ℃ 394 -
VB控件数组事件
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If Index = 1 Then '假设1是你指定的控件 End If End Sub index 是控件数组下标
2024-08-28 网络 更多内容 429 ℃ 174