VB Form Resize Event Problem

vb6

Using VB6

Using MDI Forms, sub Forms also

When I run the Software in More than 15 Inch Screen, Crviewer Control, Frame Control, Everything is appearing in 75% of the screen, I Wrote the code for Crviewer Control in the form resize event.

Code

Private Sub Form_Resize()
    CRviewer2.Top = 1450
    CRviewer2.Left = 0
    CRviewer2.Height = ScaleHeight - 1450
    CRviewer2.Width = ScaleWidth
End Sub

Sometimes It is showing error, and sometimes it is executing, So there is any other code is available for all the control should appear in all types of windows screen Size

Please can any one help to solve the issues.

Best Answer

There are a couple things you should modify about this code.

First, you should check the window state to make sure the window is not minimized. If it is minimized, the user cannot see the screen anyway, so you don't need to resize.

Second, you need to make sure you are not setting any of the properties to a value less than or equal to 0.

Third, you should have error handling in this code.

Private Sub Form_Resize()

    On Error Resume Next

    If Me.WindowState = vbMinimized Then
        Exit Sub
    End If

    CRviewer2.Top = 1450
    CRviewer2.Left = 0
    If ScaleHeight > 1450 Then
        CRviewer2.Height = ScaleHeight - 1450
    End If

    CRviewer2.Width = ScaleWidth
End Sub

Related Solutions

VB6 Changing colors for every control on a form

The .frm files are simply standard ANSI text files. A background color property of a control would look like this:-

BackColor       =   &H80000005&

(Note the above is a system color but you can specify the RGB color using by using the lower 3 bytes and leaving the high byte 0).

A control such a Label would look like this:-

Begin VB.Label Label1 
  Caption         =   "Hello:"
  Height          =   285
  Left            =   90
  TabIndex        =   3
  Top             =   480
  Width           =   1305
End

So that task could be done lexically by parsing the .frm files and inserting (or replacing) the BackColor attribute line.

Edit:

Useful link posted in comments by MarkJ : Form Description Properties

Add an event handler to each control on a form at runtime VB6

You could also "Subclass" Your TextBox Controls Using WithEvents. The advantage here is that you can code the highlighting and de-highlighting in one place without having to go through and replace all of your existing controls (as Scott suggests).

The downside is that you have to add code to the Form_Load event of all your forms to "register" the controls on that form. However, even this should not be too bad if you want to apply the technique to every control; in that case, you just need to write a function that loops through the .Controls collection of a form and registers each control. Then just call this function in each form's Form_Load event.

Best Answer

Related Solutions

VB6 Changing colors for every control on a form

Add an event handler to each control on a form at runtime VB6

Related Topic