VB.NET窗体操作技巧两则
来源:互联网 发布:99乘法表的数c语言代码 编辑:程序博客网 时间:2024/05/16 07:19
一、如何拖动没有边框的窗体?
这个功能在VB6中,需要借助于API函数才能实现。而在VB.NET中,凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框,然后在窗体上添加一个按钮。窗体中的代码如下:
- 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
二、多个窗体之间互相调用
在VB6中,多个窗体之间可以很方便地互相调用,如:在Form1中,只需要用一条“Form2.Show” 语句就能显示窗体Form2。然而在VB.NET中窗体处理机制发生了很大的变化:在访问窗体之前,你必须进行窗体实例化;如果在项目中有多处代码访问同一窗体,则你必须把它的同一实例指针传递给这些代码,否则新创建的窗体实例就不再是原先的窗体了。
下面的代码实现窗体Form1和Form2之间互相调用,Form1为主窗体。Form1上的按钮BtnShowFrm2的标题为“显示Form2”,Form2上的按钮BtnShowFrm1的标题为“显示Form1”。
1、Form1中的代码:
- 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下调试通过。
- VB.NET窗体操作技巧两则
- VB.NET窗体操作技巧两则
- vb.net中的窗体操作
- VB.NET 2008窗体应用技巧
- 嵌入式下VB.NET窗体操作 DLL
- vb.net的多窗体操作
- VB.NET移动无边框窗体 两种方法
- asp.net vb 数据库操作技巧
- DataGridView在vb.net中的操作技巧
- DataGridView在vb.net中的操作技巧
- DataGridView在vb.net中的操作技巧
- DataGridView在vb.net中的操作技巧
- VB.NET String数据类型操作技巧
- DataGridView在vb.net中的操作技巧
- DataGridView在vb.net中的操作技巧
- VB.NET特效窗体
- [VB.NET]MDI窗体
- vb.net GDI窗体
- 得分记
- Visual Basic.Net基础概念和语法
- uboot移植过程中编译问题!
- 第一次写笔记,指定暑假企划
- 用Visual Basic.NET编写扑克牌游戏
- VB.NET窗体操作技巧两则
- 选择VB.Net还是C#
- 关于Visual Basic 9.0动态接口
- typedef与#define 的区别
- 老师请来看看:VS2008环境变量设置问题
- 初来乍到,请多多指教呐...
- 编程时经常使用到的标点符号列表!
- 指针和函数
- 实习?如何选择