تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] التحقق من وجود نص فى التكست بوكس
#1
كيفيه التحقق من وجود نص فى التكست بوكس اذا كانت النتيجه ايجابيه بوجود نص يقوم بطباعه الفورم واذا لم يكن هناك نص لا يفعل شىء او يوقف عمليه الطباعه .
الرد }}}
تم الشكر بواسطة:
#2
(26-02-16, 10:35 PM)norhan كتب : كيفيه التحقق من وجود نص فى التكست بوكس اذا كانت النتيجه ايجابيه بوجود نص يقوم بطباعه الفورم واذا لم يكن هناك نص لا يفعل شىء او يوقف عمليه الطباعه .

PHP كود :
Private Sub Command1_Click()
 
   If Trim$(Text1.Text) = "" Then
        MsgBox 
"لا يوجد نص"vbCritical
    Else
        MsgBox 
"يوجد نص"vbOKOnly
    End 
If
End Sub 
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري
#3
شكرا استاذنا ولكن انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = ""
لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا
الرد }}}
تم الشكر بواسطة:
#4
(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا  ولكن  انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = ""
لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا

الكود مثل ما طلبت
نشرح الكود خطوه خطوه



PHP كود :
   If Trim$(Text1.Text) = "" Then 


الكود في الاعلى يتحقق من قيمة (Text1) اذا كانت فارغه ( لا تحتوي على نص )
يظهر المسج التالي

PHP كود :
       MsgBox "لا يوجد نص"vbCritical 


اذا كان غير فارغ ( يحتوي على نص )
يظهر المسج التالي

PHP كود :
       MsgBox "يوجد نص"vbOKOnly 


------------------ انتهى ------------------

بالنسبه للرسائل بامكانك وضع الكود الذي يناسبك مكان كود الرساله
الرد }}}
#5
(27-02-16, 12:08 AM)administrator كتب :
(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا  ولكن  انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = ""
لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا

الكود مثل ما طلبت
نشرح الكود خطوه خطوه



PHP كود :
   If Trim$(Text1.Text) = "" Then 


الكود في الاعلى يتحقق من قيمة (Text1) اذا كانت فارغه ( لا تحتوي على نص )
يظهر المسج التالي

PHP كود :
       MsgBox "لا يوجد نص"vbCritical 


اذا كان غير فارغ ( يحتوي على نص )
يظهر المسج التالي

PHP كود :
       MsgBox "يوجد نص"vbOKOnly 


------------------ انتهى ------------------

بالنسبه للرسائل بامكانك وضع الكود الذي يناسبك مكان كود الرساله
اعزرنى  الكود ليس هو ما اردت ولكن سوف ارسل لك ما اريد
Private Sub Command2_Click()
   
                                                                         "انتبه انت لم تدخل اسم العميل"   If Text1.Text = ""Then MsgBox 
   "WindowsMediaPlayer1.URL = "c:\windows\media\Windows Exclamation.wav

  
  (فى هذا المكان اريد التحقق من وجود نص فى التكست بوكس حتى ينفذ عمليه الطباعه فاذا لم يجد نص لا يقوم بالطباعه)
    
 Command2.Visible = False
    Command1.Visible = False
    Printer.Orientation = vbPRORLandscape ' Returns 2
   Printer.Copies = 1
    PrintForm
    End If
     Command1.Visible = True
     
    Command2.Visible = True
End Sub
الرد }}}
تم الشكر بواسطة:
#6
ارجو ارفاق المشروع
وسيتم التعديل عليه
الرد }}}
تم الشكر بواسطة:
#7
(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع
وسيتم التعديل عليه

ارفقت المثال  التالى فى المرفقات  يارب يكون معبر عن ما اريد  لانى اريد اذا وجد نص فى التكست بوكس يقوم بالطباعه


الملفات المرفقة
.rar   اختبار.rar (الحجم : 1.5 ك ب / التحميلات : 52)
الرد }}}
تم الشكر بواسطة:
#8
(27-02-16, 11:06 PM)norhan كتب :
(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع
وسيتم التعديل عليه

ارفقت المثال  التالى فى المرفقات  يارب يكون معبر عن ما اريد  لانى اريد اذا وجد نص فى التكست بوكس يقوم بالطباعه



-------------------------------------


المثال معدل بالمرفقات





-------------------------------------
دالة (if)

التحق من شرط واحد

PHP كود :
if "الشرط" then
 
"الاجراء اذا تحقق الشرط" 
end if 

التحقق بشرطين

PHP كود :
if "الشرط" then
"الاجراء في حال تحقق الشرط"
else
"الاجراء اذا لم يتحقق الشرط"
end if 


التحقق باكثر من شرط

PHP كود :
if "الشرط الاول" then
"الاجراء اذا تحقق الشرط الأول"
elseif "الشرط الثاني اذا لم يتحقق الشرط الأول" then
"الاجراء اذا تحقق الشرط الثاني"
elseif "الشرط الثالث اذا لم يتحقق الشرط الثاني" then
"الاجراء اذا تحقق الشرط الثالث"
else
"الاجراء اذا لم تتحقق جميع الشروط"
end if 


الملفات المرفقة
.zip   اختبار.zip (الحجم : 1.86 ك ب / التحميلات : 59)
الرد }}}
#9
(27-02-16, 11:25 PM)administrator كتب :
(27-02-16, 11:06 PM)norhan كتب :
(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع
وسيتم التعديل عليه

ارفقت المثال  التالى فى المرفقات  يارب يكون معبر عن ما اريد  لانى اريد اذا وجد نص فى التكست بوكس يقوم بالطباعه



-------------------------------------


المثال معدل بالمرفقات





-------------------------------------
دالة (if)

التحق من شرط واحد

PHP كود :
if "الشرط" then
 
"الاجراء اذا تحقق الشرط" 
end if 

التحقق بشرطين

PHP كود :
if "الشرط" then
"الاجراء في حال تحقق الشرط"
else
"الاجراء اذا لم يتحقق الشرط"
end if 


التحقق باكثر من شرط

PHP كود :
if "الشرط الاول" then
"الاجراء اذا تحقق الشرط الأول"
elseif "الشرط الثاني اذا لم يتحقق الشرط الأول" then
"الاجراء اذا تحقق الشرط الثاني"
elseif "الشرط الثالث اذا لم يتحقق الشرط الثاني" then
"الاجراء اذا تحقق الشرط الثالث"
else
"الاجراء اذا لم تتحقق جميع الشروط"
end if 

اشكرك جزيلاً  على المجهود  لقد حققت المطلوب ولكن ماذا لو اردت ان اشير ان التكست بوكس لا يساوى الا قيمه نصيه وشكرا
الرد }}}
تم الشكر بواسطة:
#10
غداً ان شاء الله نكمل



وارجو توضيح التقطه الأخيره
هل المقصود جعل التيكست لا يقبل الا نصوص فقط
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , norhan


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
  [سؤال] التيكست بوكس Abdellah 2 389 18-11-23, 10:55 AM
آخر رد: Abdellah
  [سؤال] كود عدم تكرار الداتا المستعدة فى الكومبو بوكس mostafa fricool 6 6,064 09-02-23, 02:10 PM
آخر رد: ahlan_32
  استفسار اخوتي بخصوص التيكست بوكس او الليست بوكس عبدالمؤمن 2 474 27-11-22, 08:51 PM
آخر رد: عبدالمؤمن
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
  [vb6.0] اضافة الاسماء في الليست بوكس وظهور البيانات مثل الكريدفيو وادي العوضي 6 1,311 04-06-22, 09:42 PM
آخر رد: مصمم هاوي
  [vb6.0] اختيار اسم الزبون من الكومبو بوكس لغرض طباعة تقريره وادي العوضي 4 1,295 15-01-22, 06:13 PM
آخر رد: وادي العوضي
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90
  ربط تكست بوكس بالتاريخ الهجري الموجود في صفحة انترنت؟ Alhootti1 5 1,900 30-08-21, 11:18 PM
آخر رد: Alhootti1
  مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس مصمم هاوي 4 2,413 13-09-20, 03:57 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم