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ÒýÓÃ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿ ´úÂë¿´¿´ ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ ÒýÓà ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£ Õâ¸ö£¿¡£¡£¡£ Ã²ËÆÃ»·¨¡£ ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£ Ï´εã»÷µÄÈç¹ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ· ¶¥Ï¶¥Ï ÒýÓà BeforeNavigate2 ºÃÏñûÓÐÕâ¸ö°É vb6.0 BeforeNavigate2 Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£ ......