Mir kam nur gerade eine Idee über eine Art Rank-Interface.
Beispiel:
Es gibt normale und premium User.
Durch eine spezifizierte Bedingung wird geprüft ob der Benutzer normal oder premium hat. (z.B MySQL oder FTP oder was weis ich, seid kreativ)
Wenn normal -> zeige normales Interface
Wenn premium -> zeige premium Interface
Ich habe hier kurz eine Klasse geschrieben, habe diese aber nicht getestet (und es ist früh...), kann/soll aber für manch einen eine Anregung sein um weiterzumachen.
Code:
Code:
Public Class Design
Public Function useTheme() As Boolean
If checkstatus() = True Then
usenormal()
Return True
Else
usepremium()
Return False
End If
End Function
Sub usenormal()
Dim background_imgurl As String = "Link"
Dim test As String = "Link"
Return
'Weiter Elemente hinzufügen
End Sub
Sub usepremium()
Dim background As String = "Link"
Dim test As String = "Link"
Return
'Weitere Elemente hinzufügen
End Sub
Public Function checkstatus() As Boolean
'Function editieren für Bedingung
Return True
End Function
End Class







