转换system.drawing.point中的十进制值

Question

我有两个变量声明为十进制

Dim datok As Decimal
Dim datol As Decimal

两者都填充了来自rs232端口的值，并且Ineed用这些点绘制一条线，但是当我尝试将datok和datol的值传递给点结构时，错误“类型'十进制的值'无法转换为'system.drawing.point' 我如何在system.drawing.point中转换datok的值decimal 提前致谢

Answer 1

您可以使用PointF结构。

从上面链接：

  

表示一对有序的浮点x和y坐标，用于定义二维平面中的点。

即

Dim datok As Decimal
Dim datol As Decimal

Dim myPoint As PointF = New PointF(datok, datol)

我不确定您是如何绘制线条的，但有相应的图形方法使用PointF结构而非Point，如此DrawLine方法

或者，如果您满足于丢失数据，则可以在创建Point

时将小数转换为整数

即。

Dim myPoint As Point = New Point(CInt(datok), CInt(datol))