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
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......