菜鸟小问题
一个按钮，叫做“新增”，点击第一次，执行下面语句：
For a = 0 To 15
Text3(a).Visible = True
Next a
点击第二次，执行下面语句：
For a = 0 To 15
Text４(a).Visible = True
Next a
同理类推。
另外一个按钮，叫做“删除”点击第一次，执行下面语句：
For a = 0 To 15
Text４(a).Visible = False
Next a
点击第二次，执行下面语句：
For a = 0 To 15
Text3(a).Visible = False
Next a
同理类推
请高手帮忙
[解决办法]
Option Explicit
Dim cmd1Flag As Boolean
Dim cmd2flag As Boolean
Dim i As Byte
Private Sub Command1_Click()
If cmd1Flag Then
For i = 0 To 3
Text4(i).Visible = True
Next
Else
For i = 0 To 3
Text3(i).Visible = True
Next
End If
cmd1Flag = Not cmd1Flag
End Sub
Private Sub Command2_Click()
If cmd2flag Then
For i = 0 To 3
Text4(i).Visible = False
Next
Else
For i = 0 To 3
Text3(i).Visible = False
Next
End If
cmd2flag = Not cmd2flag
End Sub
Private Sub Form_Load()
For i = 0 To 3
Text3(i).Visible = False
Text4(i).Visible = False
Next
End Sub
[解决办法]
测试环境准备
TEXT1(0) TEXT1(1)
TEXT2(0) TEXT2(1)
TEXT3(0) TEXT3(1)
COMMAND(0)====增加 COMMAND(1)===减少
增加一个CLASS 名字为CLASS1
代码如下
Option Explicit
Public Sub FunTxt1(i As Integer, View As Boolean)
Dim intX As Integer
For intX = 0 To i - 1
Form1.Text1(intX).Visible = View
Next
End Sub
Public Sub FunTxt2(i As Integer, View As Boolean)
Dim intX As Integer
For intX = 0 To i - 1
Form1.Text2(intX).Visible = View
Next
End Sub
Public Sub FunTxt3(i As Integer, View As Boolean)
Dim intX As Integer
For intX = 0 To i - 1
Form1.Text3(intX).Visible = View
Next
End Sub
窗体代码如下
Option Explicit
Dim intAdd As Integer
Dim intDec As Integer
Private Sub Command1_Click(Index As Integer)
Dim myclass As New Class1
Select Case Index
Case 0
Call CallByName(myclass, "FunTxt " & intAdd, VbMethod, 2, True)
intAdd = (intAdd + 1)
If intAdd = 4 Then intAdd = 1
Case 1
Call CallByName(myclass, "FunTxt " & intDec, VbMethod, 2, False)
intDec = (intDec - 1)
If intAdd = -1 Then intAdd = 3
End Select
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1
Text1(i).Visible = False
Text2(i).Visible = False
Text3(i).Visible = False
Next
intAdd = 1
intDec = 3
End Sub
经过调试!!!!!
