vb6.0怎么在窗体界面里自定义背景图？

2024-11-27 13:35:39

推荐回答（5个）

回答1：

要用image控件代替command控件，加载你ps过的图片就是。
我个人不建议使用imagelist，主要是不赞成使用activex控件，用了activex控件你的程序在别的地方就要安装，很多人看到程序要安装就不想用了。你可以使用资源文件，或者另外做一个image的控件数组来储存你程序中的图片都好。

回答2：

'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

回答3：

填一个通用控件，然后me.picture=loadpicture(控件名.filename)

回答4：

选择图片LoadImage加载，然后onpaint里BitBlt

回答5：

实在找不到办法就去维修的地方看看吧！！