vb,点击按钮后隐藏窗体的标题栏?
用UnloadMode进行判断,点窗体关闭按钮时UnloadMode = 0,其它情况为非0
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Cancel = 1
Me.Hide
End If
End Sub
设置borderstyle属性
或者杂项里面的几个属性 maxbutton等。。。
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000 ' WS_BORDER 或 WS_DLGFRAME
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Enum ESetWindowPosStyles
SWP_SHOWWINDOW = &H40
SWP_HIDEWINDOW = &H80
SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
SWP_NOACTIVATE = &H10
SWP_NOCOPYBITS = &H100
SWP_NOMOVE = &H2
SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
SWP_NOREDRAW = &H8
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_NOSIZE = &H1
SWP_NOZORDER = &H4
SWP_DRAWFRAME = SWP_FRAMECHANGED
HWND_NOTOPMOST = -2
End EnumPrivate Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End TypePrivate Function ShowTitleBar(ByVal bState As Boolean)
Dim lStyle As Long
Dim tR As RECT ' 获取窗口的位置:
GetWindowRect Me.hwnd, tR ' 调整标题栏是否可见:
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
If (bState) Then
Me.Caption = Me.Tag
If Me.ControlBox Then
lStyle = lStyle Or WS_SYSMENU
End If
If Me.MaxButton Then
lStyle = lStyle Or WS_MAXIMIZEBOX
End If
If Me.MinButton Then
lStyle = lStyle Or WS_MINIMIZEBOX
End If
If Me.Caption <> "1" Then
lStyle = lStyle Or WS_CAPTION
End If
Else
Me.Tag = Me.Caption
Me.Caption = ""
lStyle = lStyle And Not WS_SYSMENU
lStyle = lStyle And Not WS_MAXIMIZEBOX
lStyle = lStyle And Not WS_MINIMIZEBOX
lStyle = lStyle And Not WS_CAPTION
End If
SetWindowLong Me.hwnd, GWL_STYLE, lStyle' 重新设定窗口:
SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
Me.Refresh' 你可能需要在Form_Resize中加一点代码,因为客户区的大小已经改变:
End Function Private Sub Check1_Click()
If (Check1.Value = Checked) Then
ShowTitleBar True
Else
ShowTitleBar False
End If
End Sub
在窗体上加一个checkbox,设置value=1,然后启动程序
可能没有这么复杂Private Sub Command1_Click()
Me.BorderStyle = 0
Me.Caption = ""
End Sub
vb,点击按钮后隐藏窗体的标题栏?
在窗体上加一个checkbox,设置value=1,然后启动程序
b站竖屏怎么隐藏点赞按钮
首先打开b 站,点击设置,然后选择隐私,点击隐藏点赞即可
c# panel控件覆盖
A按钮控制panel1,B按钮控制panel2,初始化的时候,显示panel1,隐藏panel2。点击A按钮的时候,隐藏panel2,显示panel1;点击B按钮时,隐藏panel1,显示panel2。当然,你可以写一个方法,这两个按钮都调用这一个方法,只是传进方法的参数不同。
...A按钮默认显示 B按钮默认隐藏 点击A按钮后 隐藏A按钮 显示B按钮 如...
<button class="a">A按钮<\/button> <button class="b">B按钮<\/button> <script src="js\/jquery-2.2.1.min.js" type="text\/javascript" charset="utf-8"><\/script> <script type="text\/javascript"> $(function(){ $(".a").click(function(){ $(this).hide();...
前端小白想问,有一个按钮,点击过之后会变成蓝色,是只有自己的浏览器页...
如题,用户A点击按钮后,用户A的按钮变蓝(其他用户的页面没有变化),如果用户B也在自己的浏览器上点击了这个按钮,那么B的按钮会变蓝,用户A的按钮会变回原本的颜色。即当前点击了按钮的用户页面按钮会变蓝色。 这种情况应该怎么写,用js node jquery ... 展开 123654...
实现点击按钮A ,显示按钮B 的功能(按钮B开始处于隐藏状态) 这个怎么弄...
直接在A按钮的点击事件中,将B按钮的状态设置为可见就可以啦。b.setEnabled(true);
怎么样使程序交出控制权
比如,我们用VC建立了一个基本对话框的应用程序,上面有2个按钮,分别是BUTTONA和BUTTONB,点击BUTTONA后,BUTTONB就会隐藏掉。在编程的过程中,你就会对BUTTONA的BN_CLICKED事件进行编程,让BUTTONB隐藏掉,隐藏后上面就没有BUTTONB了,这儿会有一个WM_PAINT消息通知应用程序要重画应用程序的界面,以显示应用程序上面已经没...
几何画板怎么把文字设置为显示隐藏按钮
利用文本工具在文本框中输入B,选中B,执行“编辑”——“操作类按钮”——“隐藏\/显示”,此时可以得到一个“隐藏说明”按钮。2.选定该“隐藏说明”按钮,右键选择“属性”,在标签选项下,修改标签为“A”。3.再建立一个文本框(看到光标闪烁),用鼠标指向按钮操作按钮A,这是鼠标变成十字架,单击...
FLASH按钮如何实现按A按钮显示B按钮,按B按钮隐藏A按钮,要2.0的...
舞台上有个按钮A实例名为btn_A,按钮B实例名为btn_B,播放的影片剪辑实例名为MCimport flash.events.MouseEvent;var isbtn:Boolean = true; btn_A.buttonMode = true;btn_B.buttonMode = true;btn_B.visible = false;btn_A.addEventListener(MouseEvent.CLICK,onhander_clickA);function onhander_...
我想设置一个按钮,按一下会出现另外一个按钮,再按一下隐藏按钮
只是建议:定义一个全局变量a,并负值为0 然后在这个按钮的点击事件中让a对2余,如果为0,则显示下一个按钮,然后a++,如果不为零,则隐藏按钮,注意:前提是你把这个按钮定义出来,然后让其不显示(设置其visible为false),这样在另一个按钮的点击实践中就可以操作了。
雕露灵津: 可能没有这么复杂Private Sub Command1_Click()Me.BorderStyle = 0Me.Caption = "" End Sub
东辽县13480816169: VB程序如何隐藏标题栏,请仔细看补充说明 - ?
雕露灵津: 应该可以的,你可以新建个工程,单独测试这个功能, 如果不能正常的话,问题就在VB本身了, 如果新建工程能, 说明你设计的程序,有些地方影响了这个..具体要看窗体属性设置,以及代码部分了.补充: Private Sub Form_Load()Me....
东辽县13480816169: 求代码vb屏蔽软件的标题栏 - ?
雕露灵津: '只是隐藏窗体用下列代码 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As...
东辽县13480816169: vb,单击窗体隐藏文本框 - ?
雕露灵津: 1添加控件 Text1 2在窗体单击事件中加入代码Text1.Visible = False
东辽县13480816169: VB如何在屏幕任意位置点击鼠标之后,就隐藏窗体 - ?
雕露灵津: 1、不知道是否包括窗体2自己?总之,失交事件,或者失交事件与点击事件合用,可以达到目的.2、在窗体2的resize事件等设置top=form1.top+m:left=form1.left+n 在窗体1的resize等事件里同样设置.实质上我知道,你用窗体2代替了窗体1上的一个可以显示可以隐蔽的部分!不过你要用一个框架,效果会更好,这个问题就不存在了!
东辽县13480816169: vb 点击关闭按钮时窗体隐藏 - ?
雕露灵津: vb 点击关闭按钮时会产生 UnloadMode = 0,可以通过它来判断实现.Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then Me.Hide Cancel = 1 End if End Sub
东辽县13480816169: VB编程题 在窗体花两个命令按钮,标题分别设置为“隐藏文本框”和“显示文本框”,当单击第一个命令按钮时 - ?
雕露灵津: Private Sub Command1_Click() Text1.Visible = False '隐藏文本框 End Sub Private Sub Command2_Click() Text1.Text = "vB程序设计" '设置文本框内容 Text1.Visible = True '显示文本框 End Sub
东辽县13480816169: vb中单击按钮隐藏文本框怎么写程序 - ?
雕露灵津: Private Sub Command1_Click() Text1.Visible = Not Text1.Visible End Sub以上可实现点一次文本框隐藏,再点显示,如此往复
东辽县13480816169: VB中怎样设置属性使窗体标题栏上的按钮消失 - ?
雕露灵津: 设置borderstyle属性 或者杂项里面的几个属性 maxbutton等...
东辽县13480816169: 请教高手,VB如何取消窗体的标题栏 - ?
雕露灵津: 窗体的Borderstyle属性值设置为0-none就OK了,不过之后窗体不能再移动,除非多写些代码.