<![CDATA[منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - النقاش والأسئلة حول الإصدارات الأحدث من الفيجوال ستوديو]]> https://vb4arb.com/vb/ Wed, 22 Apr 2026 22:26:07 +0000 MyBB <![CDATA[ممكن فيجول بيسك 6]]> https://vb4arb.com/vb/showthread.php?tid=55981 Fri, 16 Jan 2026 18:03:15 +0000 هكرمهجول]]> https://vb4arb.com/vb/showthread.php?tid=55981
ابي منكم ي احلى اعضاء 

رابط برنامج فيجول بيسك6

او 2012 اصدار فيجول كلهم  يكونوا برابط مباشر حتى اقدر احمله
وين الردود وشفيكم ساكتين ردوا علي]]>
ابي منكم ي احلى اعضاء 

رابط برنامج فيجول بيسك6

او 2012 اصدار فيجول كلهم  يكونوا برابط مباشر حتى اقدر احمله
وين الردود وشفيكم ساكتين ردوا علي]]> <![CDATA[استفسار]]> https://vb4arb.com/vb/showthread.php?tid=46665 Sat, 05 Aug 2023 08:48:23 +0000 MOHAMMED128779]]> https://vb4arb.com/vb/showthread.php?tid=46665 لدي برنامج مصصم ببرنامج فيجوال ستديو وهو مربوط بقاعدة اكسيس لدي مشكلة عند تشغيل البرنامج في اجهزة العمل يظهر الرسالة 
كيف اربط  النوت باد بقاعدة البيانات التي ترتبط بالفيجوال ستديو

.jpg   0297e3a6-384d-4e5d-9b67-52bd4967b288.jpg (الحجم : 133.09 ك ب / التحميلات : 10) ]]> لدي برنامج مصصم ببرنامج فيجوال ستديو وهو مربوط بقاعدة اكسيس لدي مشكلة عند تشغيل البرنامج في اجهزة العمل يظهر الرسالة 
كيف اربط  النوت باد بقاعدة البيانات التي ترتبط بالفيجوال ستديو

.jpg   0297e3a6-384d-4e5d-9b67-52bd4967b288.jpg (الحجم : 133.09 ك ب / التحميلات : 10) ]]> <![CDATA[عن سبب إغلاق الفورم عند ظهور رسالة]]> https://vb4arb.com/vb/showthread.php?tid=45767 Thu, 23 Mar 2023 13:40:31 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=45767
رمضان مبارك علينا وعليكم وكل عام وانتم بخير 

كيف الحال يا أعضاء المنتدى؟

عندي سؤال أو استفسار

هذا الكود:
عند الضغط على زر ( تعديل بيانات الزائر ) - كما في الصورة -  عند صحة الشرط تظهر رسالة.. وعند الضغط على موافق تختفي الرسالة ويعود لنفس الفورم ( تعديل بيانات الزائر )، (ممتاز).


كود :
Private Sub Btn_Edit_Click(sender As Object, e As EventArgs) Handles Btn_Edit.Click
       If Txt_Vis_Name.Text = "" Then
           MsgBox("الرجاء إدخال اسم الزائر")
           Txt_Vis_Name.Focus()
           Exit Sub
       End If
   End Sub


110011.jpg - MediaFire



وهذا الكود نفس الأول مع اختلاف بسيط:
ولكن عند الضغط على موافق تختفي الرسالة ويختفي الفورم أيضاً...!!!

كود :
Private Sub Btn_Banned_Click(sender As Object, e As EventArgs) Handles Btn_Banned.Click
       If Txt_File_Num.Text = "" Then
           MsgBox("لا بد من وجود رقم ملف المريض لفتح قائمة المنع والسماح")
           Txt_File_Num.Focus()
           Exit Sub
       End If
   End Sub

110022.jpg - MediaFire

لا أدري ما هو السبب؟؟!!]]>
رمضان مبارك علينا وعليكم وكل عام وانتم بخير 

كيف الحال يا أعضاء المنتدى؟

عندي سؤال أو استفسار

هذا الكود:
عند الضغط على زر ( تعديل بيانات الزائر ) - كما في الصورة -  عند صحة الشرط تظهر رسالة.. وعند الضغط على موافق تختفي الرسالة ويعود لنفس الفورم ( تعديل بيانات الزائر )، (ممتاز).


كود :
Private Sub Btn_Edit_Click(sender As Object, e As EventArgs) Handles Btn_Edit.Click
       If Txt_Vis_Name.Text = "" Then
           MsgBox("الرجاء إدخال اسم الزائر")
           Txt_Vis_Name.Focus()
           Exit Sub
       End If
   End Sub


110011.jpg - MediaFire



وهذا الكود نفس الأول مع اختلاف بسيط:
ولكن عند الضغط على موافق تختفي الرسالة ويختفي الفورم أيضاً...!!!

كود :
Private Sub Btn_Banned_Click(sender As Object, e As EventArgs) Handles Btn_Banned.Click
       If Txt_File_Num.Text = "" Then
           MsgBox("لا بد من وجود رقم ملف المريض لفتح قائمة المنع والسماح")
           Txt_File_Num.Focus()
           Exit Sub
       End If
   End Sub

110022.jpg - MediaFire

لا أدري ما هو السبب؟؟!!]]> <![CDATA[كود يختصر الوقت والجهد في كتابة الأكواد المتكررة]]> https://vb4arb.com/vb/showthread.php?tid=45300 Sun, 05 Feb 2023 06:22:37 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=45300
أرجو أن تكون بأتم صحة وعافية..

هل يوجد كود يختصر عليك كتابة الأكواد المتكررة..


مثال.. عندي 20 ليبل وجميعها بنفس الاسم بخلاف تغيير الرقم:-

كود :
If Lbl_S_1.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_2.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_3.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_4.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_5.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_6.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_7.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_8.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_9.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_10.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_11.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_12.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_13.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_14.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_15.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_16.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_17.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_18.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_19.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_20.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

هل هناك كود يختصر كل هذه الأكواد المكررة؟

وأيضاً كما في المثال التالي:-
كود :
If Lbl_S_1.Text = "7" Or Lbl_S_1.Text = "9" Or Lbl_S_1.Text = "10" Or Lbl_S_1.Text = "11" Or Lbl_S_1.Text = "12" Then
           Txt_ED.Text = "1"
       End If
       If Lbl_S_2.Text = "7" Or Lbl_S_2.Text = "9" Or Lbl_S_2.Text = "10" Or Lbl_S_2.Text = "11" Or Lbl_S_2.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_3.Text = "7" Or Lbl_S_3.Text = "9" Or Lbl_S_3.Text = "10" Or Lbl_S_3.Text = "11" Or Lbl_S_3.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_4.Text = "7" Or Lbl_S_4.Text = "9" Or Lbl_S_4.Text = "10" Or Lbl_S_4.Text = "11" Or Lbl_S_4.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_5.Text = "7" Or Lbl_S_5.Text = "9" Or Lbl_S_5.Text = "10" Or Lbl_S_5.Text = "11" Or Lbl_S_5.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_6.Text = "7" Or Lbl_S_6.Text = "9" Or Lbl_S_6.Text = "10" Or Lbl_S_6.Text = "11" Or Lbl_S_6.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_7.Text = "7" Or Lbl_S_7.Text = "9" Or Lbl_S_7.Text = "10" Or Lbl_S_7.Text = "11" Or Lbl_S_7.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_8.Text = "7" Or Lbl_S_8.Text = "9" Or Lbl_S_8.Text = "10" Or Lbl_S_8.Text = "11" Or Lbl_S_8.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_9.Text = "7" Or Lbl_S_9.Text = "9" Or Lbl_S_9.Text = "10" Or Lbl_S_9.Text = "11" Or Lbl_S_9.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_10.Text = "7" Or Lbl_S_10.Text = "9" Or Lbl_S_10.Text = "10" Or Lbl_S_10.Text = "11" Or Lbl_S_10.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

لأني سوف أستخدم أكثر من 40 Label

أرجو أن تكون الفكرة وصلت.. كما أعتقد أن هناك حل.. ولكن قلة خبرتي تجعلني أبذل جهداً ووقتاً في البرمجة.

فعلاً كما يقول المثل الشعبي ( أهل العقول في راحه )  Big Grin]]>
أرجو أن تكون بأتم صحة وعافية..

هل يوجد كود يختصر عليك كتابة الأكواد المتكررة..


مثال.. عندي 20 ليبل وجميعها بنفس الاسم بخلاف تغيير الرقم:-

كود :
If Lbl_S_1.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_2.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_3.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_4.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_5.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_6.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_7.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_8.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_9.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_10.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_11.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_12.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_13.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_14.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_15.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_16.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_17.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_18.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_19.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       If Lbl_S_20.Text = "8" Then
           Txt_MU.Text = "1"
       End If
       Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

هل هناك كود يختصر كل هذه الأكواد المكررة؟

وأيضاً كما في المثال التالي:-
كود :
If Lbl_S_1.Text = "7" Or Lbl_S_1.Text = "9" Or Lbl_S_1.Text = "10" Or Lbl_S_1.Text = "11" Or Lbl_S_1.Text = "12" Then
           Txt_ED.Text = "1"
       End If
       If Lbl_S_2.Text = "7" Or Lbl_S_2.Text = "9" Or Lbl_S_2.Text = "10" Or Lbl_S_2.Text = "11" Or Lbl_S_2.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_3.Text = "7" Or Lbl_S_3.Text = "9" Or Lbl_S_3.Text = "10" Or Lbl_S_3.Text = "11" Or Lbl_S_3.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_4.Text = "7" Or Lbl_S_4.Text = "9" Or Lbl_S_4.Text = "10" Or Lbl_S_4.Text = "11" Or Lbl_S_4.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_5.Text = "7" Or Lbl_S_5.Text = "9" Or Lbl_S_5.Text = "10" Or Lbl_S_5.Text = "11" Or Lbl_S_5.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_6.Text = "7" Or Lbl_S_6.Text = "9" Or Lbl_S_6.Text = "10" Or Lbl_S_6.Text = "11" Or Lbl_S_6.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_7.Text = "7" Or Lbl_S_7.Text = "9" Or Lbl_S_7.Text = "10" Or Lbl_S_7.Text = "11" Or Lbl_S_7.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_8.Text = "7" Or Lbl_S_8.Text = "9" Or Lbl_S_8.Text = "10" Or Lbl_S_8.Text = "11" Or Lbl_S_8.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_9.Text = "7" Or Lbl_S_9.Text = "9" Or Lbl_S_9.Text = "10" Or Lbl_S_9.Text = "11" Or Lbl_S_9.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
       If Lbl_S_10.Text = "7" Or Lbl_S_10.Text = "9" Or Lbl_S_10.Text = "10" Or Lbl_S_10.Text = "11" Or Lbl_S_10.Text = "12" Then
           Txt_ED.Text = Val(Txt_ED.Text) + 1
       End If
Txt_Total.Text = Val(Txt_NF.Text) + Val(Txt_ED.Text) + Val(Txt_NS.Text) + Val(Txt_MU.Text)

لأني سوف أستخدم أكثر من 40 Label

أرجو أن تكون الفكرة وصلت.. كما أعتقد أن هناك حل.. ولكن قلة خبرتي تجعلني أبذل جهداً ووقتاً في البرمجة.

فعلاً كما يقول المثل الشعبي ( أهل العقول في راحه )  Big Grin]]> <![CDATA[طريقة مسح جزء من البيانات في TextBox]]> https://vb4arb.com/vb/showthread.php?tid=45127 Tue, 24 Jan 2023 04:50:30 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=45127
أرجو أن يكون الجميع بصحة جيدة..

كما أرجو أن أجد إجابة على سؤالي..

يوجد لدي مجموعة من CheckBox بحيث إذا وضعت علامة على أحدها يظهر اسم مربع الاختيار في مربع نص متبوع بعلامة ( + ) كما في الصورة..

https://www.mediafire.com/view/eiqcqvqux...2.jpg/file

السؤال.. ما هو الكود الذي استخدمه لعكس العملية، بحيث لو أزلت العلامة من مربع معين يمسح فقط نفس اسم مربع الاختيار من مريع النص؟

استخدم هذا الكود لإظهار اسم مربع الاختيار:

كود :
Private Sub CH_Jad_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jad.CheckedChanged
       If CH_Jad.Checked = True Then
           Txt_Pat_Esc.Text += CH_Jad.Text & " + "
       Else

       End If
   End Sub

   Private Sub CH_Jada_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jada.CheckedChanged
       If CH_Jada.Checked = True Then
           Txt_Pat_Esc.Text += CH_Jada.Text & " + "
       Else

       End If
   End Sub

   Private Sub CH_Ak_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Ak.CheckedChanged
       If CH_Ak.Checked = True Then
           Txt_Pat_Esc.Text += CH_Ak.Text & " + "
       Else

       End If
   End Sub

وشكراً جزيلاً...]]>
أرجو أن يكون الجميع بصحة جيدة..

كما أرجو أن أجد إجابة على سؤالي..

يوجد لدي مجموعة من CheckBox بحيث إذا وضعت علامة على أحدها يظهر اسم مربع الاختيار في مربع نص متبوع بعلامة ( + ) كما في الصورة..

https://www.mediafire.com/view/eiqcqvqux...2.jpg/file

السؤال.. ما هو الكود الذي استخدمه لعكس العملية، بحيث لو أزلت العلامة من مربع معين يمسح فقط نفس اسم مربع الاختيار من مريع النص؟

استخدم هذا الكود لإظهار اسم مربع الاختيار:

كود :
Private Sub CH_Jad_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jad.CheckedChanged
       If CH_Jad.Checked = True Then
           Txt_Pat_Esc.Text += CH_Jad.Text & " + "
       Else

       End If
   End Sub

   Private Sub CH_Jada_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Jada.CheckedChanged
       If CH_Jada.Checked = True Then
           Txt_Pat_Esc.Text += CH_Jada.Text & " + "
       Else

       End If
   End Sub

   Private Sub CH_Ak_CheckedChanged(sender As Object, e As EventArgs) Handles CH_Ak.CheckedChanged
       If CH_Ak.Checked = True Then
           Txt_Pat_Esc.Text += CH_Ak.Text & " + "
       Else

       End If
   End Sub

وشكراً جزيلاً...]]> <![CDATA[عرض بعض البيانات من حقل في الداتا جريد فيو]]> https://vb4arb.com/vb/showthread.php?tid=44714 Tue, 10 Jan 2023 13:38:53 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=44714 أرجو أن يكون الجميع بصحة جيدة..

لدي سؤال بخصوص الداتا جريد فيو.

هل هناك كود يقوم بعرض مثلاً أو كلمتين من أي حقل من الداتا؟ وعرضها في تكست بوكس.

مثلاً عمود اسم الموظف:

اسم الموظف

عبدالعزيز عبدالله عبدالكريم الفلاني

أريد عند تحديد الحقل أو الصف.. يعرض في التكست بوكس أول كلمتين فقط ( عبدالعزيز عبدالله )

وشكراً جزيلاً..]]> أرجو أن يكون الجميع بصحة جيدة..

لدي سؤال بخصوص الداتا جريد فيو.

هل هناك كود يقوم بعرض مثلاً أو كلمتين من أي حقل من الداتا؟ وعرضها في تكست بوكس.

مثلاً عمود اسم الموظف:

اسم الموظف

عبدالعزيز عبدالله عبدالكريم الفلاني

أريد عند تحديد الحقل أو الصف.. يعرض في التكست بوكس أول كلمتين فقط ( عبدالعزيز عبدالله )

وشكراً جزيلاً..]]> <![CDATA[الكود المختصر لمعرفة مسار ملف معين]]> https://vb4arb.com/vb/showthread.php?tid=44584 Sat, 17 Dec 2022 17:37:38 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=44584
عندي استفسار عن الكود الذي بتعرف عليه البرنامج (المشروع) حيث يكون الملف في نفس مجلد المشروع.. ولا يحتاج أن تكتب مسار الملف كاملاً

بحيث لو نقلت البرنامج على جهاز آخر لا تحدث أي مشاكل..


مثال لمسار الملف كاملاً ( قاعدة بيانات ) ...
كود :
Public Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;data source = C:\Users\danti\Source\Repos\Login From Access\Login From Access\bin\Debug\MyTestDataBase.accdb")

مثال لمسار نفس ملف قاعدة البيانات ولكن مختصر...
كود :
Public Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;data source =" & Application.StartupPath & "\MyTestDataBase.accdb")


وجدت بالنت طريقة للطباعة عن طريق الوورد.. ولكن صاحب المقطع قام بكتابة مسار ملف الوورد كاملاً..

هذا الكود:
كود :
Dim FileName As String = "C:\Users\danti\Source\Repos\Printer in word\Printer in word\bin\Debug\P_W_T.dotx"

سؤالي:
ما هو الكود المختصر الذي يمكنني فيه كتابة اسم ملف الوورد فقط.. ويقوم بالتعرف عليه، حيث أنه في المجلد (Debug) الخاص بالمشروع.
أرجو أنني وفقت في إيصال الفكرة أو الاستفسار..
وشكراً ولكم.]]>
عندي استفسار عن الكود الذي بتعرف عليه البرنامج (المشروع) حيث يكون الملف في نفس مجلد المشروع.. ولا يحتاج أن تكتب مسار الملف كاملاً

بحيث لو نقلت البرنامج على جهاز آخر لا تحدث أي مشاكل..


مثال لمسار الملف كاملاً ( قاعدة بيانات ) ...
كود :
Public Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;data source = C:\Users\danti\Source\Repos\Login From Access\Login From Access\bin\Debug\MyTestDataBase.accdb")

مثال لمسار نفس ملف قاعدة البيانات ولكن مختصر...
كود :
Public Con As New OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;data source =" & Application.StartupPath & "\MyTestDataBase.accdb")


وجدت بالنت طريقة للطباعة عن طريق الوورد.. ولكن صاحب المقطع قام بكتابة مسار ملف الوورد كاملاً..

هذا الكود:
كود :
Dim FileName As String = "C:\Users\danti\Source\Repos\Printer in word\Printer in word\bin\Debug\P_W_T.dotx"

سؤالي:
ما هو الكود المختصر الذي يمكنني فيه كتابة اسم ملف الوورد فقط.. ويقوم بالتعرف عليه، حيث أنه في المجلد (Debug) الخاص بالمشروع.
أرجو أنني وفقت في إيصال الفكرة أو الاستفسار..
وشكراً ولكم.]]> <![CDATA[كود التركيز على زر معين Button]]> https://vb4arb.com/vb/showthread.php?tid=44535 Sun, 11 Dec 2022 04:46:18 +0000 danti]]> https://vb4arb.com/vb/showthread.php?tid=44535
أخبار الجميع؟

أعلم أنه سؤال غبي.. ولكن والله لي أكثر من يومين أبحث عن الطريقة. 

بحثت في المنتدى عن حل لسؤالي ولم أجد.. مع أنني متأكد أن الحل موجود أو أنه كان موجود..

أبحث عن طريقة جعل الزر Button مفعل دائما.. لا أدري أكان كود أم هي من ضمن خصائص ال Button ..

كنت استخدمها قبل أن أترك الفيجوال من 5 سنوات تقريباً.. وعندما رجعت نسيت الطريقة  Huh

للتوضيح أكثر..

لديك Form يوجد فيه TextBox و Button أو أكثر من زر

أريد عند الكتبة في مربع النص يكون هناك زر الافتراضي أو زر يكون عليه التركيز.. بحيث لو ضغطت Enter يتم الضغط على الزر بدون استخدام الفأرة.

طبعاً لا اتكلم عن خاصية TabIndex  ولا كود Button1.Focus

وشكراً للجميع]]>
أخبار الجميع؟

أعلم أنه سؤال غبي.. ولكن والله لي أكثر من يومين أبحث عن الطريقة. 

بحثت في المنتدى عن حل لسؤالي ولم أجد.. مع أنني متأكد أن الحل موجود أو أنه كان موجود..

أبحث عن طريقة جعل الزر Button مفعل دائما.. لا أدري أكان كود أم هي من ضمن خصائص ال Button ..

كنت استخدمها قبل أن أترك الفيجوال من 5 سنوات تقريباً.. وعندما رجعت نسيت الطريقة  Huh

للتوضيح أكثر..

لديك Form يوجد فيه TextBox و Button أو أكثر من زر

أريد عند الكتبة في مربع النص يكون هناك زر الافتراضي أو زر يكون عليه التركيز.. بحيث لو ضغطت Enter يتم الضغط على الزر بدون استخدام الفأرة.

طبعاً لا اتكلم عن خاصية TabIndex  ولا كود Button1.Focus

وشكراً للجميع]]> <![CDATA[ممكن الاجابه عن الاسئله باسرع وقت ممكن]]> https://vb4arb.com/vb/showthread.php?tid=39271 Tue, 10 Aug 2021 07:30:29 +0000 روان سعد]]> https://vb4arb.com/vb/showthread.php?tid=39271 السؤال الأول : اكتب برنامج بلغة فيجوال بيسك لقراءة 5 اعداد عن طريق احدى جمل التكرار  وطباعة العدد الأكبر  منها     
                                           
السؤال الثاني : اكتب برنامج بلغة فيجوال بيسك لإيجاد العدد الواقع بين العددين 1 الى 40 ويحقق الشرط التالي
(num*10+10)/10-10=10
مستخدما جمل التكرار وجمل الشرط.
 
السؤال الثالث : اكتب برنامج بلغة فيجوال بيسك مستخدما جمل التكرار لإدخال الاعداد من 1 – 12 والتي تمثل ارقام الشهور  في list  وعند الضغط على أي رقم يظهر اسم الشهر
مثال عند الضغط على 3 يظهر   March.
 
السؤال الرابع : اكتب برنامج بلغة فيجوال بيسك لقراءة خمس اعداد وطباعة عدد من النجم مقابل كل عدد تساوي ذلك العدد
مثال
No                                Star
===================
5                  *****
8                  ********
2                  **
4                 ****
1                 *
 
السؤال الخامس : اكتب برنامج بلغة فيجوال بيسك لقراءة عدد مكون من منزلتين وطباعة مجموع احاده وعشراته  وطباعة العدد بالشكل التالي وطباعته بالشكل المعاكس.
مثال : العدد   35         يطبع  
contains 3 tens and 5 ons and its reverse is 53
 ]]> السؤال الأول : اكتب برنامج بلغة فيجوال بيسك لقراءة 5 اعداد عن طريق احدى جمل التكرار  وطباعة العدد الأكبر  منها     
                                           
السؤال الثاني : اكتب برنامج بلغة فيجوال بيسك لإيجاد العدد الواقع بين العددين 1 الى 40 ويحقق الشرط التالي
(num*10+10)/10-10=10
مستخدما جمل التكرار وجمل الشرط.
 
السؤال الثالث : اكتب برنامج بلغة فيجوال بيسك مستخدما جمل التكرار لإدخال الاعداد من 1 – 12 والتي تمثل ارقام الشهور  في list  وعند الضغط على أي رقم يظهر اسم الشهر
مثال عند الضغط على 3 يظهر   March.
 
السؤال الرابع : اكتب برنامج بلغة فيجوال بيسك لقراءة خمس اعداد وطباعة عدد من النجم مقابل كل عدد تساوي ذلك العدد
مثال
No                                Star
===================
5                  *****
8                  ********
2                  **
4                 ****
1                 *
 
السؤال الخامس : اكتب برنامج بلغة فيجوال بيسك لقراءة عدد مكون من منزلتين وطباعة مجموع احاده وعشراته  وطباعة العدد بالشكل التالي وطباعته بالشكل المعاكس.
مثال : العدد   35         يطبع  
contains 3 tens and 5 ons and its reverse is 53
 ]]> <![CDATA[سؤال عن publish بفيجوال بيسك 2019]]> https://vb4arb.com/vb/showthread.php?tid=38516 Fri, 28 May 2021 09:17:58 +0000 إليسار]]> https://vb4arb.com/vb/showthread.php?tid=38516 انتهيت من عمل مشروع لكن publish غير موجود النسخة اللي عند community

كما موضح بالصورة 


.jpg   التقاط.JPG (الحجم : 88.47 ك ب / التحميلات : 41) ]]> انتهيت من عمل مشروع لكن publish غير موجود النسخة اللي عند community

كما موضح بالصورة 


.jpg   التقاط.JPG (الحجم : 88.47 ك ب / التحميلات : 41) ]]> <![CDATA[ضبط زر لتنفيذ اكثر من امر]]> https://vb4arb.com/vb/showthread.php?tid=34570 Sat, 02 May 2020 15:46:37 +0000 Shrouk hossam]]> https://vb4arb.com/vb/showthread.php?tid=34570
(02-05-20, 07:46 PM)Shrouk hossam كتب : عايزه طريقه لما اضغط علي زر ( اكتب حرف ) اخلي اول رسمه تظهر علي ال form تكون رسمه حرف s ولما اضغط تاني علي الزر يحول حرف s ل حرف h ولما اضغط تاني يحول h ل r وهكذا


.jpeg   D186D4BB-9D0F-454C-96AE-BF7542EE21AA.jpeg (الحجم : 18.95 ك ب / التحميلات : 54) ]]>
(02-05-20, 07:46 PM)Shrouk hossam كتب : عايزه طريقه لما اضغط علي زر ( اكتب حرف ) اخلي اول رسمه تظهر علي ال form تكون رسمه حرف s ولما اضغط تاني علي الزر يحول حرف s ل حرف h ولما اضغط تاني يحول h ل r وهكذا


.jpeg   D186D4BB-9D0F-454C-96AE-BF7542EE21AA.jpeg (الحجم : 18.95 ك ب / التحميلات : 54) ]]> <![CDATA[ظبط الزر]]> https://vb4arb.com/vb/showthread.php?tid=34569 Sat, 02 May 2020 15:40:04 +0000 Shrouk hossam]]> https://vb4arb.com/vb/showthread.php?tid=34569 [font=.Arabic UI Text][font=.ArabicUIText-Regular]عايزه [/font][font=.ArabicUIText-Regular]طريقه [/font][font=.ArabicUIText-Regular]لما ا[/font][font=.ArabicUIText-Regular]ضغط [/font][font=.ArabicUIText-Regular]علي [/font][font=.ArabicUIText-Regular]الزر[/font][font=.SFUIText]( [/font][font=.ArabicUIText-Regular]اكتب [/font][font=.ArabicUIText-Regular]حرف[/font][font=.SFUIText]) [/font][font=.ArabicUIText-Regular]اخلي [/font][font=.ArabicUIText-Regular]اول [/font][font=.ArabicUIText-Regular]رسمه [/font][font=.ArabicUIText-Regular]اللي [/font][font=.ArabicUIText-Regular]علي [/font][font=.SFUIText]form [/font][font=.ArabicUIText-Regular]حرف[/font][font=.SFUIText]  s [/font][font=.ArabicUIText-Regular]ولما [/font][font=.ArabicUIText-Regular]أدوس [/font][font=.ArabicUIText-Regular]عليه [/font][font=.ArabicUIText-Regular]تاني [/font][font=.ArabicUIText-Regular]يحول [/font][font=.ArabicUIText-Regular]الرسمه [/font][font=.ArabicUIText-Regular]من [/font][font=.ArabicUIText-Regular]حرف [/font][font=.ArabicUIText-Regular]ال [/font][font=.SFUIText]s [/font][font=.ArabicUIText-Regular]لحرف [/font][font=.SFUIText]h  [/font][font=.ArabicUIText-Regular]ولما [/font][font=.ArabicUIText-Regular]اضغط [/font][font=.ArabicUIText-Regular]عليه [/font][font=.ArabicUIText-Regular]تاني [/font][font=.ArabicUIText-Regular]يحول [/font][font=.SFUIText]h [/font][font=.ArabicUIText-Regular]ل[/font][font=.SFUIText]r [/font][font=.ArabicUIText-Regular]وهكذا[/font][font=.SFUIText] [/font][/font]]]> [font=.Arabic UI Text][font=.ArabicUIText-Regular]عايزه [/font][font=.ArabicUIText-Regular]طريقه [/font][font=.ArabicUIText-Regular]لما ا[/font][font=.ArabicUIText-Regular]ضغط [/font][font=.ArabicUIText-Regular]علي [/font][font=.ArabicUIText-Regular]الزر[/font][font=.SFUIText]( [/font][font=.ArabicUIText-Regular]اكتب [/font][font=.ArabicUIText-Regular]حرف[/font][font=.SFUIText]) [/font][font=.ArabicUIText-Regular]اخلي [/font][font=.ArabicUIText-Regular]اول [/font][font=.ArabicUIText-Regular]رسمه [/font][font=.ArabicUIText-Regular]اللي [/font][font=.ArabicUIText-Regular]علي [/font][font=.SFUIText]form [/font][font=.ArabicUIText-Regular]حرف[/font][font=.SFUIText]  s [/font][font=.ArabicUIText-Regular]ولما [/font][font=.ArabicUIText-Regular]أدوس [/font][font=.ArabicUIText-Regular]عليه [/font][font=.ArabicUIText-Regular]تاني [/font][font=.ArabicUIText-Regular]يحول [/font][font=.ArabicUIText-Regular]الرسمه [/font][font=.ArabicUIText-Regular]من [/font][font=.ArabicUIText-Regular]حرف [/font][font=.ArabicUIText-Regular]ال [/font][font=.SFUIText]s [/font][font=.ArabicUIText-Regular]لحرف [/font][font=.SFUIText]h  [/font][font=.ArabicUIText-Regular]ولما [/font][font=.ArabicUIText-Regular]اضغط [/font][font=.ArabicUIText-Regular]عليه [/font][font=.ArabicUIText-Regular]تاني [/font][font=.ArabicUIText-Regular]يحول [/font][font=.SFUIText]h [/font][font=.ArabicUIText-Regular]ل[/font][font=.SFUIText]r [/font][font=.ArabicUIText-Regular]وهكذا[/font][font=.SFUIText] [/font][/font]]]> <![CDATA[جعل زر ينفذ اكثر من امر]]> https://vb4arb.com/vb/showthread.php?tid=34533 Thu, 30 Apr 2020 18:22:41 +0000 Shrouk hossam]]> https://vb4arb.com/vb/showthread.php?tid=34533 يعني اخلي الزر ينفذ اكتر من امر و كل امر ينفذ ورا بعضه بالضغط عليه]]> يعني اخلي الزر ينفذ اكتر من امر و كل امر ينفذ ورا بعضه بالضغط عليه]]> <![CDATA[كود البحث في فيجوالبيسك 2012]]> https://vb4arb.com/vb/showthread.php?tid=28382 Sun, 27 Jan 2019 08:53:29 +0000 نرجس نرجس]]> https://vb4arb.com/vb/showthread.php?tid=28382 انا عملت قاعدة بيانات اكسيس وربطتها بفجوال ستوديو 2012منظومة لتسجيل طلاب مدرسة بس ما عرفت كود التعديل وكود البحث عن طريق الاسم أو الرقم الوطني ارجووووو المساعدة]]> انا عملت قاعدة بيانات اكسيس وربطتها بفجوال ستوديو 2012منظومة لتسجيل طلاب مدرسة بس ما عرفت كود التعديل وكود البحث عن طريق الاسم أو الرقم الوطني ارجووووو المساعدة]]> <![CDATA[رسالة خطأ عند الاتصال]]> https://vb4arb.com/vb/showthread.php?tid=25720 Thu, 12 Jul 2018 21:58:59 +0000 محمد القدسي]]> https://vb4arb.com/vb/showthread.php?tid=25720
فما هو الحل
حفظكم الله وبارك في علمكم]]>
فما هو الحل
حفظكم الله وبارك في علمكم]]>