建站
咨詢
售后
建站咨詢
新聞中心
vb.net 如何實現(xiàn)拖拽
打一個AjaxControlToolkit補丁包
創(chuàng)新互聯(lián)主要從事成都網(wǎng)站設(shè)計、成都做網(wǎng)站、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)龍口,10年網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):13518219792
里面有很多控件
就有你想要的拖拽控件
你好，請教一下vb.net中想實現(xiàn)標簽自動從左到右移動如何實現(xiàn)，我是新手
見下面代碼，放置定時器，按鈕，標簽各一個
Public?Class?Form1
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick?'定時器
If?Label1.Right??Me.Width?Then
Label1.Left?+=?10'移動距離
Else
Label1.Left?=?0
End?If
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click?'開啟或者關(guān)閉定時器
Timer1.Interval?=?1000?'1秒
If?Timer1.Enabled?=?False?Then
Timer1.Start()?'開定時器
Else
Timer1.Stop()?'關(guān)定時器
End?If
End?Sub
End?Class
vb.net textbox1選中的文本，拖放到textbox2？
很久沒有上這里了，今天看到了這個問題，嘗試做了一個；
本例以源文本框TextBox1全部文字作為拖放文字為例，實現(xiàn)拖放
1、向一個窗體中添加兩個文本框，分別名為TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop屬性設(shè)置成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
'設(shè)置一個標志以顯示鼠標已按下。
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的文本內(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ù)制光標（表示是拖放行為）。
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
'粘貼文本（將拖放內(nèi)容作為TextBox2的文本內(nèi)容）。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
分享名稱：vb.net標簽拖拽 vb標簽隨著鼠標移動
本文地址：http://fisionsoft.com.cn/article/doedcee.html
