在VFP中制做異型窗口
（作者：周鳴揚 2000年09月04日 11:50）
制做異型窗口聽起來好像只是在VB、VC程序設計中才能夠做到的。但是，在VFP中，只要你靈活運用API函數，這並不是一件很難實現的事情。通過本文的介紹，你一定能夠發現VFP程序的強項不僅僅是數據處理，在程序界面設計方面也可以和其他的編程語言相媲美。
一、實現原理
在VB、VC程序的設計中，如果想要改變窗口的形狀，通常會通過對SetWindowRgn的調用來達到目的。SetWindowRgn函數能夠將窗口設定成任意形狀。該函數的調用格式如下：
int SetWindowRgn( HWND hWnd, HRGN hRgn, BOOL bRedraw )
其中各參數的含意為：
hWnd：欲改變窗口的句柄
hRgn：窗口的顯示區域
bRedraw：指明窗口在被改變顯示區域之後是否需要重繪，通常情況下該值為真。
通過上面對SetWindowRgn函數的介紹，我們可以看出，在VFP中要想改變窗口的形狀，需要知道VFP窗口的句柄。在VFP中要想直接得到有關窗口的情況是很困難的，因此必須利用API例程庫。VFP自帶的API例程庫「Foxtools.fll」提供了對窗口操作的相關函數。本文中能夠用到的例程有_WOnTop（）和_WhToHwnd（）兩種，其中_WOnTop（）是用來獲得頂層窗口的句柄，_WhToHwnd（）返回指定窗口的句柄。這兩個API例程的調用格式很簡單，這裡就不再詳細介紹了。
二、實現過程
有了上面的認識之後，我們便可以試著去設計異型窗口的程序了。設計步驟如下：
1.新建一表單Mult_shape，按表1設置表單的屬性。
表1
屬性名 設置值 備註
AutoCenter .T. 自動居中
BackColor 0,0,160 藍色背景
BorderStyle No Border 窗口無邊框
ControlBox .F. 去掉表單的最大化、最小化、恢復按鈕
Caption 圓形窗口
FillColor 128,255,0
ShowWindow 2-as Top𡧛-Level Form 將表單作為頂層表單，否則表單不能獨立於VFP而存在
TitleBar 0-Off 取消標題欄
在表1中，對表單界面所做的設定，目的是為了讓表單在運行之後更像一圓形窗口，因此，我們需要去掉標題欄、窗口大小控制按鈕等常規窗口上的內容。
2.在表單上加入一標籤控件(Label1)和按鈕控件(Command1)，分別設定其標題為「VFP圓形窗口示例」和「退出」。
3.設定表單和控件的事件代碼，其中表單的Load事件代碼為：
*註冊API函數
declare integer SetWindowRgn in win32api integer,integer,integer
declare integer CreateRoundRectRgn in win32api integer,integer,integer,integer,integer,integer
*註冊VFP的API例程庫
SET LIBRARY TO "C:\Program Files\Microsoft Visual Studio\Vfp98\Foxtools.fll"
*設定表單的大小
thisform.top=0
thisform.left=0
thisform.height=200
thisform.width=200
表單的Activate事件代碼為：
thisform.Label1.top=thisform.top+thisform.height/2-thisform.label1.height
thisform.Label1.left=thisform.left+(thisform.width-thisform.label1.width)/2
thisform.command1.top=thisform.height-3*thisform.command1.height
thisform.command1.left=thisform.left+(thisform.width-thisform.command1.width)/2
*上述代碼主要是用來在圓形窗口中準確定位各控件的位置
topwindow=_WOnTop( )
*獲得頂層窗口
hwnd=_WhToHwnd(topwindow)
*獲得頂層窗口的句柄
CRN1=CreateRoundRectRgn(0,0,200,200,200,200)
*建立一圓形窗口，如果要做其他形狀的窗口，只需調用不同的建立區域的函數
SetWindowRgn(hWnd,CRN1,.T.)
Command1控件的Click事件代碼為：
thisform.release
另外，如果你還想設計出其他形狀的窗口，只需要將Form1中的Activate事件代碼中的CreateRoundRectRgn(0,0,200,200,200,200)做相應的修改。比如你想要建立一蘋果形窗口，將該語句改為： CreateRoundRectRgn(0,0,200,200,90,1800)即可。
通過本文所介紹的程序，以前看起來很困難的事情轉眼間就做到了。試試看吧，你能夠做出更加豐富多彩的異型窗口!
|
|
當前位置：開發者網絡 >> 技術教程 >> 數據庫專欄 >> 其他相關 >> 內容
