?? soft1.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>隨心所欲-----不規則窗體</title>
</head>
<body>
<p><font size="6">隨</font><font color="#FF0000" size="6">心</font><font size="6">所欲-----</font><font
color="#00FF00" size="7" face="華文彩云"><strong>不規則</strong></font><font
size="6">窗體</font></p>
<p>最近我走訪了很多網站，下載了幾個不規則窗體的程序，我看到在這些程序中有一些不到之處，有的程序簡單但無法做到比較復雜的不規則窗體；有的程序可以做到比較復雜的不規則窗體，但很復雜并它里面只有幾個英文注釋，使我這種英文？？，看英文真是天書。對于我們這些VB新手并且還是英文？？者，需要編輯出一個中文并且簡單，使新手能一看就明白的程序所以................</p>
<p>我根據一些API函數的資料，編寫出一個不但簡單易懂還可以根據自已的需要創建出不規則窗體，里面還有較多的<font
size="4"><strong>中文注釋</strong></font>，可能大家會說太多廢話了，現在開始：</p>
<p>在Windows下，每個窗體都有有其顯示的區域，當這個區域是矩形時，就是我們熟悉的矩形窗口，我們可通過調用WINAPI建立的區域，再把區域賦給窗體。</p>
<p><font size="5"><strong>方法:</strong></font></p>
<p>我采用的方法是“<font size="4"><strong>區域合并</strong></font>”的方法。在圖像上把不想要的都著上背景色（在程序中默認為<font
color="#00FF00">淺綠色</font>，可根據自已的需要設置），我們要做的就是把矩型區域中去掉背景色形成圖像一樣的窗體。按<strong>像素</strong>逐行掃描這幅圖像，若遇到是背景顏色的像素就跳過，如果遇到是非背景顏色的像素，記錄下這一行像素中連續非背景像素的們置，生成一個<strong>新</strong>矩形區域。繼續掃描圖像，生成下一個知矩形區域。每生成一個區域就將其與上一個合并，直到整個圖像掃描完為止。在掃描中去掉了背景，合成了一個不規則區域，將它賦給窗體</p>
<p>本方法由<strong>兩個</strong>程序配合完成，分兩步生成窗體，第一個程序是根據圖像生成<strong>窗體數據</strong>程序。該程序主要是<strong>掃描圖像</strong>，去掉背景色，把非背景色的圖像，轉化成數據存入磁盤，為生成不規則窗體提供區域數據（<font
color="#FF0000" size="4"><strong>重點</strong></font>）；第二個程序是根據第一個程序所生的數據生成不規則窗體。是通過從數據文件中讀取數據，把數據轉化為區域，并生成不規則窗體。</p>
<p>在第一個程序中采用了一個WINAPI函數（<font face="Arial"><strong>GetPixel</strong></font>）。</p>
<p>功能是<strong>讀取</strong>設備中一個點的像素，該函數是以<strong>像素</strong>為單位，為了與函數配合增加一個圖片框，圖片框加載想掃描圖像，大小自動和圖像一個大，使用圖片框的測量單位也為像素。這樣窗體不用改變什么就可以自動得到圖片的大小，作為圖像掃描的范圍。</p>
<p>在第二個程序中主要采用了三個函數（<strong><font face="Arial">CreateRectRgn</font>、<font
face="Arial">CombineRgn </font>、<font face="Arial">SetWindowRgn</font></strong>)
CreateRectRgn主要是不停的把第二個程序讀取的數據<strong>生成</strong>區域，并通過CombineRgn把兩個區域<strong>合并</strong>成一個新的區域，直到數據讀完為止。再用SetWindowRgn把這個新的區域賦給窗體。</p>
<p>雖然方法分為兩步，但如果合成一步時較果很差。在第一步中，掃描圖像時會使用很多時間，當圖像很大時會使用更多的時間。不如把掃描的結果生成數據，再通過第二步來讀取數據，并成窗體。所使用的時間會大大減少，不會在啟動不規則窗體時要等待的時間太長。</p>
<p><font size="5"><strong>如何使用函數</strong></font>:</p>
<p>創建出不規則窗體的最重要的是WINAPI函數，生成不規則窗體的函數是SetWindowRgn，它的功能就是對指定的窗口進行重畫，把這個窗口你選擇的部分留下，其余的部分抹掉。</p>
<p>這是那些很難有人注意到的，對編程者來說是個巨大的寶藏的隱含的API函數中的一個。本函數允許您改變窗口的區域。<br>
通常所有窗口都是矩形的——窗口一旦存在就含有一個矩形區域。本函數允許您放棄該區域。這意味著您可以創建圓的、星形的窗口，也可以將它分為兩個或許多部分——實際上可以是任何形狀</p>
<p>第一個: SetWindowRgn 把區域賦給窗體</p>
<p><strong>語法</strong>：SetWindowRgn ByVal hWnd As Long, ByVal hRgn As Long, ByVal
bRedraw As Boolean <br>
<strong>參數</strong>：hWnd：你所要重畫的窗口的句柄，應該讓此參數為Form1.hWnd<br>
hRgn：你要保留的區域的句柄。<br>
bRedram：若為TRUE，則立即重畫窗口。</p>
<p>注:為區域指定的所有坐標都以窗口坐標（不是客戶坐標）表示，它們以整個窗口（包括標題欄和邊框）的左上角為起點</p>
<p>第二個： CreateRectRgn 創建一個由點X1，Y1和X2，Y2描述的矩形區域</p>
<p>語法：CreateRectRgn(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2
As Long) </p>
<p>參數 : X1,Y1 矩形左上角X，Y坐標<br>
X2,Y2 矩形右下角X，Y坐標</p>
<p>第三個: CombineRgn 將兩個區域組合為一個新區域</p>
<p>語法: <font face="Times New Roman">CombineRgn</font> ByVal hDestRgn As Long, ByVal
hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long</p>
<p>參數:<font face="Times New Roman"> </font>hDestRgn包含組合結果的區域句柄</p>
<p>hSrcRgn1源區域1</p>
<p>hSrcRgn2源區域2</p>
<table border="1" cellspacing="0" width="100%" bordercolordark="#FFFFFF"
bordercolorlight="#808080">
<tr>
<td rowspan="6" width="25%">nCombineMode</td>
<td colspan="2" width="75%">組合兩區域的方法。可設為下述常數</td>
</tr>
<tr>
<td width="38%">RGN_AND</td>
<td width="37%">hDestRgn被設置為兩個源區域的交集</td>
</tr>
<tr>
<td width="38%">RGN_COPY</td>
<td width="37%">hDestRgn被設置為hSrcRgn1的拷貝</td>
</tr>
<tr>
<td width="38%">RGN_DIFF</td>
<td width="37%">hDestRgn被設置為hSrcRgn1中與hSrcRgn2不相交的部分</td>
</tr>
<tr>
<td width="38%">RGN_OR</td>
<td width="37%">hDestRgn被設置為兩個區域的并集</td>
</tr>
<tr>
<td width="38%">RGN_XOR</td>
<td width="37%">hDestRgn被設置為除兩個源區域OR之外的部分</td>
</tr>
</table>
<p>第四個:GetPixel 在指定的設備場景中取得一個像素的RGB值</p>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="25%">參數</td>
<td width="77%">類型及說明</td>
</tr>
<tr>
<td width="25%">hdc</td>
<td width="77%">Long，一個設備場景的句柄</td>
</tr>
<tr>
<td width="25%">x,y</td>
<td width="77%">Long，邏輯坐標中要檢查的點</td>
</tr>
</table>
<p>現在大家也大概了解函數的使用方法，可以進入程序的設計中來。</p>
<p>我們先編寫一個生成區域數據文件的小程序中。先把圖像中不想要的部分著下背景色（默認為淺綠色），然后建立一個新工程，在窗體一放置一個PictureBox。在PictureBox中裝入剛才做好的圖像，并把Autosize屬性設置為True，并把Visible屬性設置為Fasle。調節窗體的大小，使窗體可完全容納圖像。并更加通用型對話框，主要用于加載其它的圖像之用通用型對話框控件屬性Flags為&H1001，Filter為圖像文件
*.bmp,*.jpg,*.gif,*.ico，*.wmf等，將通用型對話框控件屬性ComcelError 設為True。</p>
<p>再編寫控制菜單，主要有四個主菜單，菜單的設置如下：</p>
<p>標題 名稱</p>
<p> </p>
<p> </p>
<p><strong><font color="#FF0000" size="5">程序代碼</font><font size="4">：
第一個程序代碼</font></strong></p>
<p>'在程序中加入模塊Module1.bas，在模塊中輸入代碼為：</p>
<p>'在這個程序中最重要的函數是GetPixel，因為它的從<br>
'圖像中讀取是否非背景色的重要函數，根據它的特點<br>
'來掃描圖像<br>
'GetPixel是在指定的設備場景中取得一個像素的RGB值<br>
Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal
y As Long) As Long<br>
Type Dat '自定義類型<br>
Sx As Integer '非背景色的開始X坐標<br>
Ex As Integer '非背景色的結束X坐標<br>
Sy As Integer '..........開始Y坐標<br>
Ey As Integer '..........結束Y坐標<br>
End Type</p>
<p>’在窗體中輸入的代碼為:</p>
<p>'聲明存放背景色變量<br>
Dim 顏色 As Byte<br>
<br>
Private Sub Form_Load()<br>
'把圖片框中的圖像加載到窗體上<br>
Form1.Picture = Picture1.Picture<br>
'初始化背景顏色 為 淺綠色<br>
'范例的圖像的背景顏色為淺綠色<br>
顏色 = 10<br>
<br>
End Sub<br>
<br>
Private Sub 開始_Click()<br>
Dim Ma As Dat<br>
'生成窗體數據文件<br>
'如果想把數據文件放在其它位置上可以把修改路徑<br>
Open "d:\Ma.dat" For Random As #1 Len = Len(Ma)<br>
'掃描圖像<br>
For y = 0 To Picture1.ScaleHeight - 1<br>
'初始化變量<br>
Ma.Sx = 0<br>
Ma.Sy = 0<br>
Ma.Ex = 0<br>
Ma.Ey = 0<br>
For x = 0 To Picture1.ScaleWidth - 1<br>
'用函數從窗體中取得一個像素的RGB值<br>
'如果窗體圖像的坐標（X，Y）不是背景色并且X坐標變量<br>
'還是空白時，記錄區域的X軸開始位置<br>
If GetPixel(Form1.hdc, x, y) <> QBColor(顏色) And Ma.Sx = 0 Then Ma.Sx = x<br>
'當以經記錄區域的X軸開始位置并且在非背景色渡過背景<br>
'時記錄起區域的結束位置<br>
If GetPixel(Form1.hdc, x, y) = QBColor(顏色) And Ma.Sx <> 0 Then<br>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -