最小化按鈕，簡單的語言如何編寫按鈕以最小化視窗

現在新增乙個最小化按鈕。

但不新增就是新增最大化按鈕。

去掉標題欄，我們可能要為程式寫出最小化、最大化和關機操作提供**，如何實現這一點？

只需將 MouseListener 新增到按鈕並在 MouseClick 中呼叫它即可。

最小化。 if( =;;

最大化或正常狀態。;

要刪除標題欄，請執行以下操作：

這將從 jframe 中刪除視窗裝飾

設定窗體的屬性：

closeable=.f.只是你不能關閉按鈕是無效的minbutton=。f.只是最小化按鈕無效 mxnbutton=。f.只是最大化按鈕不起作用。

設計時，將視窗的 showintaskbar 屬性設定為 true，然後將 windowstate 設定為 vbminimized，請參見 **：：

private sub command1_click()= vbminimized

end sub

其工作原理如下：

問題分析：

如果窗體的 showintaskbar = true，則仍可以使用 windowstate 屬性將其最小化到工作列，但如果窗體的 showintaskbar = false，則會發生這種情況。 因此，當使用 windowstate 屬性最小化時，只需將 showInTaskBar 設定為 true。

解決方法 1：

輸入:private 子形式 load（）。'當表單載入時。

showintaskbar = true '使窗體顯示在狀態列中。

..其他**。

end sub

private sub command6 click（） 按鈕。

1 '最小化。

..其他**。

end sub

解決方法 2：

輸入 **:p rivate sub command6 click（） 單擊按鈕時。

showintaskbar = true '使窗體顯示在狀態列中。

1 '最小化。

..其他**。

end sub

私有子表單 resize（） 表單重置。

if <>1 then showintaskbar = false '，這樣表單就不會出現在狀態列中（恢復到原始狀態）。

..其他**。

end sub

首先，在窗體的屬性欄中設定 showintaskbar=true，然後複製以下內容。

private sub command6_click()= 1

end sub

我記得使用 windowstate 完全縮小到工作列。 我也剛剛測試了它。

如果它不起作用。 然後使用 API。

我知道。 你是無國界的形式。 然後使用 API。

哦，是的，有乙個好方法。

您可以將窗體的 showintaskbar 更改為 true，就可以開始了。

你要縮小到像QQ這樣的小圖示嗎？ **很多掉落不妨設定乙個熱鍵來隱藏顯示

在“屬性”框中，選擇“false！可以解決問題。

窗體的視窗樣式屬性中的 MaximizeBox 更改為 false

minimizebox 設定為 false

似乎無法關閉關閉按鈕。

在視窗樣式的表單上有乙個選擇，選擇視窗工具欄模式就可以了，但還是會有關閉的。

另一種方法是在繪製視窗時去掉標題欄，只顯示工作區，但隨後需要再寫乙個**來實現視窗的移動等。

好久沒用德爾福了，細節都記不清了。

.版本 2

元件 視窗元件 1

子例程 Startup Window 已建立。

啟動視窗。 設定托盤圖示（視窗圖示，“測試”）。'讓我們更改此處的圖示。

子例程啟動視窗是否可以關閉，邏輯啟動視窗。 職位 2

你也可以使用它。

啟動視窗。 視覺上是錯誤的。

返回 （False）。

該子例程啟動視窗托盤事件。

引數操作型別，整數。

引數操作型別說明：

指示使用者操作的型別，可以是以下值：1.左鍵點選; 2. 雙擊; 3. 單擊滑鼠右鍵。

當使用者單擊或雙擊此視窗中物件的“放置托盤圖示”方法設定的圖示時，將發生此事件。

判斷開始（操作型別 1）。

啟動視窗。 位置 1

你也可以使用它。

啟動視窗。 視覺。

違約。 審判結束。

在“屬性”中，將“最小化按鈕”更改為“True”。

.版本 2

單擊子程式按鈕 3。

職位 2

您所說的最大化最小化關閉按鈕將自動更改。