vbʵÏÖµã»÷ÓÒ¼üµ¯³ö¿ì½Ý²Ëµ¥ÎÊÌ⣿
Ôڿؼþ(image)Àï¿ÉÒÔ°´ÓÒ¼üµ¯³ö¿ì½Ý²Ëµ¥£¬image¿Ø¼þÊÇÉèÖÃÁ˵¥»÷(Image1_Click)ʼþ£¬µ«µ±µãÁËÓÒ¼üµ¯³ö¿ì½Ý²Ëµ¥Ê±£¬ÄǸö¿ì½Ý²Ëµ¥³öÏÖ£¬È»ºóÑ¡Öпì½Ý²Ëµ¥ÖеÄijһÏî¾Í×ó¼ü£¬Õâʱ»á·¢Éú¶þ¸öʼþ£ºµÚÒ»¸öÊÇ¿ì½Ý²Ëµ¥ÖÐÑ¡ÖÐÄǸöÑ¡Ïîʼþ£»»¹ÓÐÒ»¸ö¾ÍÊÇ(image1_click)ʼþ¡£ÎÒÏë×ö³ÉÎÒÃÇxpϵͳϵã»÷ÓÒ¼üÖ»»á·¢ÉúÄǸö¿ì½Ý²Ëµ¥ÖÐÑ¡ÖÐÏîʼþ£¡
×ö¸öµ¯³öʽ²Ëµ¥¾Í¿ÉÒÔ°¡
Èç¹ûLZµÄImageµÄClickʼþÊÇΪÁ˵¯³öÓÒ¼ü²Ëµ¥£¬ÄǾͿÉÒÔÖ±½Ó°ÑÕâ¸ö¹¦ÄÜÓÃMouseDownʼþʵÏÖ£¬ÒòΪÕâ¸öʼþÖУ¬ÓÐButtonÑ¡Ï¿ÉÒԿؼþÊÇÓÒ¼ü£¬»¹ÊÇ×ó¼ü¡£ÒòΪµ¯³ö²Ëµ¥£¬ÊÇÓÒ¼ü£¬¶øÑ¡Öв˵¥ÏÊÇ×ó¼ü¡£
Èç¹ûImage_ClickʼþÁíÓÐÓÃ;£¬ÄǾ͵ÃÓñêʶ±äÁ¿À´¿ØÖÆÁË¡£
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......