09-01-19, 05:29 PM
هذا كود لنسخة "تجريبية" جعلتها في برنامجي عندما توقف البرنامج لم استطيع إعادة "تفعيل البرنامج من جديد"، من لديه حل؟ شكرا
الكوه هو كما يلي:
الكوه هو كما يلي:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim GD As String
Dim retvalue As Object
retvalue = GetSetting("A", "0", "Runcount")
GD = CStr(Val(retvalue) + 1)
SaveSetting("A", "0", "RunCount", GD)
If CDbl(GD) > 10 Then ' 1
MsgBox("انتهت مدة تشغيل البرنامج،،، ")
Me.Close()
End If
End Sub
End Class