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

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


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ