Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For i As Integer = 0 To t - 1
lb(i) = New Button
Name = i
With lb(i)
.Left = x
.Top = y + 40 * i
.FlatStyle = FlatStyle.Flat
End With
form1.Controls.Add(lb(i))
Next End Sub
Private Sub a2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb(i).Click
With a2
If .BackColor = Color.White Then
.BackColor = Color.DodgerBlue
Else
.BackColor = Color.White
End If
End With
End Sub创建数组控件按钮后,要求点击创建的按钮后,按钮变色,可是Private Sub a2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb(i).Click中下划线提示错误,怎么办?
lb(i) = New Button
Name = i
With lb(i)
.Left = x
.Top = y + 40 * i
.FlatStyle = FlatStyle.Flat
End With
form1.Controls.Add(lb(i))
Next End Sub
Private Sub a2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb(i).Click
With a2
If .BackColor = Color.White Then
.BackColor = Color.DodgerBlue
Else
.BackColor = Color.White
End If
End With
End Sub创建数组控件按钮后,要求点击创建的按钮后,按钮变色,可是Private Sub a2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lb(i).Click中下划线提示错误,怎么办?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货