| |
VB.NET - Ein- und UmsteigerBildschirmauflösung | | | Autor: Earny | Datum: 12.09.08 21:47 |
| Hallo,
ich brauche eine automatische Bildschirmanpassung. Wenn ich mein VB2005-Projekt von meinem Erstellrechner zu einem anderen Rechner mitnehme (gesamte Entwicklungsumgebung), erscheinen Formulare und Steuerelemente, je nach Auflösung am Zielrechner, in unterschiedlichen Größen gegenüber dem Erstellrechner.
In der MSDN-Hilfe habe ich nur Referenz-Beschreibungen gefunden, mit denen ich nicht zurecht komme.
Vielleicht hat schon jemand solch einen Programmteil.
Gruß
Earny | |
Re: Bildschirmauflösung | | | Autor: Earny | Datum: 13.09.08 17:42 |
| Hallo,
ich hatte ein "Bildschirmanpassungsprogramm" für VB6.0. Das habe ich auf VB2005 konvertieren lassen. Dabei entstand der folgende Code, der auch funktioniert. Ich muss nur in der Form_Load-Prozedur jedes Formulars die Prozedur "SetDeviceIndependentWindow(Me)" aufrufen, dann werden alle Formulare und Steuerelemente auf die aktuelle Bildschirmauflösung umgerechnet und alles bleibt bei der ursprünglichen Größe.
Was mir nicht gefällt, sind die VB6.0-Methoden. Falls VB6.0 auf dem Zielrechner nicht mehr vorhanden ist, dürfte das nicht mehr laufen.
Mit den theoretischen Beschreibungen der MSDN-Hilfe komme ich nicht zurecht. Da fehlen mir die Kenntnisse.
Noch eine Frage: Wieso wird "End Function" grün (Warnung) unterstrichen?
Da der Text zu lang war (5kB-Grenze?), habe ich einen Teil des Codes wieder gelöscht.
Hier der Code aus dem Modul:
Option Strict Off
Option Explicit On
Module Bildschirmauflösung
' Bildschirmauflösung, unter der die Userform erstellt wurde
Public Const X_RESOLUTION As Short = 1024
Public Const Y_RESOLUTION As Short = 768
'X = Aktuelle Horizontal-Auflösung/1024
'Y = Aktuelle Vertikal-Auflösung/768
Public X As Single
Public Y As Single
Public Sub SetDeviceIndependentWindow(ByRef FormName As Object)
' Diese Prozedur passt die Größe und Anordnung einer Userform
' an die jeweilige Auflösung an.
' Idee und Grundgerüst von Frank Lubitz
' Im Prozeduraufruf muss die zu ändernde Userform angegeben werden
Dim HeightChange As Integer
Dim WidthChange As Integer
Dim OldHeight As Integer
Dim OldWidth As Integer
Dim ctlControl As System.Windows.Forms.Control
' Fehlermeldungen abfangen
On Error GoTo ErrorHandler
' Vergrößerungs-/Verkleinerungsfaktor der aktuellen Auflösung
' in Bezug auf die ursprüngliche Auflösung
'X = System.HorizontalResolution / X_RESOLUTION
'Y = System.VerticalResolution / Y_RESOLUTION
X = VB6.PixelsToTwipsX( _
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width) / _
VB6.TwipsPerPixelX / X_RESOLUTION
Y = VB6.PixelsToTwipsY( _
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height) / _
VB6.TwipsPerPixelY / Y_RESOLUTION
' Keine Neuanordung bei identischer Auflösung
If X = 1 And Y = 1 Then Exit Sub
' Alte Einstellungen sichern
OldHeight = FormName.Height
OldWidth = FormName.Width
' Neue Abmessung der Userform berechnen
FormName.Height = FormName.Height * Y
FormName.Width = FormName.Width * X
' Änderungen der Abmessungen
HeightChange = FormName.Height - OldHeight
WidthChange = FormName.Width - OldWidth
' Userform neu positionieren
FormName.Left = FormName.Left - WidthChange / 2
FormName.Top = FormName.Top - HeightChange / 2
' Alle Controls durchlaufen und ändern
For Each ctlControl In FormName.Controls
Debug.Print(ctlControl.Name)
If TypeOf ctlControl Is System.Windows.Forms.TextBox Then
ControlResize2(ctlControl, X, Y)
ElseIf TypeOf ctlControl Is System.Windows.Forms.Label Then
ControlResize2(ctlControl, X, Y)
ElseIf TypeOf ctlControl Is System.Windows.Forms.CheckBox Then
ControlResize2(ctlControl, X, Y)
ElseIf TypeOf ctlControl Is System.Windows.Forms.Button Then
ControlResize2(ctlControl, X, Y)
ElseIf TypeOf ctlControl Is System.Windows.Forms.ListBox Then
ControlResize2(ctlControl, X, Y)
ElseIf TypeOf ctlControl Is AxXGAUGELib.AxXGauge Then
ControlResize2(ctlControl, X, Y)
Else
ControlResize2(ctlControl, X, Y)
End If
Next ctlControl
Exit Sub
ErrorHandler:
' try to handle next control
Resume Next
End Sub
Function ControlResize2(ByRef Control As System.Windows.Forms.Control, _
ByRef X As Object, ByRef Y As Object) As Object '
With Control
.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints * X)
.SetBounds(VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(.Left) * X), _
VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(.Top) * Y), _
VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(.Width) * X), _
VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(.Height) * Y))
End With
End Function
End Module Gruß
Earny | |
Re: Bildschirmauflösung | | | Autor: Earny | Datum: 13.09.08 19:34 |
| Hallo,
von meinen Problemen ist jetzt noch eins übrig geblieben. Den Rest habe ich gelöst.
Ich schaffe nicht die automatische Skalierung der Schriftgrößen.
Bei VB6.0 ging das mit (Parameter Y eigentlich überflüssig):
Function ControlResize(Control As Control, X, Y)
With Control
.FontSize = .FontSize * X
End With
End Function Bei VB2005 wurde bei der Übersetzung daraus:
Function ControlResize(ByRef Control As System.Windows.Forms.Control, _
ByRef X As Object, ByRef Y As Object) As Object
With Control
.Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints * X)
End With
End Function Wie kann ich die VB6-Methode vermeiden?
Gruß
Earny | |
Re: Bildschirmauflösung | | | Autor: Julian13 | Datum: 13.09.08 22:45 |
| Hallo,
das sollte so gehen:
Sub ControlResize(ByRef Control As Control, ByVal X As Single, ByVal Y As _
Single)
With Control
.Font = New Font(.Font.FontFamily, .Font.Size * X, .Font.Style, _
GraphicsUnit.Pixel)
End With
End Sub Gruß Julian13 | |
Re: Bildschirmauflösung | | | Autor: Earny | Datum: 14.09.08 18:49 |
| Hallo Julian13,
habe die Sache mit Deiner Hilfe geschafft.
Ich musste allerdings "GraphicsUnit.Point" verwendet. Damit klappte es dann.
Function ControlResize1(ByRef Control As System.Windows.Forms.Control, _
ByRef X As Object, ByRef Y As Object) As Object
With Control
.Font = New Font(.Font.FontFamily, .Font.Size * X, .Font.Style, _
GraphicsUnit.Point)
.SetBounds(.Left * X, .Top * Y, .Width * X, .Height * Y)
End With
End Function Vielen Dank
Earny | |
| 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 |
|
|
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 InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|