VB编程:自定义过程改变窗体颜色-53

简介: VB编程:自定义过程改变窗体颜色-53

程序源码:

Dim A(5) As String


Private Sub Combo1_click()

   A(5) = Combo1.Text

End Sub


Private Sub Command1_Click()

   CB A(5), Form1

End Sub


Private Sub Form_Load()

   Dim i As Integer

   A(1) = "红色"

   A(2) = "黑色"

   A(3) = "黄色"

   A(4) = "蓝色"

   For i = 1 To 4

       Combo1.AddItem A(i)

   Next i

End Sub


Sub CB(Ys As String, Co As Object)

   If TypeOf Co Is Form Then

       Select Case Ys

           Case "红色"

               Co.BackColor = RGB(255, 0, 0)

           Case "黄色"

               Co.BackColor = RGB(255, 255, 0)

           Case "绿色"

               Co.BackColor = RGB(0, 255, 0)

           Case "蓝色"

               Co.BackColor = RGB(0, 0, 255)

           Case Else

               MsgBox "无颜色,请选择", vbOKOnly, "提示"

       End Select

   End If

End Sub

相关文章
|
API 图形学
Winform控件优化之自定义控件的本质【从圆角控件看自定义的本质,Region区域无法反锯齿的问题】
自定义控件的本质只有两点:重绘控件Region区域(圆角、多边形、图片等),这是整个控件的真实范围;重绘图形,在原有Region范围内,重绘不同的图形(圆角、多边形、图片等)作为背景......
569 0
Winform控件优化之自定义控件的本质【从圆角控件看自定义的本质,Region区域无法反锯齿的问题】
|
3月前
|
前端开发 图形学
小功能⭐️3DCanvas交互方法、Unity自动调整文本框大小、改变文字大小和颜色
小功能⭐️3DCanvas交互方法、Unity自动调整文本框大小、改变文字大小和颜色
零基础VB教程063期:如何用代码直接创建控件?从此不必拖控件了
零基础VB教程063期:如何用代码直接创建控件?从此不必拖控件了
312 0
VB编程:利用控件数组设置控件状态-38
VB编程:利用控件数组设置控件状态-38
|
人工智能
VB编程:自定义过程改变窗体颜色
VB编程:自定义过程改变窗体颜色
322 0
VB编程:自定义过程改变窗体颜色
VB编程:利用控件数组设置控件状态
VB编程:利用控件数组设置控件状态
114 0
VB编程:利用控件数组设置控件状态
VB编程:不能更改窗体大小又能最小化
VB编程:不能更改窗体大小又能最小化
142 0
MFC怎么用代码改变CComboBox的下拉方式?
MFC怎么用代码改变CComboBox的下拉方式?
165 0
|
C#
WinForm和WPF颜色对象的转换
原文:WinForm和WPF颜色对象的转换 版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/huangli321456/article/details/52956846 ...
872 0
|
C#
[WPF疑难] 模式窗口被隐藏后重新显示时变成了非模式窗口
原文:[WPF疑难] 模式窗口被隐藏后重新显示时变成了非模式窗口                            [WPF疑难] 模式窗口被隐藏后重新显示时变成了非模式窗口                                              周银辉 现象: 大家可以...
1253 0