VB中Form的Height如何计算

今天写了一个vb的软件,用于进行图片的裁剪。

因为想在load图片的时候进行自动的图像大小匹配,所以用到了Form1.Height的属性

但是在应用中发现了一点问题:

Form的scalemode我选择了Pixel,所以对于Twip有一个15:1的换算关系。可是我每次进行

form1.height=(Piture1.Top+Picture1.Height)*15的时候,总是比图像小一块。经过查看form的height参数,才发现,原来Form.Height不是从0开始计算的。而是包括了上面的form框。也就是蓝色的那个条框。



我在本机电脑上查看的条框高度为30.

所以在设置的时候公式应该为:

form1.height=(30+Piture1.Top+Picture1.Height)*15。

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------------------...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, t...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integ...