利用API對VBA窗體設置

很多時候有人問到,怎麼樣弄使得VBA中的關閉窗口的按鈕消失啊。

其實在VBA中,我們可以利用API的SetWindowLong函數來進行對VBA中窗體的設置。

以下代碼添加到窗體中,可以隱藏窗體的關閉按鈕。

 

 

在這個程序中,SetWindowLong的第四個參數其實就是控制窗體格式的,上述代碼是初始化窗體的代碼,如果要在窗體運行中改變窗體樣式,那麼第四個參數最前面加一個1。

 

其實通過第四個參數的改變,可以改變窗體的屬性。具體的對應關係如下:

&H16C00000

 

全部按鈕都沒有、Title消失

 

&H16C10000

 

全部按鈕都沒有、無法改變窗口大小

 

&H16C50000

 

全部按鈕都沒有、可以改變窗口大小

 

&H16C80000

 

MaxMin按鈕消失、鼠標不能改變Form的大小

 

&H16C90000

 

Min按鈕消失、鼠標不能改變Form的大小

 

&H16CA0000

 

Max按鈕消失、鼠標不能改變Form的大小

 

&H16CB0000

 

鼠標不能改變Form的大小

 

&H16CC0000

 

MinMax按鈕消失,鼠標仍可改變Form的大小

 

&H16CD0000

 

Min按鈕消失,鼠標仍可改變Form的大小

 

&H16CE0000

 

Max按鈕消失,鼠標仍可改變Form的大小

 

&H16CF0000

 

所有按鈕都有,滑數可改變大小、正常窗口

 

&H16D10000

 

出現水平滾動條、全部按鈕都沒有、無法改變窗口大小

 

&H16D50000

 

出現水平滾動條、全部按鈕都沒有、可以改變窗口大小

 

&H16D80000

 

出現水平滾動條、MaxMin按鈕消失、鼠標不能改變Form的大小

 

&H16D90000

 

出現水平滾動條、Min按鈕消失、鼠標不能改變Form的大小

 

&H16DA0000

 

出現水平滾動條、Max按鈕消失、鼠標不能改變Form的大小

 

&H16DB0000

 

出現水平滾動條、鼠標不能改變Form的大小

 

&H16DC0000

 

出現水平滾動條、MinMax按鈕消失,鼠標仍可改變Form的大小

 

&H16DD0000

 

出現水平滾動條、Min按鈕消失,鼠標仍可改變Form的大小

 

&H16DE0000

 

出現水平滾動條、Max按鈕消失,鼠標仍可改變Form的大小

 

&H16DF0000

 

出現水平滾動條、所有按鈕都有,滑數可改變大小、正常窗口

 

&H16E10000

 

出現垂直滾動條、全部按鈕都沒有、無法改變窗口大小

 

&H16E50000

 

出現垂直滾動條、全部按鈕都沒有、可以改變窗口大小

 

&H16E80000

 

出現垂直滾動條、MaxMin按鈕消失、鼠標不能改變Form的大小

 

&H16E90000

 

出現垂直滾動條、Min按鈕消失、鼠標不能改變Form的大小

 

&H16EA0000

 

出現垂直滾動條、Max按鈕消失、鼠標不能改變Form的大小

 

&H16EB0000

 

出現垂直滾動條、鼠標不能改變Form的大小

 

&H16EC0000

 

出現垂直滾動條、MinMax按鈕消失,鼠標仍可改變Form的大小

 

&H16ED0000

 

出現垂直滾動條、Min按鈕消失,鼠標仍可改變Form的大小

 

&H16EE0000

 

出現垂直滾動條、Max按鈕消失,鼠標仍可改變Form的大小

 

&H16EF0000

 

出現垂直滾動條、所有按鈕都有,滑數可改變大小、正常窗口

 

&H16F10000

 

出現水平滾動條、垂直滾動條、全部按鈕都沒有、無法改變窗口大小

 

&H16F50000

 

出現水平滾動條、垂直滾動條、全部按鈕都沒有、可以改變窗口大小

 

&H16F80000

 

出現水平滾動條、垂直滾動條、MaxMin按鈕消失、鼠標不能改變Form的大小

 

&H16F90000

 

出現水平滾動條、垂直滾動條、Min按鈕消失、鼠標不能改變Form的大小

 

&H16FA0000

 

出現水平滾動條、垂直滾動條、Max按鈕消失、鼠標不能改變Form的大小

 

&H16FB0000

 

出現水平滾動條、垂直滾動條、鼠標不能改變Form的大小

 

&H16FC0000

 

出現水平滾動條、垂直滾動條、MinMax按鈕消失,鼠標仍可改變Form的大小

 

&H16FD0000

 

出現水平滾動條、垂直滾動條、Min按鈕消失,鼠標仍可改變Form的大小

 

&H16FE0000

 

出現水平滾動條、垂直滾動條、Max按鈕消失,鼠標仍可改變Form的大小

 

&H16FF0000

 

出現水平滾動條、垂直滾動條、所有按鈕都有,滑數可改變大小、正常窗口

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章