Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ʵÏÖVC TAbControl¿Ø¼þ

VBʵÏÖVC TabControl¿Ø¼þ
 
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
 
 
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
 
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......

MYSQL´æ´¢¹ý³ÌVBµ÷Ó÷½·¨¡£

Private Sub Command1_Click()
   
    Dim MyComm As New ADODB.Command      '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
    Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
    Dim param As ADODB.Parameter     ......

vb½¨Á¢ VPN ²¦ºÅÁ¬½Ó

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

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

VBÄܼǼÖÐÎĵļüÅ̼Ǽ

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ