VB.net （窗体应用）的速成式学习

要做课设了，在vb6.0和vb.net的选择中，我毅然决然的选择了没老师教，没同学选的vb.net。

无他，只是因为我不想要学一个有些过时的语言，所以这篇文章我将会全面的介绍一下vb.net，希望可以帮助到大家

---

一、使程序运行起来

这个是我们的应用界面

大概率出现的一个问题：找不到sub main() 

解决方式：

右键点击项目，选择属性

 选择你所起的窗体控件名（我这里是form1)

这样即可成功使用

二、常用的一些语法

1.消息的弹出（messagebox函数）

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MessageBox.Show("Hello,World")
        Me.Timer1.Start()
    End Sub
End Class

运行结果：

 

2.显示现在的时间（Timer1_Timer函数)

翻到这个界面，找到工具箱中的textbox和timer控件并进行添加 ：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = TimeOfDay
    End Sub
End Class

结果：

3.插入图片

点开属性-资源-编辑图片，也可以自己直接存照片到文件夹

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.Image = My.Resources.Image1
    End Sub
End Class

结果：

4.数据计算（通过输入之后，按钮计算结果）

Public Class Form1
    Dim a, b, c As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        a = Val(TextBox2.Text)
        b = Val(TextBox3.Text)
        c = a + b
        MessageBox.Show(c)

    End Sub
End Class

 结果：

 也可以把结果打入textbox构件中

5.定下画图的坐标系 

 先拖拽一个picturebox和button控件

Public Class Form1
 
    Private Sub Button开始_Click(sender As Object, e As EventArgs) Handles Button开始.Click
        Dim gr As Graphics = PictureBox1.CreateGraphics   '''利用Graphics在picturebox1里创建画布(groupbox也可以） 
        Dim p As New Pen(Brushes.Red, 3)
        Dim p1 As New Pen(Color.Blue, 3)
        gr.DrawLine(p, New Point(0, 0), New Point(200, 0)) '''画x轴，原点（0，0）
        gr.DrawLine(p, New Point(0, 0), New Point(0, 200)) '''画y轴，原点（0，0）
    End Sub
End Class

 结果：

 

6.画各种形状

 以下代码完成了点开始时通过坐标系画圆，点结束时清除页面的功能

Public Class Form1


    Private Sub Button开始_Click(sender As Object, e As EventArgs) Handles Button开始.Click
        Dim gr As Graphics = GroupBox1.CreateGraphics   '''利用Graphics在picturebox1里创建画布(groupbox也可以） 
        Dim p As New Pen(Brushes.Red, 3)
        Dim p1 As New Pen(Color.Blue, 1)
        gr.DrawLine(p, New Point(0, 0), New Point(200, 0)) '''画x轴，原点（0，0）
        gr.DrawLine(p, New Point(0, 0), New Point(0, 200)) '''画y轴，原点（0，0）
        gr.DrawEllipse(p, 50, 100, 100, 100)
        gr.DrawEllipse(p1, 0, 0, 200, 200) '''横坐标、纵坐标、宽度和高度(宽度和高度相同即为正圆）
        PictureBox1.Image = My.Resources.支座



    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        GroupBox1.CreateGraphics.Clear(Button开始.BackColor)
    End Sub

   
  
    End Sub
End Class

视觉效果：