Form in der Mitte des bildschirmes starten?

juunkey · 11. September 2013, 18:33

Hi, wie kann ich einstellen das die form beim ausführen in der mitte des bildschirmes startet?

Artentus · 11. September 2013, 18:34

Stelle StartPosition auf CenterScreen.

juunkey · 11. September 2013, 18:36

Artentus schrieb:

Stelle StartPosition auf CenterScreen.

hab ich mir auch schon gedacht, finde jedoch bei den eigenschaften kein "startposition"

RodFromGermany · 11. September 2013, 18:39

juunkey schrieb:

finde jedoch bei den eigenschaften kein "startposition"

Aber ich:

juunkey · 11. September 2013, 18:45

Ich find´s immer noch nicht.

xd-franky-5 · 11. September 2013, 18:45

Im falle, das du diese Eigenschaft wirklich nicht besitzt:

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer
Dim y As Integer
x = CInt(SystemInformation.PrimaryMonitorSize.Width / 2)
y = CInt(SystemInformation.PrimaryMonitorSize.Height / 2)
Me.Location = New Point(x, y)
End Sub

VincentTB · 11. September 2013, 18:46

Das was du das hast ist nicht das Form.

juunkey · 11. September 2013, 18:52

xd-franky-5 schrieb:

Im falle, das du diese Eigenschaft wirklich nicht besitzt:

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim x As Integer

Dim y As Integer

x = CInt(SystemInformation.PrimaryMonitorSize.Width / 2)

y = CInt(SystemInformation.PrimaryMonitorSize.Height / 2)

Me.Location = New Point(x, y)

End Sub

Damit startet die form oben rechts im bildschirm

RodFromGermany · 11. September 2013, 18:56

@juunkey:: :rolleyes:

juunkey · 11. September 2013, 19:00

RodFromGermany schrieb:

@juunkey::
vb-paradise.de/index.php/Attac…fd4762f82fad5776b3611d015

ist bei mir nicht vorhanden siehe screens -.-

xd-franky-5 · 11. September 2013, 19:02

Oh sorry aber so funktioniert es bei mir:

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer
Dim y As Integer
x = CInt(SystemInformation.PrimaryMonitorSize.Width / 2)
y = CInt(SystemInformation.PrimaryMonitorSize.Height / 2)
Me.Location = New Point(x - Me.Width, y - Me.Height)
End Sub

lordknoblauch · 11. September 2013, 19:04

@xd-franky-5: Du musst erst die Dimensionen der Form abziehen und dann halbieren.

RodFromGermany · 11. September 2013, 19:06

juunkey schrieb:

ist bei mir nicht vorhanden siehe screens

Sehr merkwürden.
Probier mal dies in der Form_Load:

VB.NET-Quellcode

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Artentus · 11. September 2013, 19:07

juunkey schrieb:

ist bei mir nicht vorhanden

Ja, weil du nicht die Form, sondern irgend ein Control ausgewählt hast.

@xd-franky-5

VB.NET-Quellcode

x = (SystemInformation.PrimaryMonitorSize.Width - Me.Width) \ 2
y = (SystemInformation.PrimaryMonitorSize.Height - Me.Height) \ 2

xd-franky-5 · 11. September 2013, 19:09

@RFG
Das geht doch nicht, denn wenn die Form geladeb ist kann es nicht mehr die Startposition annehmen.

@Artentus
Stimmt aber ich finde es sieht dann nicht so gut aus. Also:

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer
Dim y As Integer
x = (SystemInformation.PrimaryMonitorSize.Width - Me.Width) \ 2
y = (SystemInformation.PrimaryMonitorSize.Height - Me.Height) \ 2
Me.Location = New Point(x, y)
End Sub

Artentus · 11. September 2013, 19:10

@xd-franky-5
Also ich finde, das CInt sieht viel schlechter aus.

Edit: jetzt hast du ja doch meine Variante da stehen.

xd-franky-5 · 11. September 2013, 19:11

@Artentus
"Da trennen sich unsere Meinungen wohl"

juunkey · 11. September 2013, 19:13

Hab nochmal nachgeschaut eigentlich passt alles, und durch deinen code vorschlag hats die form halb aus dem bildschirm gehauen

E: der code von franky funktioniert endlich^^

RodFromGermany · 11. September 2013, 19:16

xd-franky-5 schrieb:

Das geht doch nicht

Korrekt.
@juunkey:: Aber so geht es:

VB.NET-Quellcode

Public Sub New()
InitializeComponent()
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
End Sub

juunkey · 11. September 2013, 20:16

xd-franky-5 schrieb:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x As Integer
Dim y As Integer

x = (SystemInformation.PrimaryMonitorSize.Width - Me.Width) \ 2
y = (SystemInformation.PrimaryMonitorSize.Height - Me.Height) \ 2

Me.Location = New Point(x, y)
End Sub

Der code funktioniert, ist aber troztdem scheisse da man mind eine halbe sekunde sieht wie die form in die mitte gezogen wird -.-

Form in der Mitte des bildschirmes starten?

Form in der Mitte des bildschirmes starten?

Artentus schrieb:

juunkey schrieb:

VB.NET-Quellcode

xd-franky-5 schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

juunkey schrieb:

VB.NET-Quellcode

juunkey schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

xd-franky-5 schrieb:

VB.NET-Quellcode

xd-franky-5 schrieb:

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben