Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ForÑ­»·µÄÒ»¸öÌصã

ÎÞÒâÖз¢ÏÖ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 ......

VB»ñÈ¡´°¿ÚµØÖ·À¸ÄÚÈÝ

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

vb³£ÓÃ×Ö·û´®´¦Àíº¯Êý

1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë   
[¸ñʽ]£º   
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë   
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û   
[·¶Àý]£º   
(1)P=Chr(65)   
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ