vb.net标签拖拽 vb标签左移右移代码

你好，请教一下vb.net中想实现标签自动从左到右移动如何实现，我是新手

见下面代码vb.net标签拖拽，放置定时器vb.net标签拖拽，按钮vb.net标签拖拽，标签各一个

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 '开启或者关闭定时器

        Timer1.Interval = 1000 '1秒

        If Timer1.Enabled = False Then

            Timer1.Start() '开定时器

        Else

            Timer1.Stop() '关定时器

        End If

    End Sub

End Class

相关问答

Q1: 求助vb.net拖拽文件到窗体获取文件信息

这是一个简单的示例，你只需要新建一个项目，并在项目上放置一个文本框：TEXTBOX1，然后，将以下代码复制到代码区：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.AllowDrop = True

End Sub

''建拖曳事件，实现文件拖放

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

Try

If e.Data.GetDataPresent(DataFormats.FileDrop) = True Then

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

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

Try

Dim filepaht As String() = e.Data.GetData(DataFormats.FileDrop)

For Each File As String In filepaht

textBox1.Text = File

Next

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

如此，在文本框里将会出现被拖曳文件的路径信息。

Q2: vb.net textbox1选中的文本，拖放到textbox2？

很久没有上这里了，今天看到了这个问题，尝试做了一个；

本例以源文本框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

Q3: vb.net label跟着鼠标移动

简单啊

第一个问题

在鼠标vb.net标签拖拽的 move事件里面 得到鼠标的坐标点vb.net标签拖拽，然后更改label的vb.net标签拖拽，left 和top属性。具体的值你自己去算。

第二个问题

其实跟地一次差不多，只不过过加个标记，判断鼠标是否在按钮上进行vb.net标签拖拽了点击操作，鼠标按下时变成TRUE 然后也是在鼠标MOVE的时候，更改按钮的坐标点。当鼠标弹起的时候将这个标记置换成FALSE

回答完毕

Q4: vb.net 如何实现拖拽

打一个AjaxControlToolkit补丁包

里面有很多控件

就有你想要的拖拽控件

Q5: VB.net 实现TreeView控件的拖拽事件

注意看看控件的属性vb.net标签拖拽，这个是可以靠修改属性来更改的，里面有接收拖曳进来的数据和拖曳出去的数据的属性，改成ture就可以拖曳了csdn中有拖曳的实例，就是以treeview控件为例子的，去找找，vb.net标签拖拽我上次见过，好像在控件那部分

vb.net标签拖拽的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb标签左移右移代码、vb.net标签拖拽的信息别忘了在本站进行查找喔。