史萊姆論壇 - 有關於Microsoft Forms 2.0 Object Library的問題

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - 有關於Microsoft Forms 2.0 Object Library的問題 (http://forum.slime.com.tw/thread244018.html)

有關於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

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

VB6.0 太古老了

還有在用的人應該不多

大家都忘了啦

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

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

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

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

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

引用:

作者: Chin-Wei (文章 2124670)

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

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

引用:

作者: Living (文章 2124676)

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

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