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Îı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......
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Ñ»·µÄÒ»¸öÌØµã£ºÔÚÑ»·ÌåÖУ¬Æóͼ¸Ä±äÑ»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáǰÍ˳öÑ»·ÊÇͽÀ͵ġ£
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 ......
Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖØµãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑùËµÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......
VBÉè¼Æ¶¯»Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢ÔʼLine¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱ ......