16,555
社区成员
发帖
与我相关
我的任务
分享在vb2008中如何子类化(即获取窗体上别的控件的消息)
在我自己写个控件,想实现文本框的自动完成.我现在想拦截文本框的一些输入比如insert键,该如何实现呢.记得在vb6可以通过子类化可以拦截.不知道vb.net如何实现.请达人指教.
...全文
请发表友善的回复…
发表回复
兔子-顾问 2011-02-12
- 打赏
- 举报
别绕道了，文本框的自动完成，直接看看AutoComplete属性。
lmhcs 2011-02-12
- 打赏
- 举报
谢谢楼上的连接和c#的代码,我研究下.呵呵.不过偶是业余的,看起来好象挺难的样子.
to wuyazhe 朋友,AutoComplete我也知道.不过有点不足的地方.就是当文本框什么输入也没有的时候,我不知道怎么让他弹出来,郁!好象它只有在输入内容的时候它才会自动完成.我的是vb2008+winxp sp3
to wuyazhe 朋友,AutoComplete我也知道.不过有点不足的地方.就是当文本框什么输入也没有的时候,我不知道怎么让他弹出来,郁!好象它只有在输入内容的时候它才会自动完成.我的是vb2008+winxp sp3
机器人 2011-02-11
- 打赏
- 举报
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Windows.Forms;
namespace MessageFilter
{
public partial class MessageWatcher : UserControl
{
private MessageInspector _msgInspector = null;
public MessageWatcher()
{
InitializeComponent();
}
bool _msgInspector_InspectMessage(Message arg)
{
Control ctrl = Control.FromHandle(arg.HWnd);
if (ctrl == null) return false;
if (ctrl.Name == "lblSender") return false;
if (ctrl.Name == "lblMsg") return false;
lblSender.Text = ctrl.Name;
lblMsg.Text = arg.ToString();
return false;
}
private void MessageWatcher_Load(object sender, EventArgs e)
{
_msgInspector = MessageInspector.Instance();
_msgInspector.InspectMessage += new Func<Message, bool>(_msgInspector_InspectMessage);
}
}
internal class MessageInspector : IMessageFilter
{
public event Func<Message, bool> InspectMessage;
private MessageInspector()
{ }
private static MessageInspector _inspector;
public static MessageInspector Instance()
{
if (_inspector == null)
{
_inspector = new MessageInspector();
Application.AddMessageFilter(_inspector);
}
return _inspector;
}
public bool PreFilterMessage(ref Message m)
{
if (InspectMessage != null)
return InspectMessage(m);
else
return false;
}
}
}
用这个UserControl,可以监视其他所有控件收到的Message。
机器人 2011-02-11
- 打赏
- 举报
lmhcs 2011-02-11
- 打赏
- 举报
可能我说得不是很清楚.在from1窗体上有一个文本框textbox1,有一个usercontrol控件,usercontrol自己写的.现在我需要在usercontrol控件上获取textbox1的一些消息,比如拦截 insert按健消息或者其他消息.
在vb6我们可以通过子类化textbox拦截它的消息,在vb.net我们也可以创建一个继承自textbox的子类,然后重载WndProc拦截到消息
但我现在需要的是,我在usercontrol控件中拦截textbox消息
在vb6我们可以通过子类化textbox拦截它的消息,在vb.net我们也可以创建一个继承自textbox的子类,然后重载WndProc拦截到消息
但我现在需要的是,我在usercontrol控件中拦截textbox消息
wuyq11 2011-02-11
- 打赏
- 举报
Dim hEdit As Integer = FindWindowEx(p.MainWindowHandle, 0, "Edit", "")
Dim w As String = " "
Dim ptr As IntPtr = Marshal.StringToHGlobalAnsi(w)
If SendMessage(hEdit, WM_GETTEXT, 100, ptr) Then
Console.WriteLine(Marshal.PtrToStringAnsi(ptr))
End If
Dim w As String = " "
Dim ptr As IntPtr = Marshal.StringToHGlobalAnsi(w)
If SendMessage(hEdit, WM_GETTEXT, 100, ptr) Then
Console.WriteLine(Marshal.PtrToStringAnsi(ptr))
End If
