Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: objektgrößen automatisch proportional zur formgröße anpassen
Autor: rene04
Datum: 03.07.02 17:46
sodele, soweit sogut. nur das bei einer veränderung der formgrösse sich einfach alles vergrößert. ob ich nun die form verkleiner oder vergrößer. so schauts aus : Public Sub Skalieren(FRM As Form, _ ScaleForm As Boolean, ScaleFont As Boolean) 'Skaliert alle Elemente der übergebenen Form 'Elemente in Toolbars müssen separat ausgerichtet 'werden, da die Toolbar nicht skaliert wird Dim I As Integer Dim K As Long Dim SFX As Single Dim SFY As Single Const DWidth = 12000 'Screen.Width zur Designzeit Const DHeight = 9000 'Screen.Height zur Designzeit SFX = Screen.Width / DWidth 'Skalierfaktor X-Achse SFY = Screen.Height / DHeight 'Skalierfaktor Y_Achse On Error Resume Next If ScaleForm Then FRM.Width = FRM.Width * SFX FRM.Height = FRM.Height * SFY FRM.Left = FRM.Left * SFX FRM.Top = FRM.Top * SFY End If For I = 0 To FRM.Controls.Count - 1 'nur wenn ein Toolbarcontrol auf der Form ist 'If Not TypeOf .Container Is Toolbar Then With FRM.Controls(I) 'diese Routine wird nur benötigt, wenn sich auf 'der Form ein SSTab befindet. ' If TypeOf .Container Is SSTab Then ' If .Left < 0 Then ' K = 75000 ' End If ' End If 'wenn die vorstehende Routine für 'SSTab verwendet wird '.Left = ((.Left + K) * SFX) - K If TypeOf FRM.Controls(I) Is Line Then .X1 = .X1 * SFX .X2 = .X2 * SFX .Y1 = .Y1 * SFY .Y2 = .Y2 * SFY Else 'wenn die obige Routine für SSTab 'nicht verwendet wird .Left = .Left * SFX .Top = .Top * SFY .Width = .Width * SFX .Height = .Height * SFY If ScaleFont Then .Font.Size = .Font.Size * SFY .HeadFont.Size = .HeadFont.Size * SFY End If End If K = 0 End With 'nur wenn ein Toolbarcontrol auf der Form ist 'End If Next I On Error GoTo 0 End Sub Private Sub Form_Resize() Skalieren Me, False, True End Sub

objektgrößen automatisch proportional zur formgröße anpassen	55	rene04	03.07.02 15:39
Re: objektgrößen automatisch proportional zur formgröße anpa...	383	Elwood	03.07.02 15:53
Re: objektgrößen automatisch proportional zur formgröße anpa...	36	rene04	03.07.02 16:33
Re: objektgrößen automatisch proportional zur formgröße anpa...	301	Elwood	03.07.02 17:20
Re: objektgrößen automatisch proportional zur formgröße anpa...	50	rene04	03.07.02 17:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen