在VB6.0中,每个应用程序都是从窗体(Form)开始的,窗体是构成用户接口的所有控件的容器。录活运用窗体的各项属性和操作,可以为用户设计出赏心悦目的操作界面。 1.窗体以当前屏幕分辨率全屏显示 在应用程序的编制调试过程中,用于经常用到菜单、工具条和工具框等辅助工具,一般不将窗体设为全屏显示,以便于操作;另外,当屏幕分辨率改变时,窗体可能不能正常显示,可以在窗体的Load事件中插入下列代码,即可使窗体启动时以当前屏幕分辨率全屏显示: Private Sub Form_Load() Form1.top=0 ‘设置窗体上边界位置 Form1.left=0 ‘设置窗体左边界位置 Form1.Width=Screen.Width ‘设置窗体宽度为屏幕宽度 Form1.Height=Screen.Height ‘设置窗体高度为屏幕高度 End Sub 2.使窗体保持在最上层 有时应用程序需要一个信息或查询窗体总保持在最上层,即使用读书切换到其他窗体也能看到该窗体,如Microsoft Word中的Find窗体,这是通过调用Windows API函数SetWindowPos()实现的,示例如下: Option Explicit Private Declare Function SetWindowPos Lib“User32”(ByValhwnd As Long,ByVal h WndInsertAfter As Long,ByVal x As Long,ByVAl y As Long,ByVal cx As Long,ByVal cy As Long,ByVal wFlags As Long)As Long Const HWND_TOPMOST=-1 Const SWP_SHOWWINDOW=&H40 Private Sub Form_load() Dim retvalue As Long Retvalue=setWindowPos(me.hwnd,HWND_TOPMOST,Me.CurrentX,Me.CurrentY,300,300,SWP_SHOWWINDOW) End Sub 3.窗体装入速度慢的处理技巧 在缺省情况下,Visual Basic装入和显示项目的第一个窗体。如果窗体装入过程超过一秒,用户只好耐心等待,特别是在窗体中含有大型位图或许多控件时。其实,微软在OFFICE组件中已经很好地处理了这一问题。下面的程序演示了处理低速窗体的装入技巧,在应用程序启动时,首先启动一个简单的快速装入窗体,可以将公司标志或其他信息显示在上面,然后在快速窗体后台中装入慢速窗体,慢速窗体装入后将快速窗体卸出,从而解决了让用户厌烦的等待问题。 Private Sub Form_Load() Form1.Show Form1.Refresh Load Form2 ‘装入慢速窗体 Form2.Show ‘显示慢速窗体 End Sub 如果省略Form1.Show方法,则需装入慢速窗体后才能显示信息窗体。Refresh方法让Visual Basic更新显示后再执行后面的命令,缺省情况下,Visual Basic只在不执行其他代码时,才有机会刷新显示。慢速窗体Form2装入后,用下列代码将快速窗体Fomr1卸出: Private Sub Form_Load() UnLoad Form1 ‘卸出快速窗体 End Sub 一旦装入窗体,它就占用了所要的资源,所以不再需要的窗体应及时卸出,将占用的资源交还系统。另外,由于窗体装入比较慢,特别是包含位图或其他资源的大文件装入更慢,所以应用程序运行期间应尽量避免频繁装入/卸出窗体,而最好在应用程序启动时把窗体装入内存,需要时再显示。