以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目按钮,如何变色?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191087)

--  作者:hrw68529
--  发布时间:2024/3/27 10:52:00
--  [求助]项目按钮,如何变色?
各位专家,foxtable中,当鼠标移动到某个按钮时,项目按钮会变色,当离开后,就不变色了,我现在想实现,当点击某个项目按钮时,打开某个项目,这时,即使鼠标移走,项目按钮还是不变色,当再点击其他按钮,当前点击的项目按钮变色,上一个点击的项目按钮恢复到原来的状态,这样的目的是知道当前我打开的是哪个项目按钮。谢谢
--  作者:有点蓝
--  发布时间:2024/3/27 10:55:00
--  
在按钮点击事件里:先遍历所有按钮,把颜色恢复,然后再把当前按钮变色
--  作者:hrw68529
--  发布时间:2024/3/27 10:56:00
--  
有点蓝,有代码吗,谢谢


--  作者:有点蓝
--  发布时间:2024/3/27 11:00:00
--  
for each s as string in {"按钮1","按钮1",...}
e.form.controls(s).ForeColor = SystemColors.Control
next
e.sender.ForeColor = Color.red

--  作者:hrw68529
--  发布时间:2024/3/27 11:07:00
--  

For Each s As String In {"主界面","职位代码","面试成绩","成绩查询","加权计算","号对人","分组对面试室","数据统计","参数设置"}
e.form.controls(s).ForeColor = SystemColors.Control
Next
e.sender.ForeColor = Color.red


出现编译错误,不执行代码,请指导

--  作者:hrw68529
--  发布时间:2024/3/27 11:09:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:截图00.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/3/27 11:20:00
--  
4楼是窗口按钮的用法。如果是菜单,改为使用状态按钮,然后参考:http://www.foxtable.com/webhelp/topics/1140.htm
--  作者:hrw68529
--  发布时间:2024/3/27 15:49:00
--  
改为使用状态按钮,这段代码放在什么地方:
For Each c As Winform.Control In e.Form.Controls
    c.BackColor = Color.Green

Next

--  作者:有点蓝
--  发布时间:2024/3/27 16:08:00
--  
菜单的Click事件。

另外8楼仍然是窗口控件的用法,菜单的用法请仔细认真的阅读7楼的帮助

--  作者:hrw68529
--  发布时间:2024/3/29 8:45:00
--  
看了7楼的帮助,还是一头雾水,不知道怎么弄