|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
2009-02-28, 06:18 AM
|
#1 |
|
註冊會員
|
疑問 - 有關於Microsoft Forms 2.0 Object Library的問題
語言是VB6.0
是這樣的,我想利用Microsoft Forms 2.0 Object Library元件中的ListBox來接收檔案的路徑(利用拖曳),可是卻發生這樣的問題.就是跑到以下這一行TextBox1.Text = Data.GetText就會發生錯誤,不知道該如何,才可以解決Data.GetText所發生的錯誤? 希望知道的人,能否協助一下,謝謝! 語法:
Option Explicit
Private Sub ListBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = fmDropEffectMove
End Sub
Private Sub ListBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Action As MSForms.fmAction, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, _
ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
TextBox1.Text = Data.GetText
Cancel = True
Effect = fmDropEffectMove
ListBox1.AddItem TextBox1.Text, 0
End Sub
|
|
送花文章: 362,
|
|
向 rank 送花的會員:
|
|
|
|
|
相似的主題
|
||||
| 主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
| 有關於ASUS P4P800-VM 的問題 | ckvi | 硬體疑難使用問題討論區 | 2 | 2005-06-11 11:56 PM |
| 有關於自動還原光碟的問題 | walltiger | 軟體應用問題討論區 | 2 | 2005-05-23 06:50 PM |
| 請教一下有關於xp登入和多人上網的問題 | wim | 軟體應用問題討論區 | 4 | 2003-02-26 11:31 AM |
| 有關於測速網頁的問題??? | Dian | 一般電腦疑難討論區 | 0 | 2003-02-25 02:13 PM |
平板模式
