十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
最简单的方法是鼠标选中,然后按上下左右方向键移动,然后再属性中锁定位置
公司主营业务:成都网站设计、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出平塘免费做网站回馈大家。
左键是1
右键是2
中键是4
可以组合相加
左右同时就是3,也可以写做:vbleftbutton+vbrightbutton
下面我给你一个例子 自己琢磨一下
代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To ListBox1.SelectedIndices.Count - 1
ListBox2.Items.Add((ListBox1.Items(ListBox1.SelectedIndices(0))))
ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(0))
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Clear()
ListBox1.Items.Add("高等数学")
ListBox1.Items.Add("大学物理")
ListBox1.Items.Add("大学生计算机基础")
ListBox1.Items.Add("VB.NET程序设计")
ListBox1.Items.Add("多媒体技术与应用")
ListBox1.Items.Add("数据库技术与应用")
ListBox1.Items.Add("Wed技术与应用")
ListBox1.Items.Add("大学英语")
ListBox1.Items.Add("电影鉴赏")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox2.Items.Add("高等数学")
ListBox2.Items.Add("大学物理")
ListBox2.Items.Add("大学生计算机基础")
ListBox2.Items.Add("VB.NET程序设计")
ListBox2.Items.Add("多媒体技术与应用")
ListBox2.Items.Add("数据库技术与应用")
ListBox2.Items.Add("Wed技术与应用")
ListBox2.Items.Add("大学英语")
ListBox2.Items.Add("电影鉴赏")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox2.Items.Clear()
ListBox1.Items.Clear()
ListBox1.Items.Add("高等数学")
ListBox1.Items.Add("大学物理")
ListBox1.Items.Add("大学生计算机基础")
ListBox1.Items.Add("VB.NET程序设计")
ListBox1.Items.Add("多媒体技术与应用")
ListBox1.Items.Add("数据库技术与应用")
ListBox1.Items.Add("Wed技术与应用")
ListBox1.Items.Add("大学英语")
ListBox1.Items.Add("电影鉴赏")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
For i = 0 To ListBox2.SelectedIndices.Count - 1
ListBox1.Items.Add((ListBox2.Items(ListBox2.SelectedIndices(0))))
ListBox2.Items.RemoveAt(ListBox2.SelectedIndices(0))
Next
End Sub
End Class