'點擊窗口的任何位置拖動窗體
創新互聯公司-專業網站定制、快速模板網站建設、高性價比安圖網站開發、企業建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式安圖網站制作公司更省心,省錢,快速模板網站建設找我們,業務覆蓋安圖地區。費用合理售后完善,十余年實體公司更值得信賴。
Dim ctX As Single, ctY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ctX = X: ctY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + X - ctX
Me.Top = Me.Top + Y - ctY
End If
End Sub
你的 Me.StartPosition =FormStartPosition.CenterScreen 寫在哪的?
寫在Form_Load事件里是不起作用的(也不叫不起作用,只是那個時候窗體已經不算Start了),一般代碼是這樣寫,在Form1中的某個地方
Dim frm As New Form2
frm.StartPosition =FormStartPosition.CenterScreen
frm.ShowDialog()
如果你一定要在Form2中通過代碼設置,可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的構造函數中。
方法如下:
1、打開例1.1創建的工程。
2、選擇窗體Form1并雙擊該窗體,出現窗體的調事件的過程代碼體。
3、在窗體調用的過程代碼體中編制如下過程代碼:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、設置窗體Form1的SartUpPosition屬性為2-屏幕中心,這樣運行窗體可以發現,屏幕的大小與例1.6中通過屬性設置的大小是一致的。
本文題目:vb.net彈出窗口位置,vb控件在窗體上的位置
網頁URL:http://www.yijiale78.com/article10/dsgoddo.html
成都網站建設公司_創新互聯,為您提供品牌網站制作、軟件開發、ChatGPT、App設計、網站導航、網站改版
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯