UserForm Ekranı Kaplamasın

[Seyit Tiken]

Herkese selamlar,
UserForm'un Ekranı Kapla(doldurma) özelliğini etkisizleştirme(pasif) yapılabilir mi? Sadece UserForm'u Minimize eden özellik çalışsın, aktif olsun. Birde böyle bir şeyde mümkün olablir mi? : Form'un Çarpı işaretine basıldığı zaman, Form Minimize olsun. İlgili dosya ekte. Şimdiden katkısı olan herkese teşekkür ediyorum.

 

[Levent Menteşoğlu]

Mevcut kodları silip aşağıdaki kodları kullanın.

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) 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

 

[Seyit Tiken]

Teşekkür ediyorum tek kelimeyle süper. Saygı ve sevgilerimi sunuyorum...