大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
都可以的呀,你自己试试在win平台下选中文件都是这样的,shift和ctrl都是可以多个选中的。
创新互联建站是一家专业提供象山企业网站建设,专注与做网站、网站制作、H5响应式网站、小程序制作等业务。10年已为象山众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
就像ps书上也有一些东西都是通用的。
书上没写全罢了,程序书就是这样。
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
MessageBox.Show(ListBox1.SelectedItem.ToString)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 0 To 10
ListBox1.Items.Add(i.ToString)
Next
End Sub
'''''''选择多项
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For i As Integer = 0 To 10
ListBox1.Items.Add(i.ToString)
Next
ListBox1.SelectionMode = SelectionMode.MultiSimple
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim item
For Each item In ListBox1.SelectedItems
MessageBox.Show(item.ToString)
Next
End Sub
你只有一个catcon,所以不行,你必须定义数组catcon()才可以显示多个
'如果控件命名是有规律的就很简单,一个循环搞定
Private Sub Command1_Click()
For i = 1 To 3 '我用了3个文本框,分别为Text1,Text2,Text3
'如果你的10个文本框分别是Text1到Text10,则直接把上面的3改为10即可
Me.Controls("Text" i).Text = "" '控件名是Text1(2,3,4...,10)的就清空
Next i
End Sub
'无规则命名的话就要这个了,历遍控件
Private Sub Command2_Click()
For Each i In Me.Controls '历遍窗体上所有控件
If TypeOf i Is TextBox Then i.Text = "" '如果一个控件是TextBox,则清空它
Next
End Sub
===============================
//你说的那情况当按钮和控件都在同一窗口时能实现,但是我想要的是,控件在窗口A,按钮在窗口B,点了B的按钮A的空间就清空,
一回事啊,把me改成form1不就得了
把ListBox的SelectionMode 属性设置为MultiExtended就可以了
如果是代码控制就是
ListBox1.SelectionMode=SelectionMode.MultiExtended