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

VBÖÐÔõÑù·ÖÅäÒ»´ó¿éÄÚ´æ

ÎÒÔÚVBÖÐÐèÒªµ÷ÓÃVCµÄDLL£¬ÆäÖÐÓÐÒ»¸ö½á¹¹ÌåÖк¬ÓÐÒ»¸öByteµÄÖ¸ÕëÀ´Ö¸ÏòÒ»´ó¿éµÄÄڴ棬ÎÒÏÖÔÚÒªÔÚ
VBÖзÖÅä³öÒ»´ó¿éµÄÄڴ棬Ȼºó°ÑÄÚ´æµÄÊ×µØÖ·´«¹ýÈ¥£¬ÎÒ¸ÃÔõÑù²Ù×÷°¡£¿

ÎÒÓ¦ÓÃ
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

À´·ÖÅäÄÚ´æ¿ÉÊÇ×ÜÊÇÌáʾÄÚ´æÒç³ö£¬ÎÒÐèÒª2048 * 1536 * 3Õâô´óµÄÒ»¿éÄÚ´æ¡£

Çë½ÌÒ»ÏÂÔõôÀ´²Ù×÷°¡£¬Ã»ÓнӴ¥¹ýVB£¬ÍøÉϲéÁË°ëÌìҲûÓÐ×ÊÁÏ¡£
dim a(2048& * 1536& * 3&) as byte
dim i as long
i = varptr(a(0))

'i¾ÍÊÇÕâ¸öÊ×µØÖ·


ÄÚ´æµØÖ· £½ GlobalAlloc (0,2048& * 1536& * 3&)


Ïà¹ØÎÊ´ð£º

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´òÓ¡

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

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

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

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ