Dim p As Point = Cursor.Position
成都創(chuàng)新互聯(lián)專注于通化網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供通化營銷型網(wǎng)站建設(shè),通化網(wǎng)站制作、通化網(wǎng)頁設(shè)計(jì)、通化網(wǎng)站官網(wǎng)定制、小程序定制開發(fā)服務(wù),打造通化網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供通化網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
Form2.Show()
Form2.Location = p
可以的,設(shè)置邊框窗戶,
設(shè)置可拖動
releasecapture()
sendmessage wm_syscommand ,htcaption or wm_move
置頂
setwindowpos -1,0,0,0,0,H1 or H2
在你的主窗體里找到MouseDown事件
如果是任意點(diǎn)擊的用下面的代碼就足夠了
如果一定要是邊框的話你要給出邊框的高度(以像素為單位)
我的QQ:575297577
Private Sub 主窗體_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
你的窗體.Show()
End If
End Sub