تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مشكلتي في خاصية Check Box في الفجول بيسك 6
#1
بسم الله الرحمن الرحيم

الاخوة الكرام

السلام عليكم ورحمة الله وبركاته

عندي في الفجول بيسك خاصية checkbox  وعددها 3 عناصر عملتها بطريقة بحيث لم اضغط عليها وتعطيني علامة صح واقوم بحفظها ياخذ caption ويضيفها بقاعدة البيانات ولاكن الاشكال لما اختارها كلها مايضيف الا واحدة علما ان الخاصية جعلتها علي هذا النحو


(Private Sub Check1_Click(Index As Integer)

amlyat1 = Option1(Index).Caption

End Sub

صورة اخرى توضيحية بالاسفل وشكرا لكم

الرد }}}
تم الشكر بواسطة:
#2
بسم الله الرحمن الرحيم

- أولاً عليك بضبط خاصية الـ Index لكل ChechBox تضعها بالترتيب الأول تضع قيمة الخاصية Index فيه تساوي 1 والثاني تساوي 2 والثالث تساوي 3 ثم بعد ذلك قم بتغيير أسماء الـ CheckBox الثلاثة إلى إسم موحد لها كلها ولنقل مثلاً سيكون الإسم الموحد هو Check1 ولنفترض أن إسم الزر الذي يتم الضغط عليه للحفظ هو Command1 بعد ذلك إنسخ هذا الكود بداخل كود الفورم التي أداوت الـ CheckBox الثلاثة موجودة عليه :

كود :
Private Sub Command1_Click()

Dim I As Integer
Dim CheckBox_Clicked As String

For I = 1 To 3

    If Check1(I).Value = 1 Then
       CheckBox_Clicked = CheckBox_Clicked & Check1(I).Caption & ","
    End If
    
Next

If Len(Trim$(CheckBox_Clicked)) > 0 Then
   CheckBox_Clicked = Left$(CheckBox_Clicked, Len(CheckBox_Clicked) - 1)
Else
   MsgBox "لم تقم بإختيار أي نوع"
   Exit Sub
End If

MsgBox CheckBox_Clicked & " لقد قمت بإختيار "

End Sub
الرد }}}
تم الشكر بواسطة: ابومحمد1979 , برير مسبل
#3
اسمها كالتالي :

Check2(0).caption
Check2(1).caption
Check2(2).caption
ولو ضغطت علي احداهن دبل كلك يظهر التالي :

amlyat1 = Check2(Index).Caption

علما ان amlyat1 عرفنها في العام كالتالي


Dim amalyat1 as string


عموما طلع معي كذا

الرد }}}
تم الشكر بواسطة:
#4
أهلا , تم تعديل الكود , والكود الذي يظهر لك عندما تضغط دبل كلك على إحداها قم بمسحه لأن الكود سيتم تنفيذه في الزر :

كود :
Private Sub Command1_Click()

Dim I As Integer

amlyat1 = ""

For I = 0 To 2

    If Check2(I).Value = 1 Then
       amlyat1 = amlyat1 & Check2(I).Caption & ","
    End If
    
Next

If Len(Trim$(amlyat1)) > 0 Then
   amlyat1 = Left$(amlyat1, Len(amlyat1) - 1)
Else
   MsgBox "لم تقم بإختيار أي نوع"
   Exit Sub
End If

MsgBox amlyat1 & " لقد قمت بإختيار "

End Sub

إذا أردت أن تزيل الأقواس من عنوان الـ CheckBox المختار قم بإستخدام هذا الكود :

كود :
Private Sub Command1_Click()

Dim I As Integer
Dim zCheck_Caption As String

amlyat1 = ""

For I = 0 To 2

    If Check2(I).Value = 1 Then
       zCheck_Caption = Check2(I).Caption
       zCheck_Caption = Replace(zCheck_Caption, "(", "")
       zCheck_Caption = Replace(zCheck_Caption, ")", "")
       zCheck_Caption = Trim$(zCheck_Caption)
       amlyat1 = amlyat1 & zCheck_Caption & ","
    End If
    
Next

If Len(Trim$(amlyat1)) > 0 Then
   amlyat1 = Left$(amlyat1, Len(amlyat1) - 1)
Else
   MsgBox "لم تقم بإختيار أي نوع"
   Exit Sub
End If

MsgBox amlyat1 & " لقد قمت بإختيار "

End Sub
الرد }}}
تم الشكر بواسطة: ابومحمد1979
#5
قل امين

جعل اللي جابوك في الفردوس الاعلي ووالديني وجميع المسلمين

الله يجزاك خير ويرفع قدرك ويرزقك من حيث لاتحتسب ويحفظ لك اهلك ومالك

تحياتي وتقديري لشخصك الكريم
الرد }}}
تم الشكر بواسطة: برير مسبل , Ahmed_Mansoor
#6
عمل موفق شباب حفظم الله
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#7
شكراً لك يا أبو محمد ، وياك إن شاء الله ، جزاك الله خير .
الرد }}}
تم الشكر بواسطة:
#8
بالتوفيق أن شاءالله للجميع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في الاعداد العشرية في الفيجوال بيسك ٦ tighrmte 6 1,018 03-09-23, 07:49 AM
آخر رد: جلال اليمني
  [سؤال] ابحث عن مبرمج فيجوال بيسك 6 للعمل معي حسب الاتفاق mis1411 8 3,247 02-07-23, 06:49 AM
آخر رد: sun7000
  [مشروع] احتاج مبرمج فيجويل بيسك تحت الطلب باسرع وقت mera 2 835 30-12-22, 01:43 AM
آخر رد: walid baradiy
  [Acces2003] إضافة الفاتورة الإلكترونية بالضرائب المصرية في برامج جاهزة بأكسيس و فجول بيسك aymanemara 3 2,397 19-10-21, 01:11 AM
آخر رد: hany1002
  [vb6.0] فتح نموذج اكسس من خلال زر امر في الفيجوال بيسك 6 وادي العوضي 5 6,252 17-07-21, 04:37 PM
آخر رد: mnsoor3404
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 3 عبدالله خضر 17 13,510 04-07-21, 03:00 PM
آخر رد: عبدالله خضر
  [سؤال] ما أسهل أصدار من الفجول يمكن الانتقال إليه بعد 6 Ahmed abdallah 1 1,110 09-05-21, 03:31 AM
آخر رد: awidan76
  أريد من ذوي الخبرة تزويدي ببرنامج ترتيب الكود في فيجول بيسك rami_cis 4 2,126 24-11-20, 04:07 AM
آخر رد: rami_cis
Lightbulb تعلم مهارات عن الآداة Text box بالفيجوال بيسك عبدالله خضر 3 4,717 10-02-19, 04:32 PM
آخر رد: ahmed_gh
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 2 عبدالله خضر 14 9,913 10-02-19, 04:27 PM
آخر رد: ahmed_gh

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


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