Windows Herkenining

[eeyk]

Hoe kan ik er voor zorgen dat mij Programma allen op

Xp en Vista werkt en alles wat onder Xp zit niet werkt

 

[Pizara]

Makkie ,

kleine uitleg :

major : kleiner als 4 , minor : 0 = winNT
major : 4 , minor : 0 = win95
major : 4 , minor : groter als 0, kleiner als 90 = win98
major : 4 , minor : groter 90 = winME
major : 5 , minor : 0 = win2000
major : 5 , minor : groter als 0 = winXP
major : 6 , minor : 0 = vista

Public Class Form1

    Private os As OperatingSystem = Environment.OSVersion
    Private vs As Version = os.Version
    Private Maj = vs.Major
    Private Min = vs.Minor

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Maj = 5 And Min > 0 Then
            MsgBox("you are running Windows XP or higher", MsgBoxStyle.OkOnly)
        Else
            MsgBox("your system should at least run Windows XP", MsgBoxStyle.OkOnly)
        End If

    End Sub

End Class

 

[eeyk]

is dit voor Vb6 die code?

Zo te zien niet want hij werkt niet op VB6

 

[Pizara]

is dit voor Vb6 die code?

Zou wel handig zijn als je het er volgende keer bijzet , vind je ook niet?
Maar goed , nee dit is de code voor VB2008.

Maar hier vind je een zelfde soort code voor VB6.

 

[eeyk]

Bedankt Nu kan ik er een if's op zetten

zo dat als je onder XP zit Unload me

msgbox "You Need Win XP or Win Vista"