vb.net textbox1選中的文本，拖放到textbox2？

很久沒有上這里了，今天看到了這個問題，嘗試做了一個；

成都創新互聯專注于企業成都營銷網站建設、網站重做改版、濮陽網站定制設計、自適應品牌網站建設、H5高端網站建設、電子商務商城網站建設、集團公司官網建設、成都外貿網站建設、高端網站制作、響應式網頁設計等建站業務，價格優惠性價比高，為濮陽等各大城市提供網站開發制作服務。

本例以源文本框TextBox1全部文字作為拖放文字為例，實現拖放

1、向一個窗體中添加兩個文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設置成True，這點不要遺漏。

2、完整的代碼如下：

Public Class Form1

Private MouseIsDown As Boolean = False

Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

'設置一個標志以顯示鼠標已按下。

MouseIsDown = True

End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove

If MouseIsDown Then

'開始拖動（將TextBox1的文本內容作為拖放內容）。

TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)

End If

MouseIsDown = False

End Sub

Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

'檢查正在被拖放的數據的格式。

If (e.Data.GetDataPresent(DataFormats.Text)) Then

'顯示復制光標（表示是拖放行為）。

e.Effect = DragDropEffects.Copy

Else

'顯示不放置光標（表示不是拖放行為）。

e.Effect = DragDropEffects.None

End If

End Sub

Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

'粘貼文本（將拖放內容作為TextBox2的文本內容）。

TextBox2.Text = e.Data.GetData(DataFormats.Text)

End Sub

End Class

VB.net怎么實現運行時鼠標拖動改變控件的大小啊

控件是可以顯示在里面的，你只要加個label，把label的屬性設為visualble=fause就行。設置鼠標經過頭像的mouseHover和mouseLeave事件，當mouseHover時label的屬性visualble=true，當mouseLeave時label的屬性visualble=fause即可。窗體的鼠標事件可以設置控件的cursor屬性，里面可以選擇許多種鼠標圖形。 只要是正常的Form都可以改變窗體大小，但是無邊框的窗體只能用函數改變或者設置屬性，在debug后是不能改變的。拖動窗體需要在窗體的load時間里面寫入當鼠標單擊不放時的事件即可，不難。

vb，net怎么實現拖拽文件到文本框和粘貼復制？

第一步，點擊VS工具

請點擊輸入圖片描述

第二步，打開后，新建一個Windows窗體應用程序

請點擊輸入圖片描述

第三步，新建完畢后，如圖所示

請點擊輸入圖片描述

第四步，拖動文本框與按鈕，如圖示

請點擊輸入圖片描述

第五步，將剪貼板復制與粘貼代碼輸入，如圖示

請點擊輸入圖片描述

第六步，運行程序

請點擊輸入圖片描述

7

第七步，點擊按鈕，成功從剪貼板中復制與粘貼操作

請點擊輸入圖片描述

vb.net 在Win窗體中如何實現圖標或按鈕的拖放功能。

VB.NET做的窗體托盤，可以把窗體縮小到任務欄圖標，點右鍵可以觸發事件-VB.NET do form tray can form down to the taskbar icon, point right to trigger events

如何在VB中實現拖拽功能？

設置list1的OLEDropMode

屬性為手動,窗體和其它控件也可以這樣設置

Option

Explicit

Private

Sub

Form_Load()

'設置允許List1接受拖放操作

List1.OLEDropMode

=

1

End

Sub

'有東西拖放到List1上

Private

Sub

List1_OLEDragDrop(Data

As

DataObject,

Effect

As

Long,

Button

As

Integer,

Shift

As

Integer,

X

As

Single,

Y

As

Single)

Dim

i

As

Integer

'將拖放的文件添加到列表

For

i

=

1

To

Data.Files.Count

List1.AddItem

Data.Files(i)

Next

End

Sub