Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

[VB.NET] Fullscreen class (Opgelost)

nick5556 - 06/12/2009 12:40 (laatste wijziging 06/12/2009 13:47)

PHP beginner

Hallo,

Ik had hier een keer gelezen over het maken van een fullscreen functie. Deze wil ik eigenlijk in een class doen zodat mijn code iets wat overzichtelijker word, alleen deze class kan ik niet maken omdat er 'Me' in gebruikt word. Hoe moet ik dat oplossen?

Groetjes.

BTW dit is de code:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                    Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private Shared HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64

    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer


    Public ReadOnly Property ScreenX() As Integer
        Get
            Return GetSystemMetrics(SM_CXSCREEN)
        End Get
    End Property

    Public ReadOnly Property ScreenY() As Integer
        Get
            Return GetSystemMetrics(SM_CYSCREEN)
        End Get
    End Property

    Private Sub FullScreen()
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = FormBorderStyle.None
        Me.TopMost = True
        SetWindowPos(Me.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub

    Public Sub NormalMode()
        Me.WindowState = FormWindowState.Normal
        Me.FormBorderStyle = FormBorderStyle.SizableToolWindow
        Me.TopMost = False
    End Sub
            
Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private Shared HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64
 
    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer
 
 
    Public ReadOnly Property ScreenX() As Integer
        Get
            Return GetSystemMetrics(SM_CXSCREEN)
        End Get
    End Property
 
    Public ReadOnly Property ScreenY() As Integer
        Get
            Return GetSystemMetrics(SM_CYSCREEN)
        End Get
    End Property
 
    Private Sub FullScreen()
        Me.WindowState = FormWindowState.Maximized
        Me.FormBorderStyle = FormBorderStyle.None
        Me.TopMost = True
        SetWindowPos(Me.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub
 
    Public Sub NormalMode()
        Me.WindowState = FormWindowState.Normal
        Me.FormBorderStyle = FormBorderStyle.SizableToolWindow
        Me.TopMost = False
    End Sub
 

EDIT:
Waarom geeft mijn arraylist een error? Ik kom er zelf even niet meer uit. Dit is de code:

vb.net code - Bekijk de code zonder highlighting - Klap code in

        Dim Settings As ArrayList
        Settings.Add("[SETTINGS]")
        Settings.Add("AllowFullscreen = 'True'")
        Settings.Add("Fuck = ''")
        If System.IO.File.Exists(SetFile) = False Then
            objINI.CreateSettingsIni(SetFile)
            For i As Integer = 0 To Settings.Count
                objINI.AddLine(SetFile, Settings.Item(i))
            Next i
        End If

Dim Settings As ArrayList
        Settings.Add("[SETTINGS]")
        Settings.Add("AllowFullscreen = 'True'")
        Settings.Add("Fuck = ''")
        If System.IO.File.Exists(SetFile) = False Then
            objINI.CreateSettingsIni(SetFile)
            For i As Integer = 0 To Settings.Count
                objINI.AddLine(SetFile, Settings.Item(i))
            Next i
        End If

2 antwoorden

Gesponsorde links

Mario - 07/12/2009 10:18

Crew algemeen

De oplossing op je eerste vraag.

mvg,
Mario

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Public Class Form1

    Dim ShowFullNormalMode As New ClsFullScreen

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'FullScreen()
        ShowFullNormalMode.FullScreen(Me)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'NormalMode()
        ShowFullNormalMode.NormalMode(Me)
    End Sub
End Class

            
Public Class Form1
 
    Dim ShowFullNormalMode As New ClsFullScreen
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'FullScreen()
        ShowFullNormalMode.FullScreen(Me)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'NormalMode()
        ShowFullNormalMode.NormalMode(Me)
    End Sub
End Class
 

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Public Class ClsFullScreen

    Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private Shared HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64

    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer

    Private ReadOnly Property ScreenX() As Integer
        Get
            Return GetSystemMetrics(SM_CXSCREEN)
        End Get
    End Property

    Private ReadOnly Property ScreenY() As Integer
        Get
            Return GetSystemMetrics(SM_CYSCREEN)
        End Get
    End Property

    Public Sub FullScreen(ByVal FrmName As Form)
        FrmName.WindowState = FormWindowState.Maximized
        FrmName.FormBorderStyle = FormBorderStyle.None
        FrmName.TopMost = True
        SetWindowPos(FrmName.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub

    Public Sub NormalMode(ByVal FrmName As Form)
        FrmName.WindowState = FormWindowState.Normal
        FrmName.FormBorderStyle = FormBorderStyle.SizableToolWindow
        FrmName.TopMost = False
    End Sub


End Class

            
Public Class ClsFullScreen
 
    Private Const SM_CXSCREEN As Integer = 0
    Private Const SM_CYSCREEN As Integer = 1
    Private Shared HWND_TOP As IntPtr = IntPtr.Zero
    Private Const SWP_SHOWWINDOW As Integer = 64
 
    Private Declare Function SetWindowPos Lib "user32.dll" Alias "SetWindowPos" (ByVal hWnd As IntPtr, ByVal hWndIntertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    Private Declare Function GetSystemMetrics Lib "user32.dll" Alias "GetSystemMetrics" (ByVal Which As Integer) As Integer
 
    Private ReadOnly Property ScreenX() As Integer
        Get
            Return GetSystemMetrics(SM_CXSCREEN)
        End Get
    End Property
 
    Private ReadOnly Property ScreenY() As Integer
        Get
            Return GetSystemMetrics(SM_CYSCREEN)
        End Get
    End Property
 
    Public Sub FullScreen(ByVal FrmName As Form)
        FrmName.WindowState = FormWindowState.Maximized
        FrmName.FormBorderStyle = FormBorderStyle.None
        FrmName.TopMost = True
        SetWindowPos(FrmName.Handle, HWND_TOP, 0, 0, ScreenX, ScreenY, SWP_SHOWWINDOW)
    End Sub
 
    Public Sub NormalMode(ByVal FrmName As Form)
        FrmName.WindowState = FormWindowState.Normal
        FrmName.FormBorderStyle = FormBorderStyle.SizableToolWindow
        FrmName.TopMost = False
    End Sub
 
 
End Class
 

nick5556 - 07/12/2009 18:01
PHP beginner		Oke, dankjewel! BTW: ik heb de tweede al opgelost via een string met meerdere indexen(zo zeg je dat toch???).

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten