Userformu İÇİn Yardim

[cdroy1]

arkadaşlar iyi akşamlar
formdaki bilgiler doğrultusunda yapmaya çalıştığım bi arayüz formunda dosyayı açınca otomatik açma kodundan dolayı sadece ekrana arayüz geliyor
benim sorum bu arayüze simge durumunda küçüt ve küçült tuşları koyulabilirmi böyle bişey varsa yardımcı olusanız sevinirim şimdiden teşekkürler

 

[prodigy]

acaba istediğiniz böyle bir şeymi?
userforma 3 tane image oluşturup bunları yazın

Private Sub Image1_Click()
UserForm1.Height = 6
End Sub
Private Sub Image2_Click()
UserForm1.Height = 650
End Sub
Private Sub Image3_Click()
Unload UserForm1
End Sub

 

[prodigy]

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
Private Sub Image1_Click()
UserForm1.Height = 6
End Sub
Private Sub Image2_Click()
UserForm1.Height = 650
End Sub
Private Sub Image3_Click()
Unload UserForm1
End Sub

 

[bedersu]

***.....****

 

[cdroy1]

teşekkür ederim
gönderdiğin kodu denedim saol bunu kullanıyorum
inan imajın ne olduğunu çözene kadar terledim yeni olmak çok kötü bişi ya :roll:

 

[cdroy1]

ikinci gönderdiğin için FindWindow hatası veriyor aceba sebebi ne olabilir kusura bakma fazlada yormak istemiyorum

 

[prodigy]

kusura bakmayın bazen forum kurallarınada uymadan soruyu tam okumayıp acele ile cevap gönderiyorum. orada image değil komut butonu diyecektim. image bu butonların üzerine yerleştireceğiniz şey

 

[prodigy]

Findwindow hatası için
bir modüle oluşturarak bunları oraya kopyalayın


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

 

[cdroy1]

teşekkür ederim harika bişey oldu eline sağlık