- Yasaklandı
- #1
Onaylı Üye
İlk Olarak
My Project > Settings > Name[kalan] > Value[5]
Sonra
My Project > Settings > Name[kalan] > Value[5]
Sonra
Kod:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String = My.Settings.kalan
My.Settings.kalan = a - 1
If a = 0 Or 0 > a Then
MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")
End
Else
MsgBox(a & " Giriş hakkınız kaldı!")
My.Settings.Save()
End If
End Sub
End Class
