Vb.net Projenize Deneme Sürümü Ekle

[sametcanaz200]

İlk Olarak
My Project > Settings > Name[kalan] > Value[5]
Sonra

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

 

[OxiDox]

Kodlar için Teşekkürler Güncel+++

 

[MiroslavStoch]

Eyw Kodlar İçin

 

[ExpertMurderer]

Teşekkürler

 

[sametcanaz200]

 

[enesasd123]

Teşekkürler

 

[sametcanaz200]

Teşekkürler

Bişey Değil

 

[YAKOOPS123]

Teşekkürler

 

[Memorydefacer]

EYVALLAH