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

2024年11月27日 13:35
有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):

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