(28/11/2018, 11:32)ozanakkaya yazdı: 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.
Bunu denemiştim. koddaki 0 bu denemeden kalmıştı. +50 eklediğimde ekranın soldan ve üstten 50 twips sola ve aşağıya kaydırıyor. fakat bu kez sağ ve sağ alt kısmı ekranın dışına taşıyor. ya yukarıda verilen kodlarda bir revizyon yapacağız yada modülde bu 50 twipslik küçülmeyi formun 4 kenarına uygulayacağız. benim denemelerim devam ediyor. malum çalıştığım için ancak akşam evde deneme şansım oluyor.
bir de projenin tasarımı, kullanım şekli hakkında yorumlarınızı ve önerilierinizi duymak isterim.
saygılarımla,