易语言动态置工具条按钮标题

.子程序 _工具条1_被单击
.参数 按钮索引, 整数型

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

.子程序 _按钮2_被单击
.局部变量 a, TBBUTTONINFO

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