vb command按扭

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:28:27
我想写个查询的程序：
通过TEXT中输入学号就能找到相应学生的相片和资料（通过Picture来显示）
一个下拉菜单（选择班级），一个文本框（输入学号）
Picture用来显示图片和基本资料
一个command按扭来查询
注：程序的目录里分别有该几个班级的图片，无需连接数据库。直接点击查询按扭就可调出图片。

Private Sub Command1_Click()
Select Case Combo1.Text

Case 1
If Text1 = 11 Then
Picture1.Picture = LoadPicture("d:\11.jpg")
Else
Picture1.Picture = LoadPicture("")
Picture1.Print "查无此人"
End If
Case 2
If Text1 = 22 Then
Picture1.Picture = LoadPicture("d:\22.jpg")
Else
Picture1.Picture = LoadPicture("")
Picture1.Print "查无此人"
End If
Case 3
If Text1 = 33 Then
Picture1.Picture = LoadPicture("d:\33.jpg")
Else
Picture1.Picture = LoadPicture("")
Picture1.Print "查无此人"
End If
End Select
End Sub

Private Sub Form_Load()
Combo1.ListIndex = 0
Text1 = ""
End Sub