建站
咨詢
售后
建站咨詢
新聞中心
vb.net textbox1選中的文本，拖放到textbox2？
很久沒(méi)有上這里了，今天看到了這個(gè)問(wèn)題，嘗試做了一個(gè)；
成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)宣州,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):028-86922220
本例以源文本框TextBox1全部文字作為拖放文字為例，實(shí)現(xiàn)拖放
1、向一個(gè)窗體中添加兩個(gè)文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成True，這點(diǎn)不要遺漏。
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
'設(shè)置一個(gè)標(biāo)志以顯示鼠標(biāo)已按下。
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
'開(kāi)始拖動(dòng)（將TextBox1的文本內(nèi)容作為拖放內(nèi)容）。
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
'檢查正在被拖放的數(shù)據(jù)的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'顯示復(fù)制光標(biāo)（表示是拖放行為）。
e.Effect = DragDropEffects.Copy
Else
'顯示不放置光標(biāo)（表示不是拖放行為）。
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
'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
VB.NET怎么復(fù)制文件到剪切板，不是復(fù)制文件內(nèi)容！
例如，把文件"E:\新建文件夾\a.txt"復(fù)制到剪貼板
CreateObject("Shell.Application").NameSpace("E:\新建文件夾").ParseName("a.txt").InvokeVerb?"復(fù)制(C)"
vb.net中怎么樣把文本放入剪貼板呢，一定要仔細(xì)啊，從頭到尾寫出來(lái)給我吧。
Clipboard.SetDataObject(TextBox1.Text)
復(fù)制textbox1.text的內(nèi)容的剪貼板
編程vb.net clipboard 剪切復(fù)制粘貼
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Clipboard.SetDataObject(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
End Sub
文章名稱：vb.net粘貼文本 vb文本框復(fù)制粘貼代碼
標(biāo)題URL：http://fisionsoft.com.cn/article/hidhhj.html
