- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
My Project > Settings > Name[kalan] > Value[5]
bunları settingsdeki textboxlara yazın.Ve şu kodları form1_load'a ekleyin.
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
[video=youtube;gqf3-gJX0i4]http://www.youtube.com/watch?v=gqf3-gJX0i4[/MEDIA]
bunları settingsdeki textboxlara yazın.Ve şu kodları form1_load'a ekleyin.
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
[video=youtube;gqf3-gJX0i4]http://www.youtube.com/watch?v=gqf3-gJX0i4[/MEDIA]