һЩ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
Ïà¹ØÎĵµ£º
×î½üÔÚʹÓúÍÑо¿OpenGL»æÍ¼£¬Óöµ½²»ÉÙÎÊÌâ¡£ÍøÉϲéÔÄ×ÊÁϵÄʱºò£¬·¢Ïִ󲿷Ö×ÊÁ϶¼ÊÇCÓïÑÔ£¬ºÍC++дµÄ£¬VBÕâ·½ÃæµÄ×ÊÁÏÌ«ÉÙÁË£¬VB6.0µÄ¾Í¸üÉÙ£¬ÏÖÔÚ¶¼Á÷ÐÐdotnet¡£×Ô¼ºÂòÁ˱¾OpenGLÊéÊÇÒ²ÊÇCÓïÑÔ°æµÄ¡£Õâ¸ö²©¿ÍÒ²¿ªÁË2Äê¶àÁË£¬¶¼Ã»Ð´µã¶«¶«ÉÏÀ´¡£³ÃÍíÉÏ˯²»×Å£¬ÉÏÀ´Ð´µã¡£
Ò»¡¢Ê²Ã´ÊÇOpenGL£¿
OpenGLÊÇOpe ......
±¾ÎÄÀ´×Ô´ËÌûµÄÈß³¤ÌÖÂÛ£¬¸ÐлTiger_ZhaoµÄÈ«³ÌÖ¸µãºÍ³Â»Ô¡¢°¢Ó¡¢ÂíÔÆ½£µÈºÜ¶àÅóÓѵÄÈÈÐIJÎÓë¡£±¾ÎÄÆäËû²¿·ÖÔÚ£º£¨¶þ£©¡¢£¨Èý£©¡¢£¨ËÄ£©¡£
»°ËµVB6ÊǸöºÜÈÏÕæÏ¸ÖµÄÂèÂ裬Ëü»áÇÄûÉùµØ°ïÄã×öºÜ¶àÊ¡£½ñÌìÎÒÃÇÀ´ËµµÄÊÇVB6ÔÚAPIµ÷ÓÃʱ×Ô¶¯¶Ô×Ö·û´®²ÎÊý½øÐÐת»»µÄ“ºÃÈ˺ÃÊ”¡£
µÚÒ»½Ú ÌåÌùµÄVBÂè ......
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,stren ......
VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......