VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen API

API - Application Programming Interface
Yazılım Programlama Arayüz Uygulaması

VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen API

İleti#1)  Tarkan VURAL » 04 Arl 2008 16:47

Bu Apiler UserFormunuzun Görev çubuğunda gösterilmesini de sağlayacaksınız.

Bütün kodları ( en üste deklerasyonlar olmak üzere ) UserForm kod sayfasına ekleyin.

Kod: Tümünü seç
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 SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Const EVN_TASINMA = &H2 '
Private Const EVN_BOYUTLANMA = &H1 '
Private Const EVN_STIL = (-20) '
Private Const EVN_UST = 0 '
Private Const EVN_AKTIFDEGIL = &H10 '
Private Const EVN_GIZLE = &H80 '
Private Const EVN_GOSTER = &H40 '
Private Const EVN_PENCERE = &H40000 '
Private Const EVN_STILI = (-16) '
Private Const EVN_KUCULTBUTON = &H20000 '
Private Const EVN_BUYUTBUTON = &H10000 '
Private Const EVN_DEGIS = &H20 '
Dim hWnd As Long, WSTILI As Long, SONUC As Long


Kod: Tümünü seç
Function KucultButonuEkle() As Long
    hWnd = GetActiveWindow
    Call SetWindowLong(hWnd, EVN_STILI, _
        GetWindowLong(hWnd, EVN_STILI) Or EVN_KUCULTBUTON)
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, _
        EVN_DEGIS Or EVN_TASINMA Or EVN_BOYUTLANMA)
End Function


Kod: Tümünü seç
Function BuyutButonuEkle() As Long
    hWnd = GetActiveWindow
    Call SetWindowLong(hWnd, EVN_STILI, _
        GetWindowLong(hWnd, EVN_STILI) Or EVN_BUYUTBUTON)
    Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, _
        EVN_DEGIS Or EVN_TASINMA Or EVN_BOYUTLANMA)
End Function


Kod: Tümünü seç
Function GorevCubugundaGoster(Formum) As Long
    hWnd = FindWindow(vbNullString, Formum.Caption)
    WSTILI = GetWindowLong(hWnd, EVN_STIL)
    WSTILI = WSTILI Or EVN_PENCERE
    SONUC = SetWindowPos(hWnd, EVN_UST, 0, 0, 0, 0, _
        EVN_TASINMA Or EVN_BOYUTLANMA Or EVN_AKTIFDEGIL Or EVN_GIZLE)
        SONUC = SetWindowLong(hWnd, EVN_STIL, WSTILI)
        SONUC = SetWindowPos(hWnd, EVN_UST, 0, 0, 0, 0, _
        EVN_TASINMA Or EVN_BOYUTLANMA Or EVN_AKTIFDEGIL Or EVN_GOSTER)
End Function


Kod: Tümünü seç
Private Sub UserForm_Activate()
KucultButonuEkle
BuyutButonuEkle
Call GorevCubugundaGoster(Me)
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#2)  zfr10 » 26 Ağu 2011 02:40

Selamlar tarkan bey minimize olyını sayfa ilk açılışta ekranı kaplamasını istiyorum yardımcı olur musunuz
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 33
İleti: 138
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#3)  Tarkan VURAL » 26 Ağu 2011 03:02

Minimize olayı ayrı bir şey. Mi,nimize küçült butonu ekler. Sayfayı kaplaması için açılışta kullanılması gereken kod daha farklı bir şey. Açılışta Thisworkbook kod sayfasında Workbook_open olayına önce application.DisplayFullScreen=True yazarsınız ve Excel tam ekran olur. Sonra UserForm1.width = Application.width, UserForm1.height = application.height ile form büyüklüğünü tam ekran olan Excel programının büyüklüğüne eşitlersiniz.

Kod: Tümünü seç
Sub Workbook_Open
application.DisplayFullScreen=True
UserForm1.width = Application.width
UserForm1.height = application.height
End sub


Ayrıca lütfen özel isimlerin baş harfini büyük yazınız. [evet]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#4)  zfr10 » 26 Ağu 2011 15:31

Alakanız için teşekkür ederim.Kusura bakmayın bir dahakine küçük yazmam.
Kullanıcı avatarı
zfr10
Siteye Alışmış
 
Adı Soyadı:zafer konuk
Kayıt: 14 Şub 2010 03:53
Konum: bursa
Meslek: orman muhafaza memuru
Yaş: 33
İleti: 138
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/m.k.paşa

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

Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#5)  hakilkan » 18 Haz 2014 18:11

Merhabalar vermiş olduğunuz bu kodları yapmış olduğum program içerisinde kullanıyorum, fakat yapmış olduğum userform'un arka tarafında saklamış olan bir yığın textboxlar var. userformu büyük konuma getirdiğim anda arkada saklamış olduğum textboxlar ortaya çıkıyor. Benim istemiş olduğum görünümdeki alanı büyütüp küçültsün.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#6)  Tarkan VURAL » 18 Haz 2014 18:23

Saklanan nesnelerin visible özelliklerine false değeri verirseniz görünmezler.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#7)  hakilkan » 18 Haz 2014 18:27

Onu yaptım benim textboxlar ortada kalıyor yan tarafında büyük bir boş alan çıkıyor. Sorun bizim şirkette büyük ekran üzerinde çalışan arkadaşların olması büyük ekran olduğu için textboxlar yan tarafta boşta duruyor büyütme seçeneğinde textboxlarıda büyütme imkanı olabilirmi.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: VBA UserForm Üzerine Küçült Büyüt Butonları Ekleyen A

İleti#8)  Tarkan VURAL » 18 Haz 2014 19:14

Bu konuda Userformu büyütüp küçültme işlemi yapan kodlar var. Sizin istediğiniz işlem bu konu ile alakalı değil.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Excel ve API

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe