这个可以在按钮底部放个标签控件,然后在属性窗口事件栏里选择Click,在右边下拉列表中选择按钮的那个事件过程。这样单击标签时会调用与按钮同一个事件过程。
成都创新互联是专业的上犹网站建设公司,上犹接单;提供成都网站设计、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行上犹网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
标签autoSize属性要设置False,否则没法调整大小。
方法1.将FormBorderStyle的值设为None
方法2.或将ControlBox的值设为false
方法3.如查你仅仅是要将关闭按钮disable的话,请双击窗体,后将以下代码替换窗体中的所有代码。
Public Class Form1
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Const MF_REMOVE = H1000
Private Const SC_COLSE = HF060
Private Const SC_MAXIMIZE = HF030
Private Const SC_MINIMIZE = HF020
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_COLSE, MF_REMOVE) '//关闭
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MAXIMIZE, MF_REMOVE) '//最大化
RemoveMenu(GetSystemMenu(Me.Handle, 0), SC_MINIMIZE, MF_REMOVE) ’//最小化
End Sub
End Class
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
用timer就行,Timer触发间隔3000,触发了就隐藏控件,并停止Timer。
然后是MouseMove事件,当x或y的移动量大于一个值(假设为10)时,才显示控件,并重新计时。
windows可能会有些错误消息,或者鼠标自己也会有些错误信号,这些都可能导致触发MouseMove事件,所以需要指定移动量大于某一最小值时,才做处理。