RabbitMQ

change screen resolution

O primeiro passo é localizar a seguinte DLL: ResolutionChanger.dll

O passo seguinte é no Visual Studio 2005 escrever o trecho de código abaixo...



Imports Resolution
Public Class Form1
    Dim iOrigialScreenWidth As Integer
    Dim iOrigialScreenHeight As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        iOrigialScreenWidth = Screen.PrimaryScreen.Bounds.Width()
        iOrigialScreenHeight = Screen.PrimaryScreen.Bounds.Height()


        Dim ChangeRes As CResolution
        ChangeRes = New Resolution.CResolution(640, 480)


        btnOriginal.Text = "Retornar [" & iOrigialScreenWidth & "x" & iOrigialScreenHeight & "]"
        btnOriginal.Visible = True


        Me.Width = 200
        Me.Height = 245


    End Sub


    Private Sub btnOriginal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOriginal.Click
        Dim ChangeRes As CResolution
        ChangeRes = New Resolution.CResolution(iOrigialScreenWidth, iOrigialScreenHeight)
        btnOriginal.Visible = False
        Me.Width = 200
        Me.Height = 138
    End Sub


    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Dim ChangeRes As CResolution
        ChangeRes = New Resolution.CResolution(iOrigialScreenWidth, iOrigialScreenHeight)
    End Sub
End Class

Resultados



Comments