safaa salem5 قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 عندى اتنين كومبوبوكس Ptitle يحتوى على الالقاب والكومبو الاخر Gender يحتوى اختيارين فقط male ,female عايزه عند الاختيار من ptitle القيم اللى تحتوى على حرف (ه) او (ة) فى اخر الكلمه زى السيده الدكتورة المهندسه المعلمه يتم ملأ كومبوبكس الاخر female واذا لم تحتوى على ه.ة فى اخرها يتم ملأ الكومبو الاخر male رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 تفضلي <><><><><><> Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) If lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 (معدل) 40 minutes ago, kanory said: تفضلي <><><><><><> Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) If lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub عايزه اضيف مدام للكود دى لو تكرمت kanory تم تعديل فبراير 4 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر فبراير 4 أفضل إجابة مشاركة قام بنشر فبراير 4 منذ ساعه, safaa salem5 said: ايزه اضيف مدام للكود دى لو تكرمت طيب <><><><><><> اكيد مع عمل البرنامج تظهر عبارات اخرى ..... على العموم اضفت مصفوفة يمكن من خلالها اضافة عبارات اخرى Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) myT = Array("مدام", "عبارة1", "عبارة2") For Each t In myT If t = ComboBox1.Value Then TT = t: Exit For End If Next t If ComboBox1.Value = TT Or lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 زادك الله علما وجعلك ووالديك من اهل الجنه رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 1 ساعه مضت, safaa salem5 said: زادك الله علما وجعلك ووالديك من اهل الجنه امين واياك .... 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.