[VB.NET]Deneme Sürümü Oluşturma

Bu Dersimizde Bir Proje İçin Deneme Sürümü Oluşturmayı Gösterdim.

Form1_Load Kodları:
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 Bitmiltir,Lütfen Tam Sürümü Satın Alınız!",vbInformatiın,"Hakkınız Bitmiştir")
Else
MsgBox(a & "Tane Hakkınız Kalmıştır",vbInformation,"Kalan Hakkınız!")
My.Settings.Save()
End If

Paylas :

Tweet

✚

Benzer Yazılar