كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا
كود وميض الليبل ضع هذا الكود فى التايمر
هذا الكود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم .
كود لجعل برنامجك تجريبيا
كود :
Private Sub ResultTextbox3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
If TextBox1.Text Is String.Empty Or Not IsNumeric(TextBox1.Text) Then
TextBox3.Text = ""
Exit Sub
End If
If TextBox2.Text Is String.Empty Or Not IsNumeric(TextBox2.Text) Then
TextBox3.Text = ""
Exit Sub
End If
TextBox3.Text = CType(TextBox1.Text, Integer) * CType(TextBox2.Text, Integer)
End Subكود وميض الليبل ضع هذا الكود فى التايمر
كود :
If Label1.ForeColor = Color.Red Then
Label1.ForeColor = Color.Black
Else
Label1.ForeColor = Color.Red
End Ifهذا الكود بسيط جداً ولكن مهم لجعل Text Box يكتب رقم لا يكتب نص ويكتب نص ولا يكتب رقم .
إقتباس :أولاً نقوم بإضافة اداة Text Box ونكتب الكود فى الحدث KeyPress
هذا الكود لجعل Text Box يكتب رقم ولا يكتب نص
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Subإقتباس :هذا الكود لجعل Text Box يكتب نص ولا يكتب رقم
كود :
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar) Then
e.Handled = True
End If
End Subكود لجعل برنامجك تجريبيا
كود :
Public Class Form1
Dim T As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T = False
Dim RegX As Microsoft.Win32.RegistryKey
RegX = Microsoft.Win32.Registry.CurrentUser
Dim S As String() = RegX.GetSubKeyNames
For Each A As String In S
If A = "smp3" Then
T = True
End If
Next
If T = True Then
RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("smp3", True)
Dim x As Integer = RegX.GetValue("val")
x = x + 1
RegX.SetValue("val", x)
If x = 5 Or x > 5 Then
MsgBox("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء")
Application.Exit()
End If
Else
RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("smp3")
RegX.SetValue("val", 1)
End If
End Sub
End Class
