动态置工具条按钮标题例程

a.cbSize ＝ 32
a.dwMask ＝ #TBIF_TEXT
a.pszText ＝ 编辑框2.内容
SendMessage (工具条1.取窗口句柄 (), #TB_SETBUTTONINFO, 到数值 (编辑框1.内容) ＋ 1, a)

信息框 (“按钮索引：” ＋ 到文本 (按钮索引) ＋ #换行符 ＋ “按钮标题：” ＋ 工具条1.取标题 (按钮索引), 0, )