0

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

Dim datok As Decimal
Dim datol As Decimal

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

4

1 回答 1

1

您可以使用PointF结构。

从上面的链接:

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

IE

Dim datok As Decimal
Dim datol As Decimal

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

我不确定你是如何画线的,但是有相应的图形方法使用PointF结构而不是Point在这个DrawLine方法中

或者,如果您满足于丢失一些数据,您可以在创建您的数据时将小数转换为整数Point

IE

Dim myPoint As Point = New Point(CInt(datok), CInt(datol))
于 2013-06-26T00:30:16.437 回答