VB.NET中怎么實(shí)現(xiàn)拖動(dòng)圖片功能，針對這個(gè)問題，這篇文章詳細(xì)介紹了相對應(yīng)的分析和解答，希望可以幫助更多想解決這個(gè)問題的小伙伴找到更簡單易行的方法。

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供江永網(wǎng)站建設(shè)、江永做網(wǎng)站、江永網(wǎng)站設(shè)計(jì)、江永網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、江永企業(yè)網(wǎng)站模板建站服務(wù)，十多年江永做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

1、 在Form中添加兩個(gè)PictureBox控件。
2、 在代碼窗體中添加如下代碼

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _  System.EventArgs) Handles MyBase.Load  ' Enable dropping.  PictureBox2.AllowDrop = True End Sub   Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _  System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown  If Not PictureBox1.Image Is Nothing Then  ' Set a flag to show that the mouse is down.  m_MouseIsDown = True End If  End Sub   Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _  System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove  If m_MouseIsDown Then  ' Initiate dragging and allow either copy or move.  PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy Or _  DragDropEffects.Move)  End If  m_MouseIsDown = False End Sub   Private Sub PictureBox2_DragEnter(ByVal sender As Object, ByVal e As _  System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter  If e.Data.GetDataPresent(DataFormats.Bitmap) Then  ' Check for the CTRL key.  If e.KeyState = 9 Then  e.Effect = DragDropEffects.Copy  Else  e.Effect = DragDropEffects.Move  End If  Else  e.Effect = DragDropEffects.None  End If  End Sub   Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As _  System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop  ' Assign the image to the PictureBox.  PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap)  ' If the CTRL key is not pressed, delete the source picture.  If Not e.KeyState = 8 Then  PictureBox1.Image = Nothing End If  End Sub

注意到上面的例子中第二個(gè)PictureBox控件的AllowDrop屬性是在Form1_load事件中設(shè)置的，這是因?yàn)樵O(shè)計(jì)時(shí)PictureBox并沒有AllowDrop屬性。在MouseDown事件中，代碼首先檢測是否有要賦給PictureBox的圖片；如果沒有的話，當(dāng)你移動(dòng)圖片后，接下來的click將引發(fā)一個(gè)意外。還應(yīng)該注意到的是在DragEnter和DragDrop事件中代碼檢測CTRL鍵是否被按下，從而決定是否是復(fù)制還是VB.NET實(shí)現(xiàn)拖動(dòng)圖片。

為什么值會(huì)不同呢？在 DragEnter事件中，當(dāng)鼠標(biāo)左鍵按下時(shí)，產(chǎn)生的值是1，在加上CTRL的值8，從而值為9。見KeyState枚舉列表DragEventArgs.KeyState Property到目前為止，這兩個(gè)例子處理的都是同一窗體不同控件間的拖放，然而在同一應(yīng)用程序的不同窗體上同樣適用。

關(guān)于VB.NET中怎么實(shí)現(xiàn)拖動(dòng)圖片功能問題的解答就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，如果你還有很多疑惑沒有解開，可以關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道了解更多相關(guān)知識(shí)。