在VB.net中，Tabcontrol控件的邊框怎么去掉？

你把 選項(xiàng)卡 拖到屏幕外面不就行了 只顯示選項(xiàng)卡內(nèi)東西 周圍邊緣都不要了 每個選項(xiàng)卡內(nèi)配合labl 或按鈕 標(biāo)識不就行了。

專業(yè)成都網(wǎng)站建設(shè)公司，做排名好的好網(wǎng)站，排在同行前面，為您帶來客戶和效益!創(chuàng)新互聯(lián)為您提供成都網(wǎng)站建設(shè)，五站合一網(wǎng)站設(shè)計(jì)制作，服務(wù)好的網(wǎng)站設(shè)計(jì)公司，做網(wǎng)站、網(wǎng)站制作負(fù)責(zé)任的成都網(wǎng)站制作公司!

VB.net怎么去掉MDI窗體立體邊框

DllImport("user32.dll",?ExactSpelling:=True)?_

Private?Shared?Function?SetWindowPos(ByVal?hWnd?As?IntPtr,?ByVal?hWndInsertAfter?As?IntPtr,?ByVal?X?As?Integer,?ByVal?Y?As?Integer,?ByVal?cx?As?Integer,?ByVal?cy?As?Integer,?_

ByVal?uFlags?As?UInteger)?As?Integer

End?Function

Private?Const?GWL_STYLE?As?Integer?=?-16

Private?Const?GWL_EXSTYLE?As?Integer?=?-20

Private?Const?WS_BORDER?As?Integer?=?H800000

Private?Const?WS_EX_CLIENTEDGE?As?Integer?=?H200

Private?Const?SWP_NOSIZE?As?UInteger?=?H1

Private?Const?SWP_NOMOVE?As?UInteger?=?H2

Private?Const?SWP_NOZORDER?As?UInteger?=?H4

Private?Const?SWP_NOREDRAW?As?UInteger?=?H8

Private?Const?SWP_NOACTIVATE?As?UInteger?=?H10

Private?Const?SWP_FRAMECHANGED?As?UInteger?=?H20

Private?Const?SWP_SHOWWINDOW?As?UInteger?=?H40

Private?Const?SWP_HIDEWINDOW?As?UInteger?=?H80

Private?Const?SWP_NOCOPYBITS?As?UInteger?=?H100

Private?Const?SWP_NOOWNERZORDER?As?UInteger?=?H200

Private?Const?SWP_NOSENDCHANGING?As?UInteger?=?H400

Public?Sub?ChangeMdiClientBorderStyle(ByVal?Value?As?System.Windows.Forms.BorderStyle,?ByVal?Handle?As?IntPtr)

Dim?style?As?Integer?=?GetWindowLong(Handle,?GWL_STYLE)

Dim?exStyle?As?Integer?=?GetWindowLong(Handle,?GWL_EXSTYLE)

'?Add?or?remove?style?flags?as?necessary.

Select?Case?Value

Case?BorderStyle.Fixed3D

exStyle?=?exStyle?Or?WS_EX_CLIENTEDGE

style?=?style?And?Not?WS_BORDER

Exit?Select

Case?BorderStyle.FixedSingle

exStyle?=?exStyle?And?Not?WS_EX_CLIENTEDGE

style?=?style?Or?WS_BORDER

Exit?Select

Case?BorderStyle.None

style?=?style?And?Not?WS_BORDER

exStyle?=?exStyle?And?Not?WS_EX_CLIENTEDGE

Exit?Select

End?Select

'?Set?the?styles?using?Win32?calls

SetWindowLong(Handle,?GWL_STYLE,?style)

SetWindowLong(Handle,?GWL_EXSTYLE,?exStyle)

'?Update?the?non-client?area.

SetWindowPos(Handle,?IntPtr.Zero,?0,?0,?0,?0,?_

SWP_NOACTIVATE?Or?SWP_NOMOVE?Or?SWP_NOSIZE?Or?SWP_NOZORDER?Or?SWP_NOOWNERZORDER?Or?SWP_FRAMECHANGED)

End?Sub

'''?summary

'''?獲取MDIClient句柄

'''?/summary

'''?returns/returns

'''?remarks/remarks

Private?Function?getMdiClientHandle()?As?IntPtr

Dim?Obj?As?MdiClient?=?Nothing

Dim?t?As?Type

For?Each?Item?As?Control?In?Me.Controls

t?=?Item.[GetType]()

If?t.Name?=?"MdiClient"?Then

Obj?=?DirectCast(Item,?MdiClient)

Exit?For

End?If

Next

If?Obj?IsNot?Nothing?Then

Return?Obj.Handle

Else

Return?IntPtr.Zero

End?If

End?Function

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

If?Me.IsMdiContainer?Then

ChangeMdiClientBorderStyle(BorderStyle.None,?getMdiClientHandle)

End?If

End?Sub

vb.net如何設(shè)置窗體內(nèi)部的大?。ǔミ吙蚣皹?biāo)題欄部分的大小）

'窗體有個屬性ClientSize?是除去邊框及標(biāo)題欄部分的為工作區(qū)

'你要的應(yīng)該就是這個了。

'設(shè)置窗體工作區(qū)的大小?例為400*300

Me.ClientSize?=?New?Size(400,300)

你好，麻煩你幫助我看看VB窗體的邊框怎么去掉？或是把VB窗體的關(guān)閉按鈕去掉

在屬性窗口中把窗體的BorderStyle屬性設(shè)為0即可（意思就是沒有邊框）

vb.net 無邊框窗體的問題

設(shè)置窗體的text為空，設(shè)置窗體的controlbox屬性為false，設(shè)置窗體的FormBorderStyle 屬性為Sizable，就可以改變窗體大小了，并且可以在任務(wù)欄點(diǎn)擊。

分享題目：vb.net窗口去邊框 vb無邊框窗體
本文URL：http://jinyejixie.com/article36/hehisg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、小程序開發(fā)、ChatGPT、面包屑導(dǎo)航、搜索引擎優(yōu)化、電子商務(wù)

廣告

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