[VB.NET]测试你的心情

测试你的心情

实例说明

在本实例中，我们将制作一个能够显示你的心情好坏的程序。程序运行后，选择不同的选项按钮，在右方就可以显示相应的文字和颜色。程序运行结果如图80-1所示。

图80-1 运行结果

技术要点

l 改变字体

l 改变颜色

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

实现过程

■ 新建项目

打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"CheckYourMood"，然后选择保存路径。单击"确认"。

■ 添加控件

向窗体上添加一个GroupBox控件，在GroupBox控件上添加三个RadioButton控件，并添加一个Label控件。

■ 设置属性

将窗体和窗体上的控件的Text属性设置为和界面一致，其余属性保持默认。

■ 添加代码

Private Sub radioButton3_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton3.CheckedChanged

Label1.Text = "我快受不了了，我要发疯了，谁来帮帮我呢？"

label1.BackColor=color.Red

End Sub

Private Sub radioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton2.CheckedChanged

Label1.Text = "今天的运气太不好了，不过，厄运很快就会过去了，我要开始新的生活！"

Label1.BackColor = Color.Gray

End Sub

Private Sub radioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radioButton1.CheckedChanged

Label1.Text = "太棒了，就跟中了大奖一样！希望每天都是这样！"

Label1.BackColor = Color.Yellow

End Sub

■ 运行程序

单击菜单"调试|启动"或单击 图标运行程序。

小结

本实例比较简单，就是将RadioButton控件和其他控件结合起来。我们在做程序的时候，主要是开发大家的思路，希望大家制作出更好、更优秀的程序。