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

ÇóÖú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


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vb´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

vb´òÓ¡

ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢

VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)

    Printer.ScaleMode = vbMillimeters
    Print ......

VB ÍøÒ³×Ô¶¯µÇ½

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ