Vb.Net - Deneme Sürümü Oluşturma

Bu dersimizde VB.net ile programlarınıza demo hazırlamayı öğreneceksiniz.

Bu dersimizde VB.net ile programlarınıza demo hazırlamayı öğreneceksiniz.

My Project > Settings > Name[kalan] > Value[5]
bunları settingsdeki textboxlara yazın.Ve şu kodları form1_load'a ekleyin.


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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git