vb´®¿Ú×Ö·û´®½ÓÊÜ - VB / ¿Ø¼þ
ÎÒ×öÁ˸ö´®¿Ú½ÓÊÕµ¥Æ¬»úµÄ³ÌÐò£¬ÓÐ2¸öÎÊÌâû·¨½â¾ö£¬µÚÒ»£¬ÎÒ½ÓÊÜÁË×Ö·û´®ÈçºÎÔÚtextÖÐʵÏÖÇ¿ÖÆ»»ÐУ¬ÎÒ´¥·¢oncommµÄ×Ö½ÚÊýÊÇ2¸ö£¬ÎÒÏë½ÓÊÜÒ»´®×Ö·û´®Ê±Èç68 00 00 00 01 68 01 04 44 e9 88 16£¬ÈçºÎ»»ÐÐÄØ£¿ÎҸоõÎÒ½ÓÊܵÄÊÇÁ½Î»Á½Î»µÄ½ÓÊÜ£¬µ«ÊÇÔõô°ÑÎÒÉÏÃæµÄÕâÒ»×éÕûºÏ³ÉÒ»×éÄØ£¿
LZ:ÄãËÆºõÊÇ2½øÖƽÓÊÕÏÔʾΪ16½øÖÆ×Ö·û´®ÐÎʽ.
Ôõô°ÑÎÒÉÏÃæµÄÕâÒ»×éÕûºÏ³ÉÒ»×é?Çë²ÎÔÄ:http://www.vbgood.com/thread-83700-1-1.html
·û´®ÈçºÎÔÚtextÖÐʵÏÖÇ¿ÖÆ»»ÐÐ?ÇëÉèÖÃÎı¾¿òÊôÐÔMultiLineΪTrue¾Í¿É.
http://download.csdn.net/source/1498637
http://download.csdn.net/source/1498644
Dim sta As String
Dim receved() As Byte
Dim inbutter As Variant
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
''''''''''''''''''''''''''''''''''''''''''''''''''''MSComm1.InBufferCount = 0 '"Çå³ý·¢ËÍ»º³åÇøÊý¾Ý
''''''''''''''''''''''''''''''''''''''''''''''''''' MSComm1.OutBufferCount = 0 '"Çå³ý½ÓÊÕ»º³åÇøÊý¾Ý
Print "we"
Print Tab
Print "2343432424"
End Sub
Private Sub Form_Load()
With MSComm1
.CommPort = 3
.Settings = "1200,e,8,1"
.RThreshold = 1
.InputMode = c
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......