如何在Excel-Vba中的組合框上實現最小化功能？

有人請幫助Excel-Vba中的新手。我如何在組合框的右上方實現最小化功能，就像瀏覽器一樣？如何在Excel-Vba中的組合框上實現最小化功能？

2011-08-07 Vivian

當您按最小化按鈕時，您想要發生什麼？你想要窗戶去哪裏？ – jonsca

@jonsca隱藏在任務欄？不可能？ – Vivian

有點可能，但看到我的回答後我的回答 – jonsca

拖動切換按鈕修改到窗體，並在任何地方放置此代碼的模塊中。點擊切換到「最小化」，然後再次切換。玩數字來獲得你想要的高度和位置。

Dim dWidth As Double 
Dim wasTop, wasLeft As Integer 
Private Sub ToggleButton1_Click() 
    If ToggleButton1.Value = True Then 
     Me.Height = Me.Height * 0.25 
     wasTop = Me.Top 
     wasLeft = Me.Left 
     Me.Top = 400 
     Me.Left = 100 
    Else 
     Me.Height = dWidth 
     Me.Top = wasTop 
     Me.Left = wasLeft 
    End If 
End Sub 


Private Sub UserForm_Initialize() 
    dWidth = Me.Height 
End Sub

來源

2011-08-07 12:16:05 jonsca

@Vivian我想有一些例子，將盡量減少任務欄，但他們涉及一些欺騙看到[this]（http://www.mrexcel.com/forum例如，/showthread.php?t=66828）。這聽起來不像是非常可靠的。 – jonsca

@Vivian你有沒有得到這兩個例子的工作？ – jonsca

感謝您的關注。欣賞它:)你能看看我的另一個問題在這裏 - > http://stackoverflow.com/questions/6991742/any-drag-and-drop-api-feature-in-excel-vba – Vivian

如何在Excel-Vba中的組合框上實現最小化功能？

回答

相關問題