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

VB ´®¿ÚͨѶ ʼþ¼àÌý ÎÊÌâ

ÇëÎÊ´ó¼Ò£¬ÎÒÕâ¸ö·½·¨ÔÚÒ³ÃæÖÐΪʲô²»Äܹ»¼àÌý·¢ËÍʼþ£¿

Private Sub GetData() '´ò¿ªÍ¨Ñ¶´®¿Ú
    Dim ls_bm As String
    Dim Ls_Band As String, Ls_Check As String, ls_Data As String, Ls_Stop As String, Ls_Port As String
   
    ls_bm = "select * from t_band"
    AdoRes ls_bm
    If Not gLocalRes.EOF Then
        Ls_Band = NUL(gLocalRes("bandP"))  'ËÙÂÊ
        Ls_Check = NUL(gLocalRes("checkP")) 'УÑéλ
        ls_Data = NUL(gLocalRes("dataP"))  'Êý¾Ýλ
        Ls_Stop = NUL(gLocalRes("stopp"))  'ֹͣλ
        Ls_Port = NUL(gLocalRes("portP"))  '¶Ë¿ÚºÅ
        Ls_Band = Ls_Band + "," + Ls_Check + "," + ls_Data + "," + Ls_Stop
        MS_Set.CommPort = CInt(Ls_Port)
        MS_Set.Settings = Ls_Band
    End If
    gLocalRes.Close
End Sub


  Private Sub MS_Set_OnComm()
    Static lbl_flag As Boolean
    Dim vReceive As Variant
    Dim ll_pos As Long, ll_kk As Long
    Dim vDispose A


Ïà¹ØÎÊ´ð£º

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

ÓÃVB±àдTXTÎĵµ - .NET¼¼Êõ / VB.NET

ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ

googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ

Ö±½Óµ÷²éÓþͿÉÒÔÁË

Ãæ¶ÔÃÀÅ® ......

ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ