再议“创建类似于输入法窗口的非激活窗口”

前两日,偶见博客“创建类似于输入法窗口的非激活窗口”,觉得内容不错,决定试了试,发现有瑕疵,现将自己的测试过程赋予其后(本文测试用的是VB2005),和各位网友交流。

  按照那篇的博文的第一种方法,新建了Form1,改写了Form1的CreateParams属性,将FormBorderStyle设置为System.Windows.Forms.FormBorderStyle.None。

  Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim tC As CreateParams = MyBase.CreateParams

      tC.ExStyle = tC.ExStyle Or &H8000000

      Return tC

    End Get

  End Property

  测试了一下,不错,和打开的“记事本”做了比较,当我单击Form1的时候,光标还在“记事本”里。

  于是,又新建Form2,并改为启动窗口,上面添加了Textbox1控件,在该控件的双击事件,启动Form1

  Private Sub TextBox1_DoubleClick(ByVal sender As ObjectByVal e As System.EventArgs) Handles TextBox1.DoubleClick

    Form1.Show()
End Sub

  按照设想,双击文本框的时候,弹出Form1,光标仍然在文本框内。

  不成想,光标不见了,文本框失去焦点,焦点在Form1上(后来将Form1的FormBorderStyle设置为System.Windows.Forms.FormBorderStyle.FixedToolWindow后证实了这一点。焦点的确移到Form1上)

  后来想想,在启动Form1后,强制将焦点切回来后能不能好一点呢,于是,将上面的代码改为

  Private Sub TextBox1_DoubleClick(ByVal sender As ObjectByVal e As System.EventArgs) Handles TextBox1.DoubleClick

    Form1.Show()

    Me.Activate()
End Sub

  启动Form1后,光标的确在文本框,但单击Form1后,光标又没了,焦点在Form1上。“杯具”呀。

  如此努力了若干次,均没有效果,貌似单个程序里有两个Form(或者超过两个),这个效果就出不来。

  后来查了查&H8000000代表的含义是WS_DISABLED,也没整明白是什么意思。

  后来在网上查找到一篇文章,通篇的英文,没有细看,将里面的代码测试了一下,能成功。网址如下:

  http://www.yortondotnet.com/2006/11/on-screen-keyboards.html

  他的代码中,添加了一段修改Form的WndProc代码,拦截WM_MOUSEACTIVATE消息,改为MA_NOACTIVATE。

  代码如下:

  Private Const WM_MOUSEACTIVATE As Integer = &H21

  Private Const MA_NOACTIVATE As Integer = &H3

 

  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_MOUSEACTIVATE Then
m.Result = MA_NOACTIVATE
Else

      MyBase.WndProc(m)

    End If

  End Sub

  经测试,终于达到了效果,启动Form1,光标在文本框内,无论怎么点击Form1,光标都不曾发生变化。

  上面这段的代是有效的,甚至去掉一开始的改写CreateParams的代码,仍然有效。

 

  再做了若干测试,发现上面的代码效果,如果要成功,还必不可少的是Form上没有能接受焦点的控件(Button,TextBox等),而且还不能有标题栏。解决的办法,就是去掉Form的标题栏,不使用能接受焦点的控件(或者是改写控件的WndProc过程,拦截接受焦点的消息,使之不能接受焦点)。虽然Form不能接受焦点,但是经过测试,控件还是能接受其他的事件(例如:Click,DoubleClick,MouseHover,MouseLeave等事件),合理运用的话,还是能产生不错的效果。


  本文转自万仓一黍博客园博客,原文链接:http://www.cnblogs.com/grenet/archive/2010/03/13/1685196.html,如需转载请自行联系原作者

上一篇:throttle/debounce: 为你的cpu减减压(前端性能优化)


下一篇:SAP QM 质量检验特殊业务需求之方案漫谈