AccessTr.neT

Tam Versiyon: Controlleri Formun Ortasına Sabitlemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Public Function GetControlsWindowSize(tag As String)
    Dim f As Form
    Dim c As Control
    Dim GrpLeft As Long
    Dim GrpRight As Long
    Dim GrpTop As Long
    Dim GrpBottom As Long

        For Each c In f.Controls
            If c.Properties.Item("tag") = tag Then
                If GrpLeft = 0 Or GrpLeft > c.Left Then GrpLeft = c.Left
                If GrpRight = 0 Or GrpRight < c.Left + c.Width Then GrpRight = c.Left + c.Width
                If GrpTop = 0 Or GrpTop > c.Top Then GrpTop = c.Top
                If GrpBottom = 0 Or GrpBottom < c.Top + c.Height Then GrpBottom = c.Top + c.Height
            End If
        Next
End Function
bu kod ile kontrolleri form ortasına yerleştirebilir miyiz
Sonucu öğrenmeniz için denemeniz gerekmektedir.
Denedim olmadı
Muhtemelen ben yapamadım
yanlış anlamadıysam bu fonksiyon sadece bir grup nesnenin sağ-Alt ucunun koordinatlarını veriyor, bugün eklediğiniz bir örnek çalışmada kullanılıyordu,
ama çalıştıramadığınız dolayısıyla ne işe yaradığını bilmediğiniz kodu neden örnek uygulama bölümüne ekliyorsunuz?
kodun kullanıldığı çalışmayı ekleyip "ne işe yaradığını çözemedim  açıklar mısınız" diye sorabilirdiniz.
Denerken nasıl denediniz yani kodu nasıl yazdınız?
https://accesstr.net/konu-popup-formu-is...#pid170755
Bu konudaki ekte kullanılmış @feraz bey, açılacak formun çağıran nesnenin çevresinde açılmasını sagliyor
Sayfalar: 1 2 3