Just nu i M3-nätverket
Jump to content

maximera grejer å så


pepino

Recommended Posts

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...

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...