如何为ttk::combobox添加滚动条？能否启用其垂直水平滚动？

嘿大卫，我懂你查官方手册没找到配置选项的困惑——ttk::combobox确实没直接提供滚动条的设置入口，但我们可以通过操作它隐藏的下拉列表组件来实现，下面给你一步步讲清楚：

一、添加垂直滚动条 #

ttk::combobox的下拉列表其实是一个隐藏的ttk::listbox组件，我们可以通过绑定<<ComboboxPopulate>>事件（下拉列表弹出前触发）来获取这个listbox，然后给它绑定垂直滚动条。

示例代码：

package require Tk

# 创建combobox并填充大量选项
ttk::combobox .cb -values [lrepeat 25 "示例选项 [expr {int(rand()*1000)}]"]
pack .cb -fill x -padx 10 -pady 10

# 绑定下拉事件，动态添加垂直滚动条
bind .cb <<ComboboxPopulate>> {
    # 获取下拉列表所在的顶级窗口，再拿到内部的listbox组件
    set dropdown_toplevel [winfo toplevel %W]
    set listbox [winfo child $dropdown_toplevel]
    
    # 避免重复创建滚动条
    if {![winfo exists $listbox.vsb]} {
        # 创建垂直滚动条并关联listbox
        ttk::scrollbar $listbox.vsb -orient vertical -command "$listbox yview"
        $listbox configure -yscrollcommand "$listbox.vsb set"
        
        # 调整布局，把滚动条放在listbox右侧
        grid $listbox -row 0 -column 0 -sticky nsew
        grid $listbox.vsb -row 0 -column 1 -sticky ns
        
        # 设置布局权重，让组件随窗口自适应
        grid rowconfigure $dropdown_toplevel 0 -weight 1
        grid columnconfigure $dropdown_toplevel 0 -weight 1
    }
}

二、添加水平滚动条 #

要实现水平滚动，需要给listbox绑定水平滚动条，同时确保listbox的内容宽度超过其显示宽度（否则滚动条不会激活）。这里我们可以先计算最长选项的宽度，再调整listbox的显示宽度：

示例代码（基于上面的垂直滚动条代码修改）：

package require Tk

ttk::combobox .cb -values [list "极长的示例选项1234567890abcdefghijklmnopqrstuvwxyz" "短选项" "中等长度选项12345" "另一个超长选项abcdefghijklmnopqrstuvwxyz1234567890"]
pack .cb -fill x -padx 10 -pady 10

bind .cb <<ComboboxPopulate>> {
    set dropdown_toplevel [winfo toplevel %W]
    set listbox [winfo child $dropdown_toplevel]
    
    # 垂直滚动条逻辑（同上）
    if {![winfo exists $listbox.vsb]} {
        ttk::scrollbar $listbox.vsb -orient vertical -command "$listbox yview"
        $listbox configure -yscrollcommand "$listbox.vsb set"
    }
    
    # 水平滚动条逻辑
    if {![winfo exists $listbox.hsb]} {
        # 创建水平滚动条并关联listbox
        ttk::scrollbar $listbox.hsb -orient horizontal -command "$listbox xview"
        $listbox configure -xscrollcommand "$listbox.hsb set"
        
        # 计算最长选项的宽度，调整listbox的显示宽度
        set max_width 0
        set listbox_font [$listbox cget -font]
        foreach item [.cb cget -values] {
            set current_width [font measure $listbox_font $item]
            if {$current_width > $max_width} {
                set max_width $current_width
            }
        }
        # 转换为字符宽度（加2是留边距）
        $listbox configure -width [expr {$max_width / [font measure $listbox_font "0"] + 2}]
    }
    
    # 调整整体布局
    grid $listbox -row 0 -column 0 -sticky nsew
    grid $listbox.vsb -row 0 -column 1 -sticky ns
    grid $listbox.hsb -row 1 -column 0 -sticky ew
    
    grid rowconfigure $dropdown_toplevel 0 -weight 1
    grid columnconfigure $dropdown_toplevel 0 -weight 1
}

注意事项 #

• 不同ttk主题的下拉窗口结构可能略有差异，如果winfo child拿不到listbox，可以用winfo children $dropdown_toplevel查看所有子组件，找到对应的listbox。
• <<ComboboxPopulate>>事件是在下拉列表填充内容后触发的，这时候操作listbox最稳妥，不会出现组件未初始化的问题。
• 水平滚动条只有当listbox内容宽度超过显示宽度时才会激活，所以如果你的选项都很短，可能看不到效果。

内容的提问来源于stack exchange，提问作者david