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
Êý¾ÝÀ
Ïà¹ØÎĵµ£º
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ÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
½¨Á¢ 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 ForÑ»·µÄÒ»¸öÌص㣺ÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáÇ°Í˳öÑ»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
Dim s(0 To 4) As String
Dim N As Integer, i As Integer
s(0) = "²âÊÔ1"
s(1) = "²âÊÔ2"
s(2) = "²âÊÔ3"
s(3) = "²âÊÔ4"
s(4) = "²âÊÔ5 ......