UserForm Tam Ekran ( Nesnelerle )

Kulanıcı arayüz formu

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#41)  TAHİR ARSLAN » 25 Şub 2015 15:37

UserForm tam ekran (*)
Lütfen denermisiniz.

Kod: Tümünü seç
Private Declare Function GetSystemMetrics Lib _
   "user32" (ByVal nIndex As Long) As Long
Private Const SM_CYSCREEN As Long = 1
Private Const SM_CXSCREEN As Long = 0
'Position
Private Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, ByVal _
      lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd _
      As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
      ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub UserForm_Activate()
   BildschirmBreite = GetSystemMetrics(SM_CXSCREEN)
   BildschirmHöhe = GetSystemMetrics(SM_CYSCREEN)
   wHandle = FindWindow(vbNullString, Me.Caption)
   MoveWindow wHandle, 0, 0, BildschirmBreite, BildschirmHöhe, 1
End Sub



(*) Alıntıdır.
Kullanıcı avatarı
TAHİR ARSLAN
 
Kayıt: 28 Eyl 2014 23:21
Meslek: EMEKLİ BANKACI
Yaş: 58
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ADANA

UserForm Tam Ekran ( Nesnelerle )

İleti#42)  bktsklc » 23 Şub 2017 18:48

Tarkan VURAL yazdı:Ben yanıtlayayım. Tam ekrandan geri gelmekteki amaç ne anlamadım ama istediğiniz kod şu şekilde olmalı :

Kod: Tümünü seç
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
Dim or1 As Long, or2 As Long
Private Sub CommandButton1_Click()
Me.Width = or1
Me.Height = or2
        For Each MyCtrl In Me.Controls
            MyCtrl.Top = MyCtrl.Top / CY
            MyCtrl.Left = MyCtrl.Left / CX
            MyCtrl.Width = MyCtrl.Width / CX
            MyCtrl.Height = MyCtrl.Height / CY
            On Error Resume Next
                MyCtrl.Font.Size = MyCtrl.Font.Size / CY
            On Error GoTo 0
        Next
CommandButton1.Enabled = False
End Sub


Kod: Tümünü seç
Private Sub UserForm_Initialize()
gerial
        X1 = Application.Width
        Y1 = Application.Height
        X2 = Me.Width
        Y2 = Me.Height
        CX = X1 / X2
        CY = Y1 / Y2
        Me.Width = X1
        Me.Height = Y1
        For Each MyCtrl In Me.Controls
            MyCtrl.Top = MyCtrl.Top * CY
            MyCtrl.Left = MyCtrl.Left * CX
            MyCtrl.Width = MyCtrl.Width * CX
           MyCtrl.Height = MyCtrl.Height * CY
            On Error Resume Next
                MyCtrl.Font.Size = MyCtrl.Font.Size * CY
            On Error GoTo 0
        Next
End Sub


Kod: Tümünü seç
Public Function gerial() As Long
or1 = Me.Width
or2 = Me.Height
End Function


UserForm için daha önce verdiğimiz kodları silip bunları yazınız. UserForm üzerine bir CommandButton ekleyerek UserForm açıldığında bu CommandButton 'u tıklayınız.

Saygılarımızla,


Merhaba,

Tarkan hocamın yukarıda ki kodlarını Userform a uyguladım boyutlandırma bakımından gayet güzel çalıştı ( hemde farklı monitörlerde ) ancak Userformun içerisinde ki Listbox ın sütunları birbirine girdi, yani sütun genişlikleri Userform ile aynı oranda azalıp artmadı. Büyüdü küçüldü ama birbirine girdi. Bu sorunu çözmek için nasıl bir müdahale yapmak gerekir kodlara ?
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#43)  bktsklc » 24 Şub 2017 11:55

Varmı fikri olan arkadaşım [ilginc]
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#44)  bktsklc » 10 Mar 2017 16:53

Aslında hala cevap beklediğim bir konudur.
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#45)  Erhan Yavuz » 11 Mar 2017 16:50

Merhaba arkadaşlar;

Ben yaptığım oyunlarda bu kodları çok kullandım.. Userform ve üzerinde tanımlanmış bir çok nesnede boyutların tam ekran veya orijinal boyutlarına döndürmeleri konusunda çalışıyor ancak bazı istisnalarda oluyor tabii

Kodların asıl önemli kısmı;
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1

Ekran en ve uzunluğunda elde edilen CX ve CY sabitleri.

Hazırladığınız Userformda kullanacağınız nesnelerin boyutunu program içersinde belirler ve CX, CY kriterleri ile çarparsanız, tam ekran sırasında tün nesneler orantılı olarak büyür.. Sonra orijinal haline getirirken de bölmeniz lazım..

Deneyin, benim çalışmalarımda çalıştı..
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#46)  bktsklc » 12 Mar 2017 15:01

Erhan hocam öncelikle ilginize çok teşekkür ederim,
Bu kodlarla nesneleri büyütüp küçültebildim ancak Listbox genişleyince sütunlar genişlemedi dolayısıyla sütunlar üst üste geldi, bu sorunu bir ekran için sabit bir çarpanlarla çözdük ancak bu defa da başka ekran boyutlarında sorun oldu görselde. Listbox da ki sütunları da aynı oranda genişletip daraltamazmıyız diye olacak sorum.
Size ve ilgilenen herkese teşekkür ederim.
İyi çalışmalar.
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#47)  alcetas » 12 Mar 2017 15:28

Verilerinizi doğru ve hızlı bir biçimde alabiliyorsanız Excele minnet gösterip, fazla kurcalamayın. Görsel konularla uğraşmak yerine işlerinizi daha kolaylaştıracak bilmediğiniz kodlamları merak edin. Exceli yardımcı olarak kullanın. İşin görsel kısmıyla uğraşmak size bir şey kazandırmayacaktır.
Kullanıcı avatarı
alcetas
Siteye Alışmış
 
Kayıt: 05 Ağu 2016 17:47
Meslek: Bütçe
Yaş: 38
İleti: 381
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#48)  bayramagdaci » 13 Mar 2017 14:20

Erhan Yavuz yazdı:Merhaba arkadaşlar;

Ben yaptığım oyunlarda bu kodları çok kullandım.. Userform ve üzerinde tanımlanmış bir çok nesnede boyutların tam ekran veya orijinal boyutlarına döndürmeleri konusunda çalışıyor ancak bazı istisnalarda oluyor tabii

Kodların asıl önemli kısmı;
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1

Ekran en ve uzunluğunda elde edilen CX ve CY sabitleri.

Hazırladığınız Userformda kullanacağınız nesnelerin boyutunu program içersinde belirler ve CX, CY kriterleri ile çarparsanız, tam ekran sırasında tün nesneler orantılı olarak büyür.. Sonra orijinal haline getirirken de bölmeniz lazım..

Deneyin, benim çalışmalarımda çalıştı..

Teşekkürler ..
Kullanıcı avatarı
bayramagdaci
İstenmeyen Üye
 
Kayıt: 15 Ağu 2016 11:28
Meslek: ziraat mühendisi
Yaş: 31
İleti: 117
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#49)  Erhan Yavuz » 14 Mar 2017 11:55

bktsklc yazdı:Erhan hocam öncelikle ilginize çok teşekkür ederim,
Bu kodlarla nesneleri büyütüp küçültebildim ancak Listbox genişleyince sütunlar genişlemedi dolayısıyla sütunlar üst üste geldi, bu sorunu bir ekran için sabit bir çarpanlarla çözdük ancak bu defa da başka ekran boyutlarında sorun oldu görselde. Listbox da ki sütunları da aynı oranda genişletip daraltamazmıyız diye olacak sorum.
Size ve ilgilenen herkese teşekkür ederim.
İyi çalışmalar.


Bence döngü Prosedürleri yaratarak her yeni ekran açılışında Listbox'ları yeniden tanımlamak gerekebilir..
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: UserForm Tam Ekran ( Nesnelerle )

İleti#50)  tolgagursel » 24 Ağu 2018 05:06

selam

tam ekran kodu yapmaya çalıştığımda başka bir (Private Sub UserForm_Initialize()) ile çakışma oluyor ve tam ekrana geçmiyor nasıl yapabiliriz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tolgagursel
Yeni Başlamış
 
Kayıt: 19 Ekm 2017 13:48
Meslek: bilgisayar operatörü
Yaş: 28
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: arnavutköy

Önceki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe