Pocket PC Anwendung auf Geräten mit unterschiedlicher Auflösung - zeitsparende Methode

    • VB.NET
    • .NET (FX) 1.0–2.0

      Pocket PC Anwendung auf Geräten mit unterschiedlicher Auflösung - zeitsparende Methode

      Ich stand vor der Aufgabe eine PDA-Anwendung für ein Compact 7 Device zu schreiben. Bei Bedarf sollte es aber auch auf meinen älteren CE5.0 Geräten lauffähig sein. Also wurde .NET CF 2.0 als Plattform gewählt. Primär wurde die Software auf das neue Gerät mit 480x800 Pixel Auflösung programmiert. Es soll aber auch auf einem Gerät mit 240x320 und einem mit 240x400 (272x480) laufen.

      Ich wollte nun wirklich nicht die komplette Oberfläche X-Mal für jede Auflösung gestalten und habe mir da etwas einfallen lassen.
      Es lag nahe alle Controls einer Form durchzulaufen und entsprechend zu skalieren.
      Somit erstellte ich die Forms in der Auflösung von 240x400 und skalliere entsprechend hoch oder runter. Unten bei den Bildern seht Ihr auch schon zwei echte Screenshots auf das Device "Photogeshopt".


      Im Form_Load wird bei jeder Form folgende Funktion aufgerufen:

      VB.NET-Quellcode

      1. Public FensterBreite As Integer = 240
      2. Public FensterHoehe As Integer = 400
      4. ResizeControls(Me, FensterBreite, FensterHoehe)


      Jeder Form wird in der TAG-Eigenschaft ein eindeutiger Wert eingetragen. Im Anhang ein Screenshot einer Form in der Entwicklungsumgebung (wegen der einzelnen Parameter).

      Damit jede Form nur ein einziges Mal in der Größe geändert wird, wird ein globales Hilfsvariablen-Array angelegt wo der Inhalt der TAG-Eigenschaft eingetragen wird, sobald eine Form "geändert" wurde. So ist es ausgeschlossen, dass eine Form mehrmals größengeändert wird.

      VB.NET-Quellcode

      1. Public FensterTag(100) As String



      Da ich sehr viel mit Panels arbeite, wird in der "Resize" Funktion auch jedes Control auf einem Panel durchgearbeitet. Ich musste übrigens feststellen, dass es schneller ist Panels ein- oder auszublenden als Forms zu öffnen oder zu schließen. Meine wichtigste Form sieht also in der Entwicklungsumgebung sehr sehr breit aus. Auf den ersten Blick ist es ein hoffnungsloses Durcheinander, aber die Performance auch auf den älteren Geräten gibt mir recht, dass ich diese etwas unkonventionelle Methode gewählt habe (siehe Screenshot)


      VB.NET-Quellcode

      1. 'Passt die Steuerelemente der Bildschirmauflösung an
      2. Public Sub ResizeControls(ByVal Fenster As System.Windows.Forms.Form, ByVal DefaultX As Integer, ByVal DefaultY As Integer)
      4. 'Zuerst prüfen ob das Fenster nicht schon "resized" wurde:
      5. Dim SchonResized As Boolean = False
      6. For i As Integer = 1 To 100
      7. If FensterTag(i) = Fenster.Tag Then
      8. SchonResized = True
      9. Exit For
      10. End If
      11. Next i
      13. If SchonResized = True Then Exit Sub
      15. Dim ScaleX As Double
      16. Dim ScaleY As Double
      17. Dim ContrLeft As Double
      18. Dim ContrTop As Double
      19. Dim ContrWidth As Double
      20. Dim ContrHeight As Double
      21. ScaleX = Fenster.Width / DefaultX
      22. ScaleY = Fenster.Height / DefaultY
      25. 'Die global definierten Hilfsvariablen "Global_Width" und "Global_Height" enthalten die tatsächliche Bildschirmauflösung
      26. If Global_Width <> 0 Then ScaleX = Global_Width / DefaultX
      27. If Global_Height <> 0 Then ScaleY = Global_Height / DefaultY
      30. 'Hier wird jedes Control und jedes Child-Control durchlaufen
      32. For Each oControl As Control In Fenster.Controls
      33. If oControl.Tag <> "-" Then
      34. ContrLeft = oControl.Left
      35. ContrTop = oControl.Top
      36. ContrWidth = oControl.Width
      37. ContrHeight = oControl.Height
      39. oControl.Left = CInt(ContrLeft * ScaleX)
      40. oControl.Top = CInt(ContrTop * ScaleY)
      41. oControl.Width = CInt(ContrWidth * ScaleX)
      42. oControl.Height = CInt(ContrHeight * ScaleY)
      44. 'Eventuell kann man bei diversen Controls andere Einstellungen treffen wie z.B. Schriftgrößen verändern oder anderes
      45. If TypeOf oControl Is TextBox Then
      47. ElseIf TypeOf oControl Is Button Then
      49. ElseIf TypeOf oControl Is PictureBox Then
      51. ElseIf TypeOf oControl Is Label Then
      53. ElseIf TypeOf oControl Is Panel Then
      54. 'hier alle Controls im Panel ebenfalls durchlaufen
      55. For Each pControl As Control In oControl.Controls
      56. If pControl.Tag <> "-" Then
      57. ContrLeft = pControl.Left
      58. ContrTop = pControl.Top
      59. ContrWidth = pControl.Width
      60. ContrHeight = pControl.Height
      61. pControl.Left = CInt(ContrLeft * ScaleX)
      62. pControl.Top = CInt(ContrTop * ScaleY)
      63. pControl.Width = CInt(ContrWidth * ScaleX)
      64. pControl.Height = CInt(ContrHeight * ScaleY)
      65. End If
      66. Next
      67. End If
      68. End If
      69. Next
      71. '"Fensterhandle" (eigentlich Form.Tag) in die Liste der bereits modifizierten Fenster eintragen
      72. For i As Integer = 1 To 100
      73. If FensterTag(i) = "" Then
      74. FensterTag(i) = Fenster.Tag
      75. Exit For
      76. End If
      77. Next i
      79. End Sub
      Bilder

      • Form_Eigenschaften.jpg

        172,15 kB, 522×743, 120 mal angesehen

      • DT4000_Imagebild.gif

        88,19 kB, 580×385, 120 mal angesehen

      • Form_mit_Panels.jpg

        315,95 kB, 1.823×493, 118 mal angesehen
      Liebe Grüße
      Roland Berghöfer

      Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Facebook
    Telefonspende