Independent Video Resolution

Posted on 1998-12-03
Last Modified: 2012-05-04
I need run my Aplication, independent of Video Resolution and fonts definations...
Question by:hasabin
LVL 13

Expert Comment

ID: 1448000
Fine, for you. Create it in 640x480
LVL 14

Accepted Solution

waty earned 100 total points
ID: 1448001
Try this class :

' Name: class_Elastic
' Description:This class can change size and location of controls
'  on your form
' 1. Resize form
' 2. Change screen resolution

' By: Mikhail Shmukler
' Inputs:None
' Returns:None
' Assumes:1. Add Elastic.cls
'2. Add declaration 'private clsElastic as New class_Elastic'
'3. Insert string like 'clsElastic.init Me' (formload event)
'4. Insert string like 'clsElastic.FormResize Me' (Resize event)
'5. Press 'F5' and resize form ....

Option Explicit
Private iFormHeight      As Integer
Private iFormWidth       As Integer
Private iNumOfControls   As Integer
Private iTop()           As Integer
Private iLeft()          As Integer
Private iHeight()        As Integer
Private iWidth()         As Integer
Private iFontSize()      As Integer
Private iRightMargin()   As Integer
Private bFirstTime       As Boolean

Sub Init(FormName As Form, Optional WindState)
   Dim I         As Integer
   Dim WinMax    As Boolean
   WinMax = Not IsMissing(WindState)
   iFormHeight = FormName.Height
   iFormWidth = FormName.Width
   iNumOfControls = FormName.Controls.Count - 1
   bFirstTime = True
   ReDim iTop(iNumOfControls)
   ReDim iLeft(iNumOfControls)
   ReDim iHeight(iNumOfControls)
   ReDim iWidth(iNumOfControls)
   ReDim iFontSize(iNumOfControls)
   ReDim iRightMargin(iNumOfControls)
   On Error Resume Next
   For I = 0 To iNumOfControls
      If TypeOf FormName.Controls(I) Is Line Then
         iTop(I) = FormName.Controls(I).Y1
         iLeft(I) = FormName.Controls(I).X1
         iHeight(I) = FormName.Controls(I).Y2
         iWidth(I) = FormName.Controls(I).X2
         iTop(I) = FormName.Controls(I).Top
         iLeft(I) = FormName.Controls(I).Left
         iHeight(I) = FormName.Controls(I).Height
         iWidth(I) = FormName.Controls(I).Width
         iFontSize(I) = FormName.FontSize
         iRightMargin(I) = FormName.Controls(I).RightMargin
      End If
   If WinMax Or FormName.WindowState = 2 Then ' maxim
      FormName.Height = Screen.Height
      FormName.Width = Screen.Width
      FormName.Height = FormName.Height * Screen.Height / 7290
      FormName.Width = FormName.Width * Screen.Width / 9690
   End If
   bFirstTime = True
End Sub

Sub FormResize(FormName As Form)
   Dim I             As Integer
   Dim Inc           As Integer
   Dim CaptionSize   As Integer
   Dim RatioX        As Double
   Dim RatioY        As Double
   Dim SaveRedraw    As Long
   On Error Resume Next
   SaveRedraw = FormName.AutoRedraw
   FormName.AutoRedraw = True
   If bFirstTime Then
      bFirstTime = False
      Exit Sub
   End If
   If FormName.Height < iFormHeight / 2 Then FormName.Height = iFormHeight / 2
   If FormName.Width < iFormWidth / 2 Then FormName.Width = iFormWidth / 2
   CaptionSize = 400
   RatioY = 1# * (iFormHeight - CaptionSize) / (FormName.Height - CaptionSize)
   RatioX = 1# * iFormWidth / FormName.Width
   On Error Resume Next ' for comboboxes, timeres and other nonsizible controls
   For I = 0 To iNumOfControls
      If TypeOf FormName.Controls(I) Is Line Then
         FormName.Controls(I).Y1 = Int(iTop(I) / RatioY)
         FormName.Controls(I).X1 = Int(iLeft(I) / RatioX)
         FormName.Controls(I).Y2 = Int(iHeight(I) / RatioY)
         FormName.Controls(I).X2 = Int(iWidth(I) / RatioX)
         FormName.Controls(I).Top = Int(iTop(I) / RatioY)
         FormName.Controls(I).Left = Int(iLeft(I) / RatioX)
         FormName.Controls(I).Height = Int(iHeight(I) / RatioY)
         FormName.Controls(I).Width = Int(iWidth(I) / RatioX)
         FormName.Controls(I).FontSize = Int(iFontSize(I) / RatioX) + Int(iFontSize(I) / RatioX) Mod 2
         FormName.Controls(I).RightMargin = Int(iRightMargin(I) / RatioY)
      End If
   FormName.AutoRedraw = SaveRedraw
End Sub


Author Comment

ID: 1448002
I test this solution, but I still have problens with fonts,
When I configure "large Fonts " in Proprieties of Video...!
Obs. I work with resolution 800X640 .and. large fonts

Expert Comment

ID: 1448003
Idéia interessante. Irei testar em casa...

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now