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 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

上一篇:VB 2

下一篇:VB

*頂級茶泡飯* 2008-04-04 07:47:28

這超難的
我也在學
超超超超難低........

版主回應
嗯阿 恩阿

一起加油吧

ˋˇˊ
2008-04-05 13:57:57
義傑= 口 = 2008-04-03 22:18:08


原來是...

版主回應


原來是。。。

很難的VB  嗯嗯
2008-04-05 13:57:35
馬鈴薯倪 2008-04-03 22:03:07

好複雜的玩意兒

徹底的看無=0=

版主回應
哈哈 

要去將觸他 才看得懂

我當初也是一蹋糊塗  ˊˇˋ
2008-04-05 13:56:58