VB ×ö¼à¿Øϵͳ
ÎÒÏëÓÃVB×ö¼à¿Øϵͳ£¬½çÃæ
µã»÷²Ù×÷×éÉϵİ´Å¥ÓÐÏàÓ¦µÄÏÔʾ£¬µ±È»ÏÔʾµÄÄÚÈݲ»Ò»Ñù£¬ÏÔʾÇøÓòÊÇÖ÷Ì壬ÔÚÖмäÄÇ¿é¡£
ÔõôʵÏÖÕâ¸ö¹¦ÄÜ°¡£¿ÓÃvisibleÊôÐÔ¾ÍÌ«¸´ÔÓÁË£¡
Çë´ó¼Ò½Ì½ÌÎÒ£¡
LZ:ÌùͼҪÉÏ´«µ½¿Õ¼äµÄÏñ²áÖÐ,ÔÚ¹ÒÉÏÁ¬½Óµ½Ìù×Ó.
Ŷ£¡£¡£¡£¡
½ÌÄãÔÚcsdnÉÏÌûͼ
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Çë½ÌһϣºÎÒÓÃ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 ......