Vb.net 無邊框窗體如何實現(xiàn)四周陰影？ 網(wǎng)上搜到的都是兩邊陰影的，我需要四周陰影

設(shè)置全局變量：

創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站設(shè)計制作、成都網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的武定網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

Dim?drag?As?Boolean

Dim?mousex?As?Integer

Dim?mousey?As?Integer

假設(shè)你想拖動的是Panel1控件，以及此控件上的?Label1（用于顯示標題）和PictureBox4（用于顯示圖標）：

Private?Sub?TitleMove_MouseDown(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseDown,?Label1.MouseDown,?PictureBox4.MouseDown

drag?=?True

mousex?=?Windows.Forms.Cursor.Position.X?-?Me.Left

mousey?=?Windows.Forms.Cursor.Position.Y?-?Me.Top

End?Sub

Private?Sub?TitleMove_MouseMove(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseMove,?Label1.MouseMove,?PictureBox4.MouseMove

If?drag?Then

Me.Top?=?Windows.Forms.Cursor.Position.Y?-?mousey

Me.Left?=?Windows.Forms.Cursor.Position.X?-?mousex

End?If

End?Sub

Private?Sub?TitleMove_MouseUp(sender?As?Object,?e?As?System.Windows.Forms.MouseEventArgs)?Handles?Panel1.MouseUp,?Label1.MouseUp,?PictureBox4.MouseUp

drag?=?False

End?Sub

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

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

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我要用鼠標軌跡畫一個矩形框 然后選中控件。就像星際和魔獸爭霸里對部隊單位的選中一樣~等大神回答

這個類繼承自Panel，把它加到你的項目里面，先運行一下，然后從工具箱里把它拖到窗體上，然后再向里面添加其它控件就可以了，支持Shift加選，Alt減選

Imports?System.Linq

Imports?System.Collections

Public?Class?MyPanel

Inherits?Panel

'?選擇模式，相交還是包含

Enum?SelectMode

Intersects

Contains

End?Enum

Dim?down?As?New?Point(-1,?-1)

Dim?rect?As?Rectangle

Dim?selected?As?New?List(Of?Control)

Dim?editting?As?IEnumerable(Of?Control)

Dim?mode?As?SelectMode?=?SelectMode.Contains

Dim?shift,?alt?As?Boolean

Public?Sub?New()

Me.DoubleBuffered?=?True

End?Sub

Protected?Overrides?Sub?OnMouseDown(e?As?MouseEventArgs)

MyBase.OnMouseDown(e)

down?=?e.Location

editting?=?selected.ToArray().ToList()

OnMouseMove(e)

End?Sub

Protected?Overrides?Sub?OnMouseMove(e?As?MouseEventArgs)

MyBase.OnMouseMove(e)

If?e.Button?=?Windows.Forms.MouseButtons.Left?Then

Dim?loc?As?New?Point(Math.Min(down.X,?e.X),?Math.Min(down.Y,?e.Y))

Dim?size?As?New?Size(Math.Abs(down.X?-?e.X),?Math.Abs(down.Y?-?e.Y))

rect?=?New?Rectangle(loc,?size)

Dim?cs?As?New?List(Of?Control)

For?Each?c?In?Controls

cs.Add(c)

Next

Dim?a?=?cs.Where(Function(n?As?Control)?(mode?=?SelectMode.Contains?And?rect.Contains(n.Bounds))?Or?(mode?=?SelectMode.Intersects?And?rect.IntersectsWith(n.Bounds)))

If?shift?Then?editting?=?a.Union(selected)?Else?If?alt?Then?editting?=?selected.Except(a)?Else?editting?=?a

Invalidate()

End?If

End?Sub

Protected?Overrides?Sub?OnMouseUp(e?As?MouseEventArgs)

MyBase.OnMouseUp(e)

down?=?New?Point(-1,?-1)

selected?=?editting.ToList()

editting?=?Nothing

Invalidate()

End?Sub

Protected?Overrides?Function?ProcessKeyPreview(ByRef?m?As?Message)?As?Boolean

Dim?KeyCode?As?Keys?=?CInt(m.WParam)?And?CInt(Keys.KeyCode)

Dim?d?As?Boolean

If?m.Msg?=?H100?Or?m.Msg?=?H104?Then?d?=?True?Else?If?m.Msg?=?H101?Or?m.Msg?=?H105?Then?d?=?False?Else?Return?MyBase.ProcessKeyPreview(m)

If?KeyCode?=?Keys.ShiftKey?Then

shift?=?d

ElseIf?KeyCode?=?Keys.Menu?Then

alt?=?d

End?If

Return?MyBase.ProcessKeyPreview(m)

End?Function

Protected?Overrides?Sub?OnPaint(e?As?PaintEventArgs)

MyBase.OnPaint(e)

For?Each?c?As?Control?In?IIf(editting?Is?Nothing,?selected,?editting)

e.Graphics.DrawRectangle(New?Pen(Color.Gray)?With?{.DashStyle?=?Drawing2D.DashStyle.DashDot},?c.Left?-?1,?c.Top?-?1,?c.Width?+?1,?c.Height?+?1)

Next

If?(down.X??0)?Then?e.Graphics.DrawRectangle(New?Pen(Color.Gray)?With?{.DashStyle?=?Drawing2D.DashStyle.DashDot},?rect)

End?Sub

End?Class

VB中如何設(shè)置label的邊框

Label是VB中的標簽框控件，一般用來顯示對其他控件功能進行說明性的文本信息。比如在學(xué)生信息管理系統(tǒng)中，在一個文本框前面加上一個Lable標題為“姓名”，提醒用戶在這個Lable控件右邊的文本框中輸入學(xué)生姓名。

Label控件的邊框?qū)傩詾锽orderStyle,一共有兩種屬性值：0和1。分別表示沒有邊框和固定邊框，該屬性在Label控件的屬性表中通過單擊鼠標選擇設(shè)置：

示意圖為：

VB.net怎樣按住鼠標移動無邊框窗體

1.在mouse事件中實現(xiàn)

2.調(diào)用windows API

實現(xiàn)方式為：

1.在mouse事件中實現(xiàn)

[csharp] view plain copy

Point mouseOff;//鼠標移動位置變量

bool leftFlag;//標簽是否為左鍵

private void groupControl1_MouseUp(object sender, MouseEventArgs e)

{

if (leftFlag)

{

leftFlag = false;//釋放鼠標后標注為false;

}

}

private void groupControl1_MouseMove(object sender, MouseEventArgs e)

{

if (leftFlag)

{

Point mouseSet = Control.MousePosition;

mouseSet.Offset(mouseOff.X, mouseOff.Y); //設(shè)置移動后的位置

Location = mouseSet;

}

}

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

mouseOff = new Point(-e.X, -e.Y); //得到變量的值

leftFlag = true; //點擊左鍵按下時標注為true;

}

}

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

mouseOff = new Point(-e.X, -e.Y); //得到變量的值

leftFlag = true; //點擊左鍵按下時標注為true;

}

}

2.調(diào)用windows API

調(diào)用前需要添加using System.Runtime.InteropServices;

[csharp] view plain copy

[DllImport("user32.dll")]

public static extern bool ReleaseCapture();

[DllImport("user32.dll")]

public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);

private void groupControl1_MouseDown(object sender, MouseEventArgs e)

{

if (e.Button == MouseButtons.Left)

{

ReleaseCapture(); //釋放鼠標捕捉

//發(fā)送左鍵點擊的消息至該窗體(標題欄)

SendMessage(Handle, 0xA1, 0x02, 0);

}

}

本文名稱：vb.net邊框特效,vb窗體邊框樣式
網(wǎng)站鏈接：http://chinadenli.net/article6/dsggcig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、網(wǎng)站策劃、網(wǎng)站改版、云服務(wù)器、Google、網(wǎng)站設(shè)計

廣告

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