谢谢各位关注并给予帮助。
提供我的代码: 数据库目录内有图片Mylogo.gif ,(mylogo.gif是背景透明图片)。如果该图片存在则窗体内的图象控件imgLogo 就显示该图片, 如果该图片不存在,则控件imgLogo就显示控件image13里的图片。目的是让使用者可以制作和更换自己的logo.
dim LogoFileName as string
LogoFileName= CurrentProject.Path & "\MyLogo.gif"
If FileExists(LogoFileName) Then
Me.imgLogo.Picture = strFileName
Else
Me.imgLogo.PictureData = Me.Image13.PictureData
End If
现在的问题是图片Mylogo.gif原本背景是透明的,但是通过代码调入窗体后背景变成白色了,显得非常突兀。我现在只能是把mylogo图片的背景做成与周边颜色一致。
各位网友提供的方法是通过word制作图片透明,然后拷贝嵌入到窗体中。好像不能应用到这个代码中。
请问有其他的办法吗?谢谢