- Get link
- X
- Other Apps
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
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