السلام عليكم
انا كتبت كود ادخال عن طريق inputbox فعند ادخال القيمة و الضغط على زر موافق يخزن البيانات و عند الضغط على زر الالغاء يتابع تنفيذ باقي الكود و ايضاً يخزن البيانات , اريد كود يلغي تنفيذ باقي الاسطر البرمجية عند الضغط على زر الالغاء الخاص بـــ inputbox .
شكراً
(26-08-17, 05:44 AM)mo93 كتب : [ -> ]السلام عليكم
انا كتبت كود ادخال عن طريق inputbox فعند ادخال القيمة و الضغط على زر موافق يخزن البيانات و عند الضغط على زر الالغاء يتابع تنفيذ باقي الكود و ايضاً يخزن البيانات , اريد كود يلغي تنفيذ باقي الاسطر البرمجية عند الضغط على زر الالغاء الخاص بـــ inputbox .
شكراً
وعليكم السلام ،،
كود :
Dim SName As String = InputBox("أدخل البيانات هنا", "Data", "")
'هنا اذا المستخدم ادخل بيانات ادخل الكود المطلوب تنفيذه
If SName <> "" Then
MessageBox.Show("يوجد بيانات" & vbCrLf & SName)
'هنا اذا المستخدم لم يدخل بيانات ادخل الكود المطلوب تنفيذه
ElseIf SName = "" Then
MessageBox.Show("لا يوجد بيانات")
End If
السلام عليكم
كل عام و انتم بخير
شكراً على ردك اخي حريف برمجة لكن هذا ليس ما اريده الظاهر اني لم اشرح ما اريده بالشكل المطلوب كما تعرف ان صندوق الادخال يحتوي على زرين ok و cancel الان عندما اضغط على زر ok ينفذ باقي الاسطر و كذلك عندما اضغط على زر cancel ينفذ باقي الاسطر اريد كود يخرج من sub عند الضغط على زر cancel بغض النظر عما اذا كان المستخدم ادخل البيانات ام لا اتمنى ان اكون قد وضحت مبتغاي بشكل افضل.
ارجو ان تعذرونا فقد اثقلنا عليكم شكراً
اخي الكريم mo93
كلنا نريد هالشي لكن غير متوفر ...
فيه
سؤال شبيه
وجوابه شبيه ايضا
الحل ان تعمل فورم مخصص لما تريده او تقبل الوضع الراهن.
وكل عام و انتم بخير.
المرفق مثال بسيط ممكن تسوي افضل منه
موديول
كود :
Module inp
Public ok As Boolean = False
Public Function inpts(ByVal title As String, ByVal lb As String, ByVal def As String) As Boolean
myinputbox.Text = title
myinputbox.lbl.Text = lb
myinputbox.txtinput.Text = def
myinputbox.ShowDialog()
If ok = True Then
Return True
Else
Return False
End If
End Function
End Module
فورم الـ Inputbox
كود :
Public Class myinputbox
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
ok = True
Me.Close()
End Sub
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
ok = False
Me.Close()
End Sub
End Class
فورم الاستخدام
كود :
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If inpts("هلا بيكم", "فضلا اكتب نص", "هنا رسالتك") = True Then
ListBox1.Items.Add(myinputbox.txtinput.Text)
End If
End Sub
End Class
شكراً اخي سعود على ردك من المؤسف ان لايكون هذا الامر متوفر
ممكن اطلب منكم مساعدة صغيرة في المرفق مشروع صغير اضفت عليه ثلاث طرق بحث الطريقة الثالثة لاتعمل
ارجو مراجعة اكواد البحث اذا امكن
شكراً
التسلسلي ام الوطني
الوطني نص عدل على الكود ليكون هكذا
كود :
da = New OleDbDataAdapter("SELECT * FROM ba WHERE id_nu='" & ts.Text & "'", con)