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

VBÓï·¨¹æ·¶


Ò»¡£Êý¾ÝÀàÐÍ
 Byte 1
×Ö½Ú ÎÞ·ûºÅ
 Interger  2
×Ö½Ú
 Long  4
×Ö½Ú
 Float 4
×Ö½Ú
 Double 8
×Ö½Ú
 String
 Date
 Boolean
 Currency
 Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
 
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
 
±ä³¤×Ö·û´®£ºdim str as Strring
 
¶¨³¤×Ö·û´®:dim str as String*30
×î¶à64K
×Ö·û
3.
Âß¼­ÐÍÊý¾Ý
ϵͳĬÈÏΪFalse;
 
µ±²¼¶ûÐÍתΪÕûÐÎʱ True
Ϊ-1 False
Ϊ0;
ÆäËüÐÍת»¯Îª²¼¶ûÐÍ
·Ç0
ΪTrue 0
ΪFalse;
4.
ÈÕÆÚÐÍÊý¾Ý
 
ÎÄ×ÖÈÕÆÚ°üº¬ÔÚÒ»¶Ô“#"
Ö®¼ä£¬Èç#4 Sep# #May
23.2002#
µÈ;
ÔÚÈÕÆÚÐÍÊý¾ÝÖУ¬²»ÂÛ½«Äê¡¢Ô¡¢ÈÕÈçºÎÅÅÁУ¬ÓúÎÖÖ·Ö¸ô·û£¬ÏµÍ³»á×Ô¶¯½«Æäת»¯ÎªÓÉÊý×Ö±íʾµÄ”
ÔÂ/
ÈÕ/
Äê“
5
¡£¶ÔÏóÀàÐÍ
ĬÈÏֵΪnothing
£¬ÓÃSET
Óï¾äÖ¸¶¨Ò»¸öÉùÃ÷µÄ¶ÔÏó±äÁ¿È¥ÒýÓöÔÏó¡£
6.
±äÌåÀàÐÍ
ËùÓÐ䶨ÒåµÄ±äÁ¿µÄĬÈÏÀàÐÍ¡£ÓÃVarType
£¨£©·µ»ØµÄÖµ¿ÉÒÔÈ·¶¨¾ßÌåÊý¾ÝÀàÐÍ¡£
 
¶þ¡£³£Á¿
ÈýÖÖ£ºÖ±½Ó³£Á¿£¨×ÖÃæÖµ£©£¬×Ô¶¨Òå·ûºÅ³£Á¿£¬ÏµÍ³³£Á¿
£¨1
£©×Ô¶¨Òå·ûºÅ³£Á¿
Const
·ûºÅ³£Á¿Ãû£ÛAs <
ÀàÐÍ>
£Ý=<
±í´ïʽ>
Ҫʹ³£Á¿ÔÚÕû¸öÓ¦ÓóÌÐòÖÐÓÐЧ£¬ÔÚ±ê׼ģ¿éÖеØÉùÃ÷¶ÎÖнøÐÐÉùÃ÷£¬²¢ÇÒÔÚConst
֮ǰ¼ÓPublic
¡£¶ÔÓÚ´°ÌåÄ£¿é»òÀàÄ£¿é£¬Ôò²»ÄܼÓ
Public.
Èý¡£±äÁ¿
1.
ÃüÃûÔ¼¶¨
 
ÒÔ×Öĸ¿ªÊ¼£¬ºó¸úÊý×Ö¡¢×ֶκÍÏ»®Ïß
 
ͬһ×÷ÓÃÓòÖбäÁ¿Ãû²»ÄÜÖظ´
 
±äÁ¿Ãû²»Çø·Ö´óС¶¨¡£
2.
ÉùÃû±äÁ¿
 
ÒþʽÉùÃ÷£º¾ÍÊÇÔÚʹÓÃÒ»¸ö±äÁ¿ÕâÇ°²»×¨ÃÅÉùÃ÷¶øÖ±½ÓʹÓ㬱äÁ¿ÀàÐÍĬÈÏΪ±äÌåÀàÐÍ¡£
 
ÏÔʾÉùÃ÷£ºÎªÃ¿¸ö±äÁ¿±ØÐëÊÂÏÈÉùÃ÷²ÅÄÜʹÓ᣿ÉÒÔÖ¸¶¨ÀàÐÍÒ²¿É²»Ö¸¶¨£¬Èô²»Ö¸¶¨Ò²ÊDZäÌåÀàÐÍ¡£
3.
±äÁ¿×÷ÓÃÓò
 
ÆÕͨ¾Ö²¿±äÁ¿£¨¹ý³Ì±äÁ¿£©:
Ö»ÄÜÔÚÉùÃ÷µÄ¹ý³ÌÖÐʹÓ㬹ý³ÌÖ´ÐзÖÅä¿Õ¼ä£¬¹ý³ÌÍê³ÉºóÊÍ·Å¿Õ¼ä
  Dim
±äÁ¿Ãû£ÛAs
Êý¾ÝÀàÐÍÃû£Ý
 
¾²Ì¬¾Ö²¿±äÁ¿£¨¹ý³Ì±äÁ¿£©£ºÖ»ÄÜÔÚÉùÃ÷µÄ¹ý³ÌÖÐʹÓã¬Ó¦ÓóÌÐòÆô¶¯Ê±·ÖÅä¿Õ¼ä£¬Ó¦ÓóÌÐò½áÊøʱÊÍ·Å¿Õ¼ä
   Static
±äÁ¿Ãû [As
Êý¾ÝÀàÐÍÃû]
 
Ä£¿é±äÁ¿£º¸ÃÄ£¿éÖеÄËùÓйý³Ì¶¼¿ÉÒÔ·ÃÎʵıäÁ¿£¬ÆäËüÄ£¿éµÄ¹ý³Ì²»ÄÜ·ÃÎÊ´ËÄ£¿é±äÁ¿£¬Ó¦ÓóÌÐòÆô¶¯Ê±·ÖÅä¿Õ¼ä£¬Ó¦ÓóÌÐò½áÊøʱÊÍ·Å ¿Õ¼ä
   Private dim
±äÁ¿Ãû [As
Êý¾ÝÀ


Ïà¹ØÎĵµ£º

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

vb½¨Á¢ VPN ²¦ºÅÁ¬½Ó

½¨Á¢ VPN ²¦ºÅÈ«²¿´úÂëÈçÏÂ:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    ......

VB ʹÓÃWMI±à³Ì½²×ù(¶þ)

Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
    ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖصãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑù˵ÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......

vb ´´½¨¿ì½Ý·½Ê½ ¼æÈÝvista XP

'´´½¨¿ì½Ý·½Ê½£¬¼æÈÝvista
'Òª°Ñvb6stkit.DLL·Åµ½³ÌÐòĿ¼
'°½Ê¿Î° 09-10-27
'Ö»¶Ô“×ÀÃ攺͓¿ªÆô”ÓÐЧ£¬ÆäËü»¹Ã»×ö
'=========¿ªÆôÍⲿͬ²½³ÌÐò¶¨Ò忪ʼ
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ