Bereich festlegen in dem ein Form sich öffnet

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von toni1989.

    Bereich festlegen in dem ein Form sich öffnet

    Hallo Ich bin noch Anfänger auf dem gebiet VB.

    Komme aber durch durchsuchen von Foren ziemlich gut zurecht.

    Allerdings habe ich auf ein Problem noch keine Lösung gefunden.

    Nun zum Problem:

    Ich habe mir ein Hauptmenü über VB erstellt. Im Hauptmenü sind 4 Buttons die je ein anderes Form öffnen.

    Nun möchte ich einen Bereich festlegen in denen sich die Fenster später öffnen.

    Wie mache ich das?

    das kannst du z.b so machen :

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. Dim form2 As New form2
    5. ShowFormOnPosition(form2, New Point(100, 800))
    6. End Sub
    7. Public Sub ShowFormOnPosition(ByVal form As Form, position As Point)
    8. form.Show()
    9. form.Location = position
    10. End Sub
    11. End Class
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BlackNetworkBit“ ()

    das ist schonmal super für den anfang.

    Vielen Dank

    Ich möchte aber den kompletten Bildschirm ausfüllen ausser den linken Bereich in dem die Button sind.

    In etwa so wie in dem Bild im Anhang
    Bilder

    • bildimmo.png

      262 kB, 605×430, 97 mal angesehen

    Probiere mal das :

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    4. ShowFormOnPosition(Me, New Point(0, 0), New Size(Screen.PrimaryScreen.Bounds.Width, CInt(Screen.PrimaryScreen.Bounds.Height / 4)))
    5. Dim form2 As New Form2
    6. ShowFormOnPosition(form2, New Point(0, Me.Size.Height), New Size(CInt(Screen.PrimaryScreen.Bounds.Width / 3), CInt(Screen.PrimaryScreen.Bounds.Height - Me.Size.Height)))
    7. Dim form3 As New Form3
    8. ShowFormOnPosition(form3, New Point(CInt(Screen.PrimaryScreen.Bounds.Width / 3), Me.Size.Height), New Size(CInt(Screen.PrimaryScreen.Bounds.Width / 3), CInt(Screen.PrimaryScreen.Bounds.Height - Me.Size.Height)))
    9. Dim form4 As New Form4
    10. ShowFormOnPosition(form4, New Point(CInt((Screen.PrimaryScreen.Bounds.Width / 3) * 2), Me.Size.Height), New Size(CInt(Screen.PrimaryScreen.Bounds.Width / 3), CInt(Screen.PrimaryScreen.Bounds.Height - Me.Size.Height)))
    11. End Sub
    12. Public Sub ShowFormOnPosition(ByVal form As Form, position As Point, size As Size)
    13. form.Show()
    14. form.Location = position
    15. form.Size = size
    16. End Sub
    17. End Class
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

Facebook
Telefonspende