以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单击窗口中的其中一个按钮，此按钮变为红色，其余都变为黄色？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152624)
--  作者：fengwenliuyan
--  发布时间：2020/7/16 17:07:00
--  单击窗口中的其中一个按钮，此按钮变为红色，其余都变为黄色？
在窗口1中，有四个按钮，分别是按钮 1、按钮2、按钮3、按钮4。
若单击按钮1，则按钮1的背景颜色变为红色，其他按钮全部变为黄色；
若单击按钮2，则按钮2的背景颜色变为红色，其他按钮全部变为黄色；
若单击按钮3，则按钮3的背景颜色变为红色，其他按钮全部变为黄色；
若单击按钮4，则按钮4的背景颜色变为红色，其他按钮全部变为黄色；
这该怎么写？
--  作者：有点蓝
--  发布时间：2020/7/16 17:17:00
--  
按钮click事件

for i as integer = 1 to 4 
e.form.controls("按钮" & i).backcolor = color.yellow
next

e.sender.backcolor = color.red
--  作者：fengwenliuyan
--  发布时间：2020/7/16 19:20:00
--  回复：（有点蓝）按钮click事件for i as integer = 1 ...
若按钮名称分别是“入库”、“出库”、“开单”、“结单”呢？应该怎么写？
--  作者：有点蓝
--  发布时间：2020/7/16 20:15:00
--  
dim ar() as string = {“入库”,“出库”,“开单”,“结单”}
for each s as string in ar
e.form.controls(si).backcolor = color.yellow
next

e.sender.backcolor = color.red