Skip to main content

AccessTr.neT


Formun Yarısını Gizleme

Formun Yarısını Gizleme

Çözüldü #1
merhaba,

ekli dosyadaki menü formunun ortasında bulunan siyah dikdörtgene tıklandığında formun sol tarafında bulunan fotoğraflı kısmın gizlenmesi tekrar tıklandığında açılması mümkün mü acaba, yada farklı bir şekilde.

Teşekkürler.
.rar DENEME_GİZLEME.rar (Dosya Boyutu: 3,09 MB | İndirme Sayısı: 5)
Cevapla
#2
Kutu25'in tıklandığında olayına aşağıdaki kodu yazarak deneyiniz.

Visual Basic Code
If Kutu25.Left = 3525 Then

Me.Metin22.SetFocus
Me.Komut6.Visible = False
Me.Resim0.Visible = False
Me.Etiket13.Visible = False
Me.Açılan_Kutu9.Visible = False
Me.Kutu25.Left = 5
Me.Çizgi1.Left = 100

ElseIf Me.Kutu25.Left = 5 Then

Me.Metin22.SetFocus
Me.Komut6.Visible = True
Me.Resim0.Visible = True
Me.Etiket13.Visible = True
Me.Açılan_Kutu9.Visible = True
Me.Kutu25.Left = 3525
Me.Çizgi1.Left = 3628

End If

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
hocam deneme dosyasında oldu güzel çalışıyor.

asıl dosyaya uyarladım yapamadım. 

Me.Metin22.SetFocus    olayını anlamadım ondan yapamadım burası asıl dosyada neye denk gelmeli bir açıklaması var mı acaba
Cevapla
#4
(03/09/2020 15:41)enginbeyy Adlı Kullanıcıdan Alıntı: hocam deneme dosyasında oldu güzel çalışıyor.

asıl dosyaya uyarladım yapamadım. 

Me.Metin22.SetFocus    olayını anlamadım ondan yapamadım burası asıl dosyada neye denk gelmeli bir açıklaması var mı acaba
Son Düzenleme: 03/09/2020, 16:55, Düzenleyen: enginbeyy.
Cevapla
#5
Formdaki herhangi bir metin kutusu olabilir.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
(03/09/2020 17:01)ozanakkaya Adlı Kullanıcıdan Alıntı: Formdaki herhangi bir metin kutusu olabilir.
tamam hocam

(03/09/2020 12:27)ozanakkaya Adlı Kullanıcıdan Alıntı: hocam bu değerleri nasıl bulucam

Me.Kutu25.Left = 3525
Me.Çizgi1.Left = 3628

(03/09/2020 12:27)ozanakkaya Adlı Kullanıcıdan Alıntı: ve bunları

Me.Kutu25.Left = 5
Me.Çizgi1.Left = 100
Son Düzenleme: 03/09/2020, 17:06, Düzenleyen: enginbeyy.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da