做網(wǎng)站后臺域名備案官網(wǎng)
《VBA高級應用30例》（版權10178985），是我推出的第十套教程，教程是專門針對高級學員在學習VBA過程中提高路途上的案例展開，這套教程案例與理論結合，緊貼“實戰(zhàn)”，并做“戰(zhàn)術總結”，以便大家能很好的應用。教程的目的是要求大家在實際工作中分發(fā)VBA程序，寫好的程序可以升級。本套教程共三冊三十個專題，本講的內容是：VBA高級應用30例應用2實現(xiàn)在列表框內及列表框間實現(xiàn)數(shù)據(jù)拖動：類模塊代碼的實現(xiàn)過程
【分享成果，隨喜正能量】 人只有實實在在的有所成長，并且真正感受到了這些成長帶給自己的益處，才會真正去感恩帶給自己成長的各種機緣，才會發(fā)自內心地說：一切都是最好的安排，才能把負面的事物，做出正向的解讀。。
應用2 在列表框內及列表框間實現(xiàn)數(shù)據(jù)拖動
2 類模塊代碼的實現(xiàn)過程
在類模塊中我們要完成各種類對象的屬性設置及讀取，事件的響應等等。我給大家一一講解：
1）各種變量的設置，在下面的各個代碼中，進行各個參數(shù)的設置，有鼠標拖放確定的項及列表框的變量，左鍵的設置，以及事件響應的列表框對象，是否允許控件拖動的變量及鼠標定位的設置:
'用于在鼠標拖放時確定的項
Private mlListItemCount As Long
Private mdListItemSize As Double
'我們從中拖動項目的列表框
Private mobjFromList As MSForms.ListBox
'左鍵設置
Private Const lLEFTMOUSEBUTTON As Long = 1
Private WithEvents moListBox1 As MSForms.ListBox
Private WithEvents moListBox2 As MSForms.ListBox
'這兩項決定是否允許在控件內拖動：
Private mbDragWithin1 As Boolean
Private mbDragWithin2 As Boolean
Private mXStart As Single
Private mYStart As Single
代碼的截圖：
2)下面代碼對列表框ListBox1的屬性進行讀寫設置，在屬性寫的設置過程中，我們模擬用了40個項目填充列表框，然后刪除，這個過程中我們會獲得參數(shù) mdListItemSize參數(shù)的初始值，也提供給大家一個捕獲鼠標位置的可選方案，代碼如下：
[待續(xù)]
我20多年的VBA實踐經(jīng)驗，全部濃縮在下面的各個教程中：
