Set dic = CreateObject("Scripting.Dictionary") For i = 1 To UBound(arr1) - 1 dic.Add arr1(i, 1), arr2(i, 1) Next i Me.ListBox1.Clear For i = 1 To dic.Count With Me.ListBox1 .AddItem .List(i - 1, 0) = arr1(i, 1)
For i = 1 To rsds.RecordCount .ListItems.Add , , rsds.Fields(0).Value For j = 1 To rsds.Fields.Count - 1 .ListItems(i).SubItems(j) = rsds.Fields(j).Value Next j rsds.MoveNext Next i End With '在文本框中刷新当前记录页信息 TextBox1.Value = mypage & "/" & rs.PageCount E...
说明使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加项目。实例 Dim Entry, I, Msg ' 声明变量。 Msg = "Choose OK to add 100 items to y...
3、把数组赋值给ListBox，假设我们给ListBox设置了两栏 For i = LBound(arr) To UBound(arr) With Me.ListBox1 .AddItem .List(i, 0) = arrTitle(i) .List(i, 1) = arr(i) End WithNext 4、把数组赋值给TreeView Dim Nodx As NodeSet Nodx = Me.TreeView1.Nodes.Add(, , ...
添加ListBox方法就是下面这一句：Me.Controls.Add("Forms.ListBox.1")Me 代表当前窗体变量，也可以写作如下代码：ThisWorkbook.VBProject.VBComponents ("FormName")其中FormName是当前窗体名。添加Label控件 Me.Controls.Add("Forms.Label.1")添加TextBox控件 Me.Controls.Add("Forms.TextBox.1")方法雷同，主要是...
For i = 0 To 3 ListView1.Items.Add("Item " & i, i) Next End Sub 运行后,单击按钮,效果如下图六所示: 也可以使用如下代码来添加Item,其运行效果是一样的: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ...
.Add xFormObj.ListBox1 End With Set xFormObj = Nothing End Sub 提取集合对象中的成员并显示到列表框中 Public Sub ShowColobj(xItemKey)On Error Resume Next Dim i As Integer, xStr As String Set xFormObj = UserForm1 xFormObj.ListBox1.Clear For i = 1 To ColObj.Count xFormObj.ListBox...
Add Key, Item '通过值取得,修改item Range("A1") = dic(key) dic(key) = 200 '通过作为key存入字典,去掉重复值,keys取出 For i = LBound(arr) To UBound(arr) If arr(i, 2) = Me.ListBox1.Value Then dic(arr(i, 3)) = 1 End If Next Me.ListBox2.List = dic.keys 语句 简写语句 ...
For i = 1 To 10 '添加标签控件 Set oLB = .Controls.Add("Forms.Label.1", "LB" & i, True) With oLB .Caption = "第" & i & "个标签" .Left = 50 .Top = 30 + (i - 1) * 40 End With '添加文本框控件 Set oTextBox = .Controls.Add("Forms.TextBox.1", "Txt" & i, True...
左侧为列出文章名称，运用了一个ListBox列表框，单击后自动建立右侧二维码，这些二维码可以直接扫描访问，现在拿出手机试一下吧！添加二维码 Dim erObj As BarCodeCtrl '添加二维码 Set erObj = Me.Controls.Add("BarCode.BarCodeCtrl.1", "ErWeiMa")'设置二维码属性 With erObj .Style = 11 .Top...