这样可以 Text1.BackColor = &HEED0B8 ,没有说 无效的属性值 VB code: Public Function WEB2VB(c As String) As Long If (Len(c) <> 7) Then WEB2VB = 0: Exit Function WEB2VB = CLng("&H" & Left$(StrReverse(c), 6)) End Function
'测试代码 Private Sub Command2_Click() Text1.BackColor = WEB2VB("#B8D0EE") End Sub
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
