vb.net怎么制作浮動菜單？用toolbar嗎，還是其他的？vs2008怎么找不到toolbar？那里加載？

可以做一個窗體，該窗體中放入你需要的菜單。

創(chuàng)新互聯(lián)建站主營水城網(wǎng)站建設的網(wǎng)絡公司,主營網(wǎng)站建設方案,成都app開發(fā),水城h5微信平臺小程序開發(fā)搭建,水城網(wǎng)站營銷推廣歡迎水城等地區(qū)企業(yè)咨詢

這個窗體幾個特殊設置：

1。TOPmost設置為TRUE

2。Formborderstyle設置為none

3。showintaskbar設置為False

4。size設置為你的菜單大小

用的時候new一下就有啦！

這樣就相當于懸浮窗體了，細節(jié)自己研究吧！^_^

VB.NET中，如何動態(tài)創(chuàng)建非模態(tài)窗體，類似于QQ一樣，雙擊一個頭像會彈出一個窗口。

做一個窗體模板，假設是Form2

Dim x as New Form2

x.Show()

如果彈出窗口較多，x可以用動態(tài)數(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); //設置移動后的位置

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如何實現(xiàn)無邊框窗體拖動？ 如果能指定控件拖動更好 希望能有一點分析 使用VS2015

VB6.0寫的，代碼很簡單，無意中寫成的。應該可以參考。不需要任何api函數(shù)。在無邊框窗體頂部中放入一個label標簽。然后用label的 mouse down 和mouse move事件實現(xiàn)

Dim a, b As Single

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

a = X

b = Y

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Form1.Move Left + X - a, Top + Y - b

End If

End Sub

當前文章：vb.net實現(xiàn)浮動窗體的簡單介紹
地址分享：http://www.yijiale78.com/article24/dooepce.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、用戶體驗、品牌網(wǎng)站制作、靜態(tài)網(wǎng)站、Google、企業(yè)網(wǎng)站制作

廣告

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