نوشته شده توسط
ab_ba
بهترین راه حل
1- برنامه تون را در 800 * 600 دیزاین کنین
2- دو متغیر ScreenWidth و ScreenHeight را بصورت Public تعریف کنید
3- اول برنامه کد زیر
ScreenWidth = Screen.Width
ScreenHeight = Screen.Height
4- تو load هر فرمی تابع زیر را صدا بزنید
Public Sub CFont()
On Error Resume Next
Dim OBJ As Object
Dim zoomw As Long
Dim zoomh As Long
zoomw = ScreenWidth / 120
zoomh = ScreenHeight / 90
Me.Width = Me.Width * zoomw / 100
Me.Height = Me.Height * zoomh / 100
For Each OBJ In Me.Controls
OBJ.Font.name = Main.fontbtext: OBJ.Font.size = OBJ.Font.size + Main.fontsizeb: OBJ.Font.Bold = Main.fontboldb
OBJ.Width = OBJ.Width * zoomw / 100
OBJ.Height = OBJ.Height * zoomh / 100
OBJ.Top = OBJ.Top * zoomh / 100
OBJ.Left = OBJ.Left * zoomw / 100
OBJ.Font.size = OBJ.Font.size * zoomw / 100
Next
End Sub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول