MultiPage'de Sayfaya Göre UserForm Resize

Çoklu sayfa nesnesi. Nesne üzerindeki sayfa sayıları arttıralabiliyor.

MultiPage'de Sayfaya Göre UserForm Resize

İleti#1)  Murat OSMA » 16 Nis 2012 18:18

Projelerinizde MultiPage kullanıyorsanız ve UserForm'un sabit ebadından dolayı, MultiPage üzerindeki tüm sayfalarında aynı ebat olmasından şikayetçiyseniz; aşağıdaki kodları kullanarak MultiPage üzerindeki nesnelere göre, MultiPage'in her sayfası için UserForm'un ebadı ile oynayabilirsiniz.



Kodlar şu şekildedir;
Kod: Tümünü seç
Option Explicit: Option Compare Text
Private Const Evn = "ResizeGrab": Private Const MHide = "HideLabel"
Private WithEvents ResizeLB As MSForms.Label
Private WithEvents HideLB As MSForms.Label
Private XStartL!, YStartT!, Sx!, Sy!
Private PageWH
Private ResizingB As Boolean

Private Sub m_AddResizer()
    Set ResizeLB = Me.Controls.Add("Forms.label.1", Evn, True)
    With ResizeLB
        .BackStyle = fmBackStyleOpaque
        .Caption = "Evn"
        .WordWrap = False
        .Font.Bold = True
        .AutoSize = True
        .BorderStyle = 1
        .ControlTipText = "Boyutlandırın"
        .MousePointer = fmMousePointerSizeNWSE
        .ForeColor = RGB(200, 0, 0)
    End With
    Set HideLB = Me.Controls.Add("Forms.label.1", MHide, True)
    With HideLB
        .BorderStyle = 1
        .Caption = "Formu Gizle"
        .Font.Bold = True
        .AutoSize = True
        .ForeColor = RGB(0, 120, 0)
    End With
    SizeResize
End Sub

Private Sub HideLB_Click()
    Me.Hide
End Sub
Private Sub MultiPage1_Change()
    Dim wp%
    wp = MultiPage1.Value
    Me.Width = PageWH(0)(wp)
    Me.Height = PageWH(1)(wp)
    SizeResize
End Sub
Private Sub ResizeLB_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x!, ByVal Y!)
    If Button = 1 Then
        XStartL = x
        YStartT = Y
        ResizingB = True
        Sx = Me.Width
        Sy = Me.Height
    End If
End Sub
Private Sub ResizeLB_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x!, ByVal Y!)
     
    If Button = 1 Then
        With ResizeLB
            .Move .Left + x - XStartL, .Top + Y - YStartT
            Me.Width = Me.Width + x - XStartL
            Me.Height = Me.Height + Y - YStartT + 8
        End With
    End If
    SizeResize
End Sub
Sub SizeResize()
    If Not ResizeLB Is Nothing Then
        If Me.InsideWidth > 15 Then MultiPage1.Width = Me.InsideWidth - 3
        If Me.InsideHeight > 20 Then MultiPage1.Height = Me.InsideHeight - 12
        With ResizeLB
            .Top = Me.InsideHeight - .Height
            .Left = Me.InsideWidth - .Width
        End With
        With HideLB
            .Top = Me.InsideHeight - .Height
            .Left = ResizeLB.Left - .Width - 15
        End With
    End If
End Sub

Private Sub ResizeLB_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x!, ByVal Y!)
    Dim cc%, kT%, Kw%, wp%
    If Button = 1 Then
        ResizingB = False
    End If
    wp = MultiPage1.Value
    PageWH(0)(wp) = Me.Width
    PageWH(1)(wp) = Me.Height
    SizeResize
End Sub

Private Sub UserForm_Initialize()
    Dim Wd, Ht
    Wd = Array(200, 240, 250, 500)
    Ht = Array(400, 240, 250, 200)
    PageWH = Array(Wd, Ht)
    m_AddResizer
     
End Sub
Private Sub UserForm_Terminate()
    Me.Controls.Remove Evn
    Me.Controls.Remove MHide
End Sub

Örnek dosyayı da ekliyorum...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#2)  Erhan Yavuz » 16 Nis 2012 23:05

Sağol Murat, eline sağlık.. şkşk [evet]
☾✭ 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 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#3)  Tarkan VURAL » 17 Nis 2012 00:06

Vay, vay, vay. WithEvent' ler, Compare 'ler, ünlemler filan. şkşk
Eline sağlık Murat. :) --)(
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27005
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#4)  Murat OSMA » 27 Haz 2012 11:05

Teşekkürler abilerim... [op] --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#5)  Bülent » 27 Haz 2012 11:15

Harikasın Murat. şkşk
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#6)  Murat OSMA » 07 Mar 2013 09:43

Eyvallah abicim. O senin harikalığın... [fısıltı] :D
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#7)  Ozan İLGÜN » 15 Nis 2013 19:58

Gerçekten çok yararlı olmuş. Çok kişinin işine yarayacak. Teşekkürler
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#8)  Murat OSMA » 15 Nis 2013 20:02

Dosyayı ekleyeli 1 yıl oldu ama, yönetim dışında sizden başka üyeden bir yanıt gelmediğine göre pek yararlı bir çalışma olmamış. [ilginc] ;;_)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#9)  Enes Recep BAĞ » 15 Nis 2013 20:08

Murat Bey elinize,bilginize sağlık bunu önceden görmeliydim. [uzgun]
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#10)  Murat OSMA » 15 Nis 2013 20:10

Enes Bey, görmek için önce bakmak gerek. ;;_)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14338
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#11)  Ozan İLGÜN » 15 Nis 2013 22:17

Murat OSMA yazdı:Dosyayı ekleyeli 1 yıl oldu ama, yönetim dışında sizden başka üyeden bir yanıt gelmediğine göre pek yararlı bir çalışma olmamış. [ilginc] ;;_)
Hiç öyle olurmu. Öyle olsa 45 defa indirilmezdi. :) [TESEKKÜR]
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#12)  Eradu » 22 Ekm 2016 13:30

Murat Bey,
Ellerinize sağlık şkşk şkşk şkşk şkşk şkşk
Kullanıcı avatarı
Eradu
Yeni Başlamış
 
Kayıt: 05 Ekm 2016 21:37
Meslek: Satınalma Sorumlusu
Yaş: 39
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#13)  kilichayat » 16 May 2019 15:12

Saygı Değer Hocalarım Verdiğiniz Bilgiler İçin Çok Teşekkür Ederim. Verdiğiniz Örnek Dosyaya 1 Sayfa Daha Ekledim Ama Hata Veriyor. Ve Userform a 5 Adet CommandButton Ekledim İster İstemez Userform' un Boyutunu Değiştirmek Zorunda Kaldım. Lakin Bu Seferde Formu Gizle Ve Evn Adlı label'er görünmüyor. Ne Yapmam Gerekiyor Dosyayı Ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kilichayat
Yeni Başlamış
 
Kayıt: 17 Nis 2018 11:14
Meslek: serbert
Yaş: 40
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana / seyhan

Cevap: MultiPage'de Sayfaya Göre UserForm Resize

İleti#14)  malatyali » 17 May 2019 22:35

üstad ellerine sağlık.
Paylaşım için teşekkürler. Bizde dosyayı indirdik. Emek senin emek, hakkını helal et üstad
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez


Forum MultiPage

Online Kullanıcılar

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

Bumerang - Yazarkafe