查看單個文章
舊 2009-02-28, 06:18 AM   #1
rank
註冊會員
榮譽勳章
UID - 293162
在線等級: 級別:2 | 在線時長:18小時 | 升級還需:3小時級別:2 | 在線時長:18小時 | 升級還需:3小時
註冊日期: 2008-02-12
文章: 327
精華: 0
現金: 16 金幣
資產: 16941 金幣
預設 有關於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
rank 目前離線  
送花文章: 362, 收花文章: 221 篇, 收花: 411 次
回覆時引用此帖
向 rank 送花的會員:
magicwoo (2009-03-01)
感謝您發表一篇好文章