ÇóÖúVB¶ÁοرíµÄ°æ±¾ºÅΪʲôû·´Ó¦
Çë½Ì¸÷λ´óϺ£¬Ð¡µÜ¸Õ½Ó´¥VBÓë485µÄͨѶ֪ʶ£¬ÏÖÔÚÎÒ×öÁ˸ö¼òµ¥µÄVB³ÌÐò£¬¶ÁοرíµÄ°æ±¾ºÅ¡£Î¿رíÍùÀ´Í¨Ñ¶¶¼ÒÔASCIIÂëʵÏÖ¡£Î¿رíͨѶÐÒéÀï¶Á°æ±¾ºÅµÄÃüÁîΪ¡°&0000+»Ø³µ¡±£¬Î¿رíÓ¦»Ø¸´¡°!00007.2+»Ø³µ¡± ¡£ÏÖÔÚÎÒÔÚVBÀïÌí¼ÓÁËÁ½¸öÎı¾¿òText1ºÍText2,·Ö±ðÓÃÀ´·¢ËͺͽÓÊÜÃüÁîÄÚÈÝ£¬ÁíÍâÌí¼ÓÁËÁ½¸öÃüÁî°´Å¥Command1ºÍCommand2,·Ö±ðÓÃÀ´·¢ËͺͽÓÊÕÃüÁî¡£ÎÒÔÚText1Îı¾¿òÖÐÊäÈë¡°&0000¡±½Ó×ŵã»÷Command1·¢ËÍÃüÁ¿ÉÊǵã»÷Command2ȴûÓнÓÊÕµ½·µ»ØÊý¾Ý£¬Çë½Ì¸÷λ´óϺÎÊÌâµ½µ×³öÔÚÄĶù£¿ÎҵijÌÐòÈçÏ£º
Private Sub Command1_Click()
MSComm1.Output = Text1 + Chr(13)
End Sub
Private Sub Command2_Click()
Text2 = MSComm1.Input
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If MSComm1.PortOpen Then
Shape1.FillColor = vbGreen
Label1 = "ͨѶÕý³£"
Else
Shape1.FillColor = vbRed
Label1 = "ͨѶʧ°Ü"
End If
End Sub
Private Sub MSComm1_OnComm()
Tex
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail. huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.
¶¯ÊÖʵ¼ùд´úÂë,¾³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......