|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
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 送花的會員:
|
magicwoo (2009-03-01)
感謝您發表一篇好文章 |
|
|
相似的主題 | ||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
有關於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 |