ÕâÑù¿ÉÒÔ 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
ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏ ±äÁ¿ÉùÃ÷ Dim dirName As String = "" ·½·¨ Public Sub UrlName( ......