c# ÑéÖ¤Âë×é¼þ ¿Évb£¬asp£¬netµ÷ÓÃ
½ñÌ칫˾ҪÇóÓÃC#д¸öÑéÖ¤Âë×é¼þ£¬ÈÃasp¿ÉÒÔµ÷Óã¬ÔÚÍøÉÏÕÒÁËÒ»¶Ñ×ÊÁÏ£¬ÖÕÓÚ¸øÎÒ¸ø¸ã³öÀ´ÁË£¬ÒòΪ±¾È˵ÚÒ»´Îд×é¼þ£¬Ò²ÊǵÚÒ»´Î·¢±íÎÄÕ£¬ËùÓпÉÄÜ˵µÄ²»ÊǺܺ㬴ó¼ÒÇë¼ûÁ¡£
csdnÉÏÓÐÕâôƪÎÄÕ£¬Ïëѧϰд×é¼þµÄ¿ÉÒÔÈ¥¿´¿´£ºhttp://blog.csdn.net/KimmKing/archive/2008/12/04/3445233.aspx£¬ÒòΪ±¾È˾ÍÊÇ·ÂÕÕÕâ¸öдµÄÑéÖ¤Âë×é¼þ£¬ÒòΪÅÂÉÏÃæµÄÎÄÕ¶ªÊ§£¬ÎÒ¾ÍÔÚÕâÀï¼òµ¥ËµÏ´´½¨µÄ¹ý³Ì£º
1¡¢´´½¨Ò»Àà¿â
2¡¢ÊµÏÖÒ»¸öÀࣨ¾ßÌå´úÂëÏÂÃæÏêд£©
3¡¢¸øÎļþÇ©Ãû
·½·¨£ºÑ¡Ôñ¿ªÊ¼²Ëµ¥ÖÐVistual StudioĿ¼ÏµÄVistual Studio ToolsϵÄVistual Studio ÃüÁîÌáʾ¡£Ê¹ÓÃsn -k c:\myKey.snkÉú³ÉÇ©ÃûÎļþ¡£ÔÚÏîÄ¿ÉÏÓÒ¼ü£¬µã»÷ÊôÐÔ£¬Ñ¡ÔñÇ©Ãû£¬Ñ¡ÖÐΪ³ÌÐò¼¯Ç©Ãû£¬Ñ¡ÔñmyKey.snkÎļþ¡£
4¡¢Éú³É½â¾ö·½°¸
ÔÚÏîĿĿ¼µÄ\TestCom\bin\DebugÖпÉÒÔÕÒµ½TestCom.dll
5¡¢Éú³ÉtlbÀà¿â
ÔÚVisual StudioÃüÁîÌáʾ·ûÏ£¬Çл»µ½´ËĿ¼¡£
ÊäÈëtlbexp TestCom.dll /out:TestCom.tlb
6¡¢×¢²áÀàÐÍ¿â
ÊäÈëregasm TestCom.dll /tlb: TestCom.tlb /codebase£¬½«ÀàÐͿ⵼Èëµ½×¢²á±í¡£Ìáʾ³É¹¦×¢²áÁËÀàÐÍ£¬ËµÃ÷²Ù×÷³É¹¦£¬´ËʱTestCom .dll¿ÉÒÔ×÷Ϊһ¸öcomÀ´Ê¹Óá£
7¡¢Ìí¼Ódllµ½GAC
ÊäÈëgacutil /i TestCom.dll£¬½«´Ë.net³ÌÐò¼¯Ìí¼Óµ½GAC¡£
ÕâÑù´´½¨×é¼þµÄËùÓй¤×÷¾ÍÍê³ÉÁË¡£Ê£ÏµľÍÊǵ÷ÓÃÁË
ÔÚvbºÍnetÀïÃæµ÷Ó㺵¼Èëdll£¬ÊµÀý»¯¶ÔÏó¾Í¿ÉÒÔʹÓÃÁË
£¨Dim a As New TestCom.Class1£©a.·½·¨
£¨TestCom.Class1 aa = new TestCom.Class1£¨£©£©aa.·½·¨
ÔÚaspµ÷Óãº
<%
SET s = CreateObject("TestCom.Class1")
s.test()
%>
ÒÔÉϾÍÊÇÎÒÕÒµ½µÄ´´½¨×é¼þµÄ×ÊÁÏ£¬ÄÇôÏÖÔھͿªÊ¼±àдÑéÖ¤Âë×é¼þµÄ´úÂë°É
Ê×ÏȱàдÀà¿â£º
using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Security;
namespace TestComs
{
[ComVisible(true)]
public interface iClass1
{
string DoCode(int num);
byte[] DoImg(string code);
}
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.AutoDual)]
public class Class1 : iClass1
{
private double PI2;
public Class1()
{
PI2 = 6.
Ïà¹ØÎĵµ£º
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte ......
MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ ......
½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
VB ×¢ÊͳÌÐò´úÂëµÄ·ûºÅÊÇ '£¬Ö»ÒªÔÚijÐгÌÐòÇ°Ãæ¼ÓÉϸ÷ûºÅ¾Í¿ÉÒÔ×¢Ê͸ÃÐгÌÐò¡£µ«Èç¹û³ÌÐò´úÂëÓï¾äºÜ¶àµÄʱºò£¬Ò»ÐÐÒ»ÐеØ×¢Ê;ͷdz£²»·½±ã¡£Æäʵ VB
±¾ÉíÌṩÁËÒ»´ÎÐÔ×¢ÊͶàÌõÓï¾äµÄ¹¦ÄÜ£ºÔÚÖ÷²Ëµ¥“ÊÓͼ”Ñ¡ÏîµÄ“¹¤¾ßÀ¸”Ï£¬Ñ¡ÖГ±à¼”£¬VB
µÄ½çÃæ»á³öÏÖÒ»ÅŹ¤¾ß°´Å¥£¬ÆäÖоÍÓÐÓà ......
1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2¡¢Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......