《VBA高級(jí)應(yīng)用30例》（版權(quán)10178985），是我推出的第十套教程，教程是專門針對(duì)高級(jí)學(xué)員在學(xué)習(xí)VBA過(guò)程中提高路途上的案例展開，這套教程案例與理論結(jié)合，緊貼“實(shí)戰(zhàn)”，并做“戰(zhàn)術(shù)總結(jié)”，以便大家能很好的應(yīng)用。教程的目的是要求大家在實(shí)際工作中分發(fā)VBA程序，寫好的程序可以升級(jí)。本套教程共三冊(cè)三十個(gè)專題，本講的內(nèi)容是：VBA高級(jí)應(yīng)用30例應(yīng)用2實(shí)現(xiàn)在列表框內(nèi)及列表框間實(shí)現(xiàn)數(shù)據(jù)拖動(dòng)：類模塊代碼的實(shí)現(xiàn)過(guò)程

【分享成果，隨喜正能量】 人只有實(shí)實(shí)在在的有所成長(zhǎng)，并且真正感受到了這些成長(zhǎng)帶給自己的益處，才會(huì)真正去感恩帶給自己成長(zhǎng)的各種機(jī)緣，才會(huì)發(fā)自內(nèi)心地說(shuō)：一切都是最好的安排，才能把負(fù)面的事物，做出正向的解讀。。

應(yīng)用2 在列表框內(nèi)及列表框間實(shí)現(xiàn)數(shù)據(jù)拖動(dòng)

2 類模塊代碼的實(shí)現(xiàn)過(guò)程

在類模塊中我們要完成各種類對(duì)象的屬性設(shè)置及讀取，事件的響應(yīng)等等。我給大家一一講解：

1）各種變量的設(shè)置，在下面的各個(gè)代碼中，進(jìn)行各個(gè)參數(shù)的設(shè)置，有鼠標(biāo)拖放確定的項(xiàng)及列表框的變量，左鍵的設(shè)置，以及事件響應(yīng)的列表框?qū)ο?#xff0c;是否允許控件拖動(dòng)的變量及鼠標(biāo)定位的設(shè)置:

'用于在鼠標(biāo)拖放時(shí)確定的項(xiàng)

Private mlListItemCount As Long

Private mdListItemSize As Double

'我們從中拖動(dòng)項(xiàng)目的列表框

Private mobjFromList As MSForms.ListBox

'左鍵設(shè)置

Private Const lLEFTMOUSEBUTTON As Long = 1

Private WithEvents moListBox1 As MSForms.ListBox

Private WithEvents moListBox2 As MSForms.ListBox

'這兩項(xiàng)決定是否允許在控件內(nèi)拖動(dòng)：

Private mbDragWithin1 As Boolean

Private mbDragWithin2 As Boolean

Private mXStart As Single

Private mYStart As Single

代碼的截圖：

2)下面代碼對(duì)列表框ListBox1的屬性進(jìn)行讀寫設(shè)置，在屬性寫的設(shè)置過(guò)程中，我們模擬用了40個(gè)項(xiàng)目填充列表框，然后刪除，這個(gè)過(guò)程中我們會(huì)獲得參數(shù) mdListItemSize參數(shù)的初始值，也提供給大家一個(gè)捕獲鼠標(biāo)位置的可選方案，代碼如下：

[待續(xù)]

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：