21. juli 2002 - 14:08
Der er
2 kommentarer og 1 løsning
Størrelsesforhold mellem kontroller/form
Hvorfor bliver dette ikke pænt? Private Sub Form_Resize() 'Frame1.Top = (Me.Height - Frame1.Height) / 2 'Giver samme placering 'Frame1.Top = (Me.Height / 2) - (Frame1.Height / 2) 'Giver samme placering Frame1.Top = Me.Height / 10 'Giver samme placering Frame1.Left = Me.Width / 10 Frame1.Width = Me.Width - ((Me.Width / 10) * 2) Frame1.Height = Me.Height - ((Me.Height / 10) * 2) End Sub
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Jeg ved ikke lige hvad du vil men prøv: Private Sub Form_Resize() If Me.WindowState <> 1 Then Frame1.Top = Me.ScaleHeight / 10 Frame1.Left = Me.ScaleWidth / 10 Frame1.Width = Me.ScaleWidth - ((Me.ScaleWidth / 10) * 2) Frame1.Height = Me.ScaleHeight - ((Me.ScaleHeight / 10) * 2) End If End Sub eller Private Sub Form_Resize() If Me.WindowState <> 1 Then Frame1.Move 50, 50, Me.ScaleWidth - 100, Me.ScaleHeight - 100 End If End Sub
Ok - det var jo enkelt. Men hvad er den egenlige forskel på ScaleHeight og Height? Det virker jo forskelligt kan jeg se.
det er den rene forml prøv at set form1 "BorderStyle" til 0 og se nu er de ens. Private Sub Form_Resize() Label1.Caption = Me.ScaleWidth & " - " & Me.Width End Sub
Kurser inden for grundlæggende programmering