多窗体选择图片vb

来源：百度知道 编辑：UC知道 时间：2024/05/25 07:05:47
在第一个窗体中通过“文件列表框”选择硬盘上的任意图片，单击“确认”后在第二个窗体的图片框中显示所选中的图片，并在文本框中显示图片名。（注：当选择图片文件时，文件列表框只显示以jpg、bmp、gif为扩展名的文件，不显示其他类型的文件。）

'==============================
'form1中包含控件:drive1(drivelistbox),dir1(dirlistbox),file1(filelistbox)
'form1中代码如下:

Private Sub Dir1_Change()
File1.Path = Dir1.List(Dir1.ListIndex)
End Sub

Private Sub Drive1_Change()
Dir1.Path = Left(Drive1.List(Drive1.ListIndex), 2) & "\"
End Sub

Private Sub File1_Click()
On Error Resume Next
Load Form2
Form2.Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
Form2.Text1.Text = File1.FileName
Form2.Show
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.gif"
End Sub
'======form1结束=========================

'======form2开始=============================
'form2中加picture1(bicturebox),text1(textbox)
'form2中无代码
'======form2结束=============================

留下你的邮箱
给你发过去源码
我不喜欢把源码发在这里
很多人即使看到这里的源码
仍然还