vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Haupbildschirm ändern 
Autor: ewaldvb
Datum: 05.05.11 20:11

Hallo!

ich hab sowas mal gemacht, um auf einem 2. Monitor (geht dann wohl auch mit 3) ein im 1. Monitor aus einer Liste ausgewähltes JPG anzuzeigen:

Die Liste enthält lauter kleine Vorschau-Bilder, wenn dort eins ausgewählt wird, soll es am 2. Monitor angezeigt werden, ist kein 2. Monitor angeschlossen, so wir es auf dem ersten/einzigen angezeigt.
Wenn du überhaupt nur den 2. Monitor verwenden willst, dann kannst du gleich den Code aus Form2 benutzen.


Die Form2 wird aus Form1 aufgerufen:

'=================================================================
Protected SlideShow As New Form2

Public Class Form1

... code ...
SlideShow.PictureBox1 = meinBild.jpg ' PictureBox1 ist das Control in Form2(alias SlideShow)
SlideShow.Show()
... code ...

End Class

'=================================================================

Public Class Form2

Private Sub frmSlideShow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' in folgendem ist "Screen.AllScreens.Length" die Anzahl der Monitore
' der Zugriff auf die Monitore ist NULL-Based (der 1. ist die Nummer 0)
' Die Bildfläche ist die Summe aller Monitore: du musst also die Linke Obere Ecke des 2. monitors
' finden: das ist rechts oben neben dem 1. Monitor

Me.StartPosition = FormStartPosition.Manual
Me.Location = New Point(Screen.AllScreens(Screen.AllScreens.Length - 1).Bounds.X, Screen.AllScreens(Screen.AllScreens.Length - 1).Bounds.Y)
Me.SetDesktopLocation(Screen.AllScreens(Screen.AllScreens.Length - 1).Bounds.X, Screen.AllScreens(Screen.AllScreens.Length - 1).Bounds.Y)
Me.Height = Screen.AllScreens(Screen.AllScreens.Length - 1).WorkingArea.Height
Me.Width = Screen.AllScreens(Screen.AllScreens.Length - 1).WorkingArea.Width

.... und weiterer Code

End Sub

End Class

'============================================================================

Falls du noch fragen hast kannst du dich ja melden.

lg
Ewald
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Haupbildschirm ändern2.469SteeLMK24.04.11 19:29
Re: Haupbildschirm ändern1.914ewaldvb05.05.11 20:11

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel