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ʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
Dim param As ADODB.Parameter ......
½¨Á¢ 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
......
Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖØµãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑùËµÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......
http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......