ÕâÑù¿ÉÒÔ 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
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®