VB.NET画多边形

怎么画啊，PointF怎么用啊

Call Pset(x,y,RGB(Red,Green,Blue))

x,y是坐标
RGB是颜色

可以随时调用!!!

哦，对不起，没看清。
我没用过VB.Net，代码是没办法给你了
但我有办法：
用API函数SetPixel，SetPixelv(后者快一点)
语法参见

如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！ vae.la

rem 凸n变形可以看成是n-1个三角形的面积 rem 三角形的面积s=sqr(p*(p-a)*(p-b)*(p-c))，其中，p=(a+b+c)/2，a、b、c为边长，边长=sqr((x1-x2)^2+(y1-y2)^2)，而(x1,y1)和(x2,y2)分别为两点的坐标值 rem 以下代码为求任意多边形的面积，边数由用户自行决定 private sub command1_click() dim n, s, i, x(), y(), a, b, c, p k: n = int(val(trim(inputbox("请输入多边形的边数：", "多边形面积", 3)))) if n < 3 then msgbox "边数必须≥3！请重试！", , "多边形面积": goto k on error resume next redim x(1 to n), y(1 to n) s = 0 for i = 1 to n x(i) = val(trim(inputbox("请输入" & iif(n = 3, "三角形", n & "边形") & "第" & i & "个点的横坐标:"))) y(i) = val(trim(inputbox("请输入" & iif(n = 3, "三角形", n & "边形") & "第" & i & "个点的横坐标:"))) if i > 1 then line (x(i), y(i))-(x(i - 1), y(i - 1)) next for i = 2 to n - 1 a = sqr((x(1) - x(i)) ^ 2 + (y(1) - y(i)) ^ 2) b = sqr((x(1) - x(i + 1)) ^ 2 + (y(1) - y(i + 1)) ^ 2) c = sqr((x(i) - x(i + 1)) ^ 2 + (y(i) - y(i + 1)) ^ 2) p = (a + b + c) / 2 s = s + sqr(p * (p - a) * (p - b) * (p - c)) next msgbox iif(n = 3, "三角形", n & "边形") & "面积是" & s, , "多边形面积" end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息