hocam elinize sağlık bu da çok güzel olmuş ama eklediğim dosyakine göre farklı bir mantıkta çalışıyor.
size zahmet eklediğim dosyadaki Kutu25 ile Çizgi1'i 1veya2 cm sağa kaydırdıktan sonra kodu düzenleyebilirseniz çok sevinirim.
Formun Yarısını Gizleme
1 cm=567 twipstir yani sınırı 1-2 cm kaydırmak için belirtilen değere cm*567 eklemelisiniz
1 cm için 567
2 cm için 2*567 eklemelisiniz
Me.Kutu25.Left = 3525 + 567 '1 cm=567 twips
Me.Çizgi1.Left = 3628 + 567
1 cm için 567
2 cm için 2*567 eklemelisiniz
Me.Kutu25.Left = 3525 + 567 '1 cm=567 twips
Me.Çizgi1.Left = 3628 + 567
If Kutu25.Left > 3000 Then
Me.Metin22.SetFocus
Me.Komut6.Visible = False
Me.Resim0.Visible = True
Me.Resim29.Visible = False
Me.Etiket13.Visible = False
Me.Açılan_Kutu9.Visible = False
Me.Kutu25.Left = 5
Me.Çizgi1.Left = 100
Else
Me.Metin22.SetFocus
Me.Komut6.Visible = True
Me.Resim29.Visible = True
Me.Resim0.Visible = False
Me.Etiket13.Visible = True
Me.Açılan_Kutu9.Visible = True
Me.Kutu25.Left = 3525 + 567 '1 cm=567 twips
Me.Çizgi1.Left = 3628 + 567
End If
tıklama kodunu aşağıdaki kodla değiştirip dener misiniz?
Dim Dgr As Boolean ' yada Integer
If Kutu25.Left > 3000 Then Dgr = 0 else Dgr = -1
Me.Metin22.SetFocus
Me.Komut6.Visible = Dgr
Me.Resim29.Visible = Dgr
Me.Resim0.Visible = 1 + Dgr
Me.Etiket13.Visible = Dgr
Me.Açılan_Kutu9.Visible = Dgr
Me.Kutu25.Left = 5 - Dgr * (3520 + 567)
Me.Çizgi1.Left = 100 - Dgr * (3528 + 567)
Konuyu Okuyanlar: 1 Ziyaretçi