重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这个可以在按钮底部放个标签控件,然后在属性窗口事件栏里选择Click,在右边下拉列表中选择按钮的那个事件过程。这样单击标签时会调用与按钮同一个事件过程。
成都创新互联公司专注于新都企业网站建设,成都响应式网站建设公司,成都商城网站开发。新都网站建设公司,为新都等地区提供建站服务。全流程定制网站建设,专业设计,全程项目跟踪,成都创新互联公司专业和态度为您提供的服务
标签autoSize属性要设置False,否则没法调整大小。
制作一个按钮:
Dim my_Button As New Button
my_Button.SetBounds(Me.Width - 75, 0, 75, 23)
Me.Controls.Add(my_Button)
在软件运行前是看不到这个按钮,运行后可见,运行后想更改按钮位置,简单的方法启动一个事件,如textbox输入数值后通过Button的点击事件修改my_Button的顶点位置,还有的方法就是拖动,拖动应该是高级编程部分而且几十行代码,没有人愿意写
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Static f As Boolean = False
If Not f Then
f = True
Button2.Hide()
Button3.Show()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Static f As Boolean = False
If Not f Then
f = True
Button2.Show()
Button3.Hide()
End If
End Sub
本来有个属性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也会好看一点。
Dim I As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = "继续"
TextBox1.Text = I
I = I + 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
I = 2
End Sub
代码如上 如图的效果
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证