24h購物| | PChome| 登入
2008-04-16 15:49:32| 人氣106| 回應0 | 上一篇 | 下一篇

VB

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

Private Sub Command1_Click()
MsgBox ”你正開啟” & Text1.Text & ”檔案”
End Sub
___________________________________________

Private Sub Command2_Click()
End
End Sub

___________________________________________

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

___________________________________________

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

___________________________________________

Private Sub File1_Click()
Text1.Text = File1.List(File1.ListIndex)
End Sub




我要檢舉
台長： 柑橘ˇˇ

您可能對以下文章有興趣

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

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