Dim Result As DialogResult Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then MessageBox.Show("不错，说明你已经认真学习了。","提示") Else MessageBox.Show("好好学习吧，你会认同这个看法的。","提示") End if
加好友 
发短信
Post By：2011/12/6 18:54:00 [显示全部帖子]
