?? 49.asp
字號:
<P><FONT SIZE=+0>Call SendMessage(Text1.hwnd, EM_LINESCROLL, 0&, ByVal
-N ) ' 上卷</FONT>N行</P>
<P><FONT SIZE=+0>Call SendMessage(Text1.hwnd, EM_LINESCROLL, N, ByVal 0&)
' 右卷</FONT>N列</P>
<P><FONT SIZE=+0>Call SendMessage(Text1.hwnd, EM_LINESCROLL, -N, ByVal
0&) ' 左卷</FONT>N列</P>
</UL>
<P> </P>
<P>舉例來說， 想要上卷 5 行右卷 3 列， 呼叫的敘述如下：</P>
<P> </P>
<UL>
<P><FONT SIZE=+0>Call SendMessage(Text1.hwnd, EM_LINESCROLL, 3&, ByVal
-5& )</FONT></P>
</UL>
<P> </P>
<H3><A NAME="Q13"></A>問題13：如何像一般的繪圖軟體一樣填滿某一區域的顏色？
<HR WIDTH="100%"></H3>
<P> </P>
<P>想要把某一區域填滿成某一顏色， 可以呼叫 FloodFill API 函數， 此一函數含有以下四個參數：</P>
<P> </P>
<DIR>
<OL>
<LI>hDC：handle of DC， 有關 DC(Device Context) 的意義請參閱上上期的解說，
對 VB 的物件而言， Form 及 PictureBox 都具有名稱為 hDC 的屬性， 可據以呼叫
FloodFill 函數。</LI>
<LI>X, Y：座標位置， 但請注意， 單位是 pixel(像素)。</LI>
<LI>crColor：封閉區域的邊框顏色。</LI>
</OL>
<P> </P>
</DIR>
<P>讓筆者舉例來說明以上參數 2、3、4 的設定方法， 參考圖-3， 假設我們想填滿某一方形區域，
則 (X, Y) 可以設定成區域內的任何一點， 而 crColor 則必須設定成邊框的顏色，
假設邊框顏色是黑色， 則設定值等於 RGB(0,0,0)(等於 0)， 假設邊框顏色是紅色，
則設定值等於 RGB(255,0,0)。</P>
<P> </P>
<CENTER><P><A HREF="49-3.gif">圖-3 FloodFill 的參數意義</A></P></CENTER>
<CENTER><P> </P></CENTER>
<P>雖然 FloodFill 是填滿區域的函數， 但單純呼叫此一函數并不能填滿區域，
因為 Windows GDI 規定， 填滿區域之前必須先設定 brush(圖刷)物件給 DC 才可以，
而 brush 物件的顏色就成為填滿的顏色。為了建立 brush 物件， 并且設定給 DC，
我們必須這麼做：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim hBrush As Long</FONT></P>
<P><FONT SIZE=+0>hBrush = CreateSolidBrush(顏色設定值</FONT>) ' 建立 brush
物件</P>
<P><FONT SIZE=+0>Call SelectObject(hDC, hBrush) ' 將</FONT> brush 物件設定給
DC</P>
<P><FONT SIZE=+0>' 接著再呼叫</FONT> FloodFill， 例如：</P>
<P><FONT SIZE=+0>Call FloodFill(hDC, X, Y, RGB(0, 0, 0))</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>有關實際范例， 您可以參閱筆者所完成的 runpc49h.frm 表單， 如圖-4， 使用此一表單時，
只要選取顏色， 再以滑鼠選取欲填滿顏色的區域， 即可看到 FloodFill 執行的結果，
在此范例中， 請注意一件事情：筆者將表單的 ScaleMode 屬性設定成 "3-像素"，
因為 FloodFill 的 (X, Y) 參數是以像素為座標單位。</P>
<P> </P>
<CENTER><P><A HREF="49-4.gif">圖-4 FloodFill 范例程式</A></P></CENTER>
<P> </P>
<H3><A NAME="Q14"></A>問題14：如何讀取磁碟的空間及可用空間？
<HR WIDTH="100%"></H3>
<P> </P>
<P>讀取磁碟的空間及可用空間需呼叫 GetDiskFreeSpace API 函數， 此一函數含有
5 個參數， 意義如下：</P>
<P> </P>
<DIR>
<OL>
<LI>RootPathName：磁碟機根目錄， 以 C: 為例， 必須寫成 "C:\"，
不可以寫成 "C:" 或 "C"。</LI>
<LI>SectorsPerCluster：每一叢集的磁軌數。</LI>
<LI>BytesPerSector：每一磁軌的位元組數。</LI>
<LI>NumberOfFreeClusters：可用的叢集數。</LI>
<LI>TotalNumberOfClusters：總叢集數。</LI>
</OL>
</DIR>
<P> </P>
<P>而計算磁碟空間(位元組數)的公式等於＝(每一磁軌的位元組數×每一叢集的磁軌數×叢集數)，
所以求取磁碟空間與可用空間的程式如下：(以 C: 為例)</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim Sectors As Long, Bytes As Long, Free As Long, Total
As Long</FONT></P>
<P><FONT SIZE=+0>Dim FreeKB As Long, TotalKB As Long</FONT></P>
<P><FONT SIZE=+0>Call GetDiskFreeSpace("C:\", Sectors, Bytes,
Free, Total)</FONT></P>
<P><FONT SIZE=+0>FreeKB = Bytes * Sectors * Free \ 1024 ' 可用空間</FONT>,
以 KB 為單位</P>
<P><FONT SIZE=+0>TotalKB = Bytes * Sectors * Total \ 1024 ' 總空間</FONT>,
以 KB 為單位</P>
<P> </P>
</DIR>
</DIR>
<H3><A NAME="Q15"></A>問題15：將表單縮小時， 希望它的圖示顯示在工作列的右下角。
<HR WIDTH="100%"></H3>
<P> </P>
<P>最後來一題超難的， 但問此一問題的讀者很多。</P>
<P> </P>
<CENTER><P><A HREF="49-5.gif">圖-5 將程式縮到右下角， 可能嗎？</A></P></CENTER>
<P> </P>
<P>基本上， 表單縮小後只有一個歸宿─「開始」功能表右邊的工作列， 要縮到右下角，
別想。但為什麼有的程式可以縮到右下角呢？其實右下角的圖示都不是表單或程式，
對 Windows 來說， 它只是一個圖示， 而想建立此一圖示， 方法是呼叫 Shell_NotifyIconA
API 函數， 如下：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim nid As NOTIFYICONDATA</FONT></P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(NIM_ADD, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>呼叫 Shell_NotifyIconA 之前， 必須間填好 NOTIFYICONDATA 資料結構(如以上的
nid 變數)的內容， 而 NOTIFYICONDATA 各資料成員的意義如下：</P>
<P> </P>
<UL>
<OL>
<LI>cbSize：需填入 NOTIFYICONDATA 資料結構的長度。</LI>
<LI>hWnd：handle of window， 例如設定成 Form1.hWnd。</LI>
<LI>uID：使用者為圖示所設定的 ID。</LI>
<LI>uFlags：用來設定以下三個參數(uCallbackMessage、hIcon、szTip)是否有效，
通常設定成 (NIF_MESSAGE + NIF_ICON + NIF_TIP) 表示全部有效。</LI>
<LI>uCallbackMessage：將來使用者在圖示上按下滑鼠時， Windows 會以訊息通知視窗程序，
而此一參數為訊息之編號。</LI>
<LI>hIcon：圖示。</LI>
<LI>szTip：提示訊息。</LI>
</OL>
</UL>
<P> </P>
<P>以上共有 7 個資料成員， 看起來挺嚇人的， 別擔心， 這幾個資料成員很容易設定，
首先讓筆者舉個最簡單的例子：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim nid As NOTIFYICONDATA</FONT></P>
<P><FONT SIZE=+0>nid.cbSize = Len(nid) ' 取資料結構的長度設定給 cbSize</FONT></P>
<P><FONT SIZE=+0>nid.hWnd = Me.hWnd ' 設定成表單的 hWnd</FONT></P>
<P><FONT SIZE=+0>nid.uID = 9999 ' 取一個編號， 可自訂</FONT></P>
<P><FONT SIZE=+0>nid.uFlags = NIF_ICON ' NIF_ICON 表示設定圖示</FONT></P>
<P><FONT SIZE=+0>nid.hIcon = Me.hIcon ' 設定成表單的圖示</FONT></P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(NIM_ADD, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>結果執行之後， Me(目前表單) 的圖示就會出現在工作列的右下角(以下簡稱工作列)，
您可以直接參閱筆者所完成的范例， 以檢視程式執行的結果。在以上的設定中 uID
必須取一個唯一的編號， 將來我們若要從工作列除去此一圖示， Windows 會比對此一
uID 與 hWnd， 所以除去的方法如下：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim nid As NOTIFYICONDATA</FONT></P>
<P><FONT SIZE=+0>nid.cbSize = Len(nid)</FONT></P>
<P><FONT SIZE=+0>nid.hWnd = Me.hWnd</FONT></P>
<P><FONT SIZE=+0>nid.uID = 9999</FONT></P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(<B>NIM_DELETE</B>, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>筆者的習慣是將 nid 宣告成全域變數， 所以執行 Shell_NotifyIconA(NIM_ADD,
nid) 之後， nid 資料結構會保存 uID 及 hWnd 的值， 所以接下來不必再設定
nid 的資料成員， 即可直接呼叫 Shell_NotifyIconA(NIM_DELETE, nid)， 筆者的范例程式就是這麼寫的。</P>
<P> </P>
<P><B><U><FONT COLOR="#0000FF"><FONT SIZE=+1>設定「提示訊息」</FONT></FONT></U></B></P>
<P> </P>
<CENTER><P><A HREF="49-6.gif">圖-6 滑鼠移到圖示上面會出現「提示訊息」</A></P></CENTER>
<P> </P>
<P>參考圖-6， 當我們把滑鼠移到圖示上面時， 有些圖示還會顯示「提示訊息」，
這是怎麼辦到的呢？直接來看程式：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>nid.cbSize = Len(nid)</FONT></P>
<P><FONT SIZE=+0>nid.hWnd = Me.hWnd</FONT></P>
<P><FONT SIZE=+0>nid.uID = 9998</FONT></P>
<P><FONT SIZE=+0>nid.uFlags = NIF_ICON + NIF_TIP ' 增加「提示訊息」的設定</FONT></P>
<P><FONT SIZE=+0>nid.hIcon = Me.Icon</FONT></P>
<P><FONT SIZE=+0>nid.szTip = "學</FONT> VB 找王國榮" + Chr(0)</P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(NIM_ADD, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>首先 uFlags 資料成員要加上 NIF_TIP， 而 szTip 資料成員則設定成提示訊息，
請注意此一提示訊息的最後應加上 Chr(0)， 否則提示訊息的最後會多出很多空白字元。</P>
<P> </P>
<P><B><U><FONT COLOR="#0000FF"><FONT SIZE=+1>圖示的修改</FONT></FONT></U></B></P>
<P> </P>
<P>Shell_NotifyIconA 函數除了可用來建立及刪除圖示之外， 也可以修改圖示，
例如以下程式可以將 uID = 9998 圖示的提示訊息由「學 VB 找王國榮」改成「學
Visual Basic 找王國榮」：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>nid.hWnd = Me.hWnd</FONT></P>
<P><FONT SIZE=+0>nid.uID = 9998</FONT></P>
<P><FONT SIZE=+0>nid.uFlags = NIF_ICON + NIF_TIP</FONT></P>
<P><FONT SIZE=+0>nid.szTip = "學</FONT> Visual Basic 找王國榮"
+ Chr(0)</P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(NIM_MODIFY, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P><B><U><FONT COLOR="#0000FF"><FONT SIZE=+1>接收 Windows 的訊息</FONT></FONT></U></B></P>
<P> </P>
<P>想想， 我們在工作列里面建立圖示有什麼用呢？首先， 假設我們將 Form1 的圖示設定到工作列中，
那麼接下來可以利用以下敘述讓 Form1 不會顯示在正規的工作列中：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Form1.Hide</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>因為右下角的工作列比較不占空間， 對於一些處理「背景」(background)工作的表單而言，
這確實是個不錯的表現方式， 以數據機、印表機…為例， 就采用此一表現方式，
而有意思的是， 數據機(或印表機)狀態改變時， 程式也會利用 Shell_NotifyIconA(NIM_MODIFY,
nid) 改變圖示， 讓使用者感覺到程式有在執行。</P>
<P> </P>
<P>以數據機或印表機為例， 當我們在圖示上面按下滑鼠時， 它們都會開啟視窗，
這又是如何辦到的呢？筆者稍早說過， 工作列的圖示只是圖示， 不是視窗， 因此無法接收「按下滑鼠」的訊息，
而實際上， 當使用者在工作列的圖示按下滑鼠時， 收到訊息的是 Windows 的 Shell
程式， 為了讓 Shell 程式能夠將按下滑鼠的訊息轉送給我們的視窗， 在建立圖示時，
必須這麼做：</P>
<P> </P>
<DIR>
<DIR>
<P><FONT SIZE=+0>Dim nid As NOTIFYICONDATA</FONT></P>
<P><FONT SIZE=+0>nid.cbSize = Len(nid)</FONT></P>
<P><FONT SIZE=+0>nid.hWnd = Me.hWnd</FONT></P>
<P><FONT SIZE=+0>nid.uID = 9997</FONT></P>
<P><FONT SIZE=+0>nid.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE</FONT></P>
<P><FONT SIZE=+0>nid.hIcon = Me.hIcon</FONT></P>
<P><FONT SIZE=+0>nid.szTip = "學</FONT> VB 找王國榮" + Chr(0)</P>
<P><FONT SIZE=+0>nid.uCallbackMessage = 訊息編號</FONT></P>
<P><FONT SIZE=+0>Call Shell_NotifyIconA(NIM_ADD, nid)</FONT></P>
<P> </P>
</DIR>
</DIR>
<P>主要的變動有二：(1) uFlags 資料成員必須增加 NIF_MESSAGE (2) 把希望 Shell
傳送過來的訊息編號設定給 uCallbackMessage 資料成員， 例如設定成 99999，
則將來使用者在工作列的圖示按下滑鼠時(包含單按及雙按)， 視窗程序都會收到
99999 的訊息。</P>
<P> </P>
<P>但故事還沒結束， 收到 Shell 傳來訊息的是「視窗程序」， 不是「事件程序」，
所以想要處理 Shell 傳來的訊息， 必須撰寫視窗程序， 這下子又要應用到上一期所介紹的「Windows
的訊息系統」了。</P>
<P> </P>
<P>接著讓筆者來說明視窗程序如何處理 Shell 所傳來的訊息， 就架構部分， 與上一期介紹的視窗程序完全相同，
而 Msg、wParam、及 lParam 等幾個參數的意義則如下：</P>
<P> </P>
<UL>
<OL>
<LI>Msg：將等於 nid.uCallbackMessage 資料成員的設定值。</LI>
<LI>wParam：將等於 nid.uID 資料成員的設定值。</LI>
<LI>lParam：將等於滑鼠的訊息， 其中最常使用的是 WM_LBUTTONDOWN(按下滑鼠左鈕)
及 WM_LBUTTONDBLCLK(雙按滑鼠左鈕)。</LI>
</OL>
<P> </P>
<P>因此視窗程序的架構大致如下：</P>
<P> </P>
<DIR>
<P><FONT SIZE=+0>Function WndProcForIcon(ByVal hWnd As Long, ByVal Msg
As Long, ByVal wParam As Long, ByVal lParam As Long) As Long</FONT></P>
<P><FONT SIZE=+0>If Msg = 訊息編號</FONT> Then</P>
<P><FONT SIZE=+0>If lParam = WM_LBUTTONDOWN Then</FONT></P>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -