Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb¶ÁÈ¡Îı¾¿ò×Ö·û - VB / »ù´¡Àà

ÎÒÖ»ÖªµÀ×Ö·û´®³¤¶È£¨Ó¢ÎÄΪ£±£¬ÖÐÎÄΪ£²£©ºÍλÖã¨ÔÚÁíÒ»¸ö×Ö·û´®×ó±ß£©¡£ÔõÑùÈ¡ËüÃÇ׼ȷȡ³öÀ´£¿
mid(text1,λÖÃ,³¤¶È)

Èç¹ûÊÇ×Ö·û´®µÄ×î×ó±ß,¿ÉÒÔÓà left(×Ö·û´®,³¤¶È),·ñÔòÓÃ1Â¥µÄ

ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ

mid(×Ö·û´®,λÖÃ,³¤¶È)

ÒýÓÃ
ÕâÁ½¸ö³¤¶ÈÊDz»ÏàµÈµÄ


Ôõô»¹Á©¸ö£¿Ã»ÓÐÃ÷°×

±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£

VB code:
if Ó¢ÎÄ then
mid(text1, λÖÃ, ³¤¶È)
elseif ÖÐÎÄ then
mid(text1, λÖÃ, ³¤¶È * 2)
end if


ÒýÓÃ
±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£


vb ºÍÄãµÄ¹æÔòÒ»Ñù£¬Äã¿ÉÒÔ²âÊÔ

Instr
Mid

ÒýÓÃ
ÒýÓà 6 Â¥ hyjavahy µÄ»Ø¸´:
±ÈÈç×Ö·ûÊÇabcd1234ÎÒÃÇÄãÃÇ
ÎÒÖªµÀ³¤¶ÈÊÇ10£¬¶ÔÓ¦abcd1234ÎÒ£¬¶ø²»ÊÇabcd1234ÎÒÃÇ¡£


vb ºÍÄãµÄ¹æÔòÒ»Ñù£¬Äã¿ÉÒÔ²âÊÔ


´íÁË

ÕâÑù×ö
VB code:
Private Sub Command1_Click()
Text1.Text = "abcd1234ÎÒÃÇÄãÃÇ"
MsgBox StrConv(MidB(StrConv(Text1.Text, vbfromUnicode), 1, 10), vbUnicode)

End Sub


ÒýÓÃ


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ