額..你需要彈出的是模式窗體....
新巴爾虎右網(wǎng)站建設公司創(chuàng)新互聯(lián),新巴爾虎右網(wǎng)站設計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為新巴爾虎右1000多家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設要多少錢,請找那個售后服務好的新巴爾虎右做網(wǎng)站的公司定做!
彈出的時候用 Form2.Show 1 即可... 這里的 1 是 show的參數(shù) - -|
這樣彈出Form2后,Form2的調(diào)用者就會被禁用
Private 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 Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = H40
Private Sub Form_load()
Dim retValue As Long
'將窗體設置為處于所有窗口的頂層,注意在 VB 中運行時,可能不行,但編譯成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End Sub
在你要點擊的按鈕里,定義一個新窗體的實例,然后用showdialog(),應該就可以吧
VisualStudio 2010中的vb.net
鎖定邊框:
代碼輸入Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
或者在屬性列表里設置FormBorderStyle 為Fixed3D
最大化不可用:
代碼輸入Me.MaximizeBox = False
或者在屬性列表里設置MaximizeBox 為 False
有兩種方法實現(xiàn)窗體固定大小
1)設置窗體的BorderStyle屬性。如下圖。將屬性設置為圖中紅色框出的任意一個值即可實現(xiàn)窗體大小固定不變。
2)編程控制
如果將Form的BorderStyle設置為 2 - Sizeable,通過編程也可以實現(xiàn)窗體固定大小
Option?Explicit
Dim?frmWidth
Dim?frmHeight
Private?Sub?Form_Load()
'窗體啟動時,記錄下窗體的寬度和高度
frmWidth?=?Me.Width
frmHeight?=?Me.Height
End?Sub
Private?Sub?Form_Resize()
'用戶改變窗體大小時,強制窗體大小固定為原始尺寸
'從而達到窗體大小固定目的!
On?Error?Resume?Next
Me.Width?=?frmWidth
Me.Height?=?frmHeight
End?Sub
實現(xiàn)方法如下:
1.引用命名空間
using System.Runtime.InteropServices;
2.聲明如下變量:
public class Form1 : System.Windows.Forms.Form
{
//.....
[DllImport("user32.dll",EntryPoint="GetSystemMenu")]
extern static IntPtr GetSystemMenu(IntPtr hWnd, IntPtr bRevert);
[DllImport("user32.dll",EntryPoint="RemoveMenu")]
extern static int RemoveMenu(IntPtr hMenu, int nPos, int flags);
//.....
}
3.在Form的構造函數(shù)里加入代碼
public Form1()
{
const int MF_BYPOSITION = 0x0400;
const int MF_REMOVE = 0x1000;
FormBorderStyle = FormBorderStyle.FixedSingle;
MaximizeBox = false;
MinimizeBox = false;
RemoveMenu(GetSystemMenu(Handle,IntPtr.Zero),1,MF_BYPOSITION |MF_REMOVE);
}
就OK啦
網(wǎng)站欄目:vb.net鎖定前端窗體 vb窗體前置
標題URL:http://muchs.cn/article30/hggoso.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供App設計、、移動網(wǎng)站建設、自適應網(wǎng)站、微信小程序、外貿(mào)建站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)