做了一套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
