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
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......