24h購物| | PChome| 登入
2005-01-26 16:27:23| 人氣38| 回應0 | 上一篇 | 下一篇

程式。。球ㄉ

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

Dim fun As String→這具代表啥意思?
         省略ㄝ可以RUNㄟ

Private Sub cmdRec_Click()
t1.Enabled = True
End Sub

Private Sub cmdStop_Click()
t1.Enabled = False

End Sub

Private Sub Form_Load()
pic1.Top = 300
pic1.Left = 600
t1.Enabled = False

End Sub

Private Sub t1_Timer()
Do Until pic1.Left > 6000
pic1.Left = pic1.Left + 10
Loop
Do Until pic1.Top > 3000
pic1.Top = pic1.Top + 10
Loop
Do Until pic1.Left < 600
pic1.Left = pic1.Left - 10
Loop
Do Until pic1.Top < 300
pic1.Top = pic1.Top - 10
Loop
End Sub

台長: 酷仔♫° 瘋 
人氣(38) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 工作甘苦(工作心得、創業、求職)

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