vb¶ÁÈ¡Îı¾¿ò×Ö·û - VB / »ù´¡Àà
ÎÒÖ»ÖªµÀ×Ö·û´®³¤¶È£¨Ó¢ÎÄΪ£±£¬ÖÐÎÄΪ£²£©ºÍλÖã¨ÔÚÁíÒ»¸ö×Ö·û´®×ó±ß£©¡£ÔõÑùÈ¡ËüÃÇ׼ȷȡ³öÀ´£¿
mid(text1,λÖÃ,³¤¶È)
Èç¹ûÊÇ×Ö·û´®µÄ×î×ó±ß,¿ÉÒÔÓà left(×Ö·û´®,³¤¶È),·ñÔòÓÃ1Â¥µÄ
ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ
mid(×Ö·û´®,λÖÃ,³¤¶È)
Ôõô»¹Á©¸ö£¿Ã»ÓÐÃ÷°×
±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£
VB code:
if Ó¢ÎÄ then
mid(text1, λÖÃ, ³¤¶È)
elseif ÖÐÎÄ then
mid(text1, λÖÃ, ³¤¶È * 2)
end if
vb ºÍÄãµÄ¹æÔòÒ»Ñù£¬Äã¿ÉÒÔ²âÊÔ
Instr
Mid
´íÁË
ÕâÑù×ö
VB code:
Private Sub Command1_Click()
Text1.Text = "abcd1234ÎÒÃÇÄãÃÇ"
MsgBox StrConv(MidB(StrConv(Text1.Text, vbfromUnicode), 1, 10), vbUnicode)
End Sub
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......