Question

VB编写能在窗体上画出一个矩形的代码，并在矩形下面显示出矩形的宽度，高度和面积

会画矩形，但是不知道这样才能在编写窗体显示出所画矩形宽度高度面积的大小。高手帮忙！！

Answer 1

1，要建立合适的坐标系统，在窗体中设置内部宽度和高度
2，获得光标指向位置坐标，一旦有左键按下就锁定起始坐标，并显示框。
3，获取左键弹起位置坐标。
4，求出高和宽。用两次坐标减后求绝对值
5，根据参考坐标算出面积并显示

追问

可不可以把代码写给我，谢谢

追答

我不免费提供代码的1815174011，谢谢

追问

谢谢，那不打扰您了，我另找解决办法。

追答

嗯，试着用我给的步骤写吧，练练手也行

嗯，试着用我给的步骤写吧，练练手也行

Answer 2

你可以用下面函数转换尺寸单位：
Function ScaleX(矩形宽度, scalemode, vbCentimeters) As Single
Function ScaleY(矩形高度, scalemode, vbCentimeters) As Single

当前窗口坐标模式：Scalemode
毫米 vbMillimeters
英寸 vbInches
厘米 vbCentimeters