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ÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......