VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Left) + VB6.PixelsToTwipsX(ComboName.Left) + 350 - VB6.PixelsToTwipsX(FrmEmpSel.Width)) vb.net写法
时间: 2024-10-29 20:20:44 浏览: 36
YOLO算法-城市电杆数据集-496张图像带标签-电杆.zip
这个VB6表达式看起来是用来将像素坐标转换为打印点(Twips)坐标并进行一些计算。在VB.NET中,我们可以使用相似的逻辑,但语法会有所不同。假设`Me.Left`, `ComboName.Left`, 和 `FrmEmpSel.Width`分别代表控件的左边缘位置,你可以这样做:
```vb.net
Dim pixelLeftMe As Integer = Me.Left
Dim pixelLeftCombo As Integer = ComboBoxName.Left
Dim pixelWidthForm As Integer = FrmEmpSel.Width
' 将像素转换为Twips
Dim twipsLeftMe As Integer = Convert.ToInt32(ControlPaint.GetDialogBaseUnits(Me.Left))
Dim twipsLeftCombo As Integer = Convert.ToInt32(ControlPaint.GetDialogBaseUnits(ComboBoxName.Left))
Dim twipsWidthForm As Integer = Convert.ToInt32(ControlPaint.GetDialogBaseUnits(FrmEmpSel.Width))
' 计算总值,并减去宽度
Dim totalTwipsValue As Integer = twipsLeftMe + twipsLeftCombo + 350 - twipsWidthForm
totalTwipsValue ' 这里是最终的Twips坐标值
```
在这个VB.NET版本中,我们使用了`ControlPaint.GetDialogBaseUnits`方法来将像素值转换为打印点单位(Twips),因为.NET Framework中的控件尺寸默认是以打印点为单位的。
阅读全文