vb中有菜單欄的窗體能隱藏標(biāo)題欄嗎

一般的方法是不能的，api可以做到不過(guò)太麻煩了，可以使用按扭來(lái)代替菜單的總藍(lán)目，然后當(dāng)點(diǎn)擊某個(gè)按扭時(shí)，讓你編輯好的菜單項(xiàng)目彈出來(lái)。

成都創(chuàng)新互聯(lián)是一家專業(yè)提供金林企業(yè)網(wǎng)站建設(shè),專注與網(wǎng)站設(shè)計(jì)、做網(wǎng)站、成都h5網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為金林眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站制作公司優(yōu)惠進(jìn)行中。

vb.net徹底隱藏文件夾

1、首先，打開(kāi)電腦，點(diǎn)擊電腦界面中的vbnet軟件。

2、其次，點(diǎn)擊該軟件的隱藏按鈕，進(jìn)入隱藏界面。

3、最后，選擇要隱藏的文件，點(diǎn)擊徹底隱藏即可，是非常簡(jiǎn)單的。

VB.net里面的工具欄怎么能自動(dòng)隱藏？

工具欄 一般都有自動(dòng)隱藏，在工具欄的左或者右上方 有個(gè)圖標(biāo)可以選擇隱藏的，我用的VS2010 反正在那里有設(shè)置的！

vb,點(diǎn)擊按鈕后隱藏窗體的標(biāo)題欄？

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _

(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 ' 調(diào)整標(biāo)題欄是否可見(jiàn)：

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' 重新設(shè)定窗口：

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中加一點(diǎn)代碼，因?yàn)榭蛻魠^(qū)的大小已經(jīng)改變：

End Function Private Sub Check1_Click()

If (Check1.Value = Checked) Then

ShowTitleBar True

Else

ShowTitleBar False

End If

End Sub

在窗體上加一個(gè)checkbox，設(shè)置value=1，然后啟動(dòng)程序

VS.NET(vb)編程時(shí)怎么隱藏標(biāo)題欄呢?

窗口的FormBorderStyle是修改窗口屬性的~，可以改成None這樣就沒(méi)有邊框和標(biāo)題欄了

如果僅僅要去掉標(biāo)題欄，修改窗口ControlBox為false，并吧Text屬性置空就好了

……還是你啊~你問(wèn)了兩次，復(fù)制過(guò)來(lái)~呵呵

VB 如何 隱藏標(biāo)題欄 顯示任務(wù)欄

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

BorderStyle = 0

ShowInTaskbar = True

Private Sub Form_Load()

SetWindowText Me.hwnd, "任務(wù)欄名稱"

End Sub

新聞標(biāo)題：vb.net標(biāo)題欄隱藏 vb窗體標(biāo)題欄顯示內(nèi)容
文章源于：http://www.yijiale78.com/article14/dodeige.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、網(wǎng)站建設(shè)、網(wǎng)站排名、響應(yīng)式網(wǎng)站、App開(kāi)發(fā)、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)