userformu nasıl minimize olur

[cobanoglu]

userformu nasıl minimize ve tam ekran yapabilirim aradım ama bulamadım

 

[algil]

Sn cobanoğlu
Aşağıdaki kodu deneyin

Private Declare Function FindWindowA Lib "User32" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "User32" _
   (ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "User32" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
   Private Declare Function SetWindowLongA Lib "User32" _
   (ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long
 
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

 

[cobanoglu]

sn:algil bu işimi gördü teşekkürler peki formu diğer pencereler gibi görev çubuğuna indiremezmiyim

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=21611&highlight=userform+taskbar