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: ½«×Ö·û´®ÖеÄijЩÌض¨×Ö·û´®Ì滻ΪÆäËû×Ö·û´®
[¸ñʽ]£º
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²ÎÊý·´
Ïà¹ØÎĵµ£º
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,stren ......
VBÎı¾¼ÓÃÜ ÌرðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâƪÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆѧÓ빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
'Ìí¼Ó¸öpicture1ºÍcommand1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Pictu ......