+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الغاء تنفيذ الادخال عن طريق inputbox (/showthread.php?tid=21496)
الغاء تنفيذ الادخال عن طريق inputbox - mo93 - 26-08-17
السلام عليكم
انا كتبت كود ادخال عن طريق inputbox فعند ادخال القيمة و الضغط على زر موافق يخزن البيانات و عند الضغط على زر الالغاء يتابع تنفيذ باقي الكود و ايضاً يخزن البيانات , اريد كود يلغي تنفيذ باقي الاسطر البرمجية عند الضغط على زر الالغاء الخاص بـــ inputbox .
شكراً
RE: الغاء تنفيذ الادخال عن طريق inputbox - حريف برمجة - 26-08-17
(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 IfRE: الغاء تنفيذ الادخال عن طريق inputbox - mo93 - 02-09-17
السلام عليكم
كل عام و انتم بخير
شكراً على ردك اخي حريف برمجة لكن هذا ليس ما اريده الظاهر اني لم اشرح ما اريده بالشكل المطلوب كما تعرف ان صندوق الادخال يحتوي على زرين ok و cancel الان عندما اضغط على زر ok ينفذ باقي الاسطر و كذلك عندما اضغط على زر cancel ينفذ باقي الاسطر اريد كود يخرج من sub عند الضغط على زر cancel بغض النظر عما اذا كان المستخدم ادخل البيانات ام لا اتمنى ان اكون قد وضحت مبتغاي بشكل افضل.
ارجو ان تعذرونا فقد اثقلنا عليكم شكراً
RE: الغاء تنفيذ الادخال عن طريق inputbox - سعود - 02-09-17
اخي الكريم 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 ClassRE: الغاء تنفيذ الادخال عن طريق inputbox - mo93 - 03-09-17
شكراً اخي سعود على ردك من المؤسف ان لايكون هذا الامر متوفر
ممكن اطلب منكم مساعدة صغيرة في المرفق مشروع صغير اضفت عليه ثلاث طرق بحث الطريقة الثالثة لاتعمل
ارجو مراجعة اكواد البحث اذا امكن
شكراً
RE: الغاء تنفيذ الادخال عن طريق inputbox - سعود - 03-09-17
التسلسلي ام الوطني
الوطني نص عدل على الكود ليكون هكذا
كود :
da = New OleDbDataAdapter("SELECT * FROM ba WHERE id_nu='" & ts.Text & "'", con)