重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public Class Form1
成都创新互联公司成立于2013年,先为通许等服务建站,通许等地企业,进行企业商务咨询服务。为通许企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Public MyButtons(4) As Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bt As Control
For Each bt In Me.Controls
Select Case bt.Name
Case "Button1"
MyButtons(1) = bt
Case "Button2"
MyButtons(2) = bt
Case "Button3"
MyButtons(3) = bt
Case "Button4"
MyButtons(4) = bt
End Select
Next
Dim i As Integer
For i = 1 To 4
MsgBox(MyButtons(i).Name)
Next
End Sub
End Class
用Button控件就可以了 修改BackgroundImage 属性 类似这样
Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")
如果要实现动态效果的话需要2个图片当Button1_MouseHover事件时也就是鼠标停留在button上的时候显示一个图片,当Button1_MouseLeave事件时,也就是鼠标离开button时显示原来的图片,这样就是动态的了.
MouseEnter 鼠标进入
MouseLeave 鼠标离开
PictureBox1.ImageLocation =“路径"
难道我这VS安装的盗版的? 你的意思就是 button不能设置背景图片? 不可能吧? 你不要误导我,哥。 回答: 不是不能设置背景图片哈,关键是你要设置那个控件的背景图片哈,这才是关键!比如说你要设置网页的,那么就修改网页的。如果要设置button的,就修改button的赛。 就是实现一个动态按钮的效果,当鼠标移动到按钮上,背景变换成另外一张图
Public Class Form1
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
当然,你先得制作两张大小一样的图片