如何修改ttk::progressBar未完成部分背景色并添加进度文本？

1. 修改进度条未完成部分的背景色 #

ttk进度条的未填充区域（默认浅灰色）由样式的 -troughcolor 参数控制，-background 仅负责已完成部分的颜色。你可以通过自定义ttk样式修改该颜色：

示例代码：

package require Tk

# 创建自定义进度条样式
ttk::style configure Custom.Horizontal.TProgressbar \
    -troughcolor #2d2d2d  ;# 未完成部分的背景色（替换为目标颜色）
    -background #4CAF50   ;# 已完成部分的颜色

# 使用自定义样式创建进度条
ttk::progressbar .pb -style Custom.Horizontal.TProgressbar -orient horizontal -length 200 -value 20
pack .pb

2. 在进度条上显示百分比文本 #

ttk::progressBar本身不支持直接嵌入文本，因为它是纯图形组件。你可以通过叠加标签组件的方式实现，让标签文本与进度条数值同步：

示例代码：

package require Tk

# 自定义进度条样式
ttk::style configure Custom.Horizontal.TProgressbar \
    -troughcolor #2d2d2d \
    -background #4CAF50

# 创建容器，用于放置进度条和标签
frame .container

# 创建进度条
ttk::progressbar .container.pb -style Custom.Horizontal.TProgressbar -orient horizontal -length 200 -value 20

# 创建百分比标签，背景色与进度条槽色一致
label .container.lbl -text "20%" -fg white -bg #2d2d2d

# 布局：将标签与进度条放在同一位置，实现覆盖效果
grid .container.pb -row 0 -column 0 -sticky nsew
grid .container.lbl -row 0 -column 0 -sticky nsew
# 让容器的行列自适应大小
grid rowconfigure .container 0 -weight 1
grid columnconfigure .container 0 -weight 1

pack .container

# 绑定进度条数值变化事件，自动更新标签文本
bind .container.pb <<ValueChanged>> {
    set current_value [%W cget -value]
    .container.lbl configure -text [format "%.0f%%" $current_value]
}

# 测试进度更新（可选）
after 1000 {.container.pb configure -value 50}
after 2000 {.container.pb configure -value 80}
after 3000 {.container.pb configure -value 100}

注意事项： #

• 标签的背景色要和进度条的 -troughcolor 保持一致，避免出现突兀的色块。
• 如果使用垂直进度条，只需将 -orient 参数改为 vertical，并调整标签的布局对齐方式即可。

内容的提问来源于stack exchange，提问作者M.E.