| |
Fortgeschrittene ProgrammierungSkalieren eines Forms mit Inhalt | | | Autor: gag | Datum: 13.12.02 12:02 |
| Hallo,
ich hab folgendes Problem:
Ein Formmit ca. 200 Controls soll an versch. Bildschirmauflösungen angepasst werden.
Im Endeffekt sollten die Fonts, Abstände ... kleiner oder größer werden, was bei der Menge an Controls eine Scheißarbeit ist.
Kennt jemand eine bessere Möglichkeit als die Auflösung abfragen und die Abstände berechnen?
Merci
Grüße
Gag | |
Re: Skalieren eines Forms mit Inhalt | | | Autor: landx | Datum: 13.12.02 12:32 |
| Soweit ich es weiß, mußt Du bei VB tatsächlich die Hand selbst anlegen, wenn Du die Objekt skalieren möchtest oder Du kaufst Dir ein entsprechendes ActiveX, z.B. bei http://www.zoschke.com.
Bei VB.NET gibt es eine entsprechende Eigenschaft bereits am Bord: "Anchor", wobei damit die Grösse der Objekte skaliert wird, NICHT die Zeichensatzgrösse. | |
Re: Skalieren eines Forms mit Inhalt | | | Autor: Zardoz | Datum: 15.12.02 22:08 |
|
Hallo gag,
probier' mal folgenden Code:
Option Explicit
Private CtPos() As Single, FrmBreite As Single, FrmHöhe As Single
Private Sub Form_Activate()
Dim Ctr As Object, C As Integer
FrmBreite = Me.ScaleWidth
FrmHöhe = Me.ScaleHeight
C = 0
For Each Ctr In Me.Controls
If Not (TypeOf Ctr Is Timer Or TypeOf Ctr Is Menu) Then
ReDim Preserve CtPos(3, C)
With Ctr
CtPos(0, C) = .Left
CtPos(1, C) = .Top
CtPos(2, C) = .Width
CtPos(3, C) = .Height
.Tag = C
End With
C = C + 1
End If
Next Ctr
End Sub
Private Sub Form_Resize()
Dim Ctr As Object, Fkt1 As Single, Fkt2 As Single, Ix As Integer
If FrmBreite > 0 Then
Fkt1 = Me.ScaleWidth / FrmBreite
Fkt2 = Me.ScaleHeight / FrmHöhe
For Each Ctr In Me.Controls
If Not (TypeOf Ctr Is Timer Or TypeOf Ctr Is Menu) Then
With Ctr
Ix = .Tag
.Move CtPos(0, Ix) * Fkt1, CtPos(1, Ix) * Fkt2, CtPos(2, Ix) * Fkt1
If Not (TypeOf Ctr Is DriveListBox Or TypeOf Ctr Is ComboBox) Then
.Height = CtPos(3, Ix) * Fkt2
End If
End With
End If
Next Ctr
End If
End Sub Das Anpassen der Schriftgröße ist hier nicht berücksichtigt, ist aber
auch möglich.
Gruß
Zardoz | |
| 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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|