һЩ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ÖеÄUnicode ºÍ Ansi ¸ñʽ
Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÃ¿¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
Len("´ó¼ÒºÃ")
Len("abc")
& ......
֮ǰÅöµ½Ò»¸öÎÊÌ⣬VBÖÐÏòÒ»¸öC++дµÄDLLÖÐ×¢²áÒ»¸öCallback£¬C++ÔÚµ÷ÓÃÕâ¸öCallbackʱÓÐЩÎÊÌ⣬¾ßÌåÎÊÌâÃèÊöºÍÏÂÃæÕâ¸öÌû×ÓÖеÄÇé¿öÊÇÒ»ÑùµÄ: http://topic.csdn.net/t/20051104/09/4370840.html
¾¹ý³¢ÊÔÒÔºó·¢ÏÖ£¬ÔÚVBÖÐдµÄ»Øµ÷º¯Êý±ØÐëÊÇÓÃFunction¹Ø¼ü×Ö£¬²¢ÇÒ£¬±ØÐëÒªÉèÖ÷µ»ØÖµ£¬ÈçÏ£º
Public Function Callbac ......
ÔÚÈÕ³£µÄ²Ù×÷ϵͳά»¤¹ý³ÌÖУ¬ÓÐʱÎÒÃÇÒ²»áдһЩСµÄ½Å±¾³ÌÐòÀ´¼ò»¯ÏµÍ³¹ÜÀí¹¤×÷£¬ÀýÈçµ÷ÓÃһЩWMIº¯ÊýÀ´×Ô¶¯°²×°Ð¶ÔسÌÐòÖ®ÀàµÄ¡£
ÔÚʵ¼Ê¹¤×÷ÖУ¬ÎÒ·¢ÏÖ³ÌÐòÔ±¶Ô½Å±¾±§Ô¹×î¶àµÄ¾ÍÊǽű¾³ÌÐòºÜÄѵ÷ÊÔÕâ¸öȱµã£¬ÌرðÊǵ÷ÊÔ.vbsµÈWSH³ÌÐòµÄʱºò£¬×ÜÊÇ£º
1. ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ò»¸ö. ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......