Skip to main content

AccessTr.neT


Controlleri Formun Ortasına Sabitlemek

Controlleri Formun Ortasına Sabitlemek

Çözüldü #1
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
@benbendedeilem
Cevapla
#2
Sonucu öğrenmeniz için denemeniz gerekmektedir.
Cevapla
#3
Denedim olmadı
Muhtemelen ben yapamadım
@benbendedeilem
Cevapla
#4
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.
Cevapla
#5
Denerken nasıl denediniz yani kodu nasıl yazdınız?
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task