14-03-18, 05:58 PM
سلام عليكم
واجهت مشكلة في الكود هذا
صورة المشكلة
الكود
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Application.Deployment.IsFirstRun Then ' المشكلة هنا
My.Settings.Expiration_Date = Now.Date
My.Settings.Save()
End If
If DateDiff(DateInterval.Day, Now, My.Settings.Expiration_Date) > 3 Then '3 is the expiration date
Dim Response As String = "~"
While Response <> "Password here" And Response <> Nothing
Response = InputBox("The 3 day trial is up! Please enter a password to continue using this software!", "Trial")
End While
If Response = Nothing Then End 'A crude, but effective, way of forcing a close
End If
Me.Hide()
Form2.Show() 'If it passes all the tests, start the main program
End Sub
المشروع بالمرفقات