高分求助:vb中怎么能让图片随图片框的大小而改变啊? 50
图片的大小不一适合图片框,但是我想让图片随图片框大小的改变而改变,请高手叫我如何实现啊我用的是picturebox不是image。另外,窗体的背景图片大小怎么随窗体大小改...
图片的大小不一适合图片框,但是我想让图片随图片框大小的改变而改变,请高手叫我如何实现啊
我用的是picturebox不是image。另外,窗体的背景图片大小怎么随窗体大小改变而改变? 展开
我用的是picturebox不是image。另外,窗体的背景图片大小怎么随窗体大小改变而改变? 展开
1个回答
展开全部
添加四个控件:Drive1、Dir1、File1、Image1,不要用List1。
源代码,已测试:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Drive1.Drive = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpeg;*.jpg;*.gif;*.bmp;*.ico;*.cur"
Dir1.Path = "c:\photo"
Image1.Stretch = True '图片随控件大小改变,否则=False
End Sub
源代码,已测试:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Drive1.Drive = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.jpeg;*.jpg;*.gif;*.bmp;*.ico;*.cur"
Dir1.Path = "c:\photo"
Image1.Stretch = True '图片随控件大小改变,否则=False
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询