Hi,
ich schreibe ein Programm für einen Tabletpc. So sieht es auf meinen Desktop-PC aus:
Nachdem es praktsich fertig geschrieben war habe ich es das erste mal auf dem tabletpc ausprobiert. Da werden die Steuerelemente aber falsch dargestellt. Irgendwie zusammengestaucht:
Hatte schonal jemand ein ähnliches Problem oder eine Idee woran das liegen könnte? Ich vermutete, dass an der niedrigeren Bildschirmauflösung liegt, aber wenn ich das Programm auf dem Desktop-PC laufen lasse, die Form jedoch vorher auf eine vergleichbare Größe zusammenstauche, dann wird auch dort alles gut dargestellt.
Hier noch der dazugehörige code:
ich schreibe ein Programm für einen Tabletpc. So sieht es auf meinen Desktop-PC aus:
Nachdem es praktsich fertig geschrieben war habe ich es das erste mal auf dem tabletpc ausprobiert. Da werden die Steuerelemente aber falsch dargestellt. Irgendwie zusammengestaucht:
Hatte schonal jemand ein ähnliches Problem oder eine Idee woran das liegen könnte? Ich vermutete, dass an der niedrigeren Bildschirmauflösung liegt, aber wenn ich das Programm auf dem Desktop-PC laufen lasse, die Form jedoch vorher auf eine vergleichbare Größe zusammenstauche, dann wird auch dort alles gut dargestellt.
Hier noch der dazugehörige code:
VB.NET-Quellcode
- '3.) Antwortbox darstellen
- Select Case WMAufgabenset(current_task).Length Mod 9 'zeigt die Response-Matrizen je nach Länge der aktuellen Aufgabe
- Case 0
- GroupBoxAntwort.Size = New Size(214, 279)
- GroupBoxAntwort.Controls.Add(GroupBox1)
- GroupBoxAntwort.Controls.Add(cmdOK)
- GroupBoxAntwort.Controls.Add(ProgressBar1)
- GroupBox1.Location = New Point(6, 6)
- cmdOK.Location = New Point(47, 211)
- ProgressBar1.Location = New Point(47, 262)
- GroupBox1.Show()
- Case 1
- GroupBoxAntwort.Size = New Size(422, 279)
- GroupBoxAntwort.Controls.Add(GroupBox1)
- GroupBoxAntwort.Controls.Add(GroupBox2)
- GroupBoxAntwort.Controls.Add(cmdOK)
- GroupBoxAntwort.Controls.Add(ProgressBar1)
- GroupBox1.Location = New Point(6, 6)
- GroupBox2.Location = New Point(214, 6)
- cmdOK.Location = New Point(151, 211)
- ProgressBar1.Location = New Point(151, 262)
- GroupBox1.Show()
- GroupBox2.Show()
- Case 2
- GroupBoxAntwort.Size = New Size(630, 279)
- GroupBoxAntwort.Controls.Add(GroupBox1)
- GroupBoxAntwort.Controls.Add(GroupBox2)
- GroupBoxAntwort.Controls.Add(GroupBox3)
- GroupBoxAntwort.Controls.Add(cmdOK)
- GroupBoxAntwort.Controls.Add(ProgressBar1)
- GroupBox1.Location = New Point(6, 6)
- GroupBox2.Location = New Point(214, 6)
- GroupBox3.Location = New Point(422, 6)
- cmdOK.Location = New Point(255, 211)
- ProgressBar1.Location = New Point(255, 262)
- GroupBox1.Show()
- GroupBox2.Show()
- GroupBox3.Show()
- Case 3
- GroupBoxAntwort.Size = New Size(838, 279)
- GroupBoxAntwort.Controls.Add(GroupBox1)
- GroupBoxAntwort.Controls.Add(GroupBox2)
- GroupBoxAntwort.Controls.Add(GroupBox3)
- GroupBoxAntwort.Controls.Add(GroupBox4)
- GroupBoxAntwort.Controls.Add(cmdOK)
- GroupBoxAntwort.Controls.Add(ProgressBar1)
- GroupBox1.Location = New Point(6, 6)
- GroupBox2.Location = New Point(214, 6)
- GroupBox3.Location = New Point(422, 6)
- GroupBox4.Location = New Point(630, 6)
- cmdOK.Location = New Point(359, 211)
- ProgressBar1.Location = New Point(359, 262)
- GroupBox1.Show()
- GroupBox2.Show()
- GroupBox3.Show()
- GroupBox4.Show()
- End Select
- GroupBoxAntwort.Location = center(GroupBoxAntwort, Me)
- GroupBoxAntwort.Visible = True