تقييم الموضوع :
  • 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
بالتوفيق أن شاءالله للجميع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تشغيل تقارير الكريستال ريبورت 10 لبرنامج مصمم بالفجول بيسك 6 عند العميل ahmedramzyaish 1 23 منذ 3 ساعة مضت
آخر رد: Ashraf Elafify
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 3 عبدالله خضر 14 4,599 25-06-16, 11:38 AM
آخر رد: DonMu
Thumbs Up تطبيقات بالفيجوال بيسك افتكاسية روشة هههه king2512010 73 7,972 15-04-16, 12:11 PM
آخر رد: yasser_72
Video [vb6.0] إضافة الفلاش بلاير ببرنامج الفيجوال بيسك 6 pirategg55 12 2,943 14-04-16, 02:09 PM
آخر رد: MicroDoha
  مجموعة أكواد منوعة ومبتكرة للمبرمجين بالفيجوال بيسك - الجزء 2 عبدالله خضر 10 2,957 13-04-16, 11:05 AM
آخر رد: MicroDoha
Lightbulb تعلم مهارات عن الآداة Text box بالفيجوال بيسك عبدالله خضر 2 1,189 13-04-16, 11:00 AM
آخر رد: MicroDoha
  [vb6.0] فتح نموذج اكسس من خلال زر امر في الفيجوال بيسك 6 وادي العوضي 4 453 27-03-16, 01:05 PM
آخر رد: وادي العوضي
  استعراض الصور في فجوال بيسك 6 VB_Local 3 483 26-03-16, 04:19 PM
آخر رد: rohaem
  [vb6.0] طلب : كيفية استيراد بيانات من الأوفيس وورد وعرضها في مربعات نص بالفيجول بيسك hamada salah90 1 316 27-10-15, 10:52 PM
آخر رد: hamada salah90
  [vb6.0] طلب : كود حفظ ملف الوورد باسم معين بواسطة الفيجول بيسك hamada salah90 0 263 05-10-15, 11:38 PM
آخر رد: hamada salah90

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


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