Just nu i M3-nätverket
Gå till innehåll

maximera grejer å så


pepino

Rekommendera Poster

Om jag har en vanlig form, ritar ut en texruta på den och sedan kör skiten och trycker på maximera så följer inte textrutan med. Hur fixas det så den gör det?

 

/Henrik

 

---------------------

Snart är jag ikapp dig Weyland...

Länk till kommentar
Dela på andra webbplatser

Räkna upp textrutans .height och .width

 

tex något sånt här !

 

Jag är ingen hävert på VB det finns garanterat bättre lösningar !!

 

Private Sub Form_Resize()
   ' Ändrar storlek på txtTest vid resize på frmTest
   Dim Höjd As Integer
   Dim Bredd As Integer

   Höjd = 1700
   Bredd = 1400

   If (frmTest.Height > Höjd + 1) And (frmTest.Width > Bredd + 1) Then
       txtTest.Height = frmTest.Height - Höjd
       txtTest.Width = frmTest.Width - Bredd
   Else
       ' för att inte få negativa värden på txtTest.Height eller .Width
       txtTest.Height = frmTest.Height
       txtTest.Width = frmTest.Width
   End If


End Sub

__________________________________________________

 

Den som ler när något gått fel, har redan kommit på vem han skall skylla på.

 

[inlägget ändrat 2002-09-19 19:34:03 av konjogu]

Länk till kommentar
Dela på andra webbplatser

Gå in på (som gäst eller skriv in dig som medlem) www.pellesoft.nu och ladda hem min ocx som ligger på filarean under titeln "activex/dll - allmänt" och med namnet "Resize-control". Den fixar allt jobb åt dig genom att man gör samma typ av inställningar som i .NET's formdesigner.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...