30-11-18, 11:07 AM
30-11-18, 04:27 PM
مالذي تريده من هذا الكود البحث عن سجل معين في التيكست بوكس هذا مثال مبسط عن الإضافة و البحث :
كود :
Dim File1, name1, number1, bsalary, a, B, n As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
File1 = Application.StartupPath & "\Asem.txt"
End Sub
Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
If File1 = "" Then
MsgBox("الرجاء تحديدالملف المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
FileOpen(1, File1, OpenMode.Append)
WriteLine(1, TextBox1.Text)
WriteLine(1, TextBox2.Text)
WriteLine(1, TextBox3.Text)
WriteLine(1, TextBox4.Text)
WriteLine(1, TextBox5.Text)
WriteLine(1, TextBox6.Text)
FileClose(1)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End If
End Sub
Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
Dim msg As String
If TextBox2.Text = "" Then
MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
msg = TextBox2.Text
If File1 = "" Then
MsgBox("الرجاء تحديد المحافظة أو البلد المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
Else
FileOpen(1, File1, OpenMode.Input)
Do While Not EOF(1)
Input(1, name1) : Input(1, number1) : Input(1, bsalary) : Input(1, a) : Input(1, B) : Input(1, n)
If msg = number1 Then
TextBox1.Text = name1
TextBox2.Text = number1
TextBox3.Text = bsalary
TextBox4.Text = a
TextBox5.Text = B
TextBox6.Text = n
End If
Loop
FileClose(1)
End If
End If
End Sub
30-11-18, 05:24 PM
الموضوع يتعلق بقراءة ملف plt
بحيث ينقل الرسم الى برنامجي
ممكن المساعدة
بحيث ينقل الرسم الى برنامجي
ممكن المساعدة
30-11-18, 06:40 PM
ضع لي نسخة من ملف plt
30-11-18, 09:47 PM
01-12-18, 08:16 AM
السلام عليكم
سيد asemshahen5 المطلوب موجود في هذا البرنامج ولكنه مصمم بالفيجوال بيسك 6
اريده بالفيجوال دون نت
[attachment=20260]
سيد asemshahen5 المطلوب موجود في هذا البرنامج ولكنه مصمم بالفيجوال بيسك 6
اريده بالفيجوال دون نت
[attachment=20260]
01-12-18, 01:55 PM
Input(1, B)
or
or
كود :
B=InputString(1,1)
'm