大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
由文本框获得的string变量a,在与图片文件的扩展名.png组合时方式有问题。应以路径+a+.png的形式。供参考!
成都创新互联公司是一家从事企业网站建设、网站设计制作、成都网站制作、行业门户网站建设、网页设计制作的专业网站设计公司,拥有经验丰富的网站建设工程师和网页设计人员,具备各种规模与类型网站建设的实力,在网站建设领域树立了自己独特的设计风格。自公司成立以来曾独立设计制作的站点近1000家。
MouseEnter 鼠标进入
MouseLeave 鼠标离开
PictureBox1.ImageLocation =“路径"
Public Class Form1
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
难道我这VS安装的盗版的? 你的意思就是 button不能设置背景图片? 不可能吧? 你不要误导我,哥。 回答: 不是不能设置背景图片哈,关键是你要设置那个控件的背景图片哈,这才是关键!比如说你要设置网页的,那么就修改网页的。如果要设置button的,就修改button的赛。 就是实现一个动态按钮的效果,当鼠标移动到按钮上,背景变换成另外一张图
用Button控件就可以了 修改BackgroundImage 属性 类似这样
Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")
如果要实现动态效果的话需要2个图片当Button1_MouseHover事件时也就是鼠标停留在button上的时候显示一个图片,当Button1_MouseLeave事件时,也就是鼠标离开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
当然,你先得制作两张大小一样的图片