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范围内,重绘不同的图形(圆角、多边形、图片等)作为背景......
578 0
Winform控件优化之自定义控件的本质【从圆角控件看自定义的本质,Region区域无法反锯齿的问题】
QT软件开发: QPlainTextEdit当做日志显示窗口
QT软件开发: QPlainTextEdit当做日志显示窗口
750 0
QT软件开发: QPlainTextEdit当做日志显示窗口
|
3月前
|
前端开发 图形学
小功能⭐️3DCanvas交互方法、Unity自动调整文本框大小、改变文字大小和颜色
小功能⭐️3DCanvas交互方法、Unity自动调整文本框大小、改变文字大小和颜色
|
编解码 C# 图形学
winform-SunnyUI控件解决大小位置变化
winform-SunnyUI控件解决大小位置变化
491 0
零基础VB教程063期:如何用代码直接创建控件?从此不必拖控件了
零基础VB教程063期:如何用代码直接创建控件?从此不必拖控件了
315 0
VB编程:利用控件数组设置控件状态-38
VB编程:利用控件数组设置控件状态-38
|
人工智能
VB编程:自定义过程改变窗体颜色
VB编程:自定义过程改变窗体颜色
324 0
VB编程:自定义过程改变窗体颜色
VB编程:利用控件数组设置控件状态
VB编程:利用控件数组设置控件状态
114 0
VB编程:利用控件数组设置控件状态
VB编程:不能更改窗体大小又能最小化
VB编程:不能更改窗体大小又能最小化
142 0
MFC怎么用代码改变CComboBox的下拉方式?
MFC怎么用代码改变CComboBox的下拉方式?
166 0