Formu Ekranın Belli Kenarlarına Oturtabilir miyiz?

[Taruz]

Merhaba..

Konularda epey arama yaptım fakat sonuç alamadım. Gözden kaçmışta olabilir...

Formu ekranın, diyelim ki sağına ve ortasına veya üstte sola vb. şekillerde açılmasını sağlayabilir miyiz?

İyi Günler..

 

[modalı]

Sayın Taruz,

Bu konu işlenmişti. Eklenen uygulamanın adı ise formun_açılacağı_yeri_ayarlama Herneyse kodları tekrar veriyorum:

Private Sub Form_Load()
Dim x, y, a, h As Integer
 
     DoCmd.MoveSize x, y, a, h 'Burada x pixel olarak sol kenardan uzaklık, y üsten uzaklık a form genişliği, h form yüksekliği.
EnableCtrls (True)
End Sub

Function EnableCtrls(durum As Variant)
    Dim ctrl As Control
    
    For Each ctrl In Forms.frmAçılış.Controls
        ctrl.Enabled = durum
        On Error Resume Next
        ctrl.Enabled = Not (durum)
    Next
    
End Function
Private Sub Form_Unload(Cancel As Integer)
EnableCtrls (False)
End Sub

İyi çalışmalar

 

[Taruz]

Sayın modalı, teşekkür ederim...

Gözden kaçırmışım demek ki..

Hemen deniyorum..

 

[tamer42]

Sayın Taruz,

Bu konu işlenmişti. Eklenen uygulamanın adı ise formun_açılacağı_yeri_ayarlama Herneyse kodları tekrar veriyorum:

Function EnableCtrls(durum As Variant)
    Dim ctrl As Control
    
    For Each ctrl In [COLOR=red][B]Forms.frmAçılış.Controls[/B][/COLOR]
        ctrl.Enabled = durum
        On Error Resume Next
        ctrl.Enabled = Not (durum)
    Next
    
End Function

Sn Modalı ,

bu konun işlendiği linki yada bir örnek ekleyebilirmisiniz.

Epey uğraştım fakat bir netice alamadım, boyut hiç değişmiyor.

Buradaki Forms.frmAçılış.Controls ifadesini çözemedim.

Teşekkürler.

İyi çalışmalar..

 

[modalı]

Sayın tamer42,

Örneği ekliyorum.

İyi çalışmalar

 

[hozzeybek]

selam
ben şu şekilde yapıyorum
formun açıldığında olay yordamına
DoCmd.MoveSize 3700, 3700 (rakamlar piksel cinsinden)

 

[tamer42]

Sn Modalı ilginize teşekkürler;

Yalnız bu örnek Raporla ilgili,

Ben Formun boyutunu ayarlamayı sormuştum..

İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Özür dilerim yanlış uygulamayı eklemişim.

 

[tamer42]

Sn Modalı bu form boyutunun ayarlamasında;

Özelliklerden bir ayar mı yapmak gerekiyor?

Bu form da Neden olmuyor,


Form2 adlı ana form ' da Ben bir AltForm Form1 ekledim.

Alt Formu Göster etiket kutusuna tıkladığımda; Altformun olduğu alan Form1 görünecek şekilde açılacak (Form2 aşağı doğru genişeyecek)

Alt Formu Gizle etiket kutusuna tıkladığımda; Altformun olduğu alan Form1 görünmeyecek şekilde kapanacak (Form2 yukarı doğru daralacak)
İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Kafanız biraz karışık galiba.

 

[tamer42]

Sn Modalı;

doğru kafam epey karışık Yalnız sizin kafanızı fazla karıştırmamışımdır inşallah.

Aklıma yeni gelen bir hususu sormak istiyorum.

Biliyorsunuz Formda, Yukarıdan aşağı;

---------------------------

1..Form Header

---------------------------

2..Detail

---------------------------

3..Form Footer

---------------------------

olarak 3 ayrı alan var.


Form üzerinde yukarıda ilk iki alanın sabit olarak kalması, sadece Form Footer alanının gizlenip görünmesi sağlanabilirmi?
Sonuçta bu şekilde de Altform gizlenip açılabilir.

Teşekkürler,
İyi Çalışmalar.