һЩVBÏà¹ØµÄ¶«Î÷~~
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRING 8 String
V_OLE 9 OLE Automation Object
V_ERROR 10 Error
V_BOOLEAN 11 Boolean 2
V_VARIANT 12 Variant(½öÓÃÓÚ±äÌåÊý×é) 16(22)
V_OBJECT 13 Object(·ÇOLE×Ô¶¯»¯¶ÔÏó) 4
V_BYTE 17 Byte 1
V_ARRAY 8192 Array
________________________________________________________________
__vbaVarMove ;±äÌå±äÁ¿¸³Öµ(Ò»°ãÓÃÓÚÊýÖµ±äÁ¿)
lea edx,var1 ;±äÁ¿1µÄµØÖ··Åµ½edx
lea ecx,var2 ;±äÁ¿2µÄµØÖ··Åµ½ecx
call __vbaVarMove ;°Ñ±äÁ¿1¸³Öµ¸ø±äÁ¿2
;-------------------------------------------------
__vbaVarCopy ;±äÌå±äÁ¿¸³Öµ(Ò»°ãÓÃÓÚ×Ö·û´®±äÁ¿)
lea edx,var1 ;±äÁ¿1µÄµØÖ··Åµ½edx
lea ecx,var2 ;±äÁ¿2µÄµØÖ··Åµ½ecx
call __vbaVarMove ;°Ñ±äÁ¿1¸³Öµ¸ø±äÁ¿2
;-------------------------------------------------
__vbaVarAdd ;±äÌå±äÁ¿Ïà¼Ó +
lea eax,var1
push eax ;¼ÓÊý1
lea ecx,var2
push ecx ;¼ÓÊý2
lea edx,var3
push edx ;½á¹û
call __vbaVarAdd ;±äÁ¿Ïà¼Ó£¬ÔÚeaxÖзµ»Ø
;-------------------------------------------------
__vbaVarSub ;±äÌå±äÁ¿Ïà¼õ -
lea eax,var1
push eax ;±»¼õÊý
lea ecx,var2
push ecx ;¼õÊý
lea edx,var3
push edx ;½á¹û
call __vbaVarSub ;±äÁ¿Ïà¼õ£¬ÔÚeaxÖзµ»Ø
;-------------------------------------------------
__vbaVarMul ;±äÌå±äÁ¿Ïà³Ë *
lea eax,var1
push eax ;±»³ËÊý
lea ecx,var2
push ecx ;³ËÊý
lea edx,var3
push edx ;½á¹û
call __vbaVarMul ;±äÁ¿Ïà³Ë£¬ÔÚeaxÖзµ»Ø
;-------------------------------------------------
__vbaVarDiv ;±äÌå±äÁ¿Ïà³ý£¨¸¡µã³ý·¨£©/
lea eax,var1
push eax ;±»³ýÊý
lea ecx,var2
push ecx ;³ýÊý
lea edx,var3
push edx ;½á¹û
call __vbaVarDiv ;±äÁ¿Ïà³ý£¬ÔÚeaxÖзµ»Ø
;------------------------------------------------
__vbaVarIdiv ;±äÌå±äÁ¿Ïà³ý£¨ÕûÊý³ý·¨£©\
lea eax,var1
push eax ;±»³ýÊý
lea ecx,var2
push ecx ;³ýÊý
lea edx,var3
push edx ;½á¹û
call __vb
Ïà¹ØÎĵµ£º
VBÖе÷ÓÃMSN 6.2 APIº¯Êý
¡¡¡¡Á˽âÕâ·½ÃæÄÚÈÝµÄÆðÒòÊÇÔçÉÏÓÐλÅóÓÑÈÃÎÒ¿´Ò»¶Î¹ØÓÚMSN¿ª·¢³ÌÐò£¬ÏÖÔÚÎÞ·¨ÔËÐУ¬ÎÒ´ò¿ª¹¤³Ì·¢ÏÖÊÇÕë¶Ô4.7±àдµÄ£¬¶øËûµÄ¼ÆËã»ú°²×°µÄ6,2£¬ÒòΪÎÒÒ²ÓÃ6.2ËùÒÔÎÒÔÚVBÖв鿴ÁËһϣ¬·¢ÏÖÊÇȱÉÙMessenger Type Library¡£µ«ÊǶàÁËMessenger API Type Library£¬¿ÉÄÜÊÇ×öΪMessenger Type LibraryµÄÌ ......
Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......
http://bbs.blueidea.com/viewthread.php?tid=531257
Èç¹ûÏëÁ˽âSOAPµ½µ×ÊÇʲô£¬¾ÍÒª×Ô¼º¶¯ÊÖ½¨Á¢×Ô¼ºµÄSOAP±ê×¼¶ÔÏó¡£±¾ÎÄ¿ÉÒÔ°ïÖúÄãÆð²½¡£
============================================
¼ò½é
SOAP - ¼òµ¥¶ÔÏó´¦ÀíÐÒé(Simple Object Access Protocol) - Êǵ±Ç°XML¿ª·¢µÄÈȵ㡣ËüÊÇ΢ÈíÐÂÒ»´úVisual StudioµÄÖ÷Òª½Ç ......
ÏàÐÅÏÖÔÚ¾ø´ó¶àÊý¼ÆËã»úÉÏʹÓõÄÊÇIEä¯ÀÀÆ÷¡£ÈçºÎͨ¹ý±à³Ì¿ØÖÆIEµÄ²Ù×÷ÄØ£¬±¾ÎĽ«Ò»²½²½½éÉÜÈçºÎͨ¹ýVB
µ÷ÓÃIEµÄ¶ÔÏó¿âÀ´¶ÔIE½øÐпØÖÆ¡£
±¾ÎÄʹÓõıà³Ì¹¤¾ßÊÇVB6Ó¢ÎÄÆóÒµ°æ£¬ä¯ÀÀÆ÷ÊÇIE5£¬ÒÔϵĴúÂëÖ»ÄÜÔÚIE4¼°ÒÔÉϰ汾ÏÂÔËÐС£ÁíÍâΪÁËÄÜÉî
ÈëÁ˽â³ÌÐò´úÂ룬×îºÃÄܰ²×°MSDN¡£ ......