13518219792
制作一个按钮：纳滑
成都创新互联公司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时显示原来的图片,这样就是动态的了.
