Çözüldü COMBOBOXTA USERFORM İÇERİSİNDE BULUNAN FRAMELERİ LİSTELEME

[zulfuernek]

Userform üzerinde bulunan frameleri comboboxta nasıl gösterebiliriz. (frameler visible=false durumunda) daha sonra bu comboboxta hangi frameyi seçiyorsak

Frame i .Height=324
Frame i .Left =318
Frame i .Top = 24
Frame i .Top =282
Frame i.Visible=True

yapmalı

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz

http://dosya.co/dl1jiecvmsfo/frame.zip.html

 

[zulfuernek]

@PLİNT hocam güncelledim. dosya ektedir. userfom 2 içerisinde

 

[PLİNT]

Gerçi "Userform" adı farketmez (mesajımdaki ek dosyada bulunan kodlar) "UserForm_Initialize" altında "combobox" a listeler ama örnek dosyanızı burayada http://dosya.co/ eklermisiniz, altın üye olmadığım için formdan indiremiyorum

 

[zulfuernek]

@PLİNT hocam ondan dolayı söylemedim. iki tane userform örnek dosyada. sizin bakacağınız userform 2 üzerindeki comboboxtur. saygılarımla. zaten frameleri göreceksiniz ordada

http://dosya.co/18owyf00s04q/NÜMİSMATİK_DEMO.xlsm.html

 

[PLİNT]

"Top" değerini biraz küçültmek gibi görünüyor
Denermisiniz
http://dosya.co/ihatoxv3kuis/Kopya_NÜMİSMATİK_DEMO.zip.html
Değişen dosyadaki gibi daha iyi görünüyor

 

[zulfuernek]

@PLİNT hocam ellerine sağlık. yalnız 1 eksiğimiz kaldı. aksine ben yanlış ifade ettim sanırım özür dilerim. comboboxta dediğim gibi franmeler listeleniyor ancak bu olayı framecaption olarak nasıl ayarlarız. yani1.emisyon 2.emisyon gibi

çünkü hangi gramenin hangi emisyona ait olduğunu bilemiyoruz

 

[PLİNT]

"Caption" ları ad olarak kullanabilirsiniz
http://dosya.co/j38a0ixnwcip/2NÜMİSMATİK_DEMO.zip.html

 

[zulfuernek]

@PLİNT hocam öyle yapıcaz artık biraz şekilsiz durucak ama önemli olan iş görmesi. çok çok teşekkür ellerinize sağlık

 

[PLİNT]

Şöylede yapabiliriz

http://dosya.co/jpdwlxby9iuu/4NÜMİSMATİK_DEMO.zip.html

Private Sub Image3_Click()
If Image3.Height = 90 Then
For Each a In Me.Controls
If a.Name <> "Image3" Then a.Visible = False
Next
Image3.Height = 198
Image3.Left = 210
Image3.Top = 90
Image3.Width = 492
Else
For Each a In Me.Controls
If TypeName(a) <> "Frame" Then a.Visible = True
Next
m = ComboBox1.Value
ComboBox1.Value = ""
ComboBox1.Value = m
Image3.Height = 90
Image3.Left = 648
Image3.Top = 24
Image3.Width = 90
End If

End Sub

Private Sub ComboBox1_Change()
For a = 0 To ComboBox1.ListCount - 1
For Each d In Me.Controls
If TypeName(d) = "Frame" Then
If d.Caption = ComboBox1.List(a) Then Me.Controls(d.Name).Visible = False
If ComboBox1.Value = d.Caption Then v = d.Name
End If
Next: Next
If ComboBox1.Value = "" Then Exit Sub
With Me.Controls(v)
.Height = 324
.Left = 318
.Top = 24
.Visible = True
End With

End Sub

Private Sub UserForm_Initialize()

For Each d In Me.Controls
If TypeName(d) = "Frame" Then
ComboBox1.AddItem d.Caption
End If
Next


'...
'... diğer kodlar
'....'

End sub

 

[zulfuernek]

@PLİNThocam harika oldu işte buuuu size ekteki dosyayı gönderdim nasıl bir ürün sergilediğinizi görmeniz için. sizden birricam daha var. son olarak bu bölümde. comboboxtan seçim yaptık diyelim ve sağ üstte tekli bir ımage nesnesi var.

şöye söyleyeyim combobxtan 1. emisyonu seçin daha sonda sol üstten üçüncü resmi seçince sağ taraftaki imagede resmin geldiğinii göreceksiniz. sağ taraftaki resim gelen image nesnesini tıklayın ve görün neler oluyor. resim büyüyor ancan büyüyünce userform üzerinde ne kadar nesne varsa nasıl gizli hale getirebilirim. imageye tekrar ıklayıncada küçülüyor.

 

[PLİNT]

büyüyünce userform üzerinde ne kadar nesne varsa nasıl gizli hale getirebilirim. imageye tekrar ıklayıncada küçülüyor.[/QUOTE]

Yukarıdaki (10 nolu) mesajdaki değişen kodları veya dosyayı deneyelim

("combobox" un manuel boşaltılması ihtimaline karşı düzeltme yapıldı)