Skip to main content

AccessTr.neT


Farklı Ekran Çözünürlüğünde Tasarımı Çalıştırmak

Farklı Ekran Çözünürlüğünde Tasarımı Çalıştırmak

#5
Merhaba, AnaForm isimli formdaki 


Private Sub Form_Resize()
    Dim fw As New clFormWindow
    
    'If Me.WindowWidth <= 1920 Then
        fw.hWnd = Me.hWnd
        fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)
        fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)
        Set fw = Nothing

    'End If
End Sub

Şeklindeki koddaki 

fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)
fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)

kodunu

fw.Left = (fw.Parent.Left + fw.Parent.Width) - (fw.Width + 0)+50
fw.Top = (fw.Parent.Top + fw.Parent.Height) - (fw.Height + 0)+50

şeklinde değiştirerek deneyiniz. Bu şekilde form 50 twips sol ve aşağıda görünür.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Farklı Ekran Çözünürlüğünde Tasarımı Çalıştırmak - Yazar: ozanakkaya - 28/11/2018, 11:32