快来帮我一下
快来帮我一下
分别的 TEXTBOX1＝A：TEXTBOX2＝B：TEXTBOX3＝C：TEXTBOX4＝D：TEXTBOX5＝E
TEXTBOX1＝B：TEXTBOX2＝C：TEXTBOX3＝D：TEXTBOX4＝E：TEXTBOX5＝“”
TEXTBOX1＝C：TEXTBOX2＝D：TEXTBOX3＝E：TEXTBOX4＝“”：TEXTBOX5＝“”
TEXTBOX1＝D：TEXTBOX2＝E：TEXTBOX3＝“”：TEXTBOX4＝“”：TEXTBOX5＝“”
TEXTBOX1＝E：TEXTBOX2＝“”：TEXTBOX3＝“”：TEXTBOX4＝“”：TEXTBOX5＝“”
要用数组编写：我用的是VB。NET 如此类推每按一下就会向前覆盖直到TEXTBOX1变成“”。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim j As Integer
For j = 1 To 5
TextBox(j).Text = TextBox(j + 1).Text
Next
End Sub
但是电脑提示：TextBox(j).Text = TextBox(j + 1).Text 请问我如何修改
[解决办法]
哪里能定义DIM TEXTBOX（5） AS INTERG呢?肯定出错撒!
你把TextBox定义为Integer,后面又引用TextBox(j).Text = TextBox(j + 1).Text,肯定出错撒!
Dim TextBox() As TextBox(TextBox1,TextBox2,TextBox3,TextBox4,TextBox5)
Dim j As Integer
For j = 0 To 4
TextBox(j).Text = TextBox(j + 1).Text
Next
End Sub
结贴吧!(结帐)
[解决办法]
Dim TextBox(6) As TextBox
Dim i As Int32
Dim intRow As Int32 = 12
Dim intCol As Int32 = 12
Dim Button1 As Button
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 1 To 5
TextBox(i) = New TextBox
With TextBox(i)
.Left = intCol
.Top = intRow
End With
intRow += 30
Me.Controls.Add(TextBox(i))
Next
Button1 = New Button
With Button1
.Left = 12 + TextBox(1).Width + 12
.Top = 12
.Height = 21
.Text = "移动 "
AddHandler Button1.Click, AddressOf Button1_Click
End With
Me.Controls.Add(Button1)
Me.StartPosition = FormStartPosition.CenterScreen
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
For i = 1 To 5
If i = 5 Then
TextBox(i).Text = " "
Else
TextBox(i).Text = TextBox(i + 1).Text
End If
Next
End Sub
