一、开发环境
语言环境：Microsoft.NET Framework 4.6 SDK
IDE：Microsoft Visual Studio Community 2015
二、代码及配置
1、Form1
Public Class Form1 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 '点击按钮后跳转到 Form2 窗体并且隐藏 Form1 窗体 Form2.Show() Me.Hide() End Sub End Class
窗体的背景、文字及图标等属性可以直接在右侧编辑区可视化配置，配置后效果如下图所示。
2、Form2
Public Class Form2 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load '给下拉框添加上值 ComboBox1.Items.Add("001") ComboBox1.Items.Add("002") ComboBox1.Items.Add("003") ComboBox1.Items.Add("004") ComboBox1.Items.Add("005") End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '定义一个变量用来存放（标记）下拉框所选择的内容 Dim selectedNum As String selectedNum = ComboBox1.Text '判断下拉框选择的内容是否是 Form1 窗体中文本框输入的三个学号之一，如果是则 PictureBox 中加载相应的照片 If selectedNum = Form1.TextBox1.Text Or selectedNum = Form1.TextBox2.Text Or selectedNum = Form1.TextBox3.Text Then PictureBox1.Image = Image.FromFile("C:\Users\xxx\Desktop\vb\projects\" & selectedNum & ".jpg") End If '判断下拉框选择的内容是否不是 Form1 窗体中文本框输入的三个学号之一，成立则弹出 MsgBox 提示 If selectedNum <> Form1.TextBox1.Text And selectedNum <> Form1.TextBox2.Text And selectedNum <> Form1.TextBox3.Text Then PictureBox1.Image = Image.FromFile("C:\Users\xxx\Desktop\vb \projects\none.jpg") MsgBox("找不到这个同学的照片，请重新选择！", vbOKOnly, "友情提示！") End If End Sub End Class
窗体的背景、文字及图标等属性可以直接在右侧编辑区可视化配置，配置后效果如下图所示。
三、小结
通过 Microsoft Visual Studio 开发的程序编译后由于其属于微软的生态体系中，可以简单的直接在 widows 上运行。vb 由于其面向对象性，语句语法也较好理解并使用，而半可视化的编程也使得开发的难度降低。之前未接触过 vb，但是由于其具有类似 Java 的面向对象性，学习理解起来也就较容易。而其前端的配置，例如背景图标文字等，跟 web 的 css 在设计上有相同的思想
