vb.net自动标注尺寸代码

时间: 2023-08-04 21:00:36 浏览: 45
在VB.NET中,可以使用以下代码实现自动标注尺寸。 首先,为了能够修改控件的尺寸,我们需要为控件添加一个SizeGrip。可以通过在控件的右下角添加一个PictureBox控件来实现。 在表单的Load事件中,可以使用以下代码来添加SizeGrip: ```vb Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim sizeGrip As New PictureBox() sizeGrip.Width = 16 sizeGrip.Height = 16 sizeGrip.Cursor = Cursors.SizeNWSE sizeGrip.BackColor = Color.Transparent sizeGrip.Image = My.Resources.sizeGrip sizeGrip.SizeMode = PictureBoxSizeMode.StretchImage sizeGrip.Anchor = AnchorStyles.Bottom Or AnchorStyles.Right Me.Controls.Add(sizeGrip) End Sub ``` 这段代码中,我们创建了一个PictureBox控件,并设置宽度、高度、鼠标指针样式、背景色、图片、图片展示方式和锚定属性。最后,将SizeGrip添加到表单的控件集合中。 然后,在PictureBox的MouseDown和MouseMove事件中,可以使用以下代码来实现尺寸调整: ```vb Dim isResizing As Boolean = False Dim clickPoint As Point Private Sub sizeGrip_MouseDown(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseDown If e.Button = MouseButtons.Left Then isResizing = True clickPoint = e.Location End If End Sub Private Sub sizeGrip_MouseMove(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseMove If isResizing Then Me.Width += e.X - clickPoint.X Me.Height += e.Y - clickPoint.Y End If End Sub Private Sub sizeGrip_MouseUp(sender As Object, e As MouseEventArgs) Handles sizeGrip.MouseUp isResizing = False End Sub ``` 这段代码中,我们定义了一个布尔变量`isResizing`以及一个点对象`clickPoint`。在MouseDown事件中,当鼠标左键按下时,将`isResizing`设置为`True`,并保存当前鼠标的位置到`clickPoint`变量中。在MouseMove事件中,当`isResizing`为`True`时,通过计算鼠标当前位置和点击位置之间的差值,来调整表单的宽度和高度。在MouseUp事件中,将`isResizing`设置为`False`,以停止尺寸调整。 通过以上代码,我们就可以实现在VB.NET中自动标注尺寸的功能。

相关推荐

最新推荐

vb.net自动操作其它程序

vb.net自动控制其它程序,可实现在当前程序体内,控制WINDOWS进程中的程序

vb.net操作注册表的方法分析【增加,修改,删除,查询】

主要介绍了vb.net操作注册表的方法,结合实例形式分析了vb.net针对注册表的增加,修改,删除及查询操作相关实现技巧,需要的朋友可以参考下

VB.net调用Access数据库

VB.net调用Access数据库,及报错“未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序”解决方案

vb.net写的webservice.docx

vb.net写的webservice接口,对端发送string形式的XML文件后,本程序进行相应的数据提取存储到数据库后,返回一个XML

VB.NET 聊天室代码《简单》

简单的聊天室VB.net文件,一个简单的聊天工具,可以实现群发的,有客户端和服务端

三相电压型逆变器工作原理分析.pptx

运动控制技术及应用

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire

液位控制技术在换热站工程中的应用与案例分析

# 1. 引言 ### 1.1 研究背景 在工程领域中,液位控制技术作为一项重要的自动化控制技术,广泛应用于各种工业生产和设备操作中。其中,液位控制技术在换热站工程中具有重要意义和价值。本文将针对液位控制技术在换热站工程中的应用展开深入研究和分析。 ### 1.2 研究意义 换热站作为工业生产中的关键设备,其性能稳定性和安全运行对于整个生产系统至关重要。液位控制技术作为一项可以实现对液体介质在容器内的准确控制的技术,在换热站工程中可以起到至关重要的作用。因此,深入研究液位控制技术在换热站工程中的应用对于提升工程效率、降低生产成本具有重要意义。 ### 1.3 研究目的 本文旨在通过

vue this.tagsList判断是否包含某个值

你可以使用JavaScript中的`includes()`方法来判断一个数组是否包含某个值。在Vue中,你可以使用以下代码来判断`this.tagsList`数组中是否包含某个值: ```javascript if (this.tagsList.includes('某个值')) { // 数组包含该值的处理逻辑 } else { // 数组不包含该值的处理逻辑 } ``` 其中,将`某个值`替换为你要判断的值即可。

数据中心现状与趋势-201704.pdf

2 2 IDC发展驱动力 一、IDC行业发展现状 3 3 IDC发展驱动力 4 4 ü 2011年以前,全球IDC增长迅速,2012-2013年受经济影响放慢了增长速度,但从2014年开始,技术创新 驱动的智能终端、VR、人工智能、可穿戴设备、物联网以及基因测序等领域快速发展,带动数据存储规模 、计算能力以及网络流量的大幅增加,全球尤其是亚太地区云计算拉动的新一代基础设施建设进入加速期。 ü 2016 年全球 IDC 市场规模达到 451.9 亿美元,增速达 17.5%。从市场总量来看,美国和欧洲地区占据了 全球 IDC 市场规模的 50%以上。从增速来看,全球市场规模增速趋缓,亚太地区继续在各区域市场中保持 领先,其中以中国、印度和新加坡增长最快。 2010-2016年全球IDC市场规模 IDC市场现状-全球 5 5 IDC市场现状-国内 ü 中国2012、2013年IDC市场增速下滑,但仍高于全球平均增速。2014年以来,政府加强政策引导、开放 IDC牌照,同时移动互联网、视频、游戏等新兴行业发展迅速,推动IDC行业发展重返快车道。 ü 2016 年中国 IDC 市场继续保持高速增