精华内容
下载资源
问答
  • 请问一下,vb怎么让combo下拉列表中的每个选项对应一张图片,并将图片显示在窗体上?代码怎么写?谢谢!
  • VB的菜单条,下拉列表中出现combo的制作实现是怎样的?能不能把combo放在菜单条下拉下?
  • Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal ...Combo1下拉列表显示 1 2 3 4
  • 图2 接着,选择要创建下拉列表的单元格,本例中为单元格E3,设置其数据有效性如下图3所示。 图3 然后,选择单元格区域B3:C10。单击功能区“公式”选项卡“定义名称”组中的“根据所选内容创建”命令,根据左侧列...

    学习Excel技术,关注微信公众号:

    excelperfect

    在《Excel实战技巧15:在工作表中查找图片》中,我们使用名称和INDEX/MATCH函数组合,在工作表中显示与所选择名称相对应的图片。在《Excel实战技巧21:在工作表中查找图片(方法2)》中,使用名称和OFFSET/COUNTA/MATCH函数来实现相同的效果。在《Excel实战技巧22:在工作表中查找图片(使用VBA代码)》中,使用VBA代码来达到根据名称显示相应图片的效果。本文实现的效果相同,实现的方法类似,但可能更简单些。

    如下图1所示,工作表中显示了图片名称和对应的图片。注意,确保每张图片在单个单元格内,因为我们下面将会引用图片所在的单元格。

    a24506fed58f2a51ff015213c3470e56.png

    1

    选择单元格区域B3:B10,将其命名为“卡通人物”,如下图2所示。

    da0e1987d5a0266631e366fd7acd26c3.png

    2

    接着,选择要创建下拉列表的单元格,本例中为单元格E3,设置其数据有效性如下图3所示。

    fa789751c6d926c99a8c6597fe94d19a.png

    3

    然后,选择单元格区域B3:C10。单击功能区“公式”选项卡“定义名称”组中的“根据所选内容创建”命令,根据左侧列创建名称,如下图4所示。

    40080c3dedb0a5b41e7504dd0f504f48.png

    4

    这里运用了一个技巧,一次性创建了8个名称。然而要注意的是,名称的命名规则中,所命名的名称中不能有空格,因此列B中单元格内容不能含有包含空格在内的名称不接受的字符。

    再次选择单元格E3,使用公式定义名称:

    名称:卡通人物照片

    引用位置:=INDIRECT(Sheet1!$E$3)

    如下图5所示。

    4eef8ec30bbf47ea4b2d0ff7993733ba.png

    5

    最后,选择单元格E3附近的单元格,在列C中任选一幅图片粘贴到该单元格中,并在公式栏中将该图片的名称修改为:=卡通人物照片,如下图6所示。

    76495d036058bd493631fca491ed3ae2.png

    6

    看看最终的效果,如下图7所示。

    2ed2bde54c6cb8deaceaa4aeb83bfe56.gif

    7

    相关文章:

    • Excel实战技巧15:在工作表中查找图片

    • Excel实战技巧21:在工作表中查找图片

    • Excel实战技巧22:在工作表中查找图片(使用VBA代码)

    欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料。

    e7e64efc92d7862d14b32196afb5cae3.png

    展开全文
  • 一个VB 的优化案例 关劲松 PMP 关于测试软件,ComboBox读取数据库生成下拉... Combo1(1).Clear Combo1(1).AddItem 6, 0 strSelect一个VB 的优化案例关劲松 PMP关于测试软件,ComboBox读取数据库生成下拉列表的算法...

    一个VB 的优化案例 关劲松 PMP 关于测试软件,ComboBox读取数据库生成下拉列表的算法简化。 原有代码: 要遍历整个表的数据。使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。 Combo1(1).Clear Combo1(1).AddItem 6, 0 strSelect

    一个VB 的优化案例

    关劲松 PMP

    关于测试软件,ComboBox读取数据库生成下拉列表的算法简化。

    原有代码:

    要遍历整个表的数据。使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。

    Combo1(1).Clear

    Combo1(1).AddItem "6", 0

    strSelect = "select * from Code_21 ORDER BY TX_MIN_FREQ_min asc "

    Set rs = daev.sys.Execute(strSelect)

    if rs.RecordCount > 0 Then

    exist_flag = False

    rs.MoveFirst

    For i = 1 To rs.RecordCount

    For j = 0 To Combo1(1).ListCount - 1

    If Combo1(1).List(j) = rs.Fields("frequencyband") Then

    exist_flag = True

    End If

    Next j

    If exist_flag = False Then

    Combo1(1).AddItem rs.Fields("frequencyband"), Combo1(1).ListCount

    ElseIf exist_flag = True Then

    exist_flag = False

    End If

    rs.MoveNext

    Next i

    End If

    Combo1(1).Text = Combo1(1).List(0)

    改进代码:

    关键使用SQL中distinct 仅显示不相同的记录字段,同时用Clng将数据库定义为文本的frequencyband字段,类型转换为长整形,这样distinct后就可以自动排序。之后的代码就可以简化为一次循环,遍历返回的数据集即可。而且返回的数据集较小。

    Access的别名定义也要留意,不能与当前表的字段重名。因此需要将frequencyband定义为frequency。

    strSelect = "select distinct CLng(frequencyband) as frequency from Code_21 "

    Set rs = daev.sys.Execute(strSelect)

    Combo1(1).Clear

    If rs.RecordCount > 0 Then

    rs.MoveFirst

    For i = 1 To rs.RecordCount

    Combo1(1).AddItem rs.Fields("frequency"), Combo1(1).ListCount

    rs.MoveNext

    Next i

    End If

    Combo1(1).Text = Combo1(1).List(0)

    f68f2add0b68e4f9810432fce46917b7.png

    本文原创发布php中文网,转载请注明出处,感谢您的尊重!

    展开全文
  • VB6.0增强combo下拉框控件的功能,是一个XP风格下拉列表框,自定义了很多下拉框增强功能,比如追加项目、删除实际项目、禁止编辑、仅清除列表框中显示的文字、载入内容、列表框显示文字、总项目实际数量、复制...
  • VB程序中,如果你用如下语句动态创建一个Combo控件 Dim ... Set cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList") 后,Combo控件的Style值是1 (VbComboDropDown 下拉式组合框,包括一个下拉列表和一...

    在VB程序中,如果你用如下语句动态创建一个Combo控件
      Dim WithEvents cmbDropList As ComboBox

      ...
      Set cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList")

      后,Combo控件的Style值是1 (VbComboDropDown 下拉式组合框,包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入
    ),若想把Style的值更改2 (VbComboDrop-DownList 2 下拉式列表。这种样式仅允许从下拉式列表中选择 )

      通过语句Combo1.Style=2是不行的,因为Style是只读属性。为了突破这个限制,我动用的Spy++这个武器,对两种不同Style值的combo控件进行侦察,发现了两处不同

      1、combo控件的style的值为1-VbComboDropDown时,combo控件窗口的Styles=&H54010242,而combo控件的style的值为2-VbComboDrop-DownList时,combo控件窗口的Styles=&H54010243

      2、combo控件的style的值为1-VbComboDropDown时,combo控件里有一个Edit文本框窗口,而combo控件的style的值为2-VbComboDrop-DownList时,则没有Edit文本框窗口

      我首先试着用API函数改变combo控件窗口的Styles值,
      Call SetWindowLong(Combo1.hwnd,
    GWL_STYLE,&H54010243)
      看Combo控件有没有什么改变,结果大失所望,

      我再次试着用API函数杀死Combo控件里的那个Edit窗口,耶~~~,成功了
      下面是我的实现代码:
      Private
    Const GWL_STYLE = (-16)
      Private Const GW_CHILD = 5
      Private Declare
    Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

      Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long
      Private Declare
    Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long,
    ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
      Private Declare
    Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As
    Long
      Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As
    Long) As Long
      Private Declare Function CreateWindowEx Lib "user32" Alias
    "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal
    lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long,
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal
    hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
      Const
    SW_HIDE = 0
      Const SW_SHOW = 5
      Dim WithEvents cmbDropList As ComboBox

      Private Sub cmbDropList_Click()
      MsgBox cmbDropList.Text
      End
    Sub
      Private Sub Command1_Click()
      Dim ChildHwnd As Long
      Set
    cmbDropList = Controls.Add("VB.ComboBox", "cmbDropList")

      cmbDropList.Visible = True
      cmbDropList.AddItem "One"

      cmbDropList.AddItem "Two"
      ChildHwnd = GetWindow(cmbDropList.hwnd,
    GW_CHILD) '取edit句柄
      Call DestroyWindow(ChildHwnd) 'Kill edit窗口

      '改变cmbDropList的Style,这一语句可有可无~~~~,
      Call
    SetWindowLong(cmbDropList.hwnd, GWL_STYLE, GetWindowLong(cmbDropList.hwnd,
    GWL_STYLE) + 1)
      End Sub

    转载于:https://www.cnblogs.com/Spacecup/p/3564845.html

    展开全文
  • 关于测试软件,ComboBox读取数据库生成下拉列表的算法简化。 原有代码:  要遍历整个表的数据。使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。  Combo1(1).Clear  Combo1(1)....

    一个VB 的优化案例

    关劲松 PMP

     

    关于测试软件,ComboBox读取数据库生成下拉列表的算法简化。

    原有代码:
        要遍历整个表的数据。使用了两次嵌套循环,加if判断,加标志位处理。而且代码繁复,不易理解维护。
        Combo1(1).Clear
        Combo1(1).AddItem "6", 0
        strSelect = "select * from Code_21 ORDER BY TX_MIN_FREQ_min asc "
        Set rs = daev.sys.Execute(strSelect)
                
        if rs.RecordCount > 0 Then
            exist_flag = False
            rs.MoveFirst
            For i = 1 To rs.RecordCount
                For j = 0 To Combo1(1).ListCount - 1
                    If Combo1(1).List(j) = rs.Fields("frequencyband") Then
                        exist_flag = True
                    End If
                Next j
                If exist_flag = False Then
                    Combo1(1).AddItem rs.Fields("frequencyband"), Combo1(1).ListCount
                ElseIf exist_flag = True Then
                    exist_flag = False
                End If
                rs.MoveNext
            Next i
        End If

        Combo1(1).Text = Combo1(1).List(0)

     

    改进代码:
        关键使用SQL中distinct 仅显示不相同的记录字段,同时用Clng将数据库定义为文本的frequencyband字段,类型转换为长整形,这样distinct后就可以自动排序。之后的代码就可以简化为一次循环,遍历返回的数据集即可。而且返回的数据集较小。
        Access的别名定义也要留意,不能与当前表的字段重名。因此需要将frequencyband定义为frequency。
      
        strSelect = "select  distinct CLng(frequencyband) as frequency  from Code_21 "
        Set rs = daev.sys.Execute(strSelect)
       
        Combo1(1).Clear
        If rs.RecordCount > 0 Then
            rs.MoveFirst       
            For i = 1 To rs.RecordCount
                Combo1(1).AddItem rs.Fields("frequency"), Combo1(1).ListCount
                rs.MoveNext
            Next i
        End If
       
        Combo1(1).Text = Combo1(1).List(0)

    展开全文
  • Controls.Add("VB.ComboBox", "cmbDropList")后,Combo控件的Style值是1 (VbComboDropDown 下拉式组合框,包括一个下拉列表和一个文本框。可以从列表选择
  • VB读取网页源码

    2021-02-01 00:29:42
    在窗体上画两个标签(Label1,Label2),一个下拉列表框(Combo1),一个按钮(Command1),两个文本输入框(Text1,Text2),将Text2的属性Multiline设为True,ScrollBars设为3-Both,其他控件属性为默认,代码如下: ...
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    调整 Combo 下拉部分的宽度 32 , 32.txt 动态加入控件到VB控件数组中 33 , 33.txt 对ListView中的列排序 34 , 34.txt 放一个Combo到Toolbar中 35 , 35.txt 改变 ListIndex而不发生 Click 事件 36 , 36.txt 改变 ...
  • 一、VB控件集,控件集内含ListView、漂亮按钮、下拉列表、TAB窗体选项卡、树形菜单控件、窗体滑动菜单、分组菜单,可折叠展开的菜单等。以前就更新过,现在修正了不少控件中的小错误,更接近完善了,相信这些控件...
  • QBWIN开发说明

    2013-02-26 17:11:52
    Label标签,Text文本框,Frame框架,List列表,Combo下拉列表,Menu菜A单,MegBox消息对话框/输入框,等控件。 真正做到了DOS下一鼠天下,有鼠标右键弹出式菜单功能。使用12点阵字体界面非常友好。拥有自己的输入法...
  • Label标签,Text文本框,Frame框架,List列表,Combo下拉列表,Menu菜A单,MegBox消息对话框/输入框,等控件。 真正做到了DOS下一鼠天下,有鼠标右键弹出式菜单功能。使用12点阵字体界面非常友好。拥有自己的输入法...
  • MFC自动识别串口

    千次阅读 2014-04-29 21:02:03
    这是使用VC++的人最初常遇到的问题,实际上是下拉列表的高度设置不当。组合框的高度是不能修改的,它是由系统决定的,但下拉部分的高度(即在下拉框中显示多少行)是可以设置的。在VB和Delphi中
  • 这是使用VC++的人最初常遇到的问题,实际上是下拉列表的高度设置不当。组合框的高度是不能修改的,它是由系统决定的,但下拉部分的高度(即在下拉框中显示多少行)是可以设置的。在VB和Delphi中默认
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 应用源码包_3

    热门讨论 2012-09-15 14:33:15
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的...

空空如也

空空如也

1 2
收藏数 25
精华内容 10
关键字:

combo下拉列表vb