- 12 Eyl 2010
- 655
- 0
Hazırlanan Programı Demo Sürüm Haline Getirme VB.NET
Projemiz tamamlandıktan sonra ilk hangi form ile açılıyorsa onun Load ‘ na şağıdaki kodları yazıyoruz.
Bu program 20 kullanımlık olarak ayarlanmıştır. Kodlardaki 20 sayısını isteğinize göre değiştirebilirsiniz.
http://www.gorselprogramlama.com/hazirlanan-programi-demo-surum-haline-getirme-vb-net#
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim kalan As Integer
- kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("gorselprogramlama yazılım").GetValue("gorsel", 20)
- Label3.Text = kalan & " Kullanım Hakkınız Kaldı"
- kalan -= 1
- If kalan < 0 Then
- MsgBox("Kullanım Hakkınız Sona Erdi")
- Application.Exit()
- Else
- Microsoft.Win32.Registry.CurrentUser.CreateSubKey("gorselprogramlama yazılım").SetValue("gorsel", kalan)
- End If
- End Sub