تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] select case الضغط علي الزر
#1
اريد وضع اكثر من حدث بالزر الواحد باستخدام select case

انا حاولت بالكود دة ولكن لم يحدث شيء

Static value As Integer = 1

Select Case value
Case 0.0
TextBox1.Text = 50

Case 0.1

TextBox1.Text = 60
Case 0.2

TextBox1.Text = 90
End Select
الرد }}}
تم الشكر بواسطة:
#2
تفضل اخي الكريم ان شاء الله يفيدك هذا الكود

PHP كود :
Dim i As Integer

Private Sub Command1_Click()
Select Case Combo1.ListIndex

Case 0
If Val(Text1.Text) = 1988 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
1
If Val(Text1.Text) = 1989 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
2
If Val(Text1.Text) = 1988 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
3
If Val(Text1.Text) = 1987 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
4
If Val(Text1.Text) = 4 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
5
If Val(Text1.Text) = 5 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

Case 
6
If Val(Text1.Text) = 1990 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If
Case 
7
If Val(Text1.Text) = 1985 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If
Case 
8
If Val(Text1.Text) = 8 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If
Case 
9
If Val(Text1.Text) = 9 Then
Form5
.Show
Form6
.Hide
Else
MsgBox "كلمة السر خاطئه"vbCritical"تحذير"
End If

End Select

1
If 3 Then End
End Sub
Private Sub Command2_Click()
ans MsgBox("هل تريد الخروج"vbYesNo vbQuestion"خروج")
If 
ans vbYes Then
End
Else
MsgBox ("أنت لا تريد الخروج")
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.AddItem "ولد رائع"
Combo1.ListIndex 0

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If 
KeyAscii 13 Then
Command1
.Value True
End 
If
End Sub 
الرد }}}
تم الشكر بواسطة:
#3
(11-10-13, 04:25 PM)mazen55 كتب : اريد وضع اكثر من حدث بالزر الواحد باستخدام select case

انا حاولت بالكود دة ولكن لم يحدث شيء

Static value As Integer = 1

Select Case value
Case 0.0
TextBox1.Text = 50

Case 0.1

TextBox1.Text = 60
Case 0.2

TextBox1.Text = 90
End Select


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

أخي لقد قمت بالتصريح عن المتغير Value على أنه Integer بمعنى أنك جعلته متغيرا صحيحا والمتغير الصحيح لا يقبل الأرقام العشرية غير التصريح إلى أي نوع يقبل الأرقام العشرية مثل :
Single أو Double أو Decimal
وسيعمل الكود بإذن الله
الرد }}}
تم الشكر بواسطة: 3booody
#4
مشكور جدا لجميع الردود ولاخي الكريم sooriaty03

فعلا انا مركزتش اوي في الكود
الرد }}}
تم الشكر بواسطة: sooriaty03


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  [VB.NET] حدث النقر على الزر flawer69 3 378 23-08-23, 05:49 PM
آخر رد: أبو خالد الشكري
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,884 03-06-23, 04:56 AM
آخر رد: سعود
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
  اظهار مربع الاشارة علي الزر mohamedallams 4 942 10-08-22, 12:18 PM
آخر رد: mohamedallams
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,824 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 791 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 2 4,179 29-12-21, 10:56 AM
آخر رد: سعود

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


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