vb.net 2010 入门（1）

?编写一个简单的窗口程序

首先，新建一个窗体

?

?

?

代码如下：

Public Class Form1    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click        MsgBox("太阳升起")    End Sub    Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected        Label1.Text = MonthCalendar1.SelectionStart & "到" & MonthCalendar1.SelectionEnd    End Sub    Private Sub pic_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic_btn.Click        If PictureBox1.Visible = True Then            PictureBox1.Visible = False            pic_btn.Text = "显示图片"        Else            PictureBox1.Visible = True            pic_btn.Text = "隐藏图片"        End If    End SubEnd Class

?

运行效果为:

?

?