Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

һЩ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 ´òÓ¡

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
  &nbs ......

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

    È¥ÄêÔøÐ´¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆÊ±µãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆÊ±µÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨IEƪ£©


JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......

VB ×Ö·û´®´¦Àíº¯Êý¼¯

·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó  ÖÐÖР СС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]   
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"   
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ