请教VB代码，请进来帮我

来源：百度知道编辑：UC知道时间：2024/06/21 14:45:46

很抱歉，我是一个菜鸟，还是请大家直接帮我修改代码：里面有Label1、combo1、command1、Label2。我希望的效果是：我在combo1里选择张三，然后点击command1，Label2就会显示“广东人”，并且同时显示张三的相片。可是，这个相片该怎么样才能显示？（代码可用再加10分）
请大家直接帮我修改代码：
Private Sub Form_Load()
Combo1.AddItem "张三"
Combo1.AddItem "李四"
End Sub

Private Sub Command1_Click()
Select Case Combo1.Text
Case "张三"
Label2.Caption = "广东人"
Case "李四"
Label2.Caption = "湖南人"
Case Else
Label2.Caption = "对不起，没有您查询的结果"
End Select
End Sub
不可以引用网络图片吗？因为引用本机图片，在别人的电脑上运行就不行了。假设图片地址：http://www.picwelt.com/infoPic/pic28/pic28429c1.jpg
如能直接写代码，并经调试成功，加40分。不要建数据库，我不会。

你在窗体上加入一个image1控件，然后修改下面代码：

Private Sub Command1_Click()
Select Case Combo1.Text
Case "张三"
Label2.Caption = "广东人"
Image1.Picture = LoadPicture("c:\张三.jpg") '请修改为实际的文件名

Case "李四"
Label2.Caption = "湖南人"
Image1.Picture = LoadPicture("c:\李四.jpg") '请修改为实际的文件名

Case Else
Label2.Caption = "对不起，没有您查询的结果"
End Select
End Sub

建个数据库
然后

select case combo1.text
case "张三"
label2.caption="广东人"
PicStr=app.path & "1.jpg" '对应照片的存储路径
end select
picture1.picture=loadpicture(picstr)'加载图片

不过如果是大量数据的话，你最好能使用数据库。连接数据库VB最好的方法是ADO

加一个picturebox控键
如:
Private Sub Command1_Click()
Select Case Combo1.Text
Case "张三"
Label2.Caption = "广东人"
picture1.picture=请教高手帮我看看vb代码的问题 VB编程,来帮我看一下代码.. 请高手来帮我看一段VB代码! [vb]帮我解释代码 VB帮我看一下代码VB 帮我看一段VB代码？帮我解释下这两句VB代码 VB:帮我看下代码. VB帮我看一下代码 VB高帮我写一个代码