hur gör man för att en textbox ska ändra storlek i takt med attman ändrar storleken på formen? ta notepad som ett exempel... den skrivytan ändars ju då man ändar storleken på fönstret... hur? e det jätte svårt? <code> Istället för att dimensionera textrutan två gånger kan man göra det med ett anrop:fullscreen.. ändra storlek...
Sv: fullscreen.. ändra storlek...
Private Sub Form_Resize()
Text1.Width = Me.ScaleWidth
Text1.Height = Me.ScaleHeight
End Sub
</code>
/JohanSv: fullscreen.. ändra storlek...
<code>
Private Sub Form_Resize()
Text1.Move ScaleLeft, ScaleTop, ScaleWidth, ScaleHeight
End Sub
</code>
Man kan slippa en massa ifsatser i sin resize kod om man använder Binär And. Låt oss sägga att vi har en statusbar och en toolbar som man kan gömma och visa. Då kan man skriva koden så här:
<code>
Private Sub Form_Resize()
Text1.Move ScaleLeft, ScaleTop+(ToolBar.Height And ToolBar.Visible), ScaleWidth, ScaleHeight - (ToolBar.Height And ToolBar.Visible)- (StatusBar.Height And StatusBar.Visible)
End Sub
</code>
Mycket smart tips. ;O)