My Project > Settings > Name (kalan) > Value (5) yapıyorsun. Daha sonr aşağıdaki örnek kodu kopyalayıp kullanıyorsun.Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hbs As String = My.Settings.kalan
My.Settings.kalan = hbs - 1
If hbs = 0 Or 0 > hbs Then
MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")
End
Else
MsgBox(hbs & " Giriş hakkınız kaldı!")
My.Settings.Save()
End If
End Sub
End Class
evet reis böyle ama bunu nereye yazıcazİlk OlarakMy Project > Settings > Name (kalan) > Value (5)yapıyorsun. Daha sonr aşağıdaki örnek kodu kopyalayıp kullanıyorsun.
Visual Basic:Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim hbs As String = My.Settings.kalan My.Settings.kalan = hbs - 1 If hbs = 0 Or 0 > hbs Then MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.") End Else MsgBox(hbs & " Giriş hakkınız kaldı!") My.Settings.Save() End If End Sub End Class
Not: Yanlış anlamadıysam böyle bir kod lazım sana kodu anlamadıysan veya özet istersen söylemen yeterli.
Sanırım anlamadın istersen ÖM atabilirsin.evet reis böyle ama bunu nereye yazıcaz