Resize Form to Fit New Screen Resolution?

[DanVerssen]

I have a program in VB2005.net that needs to change the screen resolution and then adjust the form to fill the new screen. I have the screen resolution changes controlled by radio buttons.

The resolution changes, but my form remains the same size. The form is originally designed as 1024x768. When I change to 800x600 it is too large to fit on the screen. When I change to 1280x1024 it only takes up part of the screen.

Any ideas what I'm doing wrong?

Here is the code...

>>

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked = True Then
SetResolution(1024, 768, 32)
Me.Size = New Size(1024, 768)
End If

End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked = True Then
SetResolution(800, 600, 32)
Me.Size = New Size(800, 600)
End If

End Sub



Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Checked = True Then
SetResolution(1280, 1024, 32)
Me.Size = New Size(1280, 1024)
End If

End Sub

<<

 

[DanVerssen]

Okay, I have the form to resize to match the screen resolution, but how do I get the controls to rescale to stay in their same relative locations and sizes?

 

[ZmrAbdulla]

Look into the Anchor / Dock properties of the controls.

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[DanVerssen]

I've tried anchor and dock. The problem is, this is a game window with controls and pictureboxes spread all over the screen. When the screen changes resolutions they don't resize/reposition accurately.

 

[ZmrAbdulla]

They will sure do what you want. here are some to read.

http://www.java2s.com/Code/VB/GUI/Anchor.htm

http://articles.techrepublic.com.com/5100-3513-6154580.html

http://www.codeproject.com/cs/miscctrl/anchordock.asp

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[DanVerssen]

Zameer,

Thank you for the links. When I tried what they said, I could get one text box per form to resize as I changed the form size while it was running.

However, it would not change the size/position of labels.

My goal is changing the screen between 1024x768 and 1280x800 resolutions. 1280x800 is a widescreen laptop format and I would like the game to run at that resolution so laptop players can play the game.

 

[ZmrAbdulla]

Create a new project , go to the form's Designer Code Window and paste this code Run the project & see how it has done.

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.ListBox1 = New System.Windows.Forms.ListBox
        Me.ListView1 = New System.Windows.Forms.ListView
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
        Me.SplitContainer1.Panel1.SuspendLayout()
        Me.SplitContainer1.Panel2.SuspendLayout()
        Me.SplitContainer1.SuspendLayout()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button1.Location = New System.Drawing.Point(363, 360)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'TextBox1
        '
        Me.TextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextBox1.Location = New System.Drawing.Point(8, 243)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(430, 93)
        Me.TextBox1.TabIndex = 1
        '
        'TextBox2
        '
        Me.TextBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextBox2.Location = New System.Drawing.Point(12, 22)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(345, 20)
        Me.TextBox2.TabIndex = 2
        '
        'Button2
        '
        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button2.Location = New System.Drawing.Point(363, 20)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(75, 23)
        Me.Button2.TabIndex = 3
        Me.Button2.Text = "Button2"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'CheckBox1
        '
        Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.CheckBox1.AutoSize = True
        Me.CheckBox1.Location = New System.Drawing.Point(16, 361)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(81, 17)
        Me.CheckBox1.TabIndex = 4
        Me.CheckBox1.Text = "CheckBox1"
        Me.CheckBox1.UseVisualStyleBackColor = True
        '
        'ListBox1
        '
        Me.ListBox1.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.ListBox1.FormattingEnabled = True
        Me.ListBox1.Location = New System.Drawing.Point(20, 16)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(171, 147)
        Me.ListBox1.TabIndex = 5
        '
        'ListView1
        '
        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListView1.Location = New System.Drawing.Point(0, 0)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(207, 181)
        Me.ListView1.TabIndex = 6
        Me.ListView1.UseCompatibleStateImageBehavior = False
        '
        'SplitContainer1
        '
        Me.SplitContainer1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.SplitContainer1.Location = New System.Drawing.Point(12, 56)
        Me.SplitContainer1.Name = "SplitContainer1"
        '
        'SplitContainer1.Panel1
        '
        Me.SplitContainer1.Panel1.Controls.Add(Me.ListView1)
        '
        'SplitContainer1.Panel2
        '
        Me.SplitContainer1.Panel2.Controls.Add(Me.ListBox1)
        Me.SplitContainer1.Size = New System.Drawing.Size(425, 181)
        Me.SplitContainer1.SplitterDistance = 207
        Me.SplitContainer1.TabIndex = 7
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(447, 395)
        Me.Controls.Add(Me.SplitContainer1)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.SplitContainer1.Panel1.ResumeLayout(False)
        Me.SplitContainer1.Panel2.ResumeLayout(False)
        Me.SplitContainer1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents ListView1 As System.Windows.Forms.ListView
    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer

End Class

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[DanVerssen]

I opened a new project, double-clicked on the blank form to open the coding window, selected all, deleted, then pasted in your code from above.

It gave me 2 errors...


<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

...gives me the error "Attribute 'DesignerGeneratedAttribute' cannot be applied multiple times.


...and...



Private components As System.ComponentModel.IContainer

..gives me the error "components' is already declared as 'Private Dim components As System.ComponentModel.IContainer' in this class.

 

[DanVerssen]

I also tried pasting it in after the default...


"Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class"



The same errors showed up.

 

[Sorwen]

What he was suggesting was you have to open the .Designer.vb for the form. (For VS2005) If Solution Explorer is open you should see a list of classes/modules. Your for should have a plus next to it. If not at the top there will be an option to "Show All Files". Click the plus next to the form then double click the .Designer.vb. That is were he suggested you try the above code.

-I hate Microsoft!
-Forever and always forward.

 

[ZmrAbdulla]

As Sorwen said...

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[DanVerssen]

Ah okay, I'll give that a try.

Thank you!