重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
制作一个按钮:纳滑
成都创新互联公司2013年成立,是专业互联网技术服务公司,拥有项目做网站、成都做网站网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元海湖新做网站,已为上家服务,为海湖新各地企业和个人服务,联系电话:18982081108
Dim my_Button As New Button
my_Button.SetBounds(Me.Width - 75, 0, 75, 23)
Me.Controls.Add(my_Button)
在软件运行前是看不到这个按钮,运行后可见,运行后想蠢茄晌更改按钮位置,简单的方法启动一个事件,如textbox输入数值后通过Button的点击事件修改my_Button的顶点位置,还有的方法就是拖动,拖动应该是高级编程部分而且几十行代码,没有带锋人愿意写
这个很简单啊
我用的是c#,语法和vb差不多,猛盯差我给你提供个思路,
1你设置下那个按钮的点击事件
2你设置一个全局变量,最好是bool型的,名字就暂定叫sky吧,呵呵
3在你的点击事件里做个判断
if(sky)
{
pic.image=1.jpg;
sky=false;
}else
{
pic.image=2.jpg;
sky=true;
}
上面这段代码是伪代码,只是提供个思路,执行不起来的,呵呵
那个pic就是枝皮你放图片的则猛那个控件名称
本来有个属性FlatStyle设置为Popup基本上能实现这个情况,怎奈有个线框怎么也弄不掉。拦竖FlatAppearance.BorderSize设置为0不起作用,只对Flat有用,所以用代码在Flat和Popup两种风格之间切换。
'在鼠标进入时设置为晌衡简浮雕风格
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Button1.FlatStyle = FlatStyle.Popup
End Sub
'离开时设置为平面风格,这样像标签一样只剩下文字,当然要宴裤FlatAppearance.BorderSize设置为0
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Button1.FlatStyle = FlatStyle.Flat
End Sub
'另外把UseVisualStyleBackColor 设置为 False也会好看一点。
用Button控件就可以了 修改BackgroundImage 属性 类似这样
Button1.BackgroundImage = Image.FromFile("C:\Users\hp\Desktop\EMOTICONS\EMOTICON SMILE.png")
如果要实现动态效果的话需要正改锋2个图片当Button1_MouseHover事件时也就歼塌是鼠标停留在button上的时举晌候显示一个图片,当Button1_MouseLeave事件时,也就是鼠标离开button时显示原来的图片,这样就是动态的了.