vb.net移动端 vb移动代码

VB.NET到底能不能在安卓系统上编写手机程序

不能，VB.NET是在windows环境里开发windows软件的，安卓系统用不了，而且也没安卓版的VB.NET，你要想开发安卓软件，先在电脑上安装JDK环境包，用Android

创新互联从2013年成立，是专业互联网技术服务公司，拥有项目成都网站建设、网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元香格里拉做网站,已为上家服务,为香格里拉各地企业和个人服务,联系电话:028-86922220

Studio来开发，VB.NET就算了。两者之间压根就没关系。

vb.net窗体的移动问题

Public X, Y As Integer

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

X = e.X : Y = e.Y

End Sub

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

If X = e.X And Y = e.Y Then Exit Sub

If e.Button = Windows.Forms.MouseButtons.Left Then

Me.Left = Me.Left + e.X - X

Me.Top = Me.Top + e.Y - Y

End If

End Sub

VB.NET如何实现无边框窗体拖动？ 如果能指定控件拖动更好 希望能有一点分析 使用VS2015

VB6.0写的，代码很简单，无意中写成的。应该可以参考。不需要任何api函数。在无边框窗体顶部中放入一个label标签。然后用label的 mouse down 和mouse move事件实现

Dim a, b As Single

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

a = X

b = Y

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Form1.Move Left + X - a, Top + Y - b

End If

End Sub

用vb.net编写项目移动。。。求高人指点。。。。

窗体是指由两个列表框（ListBox1、ListBox2）和4个命令按钮（Button1“”按钮，Button2“”按钮，Button3“”按钮，Button4“”按钮）所构成的界面，代码：

Public Class Form1

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

Me.Text = "选项移动"

ListBox1.SelectionMode = SelectionMode.MultiSimple

ListBox2.SelectionMode = SelectionMode.One

For i = 1 To 10

ListBox1.Items.Add(Chr(Asc("a") + i - 1))

Next

For i = 1 To 10

ListBox2.Items.Add(i.ToString)

Next

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

If ListBox1.SelectedItems Is Nothing Then Exit Sub

Dim b As ListBox.ObjectCollection

For i = 0 To Me.ListBox1.SelectedItems.Count - 1

Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(0))

Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(0))

Next

End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

If ListBox2.SelectedItems IsNot Nothing Then

ListBox1.Items.Add(ListBox2.SelectedItem)

ListBox2.Items.Remove(ListBox2.SelectedItem)

End If

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

For Each itm As Object In ListBox1.Items

ListBox2.Items.Add(itm)

Next

ListBox1.Items.Clear()

End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

For Each itm As Object In ListBox2.Items

ListBox1.Items.Add(itm)

Next

ListBox2.Items.Clear()

End Sub

End Class