很多時候有人問到,怎麼樣弄使得VBA中的關閉窗口的按鈕消失啊。
其實在VBA中,我們可以利用API的SetWindowLong函數來進行對VBA中窗體的設置。
以下代碼添加到窗體中,可以隱藏窗體的關閉按鈕。
在這個程序中,SetWindowLong的第四個參數其實就是控制窗體格式的,上述代碼是初始化窗體的代碼,如果要在窗體運行中改變窗體樣式,那麼第四個參數最前面加一個1。
其實通過第四個參數的改變,可以改變窗體的屬性。具體的對應關係如下:
&H16C00000
|
全部按鈕都沒有、Title消失
|
&H16C10000
|
全部按鈕都沒有、無法改變窗口大小
|
&H16C50000
|
全部按鈕都沒有、可以改變窗口大小
|
&H16C80000
|
Max、Min按鈕消失、鼠標不能改變Form的大小
|
&H16C90000
|
Min按鈕消失、鼠標不能改變Form的大小
|
&H16CA0000
|
Max按鈕消失、鼠標不能改變Form的大小
|
&H16CB0000
|
鼠標不能改變Form的大小
|
&H16CC0000
|
Min、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16CD0000
|
Min按鈕消失,鼠標仍可改變Form的大小
|
&H16CE0000
|
Max按鈕消失,鼠標仍可改變Form的大小
|
&H16CF0000
|
所有按鈕都有,滑數可改變大小、正常窗口
|
&H16D10000
|
出現水平滾動條、全部按鈕都沒有、無法改變窗口大小
|
&H16D50000
|
出現水平滾動條、全部按鈕都沒有、可以改變窗口大小
|
&H16D80000
|
出現水平滾動條、Max、Min按鈕消失、鼠標不能改變Form的大小
|
&H16D90000
|
出現水平滾動條、Min按鈕消失、鼠標不能改變Form的大小
|
&H16DA0000
|
出現水平滾動條、Max按鈕消失、鼠標不能改變Form的大小
|
&H16DB0000
|
出現水平滾動條、鼠標不能改變Form的大小
|
&H16DC0000
|
出現水平滾動條、Min、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16DD0000
|
出現水平滾動條、Min按鈕消失,鼠標仍可改變Form的大小
|
&H16DE0000
|
出現水平滾動條、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16DF0000
|
出現水平滾動條、所有按鈕都有,滑數可改變大小、正常窗口
|
&H16E10000
|
出現垂直滾動條、全部按鈕都沒有、無法改變窗口大小
|
&H16E50000
|
出現垂直滾動條、全部按鈕都沒有、可以改變窗口大小
|
&H16E80000
|
出現垂直滾動條、Max、Min按鈕消失、鼠標不能改變Form的大小
|
&H16E90000
|
出現垂直滾動條、Min按鈕消失、鼠標不能改變Form的大小
|
&H16EA0000
|
出現垂直滾動條、Max按鈕消失、鼠標不能改變Form的大小
|
&H16EB0000
|
出現垂直滾動條、鼠標不能改變Form的大小
|
&H16EC0000
|
出現垂直滾動條、Min、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16ED0000
|
出現垂直滾動條、Min按鈕消失,鼠標仍可改變Form的大小
|
&H16EE0000
|
出現垂直滾動條、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16EF0000
|
出現垂直滾動條、所有按鈕都有,滑數可改變大小、正常窗口
|
&H16F10000
|
出現水平滾動條、垂直滾動條、全部按鈕都沒有、無法改變窗口大小
|
&H16F50000
|
出現水平滾動條、垂直滾動條、全部按鈕都沒有、可以改變窗口大小
|
&H16F80000
|
出現水平滾動條、垂直滾動條、Max、Min按鈕消失、鼠標不能改變Form的大小
|
&H16F90000
|
出現水平滾動條、垂直滾動條、Min按鈕消失、鼠標不能改變Form的大小
|
&H16FA0000
|
出現水平滾動條、垂直滾動條、Max按鈕消失、鼠標不能改變Form的大小
|
&H16FB0000
|
出現水平滾動條、垂直滾動條、鼠標不能改變Form的大小
|
&H16FC0000
|
出現水平滾動條、垂直滾動條、Min、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16FD0000
|
出現水平滾動條、垂直滾動條、Min按鈕消失,鼠標仍可改變Form的大小
|
&H16FE0000
|
出現水平滾動條、垂直滾動條、Max按鈕消失,鼠標仍可改變Form的大小
|
&H16FF0000
|
出現水平滾動條、垂直滾動條、所有按鈕都有,滑數可改變大小、正常窗口
|