Private Sub Command1_Click()
MsgBox ”你正開啟” & Text1.Text & ”檔案”
End Sub
__________________________...
(詳全文)
發表時間：2008-04-16 15:49:32 | 回應：0
Dim A(5), B(5), C(5) As Integer
Private Sub Combo1_Click()
Text1.Text = A(Combo1.ListIndex)
Text2.Tex...
(詳全文)
發表時間：2008-04-08 14:50:38 | 回應：0
Dim A(3)
Private Sub List1_Click()
A(0) = 4
A(1) = 4
A(2) = 3
Text1.Text = List1.List(List1.ListIndex)
...
(詳全文)
發表時間：2008-04-02 15:37:37 | 回應：3
Private Sub Form_Activate()
Scale (0, 0)-(255, 255)
For i = 0 To 255
Line (0, i)-(255, i), RGB(255, i, i)
...
(詳全文)
發表時間：2008-03-19 14:24:02 | 回應：2
Private Sub Form_Activate()
Scale (-300, 300)-(300, -300)
Line (-300, 0)-(300, 0), RGB(0, 0, 0)
Line (0, 30...
(詳全文)
發表時間：2008-03-18 13:38:45 | 回應：1
