Ïê½âVBµ÷ÓÃC#Àà¿âµÄ·½·¨²½Ö裨תÔØ£©
ʹÓÃc#ÓïÑÔÔÚ.netƽ̨Éú³ÉµÄdllÊÇ»ùÓÚMSILµÄ¶þ½øÖÆ´úÂ룬ͨ³£Çé¿öÏÂÊÇÎÞ·¨±»nativeµÄÓïÑԺͳÌÐòµ÷Óõģ¨ÀýÈçvb£¬vc£¬delphi£©¡£µ«ÊÇÒ»°ãÀ´ËµwindowsÉÏnativeµÄ³ÌÐò¶¼ÊÇ¿ÉÒÔÖ±½ÓʹÓÃcom¶ÔÏóµÄ¡£Í¨¹ý.netƽ̨ÌṩµÄһЩ¹¤¾ß£¬¿ÉÒÔΪÆäαÔìÒ»¸öcom½Ó¿Ú²¢×¢²áµ½ÏµÍ³ÖС£´Ëʱ£¬¿ÉÒÔÔÚnativeµÄ³ÌÐòÀͨ¹ýÕâ¸öαcom½Ó¿ÚÀ´ÊµÏÖ´Ë.netµÄdllµÄµ÷Óá£
vbµ÷ÓÃC#Àà¿âµÄ·½·¨²½Öè
1 ʹÓÃC#½¨Á¢.netµÄdll
1.1 ½¨Á¢ÏîÄ¿
ÔÚ.netÖÐн¨Ò»¸öÏîÄ¿£ºTestCom¡£
1.2 ʵÏÖc#Àà
ÔÚclass1.csÎļþÖÐÌí¼ÓÒ»¸ö½Ó¿ÚºÍÒ»¸öÀࣺ
using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; namespace TestCom { [ComVisible(true)] public interface iClass1 { string test(); } [ComVisible(true)] [ClassInterface(ClassInterfaceType.AutoDual)] public class Class1 : iClass1 { public string test() { return "ok"; } } }
×¢Òâ½Ó¿ÚºÍÀàÉϵÄÊôÐÔ£¬¶Ôcom¿É¼ûºÍÉú³ÉcomÀàÐÍ¡£
1.3Ìí¼ÓÇ¿Ãû
Ñ¡Ôñ¿ªÊ¼²Ëµ¥ÖÐVistual StudioĿ¼ÏµÄVistual Studio ToolsϵÄVistual Studio ÃüÁîÌáʾ¡£Ê¹ÓÃsn -k c:\myKey.snkÉú³ÉÇ©ÃûÎļþ¡£
ÔÚÏîÄ¿ÉÏÓÒ¼ü£¬µã»÷ÊôÐÔ£¬Ñ¡ÔñÇ©Ãû£¬Ñ¡ÖÐΪ³ÌÐò¼¯Ç©Ãû£¬Ñ¡ÔñmyKey.snkÎļþ¡£
1.4Éú³É½â¾ö·½°¸
ÔÚÏîĿĿ¼µÄ\TestCom\bin\DebugÖпÉÒÔÕÒµ½TestCom.dll¡£
Ïà¹ØÎĵµ£º
ÏÂÃæÕâ¶ÎC# ´úÂë¿ÉÒÔÓÃÀ´Ñ¹ËõºÍÐÞ¸´AccessÊý¾Ý¿â,²»¹ÜËüÊÇÒ»¸ö¼òµ¥µÄ".mdb"ACCESSÊý¾Ý¿â»¹ÊÇÒ»¸ö".mdw"ÍøÂç¹²ÏíÊý¾Ý¿â,Õâ¸ö¹ý³ÌºÍÄãÔÚÓÃMS AccessÓ¦ÓóÌÐòÖÐʹÓõÄ"¹¤¾ß-Êý¾Ý¿âʵÓù¤¾ß-ѹËõºÍÐÞ¸´"ʱִÐеIJÙ×÷ÍêÈ«Ò»Ñù.ʵÀý´úÂëʹÓÃÁË"³Ù°ó¶¨"(ÔËÐÐÖÐÔÚÄÚ´æÖн¨Á¢COM¶ÔÏó),ÕâÑù¾Í²»ÐèÒªÔÚ¹¤³ÌÖмÓÈëCOMÒýÓÃÁË,Ò²²»ÐèÒªÔÚP ......
ÎÊÌâÃèÊö£º
C#³ÌÐò,ÀïÃæcopyÁËÐí¶àÔÀ´µÄ´úÂë,ËùÒԲβÆëµÄ,ºÜÄѶÁ,ÈçºÎ²ÅÄÜÈôúÂë×Ô¶¯ÅÅÆë,¾ÍÏóVS 6.0ÖпÉÒÔʹÓÿì½Ý¼ü,·Ç³£·½±ã.
½â´ð£º
ctrl+a,ÏÈÈ«Ñ¡
ctrl+k,ctrl+f,×Ô¶¯ÅÅÁÐ
»òÕß
ctrl+a,ÏÈÈ«Ñ¡
alt+F8 ×Ô¶¯ÅÅÁÐ ......
C#Á¬½ÓMySQLÊý¾Ý¿â·½·¨
1¡¢ÓÃMySQLDriverCSÁ¬½ÓMySQLÊý¾Ý¿âÏÈÏÂÔغͰ²×°MySQLDriverCS£¬µØÖ·£º
http://sourceforge.net/projects/mysqldrivercs
ÔÚ°²×°Îļþ¼ÐÏÂÃæÕÒµ½MySQLDriver.dll£¬È»ºó½«MySQLDriver.dllÌí¼ÓÒýÓõ½ÏîÄ¿ÖÐ
×¢£ºÎÒÏÂÔصÄÊÇ°æ±¾ÊÇ MySQLDriverCS-n-EasyQueryTools-4.0.1-DotNet2.0.exe
using System; ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......