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

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

1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë   
[¸ñʽ]£º   
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë   
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û   
[·¶Àý]£º   
(1)P=Chr(65)   
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65   
(2)P=Asc(“A”)   
‘ Êä³ö65   
2. Len(X)£º ¼ÆËã×Ö·û´®XµÄ³¤¶È   
[¸ñʽ]£º   
P=Len(X)   
[˵Ã÷]£º   
¿Õ×Ö·û´®³¤¶ÈΪ0£¬¿Õ¸ñ·ûÒ²ËãÒ»¸ö×Ö·û£¬Ò»¸öÖÐÎÄ×ÖËäȻռÓÃ2 Bytes£¬µ«Ò²ËãÒ»¸ö×Ö·û¡£   
[·¶Àý]£º   
(1) ÁîX=”” (¿Õ×Ö·û´®)   
Len(X) Êä³ö½á¹ûΪ0   
(2) ÁîX=”abcd”    
Len(X) Êä³ö½á¹ûΪ4   
(3) ÁîX=”VB½Ì³Ì”   
Len(X) Êä³ö½á¹ûΪ4   
3. Mid(X)º¯Êý£º¶ÁÈ¡×Ö·û´®XÖмäµÄ×Ö·û   
[¸ñʽ]£º   
P=Mid(X,n)   
ÓÉXµÄµÚn¸ö×Ö·û¶ÁÆð£¬¶ÁÈ¡ºóÃæµÄËùÓÐ×Ö·û¡£   
P=Mid(X,n,m)   
ÓÉXµÄµÚn¸ö×Ö·û¶ÁÆð£¬¶ÁÈ¡ºóÃæµÄm¸ö×Ö·û¡£   
[·¶Àý]£º   
(1) X=”abcdefg”   
P=Mid(X,5)   
½á¹ûΪ£ºP=”efg”   
(2) X=”abcdefg”   
P=Mid(X,2,4)   
½á¹ûΪP=”bcde”   
4. Replace: ½«×Ö·û´®ÖеÄÄ³Ð©ÌØ¶¨×Ö·û´®Ì滻ΪÆäËû×Ö·û´®   
[¸ñʽ]£º   
P=Replace(X,S,R)   
[˵Ã÷]£º½«×Ö·û´®XÖеÄ×Ö·û´®SÌæ»»Îª×Ö·û´®R£¬È»ºó·µ»Ø¡£   
[·¶Àý]£º   
X=”VB is very good”   
P=Replace(X,good,nice)   
Êä³ö½á¹ûΪ£ºP=”VB is very nice”   
5. StrReverse£º·´×ª×Ö·û´®   
[¸ñʽ]£º   
P=StrReverse(X)   
[˵Ã÷]£º   
·µ»ØX²ÎÊý·´


Ïà¹ØÎĵµ£º

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......

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 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 ʹÓÃWMI±à³Ì½²×ù(¶þ)

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

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

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