Full screen

[ger@ld]

Hoi,

Kan ik met VB.NET programma's full screen laten draaien? Bijvoorbeeld een multimediaviewer, dat alleen de film in full screen wordt getoond?

Bedankt,
Ger@ld

 

[WarnedGraph]

Hier heb je de oplossing om uw VB.NET Applicatie in FullScreen te laten werken.
Ik wil iedereen die dit gebruikt toch even waarschuwen:
VB.NET KAN en ZAL bij verkeerd gebruik uw taakbalk voorgoed WEGTOVEREN

Nu over naar de kwestie ... Om te beginnen: Form1.FormBorderStyle = "none"
Verder:

Public Class Form1

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    Public Const SWP_HIDEWINDOW = &H80
    Public Const SWP_SHOWWINDOW = &H40

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim intReturn As Integer = FindWindow("Shell_traywnd", "")
        SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim intReturn As Integer = FindWindow("Shell_traywnd", "")
        SetWindowPos(intReturn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
    End Sub

End Class

Dit werkt perfect bij correct gebruikt !!! U Weze Gewaarschuwd

 

[ger@ld]

Hartstikke bedankt!
En inderdaad, weg balk...
Maar ik rommel er wel wat mee :thumb:

groetjes,
Ger@ld

 

[WILLIAMXXX]

Ik wil iedereen die dit gebruikt toch even waarschuwen:
VB.NET KAN en ZAL bij verkeerd gebruik uw taakbalk voorgoed WEGTOVEREN
Dit werkt perfect bij correct gebruikt !!! U Weze Gewaarschuwd

Bij mij wordt die NIET weg gahaald...

 

[WarnedGraph]

Werk je met windows vista ?

 

[WILLIAMXXX]

Ja, maar je kunt het ook anders doen:

Je doet bij de porperties het volgende borderstyle = none
Size: 1280; 1024 // ligt eraan hoe groot je scherm is...

 

[madrofiel]

je kan dit gebruiken daarvoor
dim size as string = my.Computer.Screen.Bounds.Width & ";" & my.Computer.Screen.Bounds.Height

veel geluk