VB6.0 的RGB方法使用

来源：百度知道 编辑：UC知道 时间：2024/05/13 18:05:35
Dim bkColor As Long

Private Sub Form_Load()
bkColor ＝ RGB（235，235，235）
Text1.BackColor = bkColor
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BorderStyle = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoEvents
Text1.BorderStyle = 1
End Sub

这个程序提示语法错误。请高手帮帮忙，这里是哪里错了~先谢谢了！
请大家说清楚点好吗？谢谢了，我是个菜鸟不是很懂啊！呵呵~~~

Dim bkColor As Long

Private Sub Form_Load()
bkColor = RGB(235, 235, 235)
Text1.BackColor = bkColor
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BorderStyle = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoEvents
Text1.BorderStyle = 1
End Sub

程序没有错,只是你使用了几个全角的符号而已,改过来就可以了

Dim bkColor As Long

Private Sub Form_Load()
bkColor = RGB(235, 235, 235)
Text1.BackColor = bkColor
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.BorderStyle = 0
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoEvents
Text1.BorderStyle = 1
End Sub
------------------------------------------------
用英文状态下的,呀!