Question

VB中lblmail变量怎么定义？“lblmail.ForeColor = &H80000012”这条语句报错，请高人指教

Select Case KeyValType ' 搜索数据类型...
Case REG_SZ ' 字符串注册关键字数据类型
KeyVal = tmpVal ' 复制字符串的值
Case REG_DWORD ' 四字节的注册表关键字数据类型
For i = Len(tmpVal) To 1 Step -1 ' 将每位进行转换
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' 生成值字符。 By Char。
Next
KeyVal = Format$("&h" + KeyVal) ' 转换四字节的字符为字符串
End Select

GetKeyValue = True ' 返回成功
rc = RegCloseKey(hKey) ' 关闭注册表关键字
Exit Function ' 退出

GetKeyError: ' 错误发生后将其清除...
KeyVal = "" ' 设置返回值到空字符串
GetKeyValue = False ' 返回失败
rc = RegCloseKey(hKey) ' 关闭注册表关键字
End Function
Private Sub fraShaSi_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmail.ForeColor = &H80000012
lblQQ.ForeColor = &H80000012
End Sub
Private Sub lblmail_Click()
Call ShellExecute(Me.hWnd, "open", "mailto:zhangshengping20@163.com", "", "", SW_SHOW)
End Sub

Private Sub lblmail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmail.BorderStyle = 1
lblmail.BackColor = &HC0FFFF
lblmail.ForeColor = &HFF&
End Sub

Private Sub lblmail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmail.ForeColor = vbRed
End Sub

Private Sub lblmail_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblmail.BorderStyle = 0
lblmail.BackColor = &H8000000F
lblmail.ForeColor = &H80000012
End Sub
Private Sub lblQQ_Click()
Call ShellExecute(Me.hWnd, "open", "http://photo.qq.com/cgi-bin/browseexalbum?albumid=2489359&ownerid=107592872", "", "", SW_SHOW)
End Sub

Private Sub lblQQ_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblQQ.BorderStyle = 1
lblQQ.BackColor = &HC0FFFF
lblQQ.ForeColor = &HFF&
End Sub

Private Sub lblQQ_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblQQ.ForeColor = vbRed
End Sub

Private Sub lblQQ_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblQQ.BorderStyle = 0
lblQQ.BackColor = &H8000000F
lblQQ.ForeColor = &H80000012
End Sub

Answer 1

这个问题我上学的时候好像见过，不过现在记不起来了，
你把这句去掉，或改个什么词就OK了，你试试。