错在哪里了

wdf126 · 发表于 2019-5-21 21:37:09

VB错在哪里呀？
颜色 = Combo11.Text
Select Case Combo11.Text = "红色"
字色 = 255
Case Combo11.Text = "绿色"
字色 = 65280
Case Combo11.Text = "蓝色"
字色 = 16711680
Case Combo11.Text = "黄色"
字色 = 65535
Case Combo11.Text = "蓝色"
字色 = 65280
Case Combo11.Text = "黑色"
字色 = 0
Case Combo11.Text = "白色"
字色 = 16777215
Case Combo11.Text = "品红"
字色 = 16711935
Case Combo11.Text = "紫红"
字色 = 8388736
Case Combo11.Text = "藏青"
字色 = 8388608
Case Combo11.Text = "深青"
字色 = 8421376
Case Combo11.Text = 藏蓝
字色 = 14692440
Case Else
字色 = 8421504
End Select

Mouth · 发表于 2023-5-27 14:24:03

感谢分享

chenyucheng · 发表于 2022-5-15 08:43:20

wdf126 发表于 2019-5-22 10:22
颜色 = Combo11.Text
Select Case Combo11.Text
Case Combo11.Text = "红色"

[Visual Basic] 纯文本查看 复制代码

Color = Combo11.Text
Select Case Combo11.Text
        Case Combo11.Text = "红色"
            fontColor = 255
        Case Combo11.Text = "绿色"
            fontColor = 65280
        Case Combo11.Text = "蓝色"
            fontColor = 16711680
        Case Combo11.Text = "黄色"
            fontColor = 65535
        Case Combo11.Text = "蓝色"
            fontColor = 65280
        Case Combo11.Text = "黑色"
            fontColor = 0
       Case Combo11.Text = "白色"
            fontColor = 16777215
       Case Combo11.Text = "品红"
            fontColor = 16711935
       Case Combo11.Text = "紫红"
            fontColor = 8388736
       Case Combo11.Text = "藏青"
            fontColor = 8388608
       Case Combo11.Text = "深青"
            fontColor = 8421376
       Case Combo11.Text = "藏蓝"
            fontColor = 14692440
       Case Else
            fontColor = 8421504
End Select

wdf126 · 发表于 2019-5-22 10:22:00

颜色 = Combo11.Text
Select Case Combo11.Text
      Case Combo11.Text = "红色"
         字色 = 255
      Case Combo11.Text = "绿色"
         字色 = 65280
      Case Combo11.Text = "蓝色"
         字色 = 16711680
      Case Combo11.Text = "黄色"
         字色 = 65535
      Case Combo11.Text = "蓝色"
         字色 = 65280
      Case Combo11.Text = "黑色"
         字色 = 0
   Case Combo11.Text = "白色"
         字色 = 16777215
   Case Combo11.Text = "品红"
         字色 = 16711935
   Case Combo11.Text = "紫红"
         字色 = 8388736
   Case Combo11.Text = "藏青"
         字色 = 8388608
   Case Combo11.Text = "深青"
         字色 = 8421376
   Case Combo11.Text = "藏蓝"
         字色 = 14692440
   Case Else
         字色 = 8421504
End Select

全村最帅 · 发表于 2019-5-21 22:00:42

不知道,下一位

		自动登录	找回密码
密码			注册

[其它] 错在哪里了