form düğmeleri

Katılım
1 Mart 2005
Mesajlar
71
selamlar
userform üzerindeki minimze,tam ekran düğmelerini nasıl yerleştiririz ayrıca birer örnekle bunların kullanım şeklini tarfi edermisiniz
saygılar
 
Katılım
23 Şubat 2005
Mesajlar
303
bu dugmeleri ekleyemezsiniz sanırım bunlar visual basicte UserFormun Ã?zellikler kısmından seçilerek yapılıyor.
 
X

xxrt

Misafir
Sayın Raider'in verdiği kodları UserForm'un kod sayfasına yapıştırın.
[vb:1:52a5866b80]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) 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 ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
'
Private Sub UserForm_Activate()
Dim hWndForm As Long, frmStyle As Long
hWndForm = FindWindow(vbNullString, Me.Caption)
frmStyle = GetWindowLong(hWndForm, (-16))
frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000
SetWindowLong hWndForm, (-16), frmStyle
ShowWindow hWndForm, 5
DrawMenuBar hWndForm
End Sub [/vb:1:52a5866b80]
 
Katılım
1 Mart 2005
Mesajlar
71
selamlar
yardımlarınız için çok teşekkürler ancak form üzerindeki nesnelere atanan kodlar isteğime cevap vermedi
simge nesnesi küçülttüğmüde aşşağı inmiyor ve yarım kalıyor
saygılar
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sanırım Sn Raider'in yukarıdaki kodlarını denemediniz. Ekte kodların uygulanmış halini sunuyorum. Bu kodlar tam sizin istediğiniz gibidir.
 
Katılım
1 Mart 2005
Mesajlar
71
Sanırım Sn Raider'in yukarıdaki kodlarını denemediniz
kodlar ile ekli dosyanın aynı olduğunu sanmıştım özür.
verdiğiniz kodlar için çok teşekkür ederim işimi fazlasıyla gördü tek kelimeyle çok güzel
 
Katılım
18 Ağustos 2005
Mesajlar
85
Excel Vers. ve Dili
EXCEL 2003
Altın Üyelik Bitiş Tarihi
28.01.2022
"user32" neyi ifade ediyor? Birkaç yerde daha karşıma çıkmıştı, hata veriyorda?
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Birkaç yerde daha karşıma çıkmıştı, hata veriyorda?
Hangi satırda hata veriyor ve ne hatası ?
 
Üst