asdsxx
Altın Üye
- Katılım
- 22 Mayıs 2012
- Mesajlar
- 491
- Excel Vers. ve Dili
- Excel 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Arkadaşlar userForm ilk açılışta tam ekran olarak açılabilmesi için interneti gezinirken aşağıdaki kodlar ile
Formu bir noktaya kadar geldim ama ilk açılışta full olarak gelmiyor. Ben aşağıdaki ekran görüntüsü şeklinde gelmesini istiyorum.
Kod
Form: aşağıdaki şekilde açılıyor
Yukarıdaki koda aşağıdaki şekilde açılması için nasıl bir ekleme gerekiyor.
Not: Bunu ekranı büyüklüğü farklı bilgisayarlarda hep ekrana sığması ve tam ekran olması için yapıyorum.
Formu bir noktaya kadar geldim ama ilk açılışta full olarak gelmiyor. Ben aşağıdaki ekran görüntüsü şeklinde gelmesini istiyorum.
Kod
Kod:
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare PtrSafe 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
Yukarıdaki koda aşağıdaki şekilde açılması için nasıl bir ekleme gerekiyor.
Not: Bunu ekranı büyüklüğü farklı bilgisayarlarda hep ekrana sığması ve tam ekran olması için yapıyorum.
Ekli dosyalar
-
6.9 KB Görüntüleme: 8
-
7.1 KB Görüntüleme: 9