关于vb记事本背景颜色的问题

显示全部楼层 · 2009-4-7 07:45:26

Private Sub Command36_Click()
Text1.BackColor= Combo1.Text
End Sub
我用这个代码通过读取Combo1中的文本来改变背景要色可是为什么没用呢
说类型不匹配

千问 · 2009-4-7 07:45:26

你应该用select case 来判断的。Private Sub Command36_Click() select case Combo1.Text case "红色":Text1.BackColor = RGB(255,0,0) case "绿色":Text1.BackColor = RGB(0,255,0)case "蓝色":Text1.BackColor = RGB(0,0,255)case "黄色":Text1.BackColor = RGB(255,255,0)case "白色":Text1.BackColor = RGB(255,255,255)case "黑色":Text1.BackColor = RGB(...

千问 · 2009-4-7 07:45:26

读取Combo1中的文本是字符串类型Text1.BackColor是整型你应该用判断语句判断读取的文本是什么。然后 Text1的背景颜色是什么。。...