- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 控件位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174166)
-- 发布时间：2022/1/5 9:08:00
-- 控件位置
老师，我按钮打开一个窗口，要打开的窗口位于按钮的下面，怎么获取点击的按钮的位置呢？这样获取到的位置是相对屏幕的位置，不是按钮的位置。
With e.Sender
Forms("窗口1").Open(e.Sender.Left ,e.Sender.Top + e.Sender.Height)
End With
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.foxdb |
[此贴子已经被作者于2022/1/5 9:30:55编辑过]
-- 发布时间：2022/1/5 10:01:00
--
参考：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=95565
-- 发布时间：2022/1/5 12:00:00
--
在请教一下老师，我点击控件修改了背景色，换控件后，之前点击控件的背景色没生效呢，意思就是只有一个控件背景色是红色
Vars("选择") = e.Sender.Text
msgbox("你选择的年度是:" & Vars("选择"))
For Each c As Winform.Control In e.Form.Controls
If e.Sender.Text = Vars("选择") Then
e.Sender.BackColor = Color.Red
Else
c.BackColor = Color.SkyBlue
End If
Next
此主题相关图片如下：qq截图20220105115752.jpg
-- 发布时间：2022/1/5 12:07:00
--
For Each c As Winform.Control In e.Form.Controls
Dim t As WinForm.TextBox改为对应的控件类型 = c
If t.Text <> Vars("选择") Then
c.BackColor = Color.SkyBlue
End If
Next
If t.Text <> Vars("选择") Then
c.BackColor = Color.SkyBlue
End If
Next