[VB] Venster verschuiver error

[Facer]

Ik heb een programma gemaakt als je die afsluit dan schuift die zichzelf naar rechts onder en wordt steeds kleiner maar nu krijg ik een OverFlow error als je het programma hebt gemaximaliseert en dan afsluit


Wie weet hoe ik dit kan verhelpen ?

[Verwijderd]

Ehh wat dacht je er van error handling in te bouwen?

[XTerm]

Post de code joh, wat kan ik nu met zo'n vage zin als dat

Waarschijnlijk probeer je het venster uit te wringen...

[Facer]

Dit is de code:

code:

Private Sub Form_Unload(Cancel As Integer)
Dim TellerTop As Integer
Dim TellerLeft As Integer
Dim TellerHeight As Integer
Dim TellerWidth As Integer
    Form1.Width = Screen.Width - 100
    TellerTop = Form1.Top
    TellerLeft = Form1.Left
    TellerHeight = Form1.Height
    TellerWidth = Form1.Width
    Do
      TellerTop = TellerTop + 25
      TellerLeft = TellerLeft + 25
      If TellerHeight > 79 Then
        TellerHeight = TellerHeight - 40
      End If
      If TellerWidth > 79 Then
        TellerWidth = TellerWidth - 40
      End If
      Form1.Width = TellerWidth
      Form1.Height = TellerHeight
      Form1.Top = TellerTop
      Form1.Left = TellerLeft
    Loop Until TellerTop > 22000
End Sub

Op woensdag 15 mei 2002 18:40 schreef Yarvieh het volgende:
Ehh wat dacht je er van error handling in te bouwen?

Kan niet want dan schuift die ook niet meer

[XTerm]

Das een... rare manier van het te doen.
Aangezien ik te lui ben om te gaan debuggen, aanschouw deze alternatieve versie :

code:

do while(form1.width>100 and form1.height>100)
  form1.left=form1.left+10
  form1.width=form1.width-10

  form1.top=form1.top+10
  form1.height=form1.height-10
loop

Geen crashes meer en veel korter
Have fun.

[Verwijderd]

Op woensdag 15 mei 2002 18:48 schreef facer het volgende:
Kan niet want dan schuift die ook niet meer

Volgens mij verschillen onze definities van error handling dan. maargoeds je overflow komt waarschijnlijk omdat er iets out of bounds raakt integers kunnen niet zo heel veel hebben maar er es longs van (Whoah symtoom bestrijding, dat is de manier om bugs te killen)

[Facer]

Helaas nog steeds een fout maar nu :

code:

Run-Time error '384':
A form can't be moved or sized while mimized or maximized

Is er geen manier om het scherm te de-maximaliseren door een code ?

[Crazy D]

Op woensdag 15 mei 2002 19:02 schreef facer het volgende:
Helaas nog steeds een fout maar nu :

code:

Run-Time error '384':
A form can't be moved or sized while mimized or maximized

Is er geen manier om het scherm te de-maximaliseren door een code ?

Ja hoor, maar volgens mij is het tijd voor een MSDN installatie Of even de properties van je form bekijken, bij de W kom je WindowState tegen

[Verwijderd]

form.windowstate ... maare . .programmeren is geen kwestie van geluk . .maar een kwestie van leren en je hersens gebruiken . .. (tip)