Public Class Form1 Inherits
System.Windows.Forms.Form
Private mouse_offset As
Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles
MyBase.MouseDown mouse_offset = New Point(e.X, e.Y) End
Sub
Private Sub form1_MouseMove(ByVal Sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
MyBase.MouseMove '按住鼠标左右键均可拖动窗体 If e.Button =
MouseButtons.Left Or e.Button = MouseButtons.Right Then Dim mousePos
As Point =
Sender.findform().MousePosition '获得鼠标偏移量 mousePos.Offset(-mouse_offset.X,
-mouse_offset.Y) '设置窗体随鼠标一起移动 Sender.findform().Location =
mousePos End If End Sub
Private Sub BtnExit_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click '关闭窗体 Me.Close() End Sub End
Class 二、多个窗体之间互相调用
Public Class Form1 Inherits
System.Windows.Forms.Form '创建Form2的一个新的实例 Dim Frm2 As New
Form2()
Public Function Instance2(ByVal frm As Form2) Frm2 =
frm End Function
Private Sub BtnShowFrm2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
BtnShowFrm2.Click '以下语句保证在Form2以及其他窗体中访问Form1时， '都将得到Form1的同一个窗体实例。 Frm2.Instance(Me) Frm2.Show() Me.Hide() End
Sub
End Class 2、Form2中的代码：
Public Class Form2 Inherits System.Windows.Forms.Form Dim frm1
As Form1 '借助一个新增的Instance属性来生成窗体frm1的实例 Public Function
Instance(ByVal frm As Form1) frm1 = frm End
Function
Private Sub BtnShowFrm1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
BtnShowFrm1.Click Me.Hide() frm1.Show() End
Sub
Private Sub Form2_Closed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
MyBase.Closed '如果Form2被关闭，则设置Form1的按钮BtnShowFrm2不可用。 frm1.BtnShowFrm2.Enabled
= False frm1.Show() End Sub End
Class 以上代码全部在Windows
XP，VB.NET下调试通过。
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
