VB.NET 2010 如何自定义窗
来源:互联网 发布:淘宝联盟的淘口令 编辑:程序博客网 时间:2024/06/07 14:05
VB.NET 2010中,在窗体有几种模式,但是都是微软定义的一些窗体,我们该如何DIY一个自己的呢?其实很简单,需要自己做一张图片,然后将其填充整个窗体。然后再将窗体的风格设置为NONE。设置完成后窗体是无法移动的,接下来就是编写代码,让窗体跟随鼠标移动(按住鼠标右键才能移动)。
Public class Form1
Private Mouse_Offset as Point '定义一个全局私有变量
Private Sub Form1_Mousemove(Byval sender As System.Object,Byval e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove'鼠标移动事件
If e.Button=Windows.Forms.MouseButtons.Left Then '判断是不是鼠标右键按下
Dim MousePos As Point =Control.MousePosition '定义以一个鼠标指针,并将其初始化为当前鼠标位置
MousePos.OffSet(Mouse_Offset) ' 计算位移
Me.Location=MousePos '见窗体按照位移偏移
End If
End Sub
Private Sub Form1_MouseDown(Byval sender As System.Object,Byval e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown'鼠标按下事件
Mouse_Offset=New Point(-e.x,-e.y)'将Mouse_Offset初始化,并将当前鼠标按下时的坐标赋值给它
End Sub
End class
‘以上代码便能使VB.NET2010窗体在自定义的时候按住鼠标移动了
- VB.NET 2010 如何自定义窗
- VB.net webbrowser 如何实现自定义下载 IDownloadManager
- [VB.NET]如何学好vb.net?
- [VB.NET]VB.NET如何继承TextBox
- vb.net编写自定义异常
- 'VB.net 自定义事件使用方法
- vb.net中的自定义事件
- vb.net中的自定义事件
- VB.NET自定义标题栏拖动
- 'VB.net 自定义事件使用方法
- [VB.NET]如何在水晶报表里设置自定义纸张,如何在WinXP里设置纸张?
- [VB.NET]如何将vb.NET转换为Asp.NET
- VB.Net程序设计:拖放数据操作-如何拖放自定义的数据类型
- [VB.NET][问]如何让父窗体响应子窗体中的某一个自定义事件
- 如何将自定义的structure转换为byte数组(VB.Net)
- vb.net如何调用Hook
- [VB.NET]如何获取主机名
- [VB.NET]clickonce 如何使用?
- 《Effective C++》经典语句、要点摘录
- android.intent.action.MAIN与android.intent.category 的区别
- 根据父ID聚合
- win7 NTLDR is missing
- 阻止默认事件
- VB.NET 2010 如何自定义窗
- Oracle 索引扫描的五种类型
- 十一学习
- 视频全屏播放(未写)
- What's stdcall, cdecl, etc....
- DSP程序优化---ccs优化选项详解
- 关于windowless窗体设计的研究---借鉴一些directui的做法
- Apache 设置 IP访问
- 基于BindingSource的WinForm开发