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

vbÔõôµ÷ÓÃvb±àдµÄdllÎļþ

±ÈÈ磺ÎÒÓиöÓÃvb±àдµÄdllÎļþÊÇaa.dll,ÄÇôÔÚÓÃvb±àдµÄexeÎļþÖÐÔõôµ÷Ó𡣡£¡£¡Ð»Ð»°¡£¡£¡£¡£¡£¡
²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓÃ
ÕÒµ½ÄãµÄDllÎļþ£¬¼´¿ÉÒýÓÃ


ʹÓñê×¼µÄAPIµ÷Ó÷½·¨Ò²¿ÉÒÔʵÏÖ

CreateObject()

ÒýÓÃ
²Ëµ¥——¡·¹¤³Ì——¡·ÒýÓÃ
ÕÒµ½ÄãµÄDllÎļþ£¬¼´¿ÉÒýÓÃ


ÓõÄʱºò
Dim dlltest
Set dlltest= CreateObject("yourdll.XXX")
'yourdll,ÄãµÄdllÃû
'XXXÊÇÄãDllÖеķ½·¨

ËÑË÷¡£

°ï¶¥

fly1229ÀÏʦллÄãÁË£¬Äã˵µÄÕâЩÎÒ¶¼»á°¡£¬ÔÙÍùºóÔõôдÎÒ²»»áÁË£¬Ï£ÍûÄã¸æËßÎÒ£¬ºÃÂ𣡣¡Ð»Ð»£¡£¡

fly1229ÀÏʦ£¬ÎÒ°´ÄúµÄָʾ×öÁË£¬ÌáʾÈçÏ´íÎó£º

ActiveX²¿¼þ²»ÄÜ´´½¨¶ÔÏó£¬ÔÙÔõô×ö£¬Çëָʾ°¡£¡£¡£¡

windyhero1983ÀÏʦ£¬¾ßÌåÔõôд´úÂë,ÇëÄúָʾ°¡£¡£¡£¡Ð»Ð»°¡

°Ñaa.dllÏÈ×¢²á¡£
regsvr32 /u

Private Declare Function aa Lib "aa.DLL" (ByVal PortNumber As Integer, ByVal baudrate As Integer) As Integer  'µ÷ÓÃaa.DLLµÄÃüÁî

ÊÔÒ»ÊÔ:
(1)ÏȰÑdllÎļþ·ÅÔÚSystem32ÏÂ,È»ºó²Ëµ¥——>¹¤³Ì——>ÒýÓà >¹´Ñ¡ÄãdllÎļþ.
(2)Dim obj as aa
set obj=NEW aa



syssz(ÀÏÕÅ)£¬ÏÂÒ»²½ÔÙÔõôд?Çëָʾ!!!

qiangshou2301(qiangshou2301)ÀÏʦ,ÏÂÒ»²½ÔÙÔõôд?Çëָʾ!!!

obj.ÄãµÄ·½·¨£¨ÊôÐÔ£©
ÒªpublicµÄ¡£

Â¥Éϸ÷λ¶¼ËµµÄºÜÇå³þÁË,lz»¹ÓÐÎÊÌâÂð

ºÃÏñÖ±½ÓÒýÓÃ


Ïà¹ØÎÊ´ð£º

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

VBÈçºÎÓÃWinIO´ò×Ö£¿

ÈçÌâ¡£
²»ÓÃAPIÒ²ÄÜʵÏÖ:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html

ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë.

http://download.csdn.net/ ......

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½

Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£


mark

pls learn from ba ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......

VB¶ÁÈ¡Îļþ£¨MΪµ¥Î»£©

ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬
Option Explicit
Private Type De '¿é¶¨Òå
  FSize(1 To 1024) As Byte
End Type
Private Sub Command1_Click()
Dim F As De
Dim N As Integer
Open "C:\WINDOWS\N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ