Dim i As Integer
创新互联专业为企业提供宽甸网站建设、宽甸做网站、宽甸网站设计、宽甸网站制作等企业网站建设、网页设计与制作、宽甸企业网站模板建站服务，十多年宽甸做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
For i = 0 To Me.Width - Button1.Width 'me为容器，典型的是form1
Button1.Left += 1
Windows.Forms.Application.DoEvents()
Next
原理:不断地变化button1的X轴，使其向右移，同样，只要控制好其x,y轴，就可以变化button的变化
如果是做小游戏，建议弄成类吧，把其中的左（右）移或对角其它移动弄成其接口，以便操作。
由于涉及内容太多，不再详述。原理都一样
在ADO.NET中，可以通过数据表的记录行属性，定位到记录，列属性定位到字段。
For i = 0 To MyDs1.Tables(0).Rows.Count - 1 '行循环
For j = 0 To MyDs1.Tables(0).Columns.Count - 1 '列循环
Lstr = Lstr MyDs1.Tables(0).Rows(i)(j) " "
Next j
Lstr = Lstr vbCrLf
Next i
Textbox1.text = Lstr
您好，建议您使用mouse_event或者 Cursor.Position来实现。例如：
1. 您需要将鼠标移动dx, dy的位置。
Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)
Cursor.Position = New Point(Cursor.Position.X + dx, Cursor.Position.Y + dy)
End Sub
或者
Public Sub MouseMoveBy(ByVal dx As Integer, ByVal dy As Integer)
mouse_event(0, dx, dy, 0, 0)
End Sub
2. 您需要将鼠标移动到x, y的位置
Public Sub MouseMoveTo(ByVal x As Integer, ByVal y As Integer)
Cursor.Position = New Point(x, y)
End Sub
请您试一下。
窗体是指由两个列表框（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
对位模式执行数学左移位。
result = pattern amount
各部分说明
result
必选。整型数值。对该位模式进行移位的结果。数据类型与 pattern 的数据类型相同。
pattern
必选。整型数值表达式。要进行移位的位模式。数据类型必须为整型（SByte、Byte、Short、UShort、Integer、UInteger、Long 或 ULong）。
amount
必选。数值表达式。要将该位模式移位的位数。数据类型必须为 Integer 或扩展到 Integer。
备注
数学移位不是循环的，即不会将在结果的一端移出的数位从另一端重新移入。在数学左移位运算中，丢弃移出结果数据类型范围的数位，而将右端空出的数位位置设置为零。
为防止移位的结果超出它所支持的位数，Visual Basic 使用与 pattern 的数据类型相对应的大小掩码来屏蔽 amount 的值。可使用这些值的二进制与运算结果作为移位量。大小掩码如下所示：
pattern数据类型 掩码（十进制）掩码（十六进制）
SByte, Byte 7 H00000007
Short, UShort 15 H0000000F
Integer, UInteger 31 H0000001F
Long, ULong 63 H0000003F
如果 amount 为零，则 result 的值与 pattern 的值相同。如果 amount 为负值，则将把它作为无符号的值，并使用相应的大小掩码进行屏蔽。
数学移位绝不会产生溢出异常。
注意只能对整型执行按位运算。浮点值必须转换为整型后，才能执行按位运算。按位运算采用二进制（以 2 为基）形式计算两个整数值。它们比较对应位置上的位，然后基于比较的结果赋值。下面的示例演示了 And 运算符。复制Dim x As Integerx = 3 And 5 前面的示例将 x 的值设置为 1。发生这种情况的原因如下：这些值以二进制形式处理：二进制格式的 3 为 011二进制格式的 5 为 101And 运算符比较这些二进制表示方式，一次比较一个二进制位置（位）。如果给定位置的两个位都为 1，则将 1 放在结果中的该位置。如果任何一个位是 0，则将 0 放在结果中的该位置。在前面的示例中，按如下所示计算结果：011（二进制格式的 3）101（二进制格式的 5）001（二进制格式的计算结果）计算结果以十进制形式处理。值 001 是 1 的二进制表示形式，因此 x = 1。除了在任何一个比较位是 1 或两个比较位都是 1 的情况下将 1 赋予结果位以外，按位 Or 运算与此类似。Xor 在比较的位正好只有一个是 1（而不是两者都是 1）时将 1 赋给结果位。Not 采用单个操作数并反转所有位（包括符号位），然后将该值赋予结果。这意味着，对于有符号正数，Not 始终返回负值，而对于负数，Not 始终返回正值或零。AndAlso 和OrElse 运算符不支持按位运算。 追问： 好复杂啊...还是不会,还有整数怎么转换为二进制数? 回答： 为什么一定要用位运算呢，你那个乘法只能通过左移操作符“ ”来进行，而左移一次代表乘以2，要是乘以一个小数，就必须先化成2的n次方，不够再用加减法调整，很麻烦啊，没必要用位运算啊。。。 追问： 因为我要进行大量的运算,但速度要快,所有用位运算...我也不想啊.. 回答： 那就不该用VB 啊，c/c++在执行效率上是没话说的。 追问： 问题就是不会嘛... 回答： 那你上csdn上发帖效果应该不错 追问： CSDN发了,我发在高性能运算,没人... 回答： 耐心一些，或者你应该发到VB.NET论坛那里。。。
重庆分公司
重庆分公司
