2

我是 tcl/tk 编程的新手。这是组合框上的一个小代码片段。如何从组合框中动态添加和删除值？

set ff [ frame f]
set label [Label $ff.label -text "Name:" ]

set name [ComboBox $ff.name \
                 -editable yes \
                 -textvariable name]

set addButton [Button $ff.addButton -text "+" -width 1 -command {addNameToComboBox}]

set removeButton [Button $ff.removeButton -text "-" -width 1  -command removeNameFromComboBox}]    

grid $ff.addButton  -row 0 -column 2 -sticky w
grid $ff.removeButton  -row 0 -column 3 -sticky sw -padx 5

proc addNameToComboBox {name} {

}

proc removeNameFromComboBox {name} {

}

干杯!

4

1 回答 1

4

您的示例代码有一些错误 (*)，您想要做什么并不完全清楚。您是想将组合框的当前值添加到下拉列表中，还是您要添加的值来自其他地方？

这是一个将组合框的当前值添加到列表的解决方案。它使用组合框、标签和按钮小部件的内置版本。您使用的任何组合框小部件都可能类似地工作，但可能不完全一样。

(*) Button、Label 和 ComboBox 不是标准小部件——您的意思是“button”、“label”和“ttk::combobox”，还是使用一些自定义小部件？此外，您忘记使用网格来管理组合框和标签，并且您的 proc 期待参数，但您没有传入任何参数）。

此解决方案适用于 tcl/tk 8.5 和内置 ttk::combobox 小部件：

package require Tk 8.5

set ff [frame .f]
set label [label $ff.label -text "Name:" ]
set name [ttk::combobox $ff.name -textvariable name]
set addButton [button $ff.addButton -text "+" -width 1 \
    -command [list addNameToComboBox $name]]
set removeButton [button $ff.removeButton -text "-" -width 1 \
    -command [list removeNameFromComboBox $name]]
grid $label $name
grid $ff.addButton -row 0 -column 2 -sticky w 
grid $ff.removeButton -row 0 -column 3 -sticky sw -padx 5
pack $ff -side top -fill both -expand true

proc addNameToComboBox {name} {
    set values [$name cget -values]
    set current_value [$name get]
    if {$current_value ni $values} {
        lappend values $current_value
        $name configure -values $values
    }
}

proc removeNameFromComboBox {name} {
    set values [$name cget -values]
    set current_value [$name get]
    if {$current_value in $values} {
        set i [lsearch -exact $values $current_value]
        set values [lreplace $values $i $i]
        $name configure -values $values
    }    
}
于 2009-08-24T14:34:14.207 回答