批处理之家 - Powered by Discuz! Board

namespace vbnamespace '命名空间
module vbmodule '模块可以直接理解为静态类
class vbclass '类
public a as string'变量
public sub new()'构造函数
end sub
public property ppt
get
end get
set
end set
end property
end class
end module
end namespace

复制代码

Imports System
Imports System.Runtime.InteropServices
Namespace progid_NamespaceName
<ComVisible(True)>
<Guid("yourguid")>'guid可以用工具生成
<InterfaceType(ComInterfaceType.InterfaceIsDual)>
Public Interface IComExample
'这里写入函数声明如
'每个函数变量均必须在接口中声明否则不能被外部使用
Function tostring(obj as object) As string
Public strname as string
'Sub mysub(abc As paramtype) As returntype
End Interface
End Namespace

复制代码

Public Class progid_ClassName
'必将其设置为public 名字为progid的后半部分
Implements IComExample'继承接口必须要加
Public Function tostring(obj as object) As string Implements IComExample.tostring
'实现接口中的函数 implements语句代表着这个函数是接口中的函数
Return Convert.ToString(obj)
'相当于
'tostring=Convert.ToString(obj)
'exit function
End Function
Public str as string="string"
End Class

复制代码

Imports System
Imports System.Runtime.InteropServices
Namespace vbcom
<ComVisible(True)>
<Guid("00000000-0000-0000-0000-000000000000")>
<ClassInterface(ClassInterfaceType.None)>
Public Interface IComExample
Function tostring(obj as object) As string
End Interface
'也给对象打上标签 guid不能一样
<ComVisible(True)>
<Guid("11451419-1981-0114-5141-919810000000")>'注意与接口中的不一样
<InterfaceType(ComInterfaceType.InterfaceIsDual)>
<ProgId(mynewcom.test))>'progid标签可以强制类的progid
Public Class ComExample
Implements IComExample
Public Function tostring(obj as object) As string Implements IComExample.tostring
Return Convert.ToString(obj)
End Function
End Class
End Namespace

复制代码

using System.Runtime.InteropServices;
using System.Windows.Forms;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Reflection;
namespace VBScript
{
[ComVisible(true)]
[Guid("FD3B7777-90F5-AC77-C8D3-1B5259B42927")]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface IWinForm
{
Control GetControl(string controlname);
void AddControl(object c, object p);
void AddControl(object c, object[] p);
Control[] GetControlList(object c);
void AttachEvent(object c, string eventname, object f);
}
[ComVisible(true)]
[Guid("2A0C7DB1-4CAF-561D-130A-2C52DB0DF12D")]
[ClassInterface(ClassInterfaceType.None)]
public class WinForm : IWinForm
{
public Control GetControl(string controlname)
{
return (Control)typeof(System.Windows.Forms.Form).Assembly.CreateInstance("System.Windows.Forms." + controlname, true);
}
public void AddControl(object c, object p)
{
((Control)c).AddControl((Control)p);
}
public void AddControl(object c, object[] p)
{
((Control)c).AddControl(p);
}
public Control[] GetControlList(object c)
{
return ((Control)c).GetControlList();
}
public void AttachEvent(object c, string eventname, object f)
{
((Control)c).AttachEvent(eventname, f);
}
}
public static class ExtensionMethodForWinFormInCom
{
public static Control[] GetControlList(this Control control)
{
IList<Control> list = (IList<Control>)control.Controls;
return list.ToArray();
}
public static void AddControl(this Control p, Control c)
{
p.Controls.Add(c);
}
public static void AddControl(this Control p, object[] c)
{
List<Control> cl = new List<Control>();
Type ctlt = typeof(Control);
foreach (object o in c)
{
if (o.GetType() == ctlt)
{
cl.Add(o as Control);
}
}
p.Controls.AddRange(cl.ToArray());
}
public static void AttachEvent(this Control c, string eventname, object co)
{
EventInfo ev = c.GetType().GetEvent(eventname);
switch (ev.EventHandlerType.Name)
{
case "KeyEventHandler":
ev.AddEventHandler(c, new KeyEventHandler((object sender, KeyEventArgs e) =>
{
ComFuncCaller.Invoke(co, sender, e);
}));
break;
case "KeyPressEventHandler":
ev.AddEventHandler(c, new KeyPressEventHandler((object sender, KeyPressEventArgs e) =>
{
ComFuncCaller.Invoke(co, sender, e);
}));
break;
case "MouseEventHandler":
ev.AddEventHandler(c, new MouseEventHandler((object sender, MouseEventArgs e) =>
{
ComFuncCaller.Invoke(co, sender, e);
}));
break;
case "EventHandler":
ev.AddEventHandler(c, new EventHandler((object sender, EventArgs e) =>
{
ComFuncCaller.Invoke(co, sender, e);
}));
break;
case "PaintEventHandler":
ev.AddEventHandler(c, new PaintEventHandler((object sender, PaintEventArgs e) =>
{
ComFuncCaller.Invoke(co, sender, e);
}));
break;
default:
break;
}
}
public static class ComFuncCaller
{
public static void Invoke(dynamic o,object sender,dynamic e)
{
(new z(o)).zz(sender,e);
}
private struct z
{
public dynamic zz;
public z(dynamic zzz)
{
zz = zzz;
}
}
}
}
}

复制代码