vbÖе÷ÓÃdllÖеĺ¯Êý£¬Óд𰸺óÁ¢Âí½áÌù
±ÈÈçÏÖÓÐms.dllÖÐÓÐÒ»º¯Êý SetTarget£¨A as integer,B as integer£©Ã»Óзµ»ØÖµ Ó¦¸ÃÔõôµ÷ÓÃ¿É ms.dllÒѾÔÚÏîÄ¿ÖÐÌí¼ÓÒýÓà ƽʱÓÃ.net ²»ÖªµÀvbÓï·¨Ôõôд Thanks
dim aa as ms aa.SetTarget a, bÒýÓà call SetTarget(a, b) »òÕß SetTarget a, b ÎÒ´íÔÚ¼ÓÁËÀ¨ºÅÁË Õâôµ÷ÓÃµÄ SetTarget(a, b) ллcfx SetTarget(a, b)ÊDz»ÐÐµÄ ÒýÓà ÒýÓà 1 Â¥ caozhy µÄ»Ø¸´: call SetTarget(a, b) »òÕß SetTarget a, b ÎÒ´íÔÚ¼ÓÁËÀ¨ºÅÁË Õâôµ÷ÓÃµÄ SetTarget(a, b) ллcfx
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc) Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷ Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command] @= ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\" cat = New ADOX.Catalog cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......