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

vb 2005 ´®¿Úʵʱ½ÓÊÕÊý¾ÝµÄÎÊÌâ - .NET¼¼Êõ / VB.NET

ÎÒÊÇvb.netµÄ²ËÄñ
ÏÖÔÚÐèҪͨ¹ý´®¿Ú½ÓÊÕÒ»¸öµç±íµÄÊý¾Ý£¬¸ÃÊý¾ÝÒ»Ö¡¹²ÓÐ14¸ö×Ö½Ú£¬Êý¾Ý¿ªÊ¼µÚÒ»¸ö×Ö½ÚΪ֡¿ªÊ¼±êÖ¾£¨ÊÇ16½øÖƵġ®13¡¯£©£¬Ê£ÏÂ13¸ö×Ö½ÚÐèҪʵʱÏÔʾ³öÀ´¡£
ÎÒÕÒÁ˸övb6.0µÄ´úÂ룬×Ô¼º¸Ä³Évb2005µÄ¡£
´ó¼Ò°ï濴һ϶Բ»¶Ô£¿
ллÁË


vb2005µÄ´úÂë

Public Class Form1
  Private ReadByte(12) As Byte
  Private AfByte(0) As Byte
  Private zahler As Integer
--------------------------------------------------------------------------------------------------------------
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If SerialPort1.IsOpen Then
  SerialPort1.Close()
  End If
  Try
  With SerialPort1
  .PortName = ComboBox1.Text
  .ReceivedBytesThreshold = 1
  .DiscardInBuffer()
  .DiscardOutBuffer()
  zahler = 0
  '.BaudRate = 2400
  '.Parity = IO.Ports.Parity.None
  '.DataBits = 8
  '.StopBits = IO.Ports.StopBits.One
  ' .Encoding = System.Text.Encoding.Unicode
  End With
  SerialPort1.Open()
  Button1.Enabled = False
&nbs


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

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 µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

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