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