十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Public Class Form1
成都创新互联是一家企业级云计算解决方案提供商,超15年IDC数据中心运营经验。主营GPU显卡服务器,站群服务器,资阳服务器托管,海外高防服务器,机柜大带宽,动态拨号VPS,海外云手机,海外云服务器,海外服务器租用托管等。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.BackgroundImage = My.Resources.a
End Sub
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.BackgroundImage = My.Resources.b
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.BackgroundImage = My.Resources.a
End Sub
End Class
当然,你先得制作两张大小一样的图片
建个图片框控件,它有个随控件大小改变,图片也改变的属性,设置为“是”然后用该控件的MOVE方法,来实现。在Form_Resize事件里编,不知道NET有这个事件没。
l为网络地址,你必须让程序从互联网上下载,也可加的东西,即控制或Winsock控件编写代码,只有本地地址可以设置为在后台用啊,你可以把图像下载到您的硬盘驱动器内
为啥不能显示?我试过,如果图像文件的名字很奇怪,就不能显示,VB 不支持它。你改个很一般的名字即可。图像不需要用资源文件,用 ImageList 控件:
Me.BackGroundImage = 图像列表.Images(0)