Programming Forums > Application Development > Visual Basic

brokenhope · Sep 5th, 2005, 6:43 PM

Every time I minimize my program I get this:

Run time error '348'
Form cant be moved or resized while minimized or maximized

And its because of this:

(Toggle Plain Text)

Private Sub Form_Resize()
    'Factor in everything for correct textbox resize.
        If Me.Height < 6780 Then
        Me.Height = 6780
        End If
        If Me.Width < 8970 Then
        Me.Width = 8970
        End If

    'Resize textbox
    txtText.Width = Me.ScaleWidth - (txtText.Left * 2) - 126
    txtText.Height = Me.ScaleHeight - (txtText.Top * 2) - 200
    rtbText.Width = txtText.Width
    rtbText.Height = txtText.Height
    
    'Move items | 126 is the amount of pixels of the size of frame and 5px border.
    frmAdditionalCommands.Left = Me.ScaleWidth - 126        'Additional Commands Frame
    frmLockProgram.Left = Me.ScaleWidth - 126               'Lock Program Frame
    frmView.Left = Me.ScaleWidth - 126                      'View Frame
    frmTextBar.Top = txtText.Height + 16                    'Text Bar (bold, italic, etc)
    frmOptions.Top = frmTextBar.Top + frmTextBar.Height + 5 'Options Position
    frmCalculator.Top = frmTextBar.Top                      'Calculator Position
    frmFooter.Top = frmOptions.Top + frmOptions.Height + 5  'Footer button position
    frmCommands.Top = frmTextBar.Top
    
    'Set Margin of rich text box
    rtbText.RightMargin = rtbText.Width + 10000
End Sub

How can I fix this?

Ooble · Sep 5th, 2005, 7:31 PM

Make sure the form isn't minimised or maximised... duh...

(Toggle Plain Text)

If Not Me.Minimized And Not Me.Maximised Then
    ' do stuff
End If

I think.

brokenhope · Sep 5th, 2005, 8:34 PM

Didnt work, the Minimized property doesnt exist, atleast not in that way... ah I got it, the property was window state, Instead If Not Me.WindowState = 1 Then... it seems it works fine when maximizing though for some reason 0_o, even though the error says otherwise. But it works now thanks.

Ooble · Sep 6th, 2005, 1:24 PM

That's it. Knew it was something like that.

Sep 5th, 2005, 6:43 PM	#1
brokenhope Hobbyist Programmer Join Date: Apr 2005 Posts: 126 Rep Power: 4	Form_Resize() problem Every time I minimize my program I get this: Run time error '348' Form cant be moved or resized while minimized or maximized And its because of this: (Toggle Plain Text) Private Sub Form_Resize() 'Factor in everything for correct textbox resize. If Me.Height < 6780 Then Me.Height = 6780 End If If Me.Width < 8970 Then Me.Width = 8970 End If 'Resize textbox txtText.Width = Me.ScaleWidth - (txtText.Left * 2) - 126 txtText.Height = Me.ScaleHeight - (txtText.Top * 2) - 200 rtbText.Width = txtText.Width rtbText.Height = txtText.Height 'Move items \| 126 is the amount of pixels of the size of frame and 5px border. frmAdditionalCommands.Left = Me.ScaleWidth - 126 'Additional Commands Frame frmLockProgram.Left = Me.ScaleWidth - 126 'Lock Program Frame frmView.Left = Me.ScaleWidth - 126 'View Frame frmTextBar.Top = txtText.Height + 16 'Text Bar (bold, italic, etc) frmOptions.Top = frmTextBar.Top + frmTextBar.Height + 5 'Options Position frmCalculator.Top = frmTextBar.Top 'Calculator Position frmFooter.Top = frmOptions.Top + frmOptions.Height + 5 'Footer button position frmCommands.Top = frmTextBar.Top 'Set Margin of rich text box rtbText.RightMargin = rtbText.Width + 10000 End Sub Private Sub Form_Resize() 'Factor in everything for correct textbox resize. If Me.Height < 6780 Then Me.Height = 6780 End If If Me.Width < 8970 Then Me.Width = 8970 End If 'Resize textbox txtText.Width = Me.ScaleWidth - (txtText.Left * 2) - 126 txtText.Height = Me.ScaleHeight - (txtText.Top * 2) - 200 rtbText.Width = txtText.Width rtbText.Height = txtText.Height 'Move items \| 126 is the amount of pixels of the size of frame and 5px border. frmAdditionalCommands.Left = Me.ScaleWidth - 126 'Additional Commands Frame frmLockProgram.Left = Me.ScaleWidth - 126 'Lock Program Frame frmView.Left = Me.ScaleWidth - 126 'View Frame frmTextBar.Top = txtText.Height + 16 'Text Bar (bold, italic, etc) frmOptions.Top = frmTextBar.Top + frmTextBar.Height + 5 'Options Position frmCalculator.Top = frmTextBar.Top 'Calculator Position frmFooter.Top = frmOptions.Top + frmOptions.Height + 5 'Footer button position frmCommands.Top = frmTextBar.Top 'Set Margin of rich text box rtbText.RightMargin = rtbText.Width + 10000 End Sub How can I fix this?

Sep 5th, 2005, 7:31 PM	#2
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Make sure the form isn't minimised or maximised... duh... (Toggle Plain Text) If Not Me.Minimized And Not Me.Maximised Then ' do stuff End If If Not Me.Minimized And Not Me.Maximised Then ' do stuff End If I think. __________________ Me :: You :: Them

Sep 6th, 2005, 1:24 PM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	That's it. Knew it was something like that. __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sep 5th, 2005, 8:34 PM	#3
brokenhope Hobbyist Programmer Join Date: Apr 2005 Posts: 126 Rep Power: 4	Didnt work, the Minimized property doesnt exist, atleast not in that way... ah I got it, the property was window state, Instead If Not Me.WindowState = 1 Then... it seems it works fine when maximizing though for some reason 0_o, even though the error says otherwise. But it works now thanks.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Form_Resize() problem