vb6.0怎么在窗体界面里自定义背景图?
vb6.0怎么在窗体界面里自定义背景图?点一个按钮或者什么的,选择图片,确定后另外一个窗体的背景就变成这张图片了。...
vb6.0怎么在窗体界面里自定义背景图?点一个按钮或者什么的,选择图片,确定后另外一个窗体的背景就变成这张图片了。
展开
5个回答
展开全部
要用image控件代替command控件,加载你ps过的图片就是。
我个人不建议使用imagelist,主要是不赞成使用activex控件,用了activex控件你的程序在别的地方就要安装,很多人看到程序要安装就不想用了。你可以使用资源文件,或者另外做一个image的控件数组来储存你程序中的图片都好。
我个人不建议使用imagelist,主要是不赞成使用activex控件,用了activex控件你的程序在别的地方就要安装,很多人看到程序要安装就不想用了。你可以使用资源文件,或者另外做一个image的控件数组来储存你程序中的图片都好。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
'2个窗体(form1、form2),一个模块,form1上添加一个command'------------form1代码:Option Explicit
Private Sub Command1_Click()
Dim f
With CreateObject("UserAccounts.CommonDialog")
.Filter = "jpg File|*.jpg": .InitialDir = "c:\"
f = .ShowOpen
If f Then
filename = .filename
Form2.Show
End If
End With
End Sub'------------form2代码:Option ExplicitPrivate Sub Form_Load()
Picture = LoadPicture(filename)
End Sub'------------模块代码:Option Explicit
Public filename As String
Private Sub Command1_Click()
Dim f
With CreateObject("UserAccounts.CommonDialog")
.Filter = "jpg File|*.jpg": .InitialDir = "c:\"
f = .ShowOpen
If f Then
filename = .filename
Form2.Show
End If
End With
End Sub'------------form2代码:Option ExplicitPrivate Sub Form_Load()
Picture = LoadPicture(filename)
End Sub'------------模块代码:Option Explicit
Public filename As String
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
填一个通用控件,然后me.picture=loadpicture(控件名.filename)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
选择图片LoadImage加载,然后onpaint里BitBlt
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-07-15
展开全部
实在找不到办法 就去维修的地方看看吧!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询