用自动化接口控制 Virsual Studio .NET 2003 的工具箱

王朝c#·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

做了一套ASP.NET的自定义控件,本想把这些控件加到Virsual Studio .NET 2003 的工具箱中,看了一下MSDN,自己做代码试了一下,竟然不好使。搞了半天,查了N多资料,才知道是Virsual Studio .NET 2003的Bug,好在总算解决了。下面是源码,发出来以免大家碰到同样问题是浪费时间。

中间有几行代码可能你会觉得没必要,但如果没有,你会发现就不好用,经验之谈,希望对大家有所帮助!

控制台程序的主单元:

using System;

using EnvDTE;

namespace SuperToolboxCS

{

/// <summary>

/// ClassMain 的摘要说明。

/// </summary>

class ClassMain

{

/// <summary>

/// 应用程序的主入口点。

/// </summary>

[STAThread]

static void Main(string[] args)

{

Type latestDTE = Type.GetTypeFromProgID("VisualStudio.DTE");

EnvDTE.DTE dte = Activator.CreateInstance(latestDTE) as EnvDTE.DTE;

MessageFilter.Register();

if (dte != null)

Installer.AddToolBoxTab(dte);

MessageFilter.Revoke();

}

}

sealed class Installer

{

public static void AddToolBoxTab(EnvDTE.DTE dte)

{

if (dte == null)

return;

Window win = dte.Windows.Item(EnvDTE.Constants.vsWindowKindToolbox);

ToolBox box = win.Object as ToolBox;

if (box == null)

return;

ToolBoxTabs tabs = box.ToolBoxTabs;

if (tabs == null)

return;

foreach (ToolBoxTab t in tabs)

{

if (t.Name == TabName)

t.Delete();

}

ToolBoxTab tab = tabs.Add(TabName);

if (tab == null)

return;

dte.ExecuteCommand("View.PropertiesWindow", "");

tab.Activate();

tab.ToolBoxItems.Item(1).Select();

string fullpath = LookupSuperServerObjectFileName();

if (fullpath == "")

return;

tab.ToolBoxItems.Add(@"Unused?", fullpath, vsToolBoxItemFormat.vsToolBoxItemFormatDotNETComponent);

System.Console.Write("SuperLib Web 窗体工具箱创建成功!");

}

private static string LookupSuperServerObjectFileName()

{

string KeyName = "";

Microsoft.Win32.RegistryKey rk = Microsoft.Win32.Registry.LocalMachine;

rk = rk.OpenSubKey(KeyName, false);

if (rk == null)

{

return "";

}

string fullpath = (string)rk.GetValue(null);

fullpath += @"\SuperLib.ServerObject.dll";

if (!System.IO.File.Exists(fullpath))

{

return "";

}

return fullpath;

}

private const string TabName = @"SuperLib Web 窗体";

private const string KeyName = @"SOFTWARE\Microsoft\VisualStudio\7.1\AssemblyFolders\SuperLibV2.4.2003";

}

}

MessageFilter 类

using System;

using System.Runtime.InteropServices;

namespace SuperToolboxCS

{

/// <summary>

/// MessageFilter 的摘要说明。

/// </summary>

public class MessageFilter : IOleMessageFilter

{

public static void Register()

{

IOleMessageFilter newfilter = new MessageFilter();

IOleMessageFilter oldfilter = null;

CoRegisterMessageFilter(newfilter, out oldfilter);

}

public static void Revoke()

{

IOleMessageFilter oldfilter = null;

CoRegisterMessageFilter(null, out oldfilter);

}

//

// IOleMessageFilter impl

int IOleMessageFilter.HandleInComingCall(int dwCallType, System.IntPtr hTaskCaller, int dwTickCount, System.IntPtr lpInterfaceInfo)

{

System.Diagnostics.Debug.WriteLine("IOleMessageFilter::HandleInComingCall");

return 0; //SERVERCALL_ISHANDLED

}

int IOleMessageFilter.RetryRejectedCall(System.IntPtr hTaskCallee, int dwTickCount, int dwRejectType)

{

System.Diagnostics.Debug.WriteLine("IOleMessageFilter::RetryRejectedCall");

if (dwRejectType == 2 ) //SERVERCALL_RETRYLATER

{

System.Diagnostics.Debug.WriteLine("Retry call later");

return 99; //retry immediately if return >=0 & <100

}

return -1; //cancel call

}

int IOleMessageFilter.MessagePending(System.IntPtr hTaskCallee, int dwTickCount, int dwPendingType)

{

System.Diagnostics.Debug.WriteLine("IOleMessageFilter::MessagePending");

return 2; //PENDINGMSG_WAITDEFPROCESS

}

//

// Implementation

[DllImport("Ole32.dll")]

private static extern int CoRegisterMessageFilter(IOleMessageFilter newfilter, out IOleMessageFilter oldfilter);

}

[ComImport(), Guid("00000016-0000-0000-C000-000000000046"),

InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]

interface IOleMessageFilter // deliberately renamed to avoid confusion w/ System.Windows.Forms.IMessageFilter

{

[PreserveSig]

int HandleInComingCall(

int dwCallType,

IntPtr hTaskCaller,

int dwTickCount,

IntPtr lpInterfaceInfo);

[PreserveSig]

int RetryRejectedCall(

IntPtr hTaskCallee,

int dwTickCount,

int dwRejectType);

[PreserveSig]

int MessagePending(

IntPtr hTaskCallee,

int dwTickCount,

int dwPendingType);

}

}

同样有 VB.NET 版本的实现,不贴了。

需要发消息。

QQ:12150367

EMAIL:haozidong@126.com

http://www.playicq.com/dispdocnew.php?id=21417

参考 BLOG:

http://weblogs.asp.net/savanness/archive/2003/04/24/6012.aspx

http://weblogs.asp.net/savanness/archive/2003/04/15/5701.aspx

http://weblogs.asp.net/savanness/archive/2003/04/10/5352.aspx

http://weblogs.asp.net/savanness/archive/2003/03/18/4019.aspx

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航