20/02/2011, 23:05
Sayfalar: 1 2
20/02/2011, 23:09
Teşekkür Ederim =)
24/02/2011, 01:26
'1024 ve 768 şu an ki ekran çözünürlüğüm.
Dim SimdikiWidth As Integer = 1024
Dim SimdikiHeight As Integer = 768
'Form(ların)un loadına yazılan kodlar.
Dim ClientCozunurluk As New Rectangle()
ClientCozunurluk = Screen.GetBounds(ClientCozunurluk)
Dim OranWidth As Single = ClientCozunurluk.Width / SimdikiWidth
Dim OranHeight As Single = ClientCozunurluk.Height / SimdikiHeight
Me.Scale(New SizeF(OranWidth, OranHeight))
Ana form içinde diğer formlar bir kereden fazla açılacaksa; açılan formun her seferinde load bölümüne gelindiğinde nesneler giderek büyür. Bunun olmaması için bunu bi prosedür haline getirip basit kontrollerle çözünürlüğün sadece bir kere ayarlanması sağlayabilirsin.
Kolay gelsin.
Dim SimdikiWidth As Integer = 1024
Dim SimdikiHeight As Integer = 768
'Form(ların)un loadına yazılan kodlar.
Dim ClientCozunurluk As New Rectangle()
ClientCozunurluk = Screen.GetBounds(ClientCozunurluk)
Dim OranWidth As Single = ClientCozunurluk.Width / SimdikiWidth
Dim OranHeight As Single = ClientCozunurluk.Height / SimdikiHeight
Me.Scale(New SizeF(OranWidth, OranHeight))
Ana form içinde diğer formlar bir kereden fazla açılacaksa; açılan formun her seferinde load bölümüne gelindiğinde nesneler giderek büyür. Bunun olmaması için bunu bi prosedür haline getirip basit kontrollerle çözünürlüğün sadece bir kere ayarlanması sağlayabilirsin.
Kolay gelsin.
Sayfalar: 1 2