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

vb´òÓ¡

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

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


    Printer.ScaleMode = vbMillimeters
    Printer.Line -(Printer.CurrentX + 100, Printer.CurrentY)

ѧϰ

ScaleMode ÊôÐÔ
µ±Ê¹ÓÃͼÐη½·¨»òµ÷Õû¿Ø¼þλÖÃʱ£¬·µ»Ø»òÉèÖÃÒ»¸öÖµ£¬¸Ãֵָʾ¶ÔÏó×ø±êµÄ¶ÈÁ¿µ¥Î»¡£
Óï·¨
object.ScaleMode [= value]
ScaleMode ÊôÐÔµÄÓï·¨°üº¬ÏÂÃ沿·Ö£º
²¿·Ö    ÃèÊö
Object ¶ÔÏó±í´ïʽ£¬ÆäÖµÊÇ¡°Ó¦ÓÃÓÚ¡±ÁбíÖеÄÒ»¸ö¶ÔÏó¡£
Value Ò»¸öÖ¸¶¨¶ÈÁ¿µ¥Î»µÄÕûÊý£¬¡°ÉèÖÃÖµ¡±ÖÐÓÐÏêϸÃèÊö¡£
ÉèÖÃÖµ

value µÄÉèÖÃֵΪ£º

³£Êý  ÉèÖÃÖµ ÃèÊö
VbUser  0    Ö¸³ö ScaleHeight¡¢ScaleWidth¡¢ScaleLeft ºÍ ScaleTop ÊôÐÔÖеÄÒ»¸ö»ò¶à¸ö±»ÉèÖÃΪ×Ô¶¨ÒåµÄÖµ¡£
VbTwips 1  £¨È±Ê¡Öµ£©ç¾£¨Ã¿Âß¼­Ó¢´çΪ 1440 ç¾£»Ã¿Âß¼­ÀåÃ×Ϊ 567 ¸öç¾£©¡£
VbPoints 2 °õ£¨Ã¿Âß¼­Ó¢´çΪ 72 ¸ö°õ£©¡£
VbPixels 3 ÏñËØ£¨¼àÊÓÆ÷»ò´òÓ¡»ú·Ö±æÂʵÄ×îСµ¥Î»£©¡£
VbCharacters 4 ×Ö·û£¨Ë®Æ½Ã¿¸öµ¥Î»=120 ç¾£»´¹Ö±Ã¿¸öµ¥Î»=240 羡££©
VbInches 5 Ó¢´ç¡£
VbMillimeters 6 ºÁÃס£
VbCentimeters 7 ÀåÃס£
VbHimetric 8 HiMetric
VbContainerPosition 9 ¿Ø¼þÈÝÆ÷ʹÓõĵ¥Î»£¬¾ö¶¨¿Ø¼þλÖá£
VbContainerSize 10 ¿Ø¼þÈÝÆ÷ʹÓõĵ¥Î»£¬¾ö¶¨¿Ø¼þµÄ´óС¡£



Ïà¹ØÎÊ´ð£º

vbÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

vb´ò°ü°²×°Ê±ÌáʾÊäÈëÐòÁкÅ

ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£

·½·¨2£ºÊ¹ÓÃSetu ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ