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µÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......