展开全部
在窗体上添加一个Command控件,其属性Index设为0,该控件即为孔家数组。
再添加一个Text。
Private Sub Form_Load()
Text1 = ""
Command1(0).Caption = 0
Command1(0).Width = 360
Command1(0).Height = 300
Command1(0).Top = 1200
Command1(0).Left = 360
For i = 1 To 9
Load Command1(i)
Command1(i).Visible = True
Command1(i).Caption = i + 1
If i Mod 5 = 0 Then
Command1(i).Top = Command1(i - 1).Top + 600
Command1(i).Left = Command1(0).Left
Else
Command1(i).Left = Command1(i - 1).Left + 600
Command1(i).Top = Command1(i - 1).Top
End If
Next
End Sub
Private Sub Command1_Click(Index As Integer)
Text1 = Text1 & Command1(Index).Caption
End Sub
再添加一个Text。
Private Sub Form_Load()
Text1 = ""
Command1(0).Caption = 0
Command1(0).Width = 360
Command1(0).Height = 300
Command1(0).Top = 1200
Command1(0).Left = 360
For i = 1 To 9
Load Command1(i)
Command1(i).Visible = True
Command1(i).Caption = i + 1
If i Mod 5 = 0 Then
Command1(i).Top = Command1(i - 1).Top + 600
Command1(i).Left = Command1(0).Left
Else
Command1(i).Left = Command1(i - 1).Left + 600
Command1(i).Top = Command1(i - 1).Top
End If
Next
End Sub
Private Sub Command1_Click(Index As Integer)
Text1 = Text1 & Command1(Index).Caption
End Sub
参考资料: http://zhidao.baidu.com/question/296370961.html
展开全部
在窗体上添加一个Command控件,其属性Index设为0,该控件即为孔家数组。
再添加一个Text。
再添加一个Text。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
with
.long 100
.height 20
end with
查查这个用法吧,可以使用数组。
.long 100
.height 20
end with
查查这个用法吧,可以使用数组。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
LZ说的是ADO.NET中的添加、删除、更新吧,例如SqlDataSet、SqlDataTable等,我这里有详细说明和具体用法案例,以及他们的相关性能说明,Hi我,我发给你!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询