zoukankan      html  css  js  c++  java
  • Listbox

    1 '添加条目 RowSource
    2 Private Sub UserForm_Initialize()
    3     Range("a1:a10").Name = "DataSource"
    4     Me.lbx.RowSource = "DataSource" 'Rowsourse = string
    5 End Sub
     1 '添加条目 Additem
     2 Private Sub UserForm_Initialize()
     3     Dim I&
     4     With Me.lbx
     5         .RowSource = "" '非空出现拒绝使用此权限
     6         For I = 1 To 10
     7             .AddItem Cells(I, 1).Value, I - 1 ' AddItem[ item [, varIndex ]] 索引从0开始,-1为未选中
     8         Next I
     9     End With
    10 End Sub
    1 '添加条目 List
    2 Private Sub UserForm_Initialize()
    3     Me.lbx.List = Application.WorksheetFunction.Transpose(Range("a1:a10").Value)
    4 End Sub
    1 '单选
    2 Private Sub cmdOk_Click()
    3     If Me.lbx.ListIndex <> -1 Then
    4         MsgBox "选中 " & Me.lbx.Value, vbInformation
    5     Else
    6         MsgBox "未选中"
    7     End If
    8  Unload Me
    9 End Sub
  • 相关阅读:
    Nginx配置文件
    SSM三层模型之间的参数传递
    Junit4用法
    常量类的设计
    初识Oracle
    sss
    sss
    sss
    sss
    sss
  • 原文地址:https://www.cnblogs.com/Ionefox/p/11075209.html
Copyright © 2011-2022 走看看