Hcolor是个滚动条
Sub getcolor()
v = Hcolor.Value
Select Case v
Case v = 1
color = "蓝色": GoTo e
Case v = 2
color = "绿色": GoTo e
Case Else
GoTo e
End Select
e:
End Sub
这段代码哪错了?怎么就是不行啊!急!跪求!
Hcolor是个滚动条
Sub getcolor()
v = Hcolor.Value
Select Case v
Case v = 1
color = "蓝色": GoTo e
Case v = 2
color = "绿色": GoTo e
Case Else
GoTo e
End Select
e:
End Sub
这段代码哪错了?怎么就是不行啊!急!跪求!