resolutie aanpassen

[alain1988]

ik heb dus een programma geschreven op mijn desktop pc maar de resolutie valt hier wat groot uit weet er iemand hoe je de gebruiker zijn resulutie laat invullen en dat het secondaire programma dan zich aanpast

resolution.vb -> aanvraag reslutie bv 800 * 600 -> form.vb

 

[Maximvdw]

Ik snap eigenlijk niet goed wat je bedoeld :S
Wil je de Width en Height van Form verranderen? Of wil je de schermresolutie verranderen? :

Public Function CheckChangeResolution(ByRef GetState As Byte) As Boolean

Dim SetWsize As Int32 = 1024
Dim SetHsize As Int32 = 768
Dim SetRel As New Nicole.SCR.CResolution

'Here we should check system color depth to make sure it addresses to program's requirements /*/

Select Case GetState
Case 1
If (Wsize < SetWsize And Hsize < SetHsize Or Wsize > SetWsize And Hsize > SetHsize) Then
CheckChangeResolution = SetRel.CResolution(SetWsize, SetHsize)
End If
Case 0
CheckChangeResolution = SetRel.CResolution(Wsize, Hsize)
Case 2
If Wsize < 800 And Hsize < 600 Then
CheckChangeResolution = False
End If
End Select

End Function

waarbij:
Dim SetWsize As Int32 = 1024
Dim SetHsize As Int32 = 768
de variabelen voor de grote zijn

 

[alain1988]

ja ik wil de resolutie van het form wijzigen zodat deze om het even waar goed word weer gegeven ik had geprobeerd met percentages te werken maar dit werkte niet ik zal het geen van u eens uitproberen

 

[alain1988]

goe ik heb het gevonden ik heb volgend toegepast

Public Overrides Property Autosize As Boolean
Get
Return MyBase.Autosize
End Get
Set(ByVal Value as Boolean)
MyBase.Autosize = value
End Set
End Property

 

[Maximvdw]

Je kon ook
Form.Width = 800
Form.Height = 600