UserFormu Alta Alma Kodu...

[security]

Merhaba Sorunum Su Excelde UserFormu Bir Buton Yada Labele Tıklayarak Alta Alma Ve Ekrana Çagırma Kodu Varmı? Tşk...
(Minbuton)

 

[Zeki Gürsoy]

Merhaba,

Sanırım uçuk tasarımlar peşindesiniz...

 

[security]

Merhaba,

Sanırım uçuk tasarımlar peşindesiniz...

Zeki Hocam Örnek dosya İçin teşekürler Bir sorum Daha olacak Benim Kullanacagım dosyada Başlık yok Yani Bu _ [] x İşareleri Olmayacak .Caption bölümü Çıkmayacak ama Butonla Formu minimize etmem gerek Kodla değişiklik nasıl olabilir. tşk. tekrar...

 

[Zeki Gürsoy]

Anladım. Başlıksız form için aşağıdaki yapı kullanılıyor. Montaj işini size bırakıyorum.

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long


Private Sub UserForm_Activate()
Dim lngFormHwnd As Long
Dim lngFormStyle As Long

If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, (-16))
lngFormStyle = lngFormStyle And Not &H800000
SetWindowLong lngFormHwnd, (-16), lngFormStyle
DrawMenuBar lngFormHwnd
End Sub