vb Ìá¸ß´®¿Ú·¢ËÍËÙ¶È
Ôʼ×ö·¨
For i = 0 To LenB(Send$) step 2
m1$ = MidB$(Send$, i, 2)
InterFilForm.Comm1.Output = m1$
Next
ÏÖÔÚ×ö·¨
Dim sendOneWord(1) As Byte
For i = 0 To LenB(Send$) step 2
m1$ = MidB$(Send$, i, 2)
Call StringToByteArray_B(sendOneWord, m1$, 2) ½«Ã¿¸östring ×Ö·ûתΪbyte
InterFilForm.Comm1.Output = sendOneWord
Next
·¢ÏÖÏÖÔÚ×ö·¨±ÈÒÔǰ·¢ËÍÂýÁ˺ܶ࣬Ϊʲô£¬ÔõôÌá¸ß·¢ËÍËÙ¶È
ÄãÏȰѴ®¿Ú´úÂëÈ¥µô£¬Ö»ÁôCall StringToByteArray_B(sendOneWord, m1$, 2)£¬¿´¿´µ½µ×ÊÇÄãÕ⺯ÊýÌ«Âý£¬»¹ÊÇ´®¿ÚÂý
Å׿ªÄã×Ô¼º´úÂëµÄÎÊÌ⣬µ¥¾Í´®¿ÚÓ²¼þ¶øÑÔ£¬Ôö¼ÓͨÐÅËÙ¶È×îÓÐЧµÄ°ì·¨¾ÍÊÇÌá¸ß²¨ÌØÂÊ¡£²»¹ýͨ³£Çé¿öÏÂÕâ¸öÒ²½ÚÊ¡²»Á˶àÉÙʱ¼ä£¬ºÁÃë¼Æ¡£
{{
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......