07-09-15, 10:35 AM
مرحبا بك معنا اخا وصديقا كريما
بالنسبة ل
inputbox
لم اجد ما يفسرها الا اني اعمل هذا المثال
Dim ask As String = InputBox("1+1=?", "please type result")
If ask = "" Then
MsgBox("you cliecked cancel button or ok button but you didn't type any thing")
Else
MsgBox(ask)
End If
وارجوا من الاخوة التفاعل معك لكي نستفيد جميعنا من بعضنا البعض
فنحن نستطيع تحديد ال button في messageBox
مثلا
Dim ask = MessageBox.Show("1+1=?", "Is your name Ln?", MessageBoxButtons.YesNo)
Select Case ask
Case vbYes : MsgBox("you click yes")
Case vbNo : MsgBox("you clicked no")
End Select
تحياتي
بالنسبة ل
inputbox
لم اجد ما يفسرها الا اني اعمل هذا المثال
Dim ask As String = InputBox("1+1=?", "please type result")
If ask = "" Then
MsgBox("you cliecked cancel button or ok button but you didn't type any thing")
Else
MsgBox(ask)
End If
وارجوا من الاخوة التفاعل معك لكي نستفيد جميعنا من بعضنا البعض
فنحن نستطيع تحديد ال button في messageBox
مثلا
Dim ask = MessageBox.Show("1+1=?", "Is your name Ln?", MessageBoxButtons.YesNo)
Select Case ask
Case vbYes : MsgBox("you click yes")
Case vbNo : MsgBox("you clicked no")
End Select
تحياتي
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
