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

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Îĵµ - .NET¼¼Êõ / VB.NET

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

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

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

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

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ