用VB编程~~~~在线等~~

来源：百度知道 编辑：UC知道 时间：2024/05/13 11:40:50
文字颜色 背景颜色

黑色 红色

蓝色 白色

黄色 绿色

________________________________
|
|金金金金金金金金金金金金金
________________________________

运行时选择不同的文字颜色和背景色时，文本框中的文字颜色和背景颜色会相应改变。初始时文字颜色为黑色。背景颜色为白色

新建工程,2个Frame,6个option,1个text
记得不要做成数组, 记得前3个option放在frame1中,后3个放在frame2中

Private Sub Form_Load()
Frame1.Caption = "文字颜色"
Frame2.Caption = "背景颜色"
Option1.Caption = "黑色"
Option2.Caption = "蓝色"
Option3.Caption = "黄色"
Option4.Caption = "红色"
Option5.Caption = "白色"
Option6.Caption = "绿色"

Option1.Value = True
Option5.Value = True
Text1 = String(13, "金")
End Sub

Private Sub Option1_Click()
Text1.ForeColor = vbBlack
End Sub

Private Sub Option2_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub Option3_Click()
Text1.ForeColor = vbYellow
End Sub

Private Sub Option4_Click()
Text1.BackColor = vbRed
End Sub

Private Sub Option5_Click()
Text1.BackColor = vbWhite
End Sub

Private Sub Option6_Click()
Text1.BackC