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.
Ïà¹ØÎĵµ£º
ÏÖÔÚ¿íÆÁ£¬´óÆÁÄ»ÏÔʾÆ÷Ô½À´Ô½ÆÕ±é£¬ÔÀ´ÔÚ800*600ÏÂÉè¼ÆµÄÈí¼þ½çÃæ£¬ÔÚ´óÆÁÄ»ÏÔʾÆ÷£¨1680*1050£©ÉϽçÃæ×ÜÊÇËõµ½Ò»½Ç£¬·Ç³£ÄÑ¿´£¬Òª½«ÀϳÌÐòµÄ½çÃæ°´ÕÕ²»Í¬µÄ·Ö±æÂÊÔÚÖØÐ½øÐÐÉè¼Æ±à³Ì£¬Õû¸ö¹ý³Ì±È½Ï¸´ÔÓ¶øÇÒʵÓÃÐÔ²»´ó£¬Èç¹ûÔÀ´³ÌÐò±È½Ï´óÇÒ½çÃæ±È½Ï¶àµÄ»°ÄÇô¹¤×÷Á¿Ò²½«ÊǾ޴óµÄ£¬¶øÇÒ»¹¿ÉÄܳöÏÖÆäËû´íÎó£¬ÓÐûÓÐÒ»ÖÖÖØ ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......
Ò»¸öCommonDialog£¬Ò»¸öCommandButton£¬Ò»¸öPictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......