VBNET中几种高级窗体技术的应用.docVIP

VB.NET中几种高级窗体技术的应用 1 引言： VB.NET中的窗体（Form类）相对于VB6而言，功能已变得十分强大，很多在VB6中需要通过API函数或复杂的编程才能完成的功能，.NET中只需要设置窗体属性或几行简单代码即可实现。本文将从实际编程的角度出发，介绍几种VB.NET中的高级窗体技术，包括子类派生、异形窗体及透明效果、本地化窗体、动态控件属性等技术的应用。 2 窗体子类派生技术 像限制窗体大小、判断窗体的移动等功能，在VB6编程中需要利用子类派生技术来实现，而在.NET中，很多窗体新增的属性、事件即可完成这些任务。但有时仍然需要使用子类派生，例如：程序中要用到一个不带标题栏的窗体，通过鼠标在窗体上任何位置的拖动来改变窗体位置。 窗体对象的子类派生技术依赖于继承机制。System.Windows.Forms.Form类公开了WndProc方法，该方法被Windows发送到窗体的每条消息调用。由于WndProc方法被定义为Protected和Overridable，所以在窗体的派生类中可以重写它。通过重写此方法，就可以重新定义窗体的行为。 WinProc方法接收一个Message对象参数，此对象包括5个属性：Msg（消息的ID）、HWnd（窗口的句柄）、Wparam和Lparam（传递给窗口的参数，取决于具体的消息）、Result（返回给操作系统的值）。在重写WinProc方法时，首先应调用其基类的默认处理方法，进行一般消息的处理工作，然后检查该消息的Msg属性，并决定如何响应某些特殊消息。 多数情况下，我们只需根据消息给出相应的提示，但在某些时候，需要将特定的值赋给消息的Result属性并返还给Windows，达到“欺骗”Windows的目的。例如，下面的代码捕获了WM_ACTIVATEAPP消息，判断窗体是否被激活并显示提示；捕获WM_NCHITTEST消息，将HTCLIENT值（代表鼠标位于窗体的工作区）改为HTCAPTION值（代表鼠标位于窗体的标题栏中）赋给Result属性，以实现拖动，如图1。 （图1：窗体子类派生） Public Class Form1 Inherits System.Windows.Forms.Form #Region Windows 窗体设计器生成的代码 Private Const WM_NCHITTEST As Integer = H84 Private Const WM_ACTIVATEAPP As Integer = H1C Private Const HTCAPTION As Integer = 2 Private Const HTCLIENT As Integer = 1 定义消息 Protected Overrides Sub WndProc(ByRef m As Message) MyBase.WndProc(m) 调用基类的WinProc方法处理消息 Select Case m.Msg Case WM_ACTIVATEAPP If m.WParam.ToInt32 0 Then Label1.Text = 窗体被激活！ Else Label1.Text = 窗体被停用！ End If 窗体被激活时，WParam属性返回一个非零值 Case WM_NCHITTEST 鼠标位于窗体上方时发送WM_NCHITTEST消息 If m.Result.ToInt32 = HTCLIENT Then m.Result = New IntPtr(HTCAPTION) 修改消息值 End If End Select End Sub End Class 此外，我们还可捕获系统颜色改变、字体改变、窗体大小调整、Windows会话关闭等消息并进行处理。要了解Msg、LParam和Wparam，MSDN Library中的Platform SDK 文档Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.Paint