24h購物| | PChome| 登入
2008-04-02 15:37:37| 人氣105| 回應3 | 上一篇 | 下一篇

vb

推薦 0 收藏 0 轉貼0 訂閱站台

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

我要檢舉
台長： 柑橘ˇˇ

您可能對以下文章有興趣

人氣(105) | 回應(3)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: ~ Ｖ Ｂ ~ |
此分類下一篇:VB
此分類上一篇:VB 2

我要回應
馬鈴薯倪
好複雜的玩意兒

徹底的看無=0=
2008-04-03 22:03:07
版主回應
哈哈　

要去將觸他　才看得懂

我當初也是一蹋糊塗　　ˊˇˋ
2008-04-05 13:56:58
義傑= 口 =
喔
原來是...
2008-04-03 22:18:08
版主回應
歐

原來是。。。

很難的ＶＢ　　嗯嗯
2008-04-05 13:57:35
*頂級茶泡飯*
這超難的
我也在學
超超超超難低........
2008-04-04 07:47:28
版主回應
嗯阿　恩阿

一起加油吧

ˋˇˊ
2008-04-05 13:57:57
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文