这样可以 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
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
