Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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±éÀúµ±Ç°Ä¿Â¼

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub ......

VBʹÓÃÊÖÐεÄͼ±ê

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

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»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ

http://zhidao.baidu.com/question/84802747.html
VBÈçºÎ»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ
¾ÍÊDZÈÈçÎÒ´ò¿ªDÅ̵ÄaaaÎļþ¼Ð£¬´°¿ÚµØÖ·À¸¾ÍÊÇÏÔʾD:\aaa£¬ÇëÎÊÎÒÒªÔõôÓÃVBд³ÌÐòÀ´»ñÈ¡´°¿ÚµØÖ·À¸µÄÄÚÈÝ£¿£¨²»ÊÇIEµÄµØÖ·À¸£©
Èô´ò¿ªÁËÁ½¸ö´°¿Ú£¬±ÈÈçDÅ̵ÄaaaÎļþ¼ÐºÍEÅ̵ÄbbbÎļþ¼ÐϵÄcccÎļþ¼Ð¶¼´ò¿ªµÄ»°£¬µã»÷command1,text1¾ÍÏÔʾ£º ......

VBÉè¼Æ¶¯»­Ê±ÖÓ

 VBÉè¼Æ¶¯»­Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»­Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»­Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢Ô­Ê¼Line¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ