PDA

View Full Version : انجام محاسبات ریاضی با combobox


shervin_boy
یک شنبه 18 مرداد 1394, 18:10 عصر
سلام
در برنامه 2 تا تکست باکس داریم و یک لیبل و یک combobox
داخل کمبو باکس می خوام عمل تفریق و جمع باشه و نتیجه رو داخل لیبل بریزه
می خوام وقتی عدد ها رو داخل دو تا تکست باکس قرار می دم اگه جمع رو از کمبو باکس انتخاب کنم دو عدد جمع بشن و اگه تفریق از هم کم بشن
با تشکر
samiasoft
یک شنبه 18 مرداد 1394, 20:58 عصر
Private Sub Combo1_Click()

If Combo1.Text = "+" Then
Label1.Caption = Val(Text1) + Val(Text2)
ElseIf Combo1.Text = "-" Then
Label1.Caption = Val(Text1) - Val(Text2)
End If

End Sub
shervin_boy
یک شنبه 18 مرداد 1394, 21:15 عصر
ممنون
اگه بخوام توسط command button انجام بشه چطور؟
samiasoft
دوشنبه 19 مرداد 1394, 00:52 صبح
خب همین دستورات رو به جای کمبوباکس باید در رویداد کامندباتون بنویسی