vb 中怎么实现多个窗口中的shape图像颜色统一变化？

2024-11-07 20:43:11

推荐回答（2个）

回答1：

添加一个模块，在其中声明一个 Public 变量存放颜色值，然后在每个窗口的Shape控件定义FillColor属性的时候都使用这个变量所定义的颜色值。
例如在模块中：
Public clr
在启动首窗体中：（也就是程序打开的第一个窗体）
Private Sub Form_Load()
clr = vbRed
Shape1.FillColor = clr
End Sub
在其它中：
Private Sub Form_Load()
Shape1.FillColor = clr
End Sub

你也可以随时改变颜色值：
Private Sub Command1_Click()
clr=vbBlue
End Sub

回答2：

举个例子吧:
假设你有N多个窗体，每个窗体上都有一个 Shape1控件，现在统计改变其填充样式及填充颜色：
For i = 1 To Forms.Count
Forms(i - 1).Shape1.FillStyle = 2 '统一样式
Forms(i - 1).Shape1.FillColor=vbRed '统一填充色为红色
Next