VBÖÐ ÓÃdouble ´úÌæ Long ¿ÉÒÔʵÏֺͼÆËãÆ÷ת³öÀ´µÄЧ¹ûÒ»Ñù¡£
S$ = "FFFFFFFF" if clng("&H" & S )< 0 then x# = 2^32 + clng("&H" & S ) else x# = clng("&H" & S ) end if ¸öÈËÈÏΪ£¬ÊÇÊý¾ÝÀàÐͶ¨ÒåµÄ²»¶Ô£¬Êµ¼ÊÊýÖµÒѾ³¬¹ý¹æ¶¨·¶Î§ÁË¡£ÎÒ¾õµÃ¿ÉÒÔ¶¨Òådouble»òcurrency http://blog.csdn.net/chinaboyzyq/archive/2010/04/09/5466433.aspx ÕâÀïÓд𰸣º http://topic.csdn.net/u/20100309/04/ac6d370d-91be-4ea3-b66c-04de0413a9dc.html ¹ØÓÚC#µÄ´úÂëתΪVBµÄ´úÂëÓÐһʲ»Ã÷
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......