2008-04-02 15:37:37柑橘ˇˇ
vb
Dim A(3)
Private Sub List1_Click()
A(0) = 4
A(1) = 4
A(2) = 3
Text1.Text = List1.List(List1.ListIndex)
Text3.Text = A(List1.ListIndex)
End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub
Private Sub List1_Click()
A(0) = 4
A(1) = 4
A(2) = 3
Text1.Text = List1.List(List1.ListIndex)
Text3.Text = A(List1.ListIndex)
End Sub
Private Sub Command1_Click()
Text4.Text = Val(Text2.Text) * Val(Text3.Text)
End Sub
Private Sub Command1_Click()
List1.AddItem Text1.Text
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command3_Click()
List1.Clear
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Label2.Caption = List1.ListCount * 2
End Sub
List1.AddItem Text1.Text
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command3_Click()
List1.Clear
Label2.Caption = List1.ListCount * 2
Text1.Text = ””
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Label2.Caption = List1.ListCount * 2
End Sub
喔
原來是...
版主回應
歐原來是。。。
很難的VB 嗯嗯 2008-04-05 13:57:35
這超難的
我也在學
超超超超難低........
一起加油吧
ˋˇˊ 2008-04-05 13:57:57