疑問 - 有關於Microsoft Forms 2.0 Object Library的問題

[rank]

語言是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]

是我的問題太模糊了以致於沒有人幫忙嗎?
希望有人能助小弟一把,問題卡了許久仍然沒有解決
爬文也爬了很多始終沒有進展
希望有做過這方面的大大能夠給予指點,哪裡發生錯誤,謝謝!

[Chin-Wei]

VB6.0 太古老了

還有在用的人應該不多

大家都忘了啦

我們公司系統部70幾個人也才只有 "一個人" 在寫 VB6.0

而且還是為了維護老舊卻不能汰換的系統....

[Living]

我猜你要的東西問題可能是出在before drag, 你的data.gettext 數值可能是null

這種情形下textbox1的字串是無法顯示

如果你是用VB6, 應該可以用step over去驗證每一行進行時的數值是否如你所預期

[rank]

作者: Chin-Wei

VB6.0 太古老了
還有在用的人應該不多
大家都忘了啦
我們公司系統部70幾個人也才只有 "一個人" 在寫 VB6.0
而且還是為了維護老舊卻不能汰換的系統....

可是小弟對VB6情有所鍾....
不然大大的公司系統部70幾個人大多使用哪一種語言?
我該轉途了嗎?
如果不轉途就會被淘汰嗎?
謝謝!

[rank]

作者: Living

我猜你要的東西問題可能是出在before drag, 你的data.gettext 數值可能是null
這種情形下textbox1的字串是無法顯示
如果你是用VB6, 應該可以用step over去驗證每一行進行時的數值是否如你所預期

謝謝大大的建議
小弟我會再用這方式檢查看看的