VB¹ØÓÚ´®¿Ú²Ù×÷ - VB / »ù´¡Àà
ÓÃVB×öÒ»¸öС³ÌÐò£¬·¢ËͺͶÁÈ¡´®¿ÚÖеÄÊý¾Ý£¬·¢ËÍÊý¾ÝûÓÐÎÊÌ⣬ÔÚ¶ÁÈ¡Êý¾ÝʱÓÐʱ»á³ö´í£¬´®¿ÚÉ豸ÖÐËüÿ´Î¶¼»á·¢ËÍÒ»ÌõÖ¸Áî³öÀ´£¬¶øÇÒÊÇÒÔ¡°#¡±×÷Ϊ¿ª½á·û£¬ÒÔ¡°0D+0A¡±£¨»Ø³µ»»ÐУ©×÷Ϊ½áÊø·û£¬µ«ÓÐʱ»º´æÇøÄÚÓÐЩ²»ÊÇ·ûºÏµÄÃüÁÏÖÔÚÔõÑù´Ó»º´æÇøÀïÒ»ÌõÒ»ÌõµØ¶ÁÈ¡³öÀ´£¿ÏÖÔÚÎÒÖ»Äܰѻº´æÀïÃæµÄÈ«²¿Êý¾Ý¶¼Ò»ÆðÄóöÀ´£¬µ«ÆäÖÐÓкܶ಻ÊÇÎÒÏëÒª£¬¶øÇÒ²»µ¥ÊÇÒ»ÌõÊý¾Ý£¡ VB code: dim com_string '´æ´¢¶ÁÈ¡Êý¾Ý Dim t1 As Long, com_String As String t1 = Timer Select Case MSComm1.CommEvent Case comEvReceive 'ÊÕµ½ RThreshold¶¨ÒåµÄ×Ö·ûÊý1×Ö½Ú Do DoEvents Loop While Timer - t1 < 0.05 com_String = MSComm1.Input End Select
¶ÔÁË£¬»¹ÓÐÒ»¸öÎÊÌ⣬ÔõÑù²ÅÄܰѻº´æÇøÀïµÄÈ«²¿Êý¾ÝÄóöÀ´£¬¾ÍÊÇÎÒÈ¡³öÒ»¸öÊý¾ÝºóÈ»ºóÔÙ´¦Àí£¬µ«¿ÉÄÜ´®¿ÚÉ豸Õâʱ»á·¢¹ýÒ»¸öÊý¾Ý¹ýÀ´£¬µ«´¦ÀíÍêÖ®ºóÓÖÓÐÒ»¸öÊý¾Ý·¢Ë͹ýÀ´£¬ÕâʱÔõÑùÈ¡³öÖмäÄǸöÊý¾Ý£¡ÒýÓà ¶ÔÁË£¬»¹ÓÐÒ»¸öÎÊÌ⣬ÔõÑù²ÅÄܰѻº´æÇøÀïµÄÈ«²¿Êý¾ÝÄóöÀ´£¬¾ÍÊÇÎÒÈ¡³öÒ»¸öÊý¾ÝºóÈ»ºóÔÙ´¦Àí£¬µ«¿ÉÄÜ´®¿ÚÉ豸Õâʱ»á·¢¹ýÒ»¸öÊý¾Ý¹ýÀ´£¬µ«´¦ÀíÍêÖ®ºóÓÖÓÐÒ»¸öÊý¾Ý·¢Ë͹ýÀ´£¬ÕâʱÔõÑùÈ¡³öÖмäÄǸöÊý¾Ý£¡ MSComm1.InputLen = 0 'Ϊ 0 ʱ£¬Ê¹Óà Input ½«Ê¹ MSComm ¿Ø¼þ¶ÁÈ¡½ÓÊÕ»º³åÇøÖÐÈ«²¿µÄÄÚÈÝ¡£ÒýÓà ¶ÔÁË£¬»¹ÓÐÒ»¸öÎÊÌ⣬ÔõÑù²ÅÄܰѻº´æÇøÀïµÄÈ«²¿Êý¾ÝÄóöÀ´£¬¾ÍÊÇÎÒÈ¡³öÒ»¸öÊý¾ÝºóÈ»ºóÔÙ´¦Àí£¬µ«¿ÉÄÜ´®¿ÚÉ豸Õâʱ»á·¢
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿ ´úÂë¿´¿´ ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ ÒýÓà ÎÒÒ²¿ì·èÁË¡£ Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿ Â¥Ö÷Ò² ......
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......