VB上怎么画三角形

Posted 2023-04-23

在3个text控件中输入三角形三条边 在picturebox上能画出那个三角形
帮帮忙了 我算不出来
三角形在picturebox的中间位置 是不是要设置重心啊?
怎么把边长换成坐标?这个我不会
最好有详细的代码

定义好三角形的三个点，用line画线连接即可。

示例如下：

Private Sub Form_Load()
Me.AutoRedraw = True
Dim x As Integer
Dim y As Integer
CurrentX = 1500
CurrentY = 500
Line -(3000, 2000), RGB(0, 0, 255)
Line -(1500, 2000), RGB(0, 0, 255)
Line -(1500, 500), RGB(0, 0, 255)
End Sub

运行效果：

参考技术A 解析几何的问题呢,
你要确定一个点的坐标,和一条边的方向,再算出其他点的坐标

Private Sub Command1_Click()
Picture1.Cls

a = Val(text1)
b = Val(text2)
c = Val(text3)
If Not ((a + b > c) And (a + c > b) And (b + c > a)) Then MsgBox "三条边长度不正确,重新输入!": Exit Sub
cosA = (b * b + c * c - a * a) / (2 * b * c)
sinA = Sqr(1 - cosA * cosA)
'确定坐标
XA = 0: YA = 0
XB = c: YB = 0
XC = b * cosA: YC = b * sinA
'确定坐标系

Picture1.Scale (-3, YC + 3)-(c + 3, -3)
'画线
Picture1.Line (XA, YA)-(XB, YB)
Picture1.Line -(XC, YC)
Picture1.Line -(XA, YA)

End Sub 参考技术B MOVETO
LINETO
画三条线
你可以这样求：
假设边长为：A B C（C为底边）
求出三个夹角（有夹角公式）
再求出高度
将C水平放置
求出ABC对应的坐标本回答被提问者采纳 参考技术C 可以参照这个实例！！！
Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long

Private Sub Picture1_Click()
With Picture1
.FillColor = vbRed
.FillStyle = 0
.ForeColor = vbBlue
Picture1.Line (Picture1.ScaleLeft, Picture1.ScaleTop)-(Picture1.ScaleLeft + Picture1.ScaleWidth, Picture1.ScaleTop + Picture1.ScaleHeight / 2)
Picture1.Line -(Picture1.ScaleLeft, Picture1.ScaleTop + Picture1.ScaleHeight)
Picture1.Line -(Picture1.ScaleLeft, Picture1.ScaleTop)
End With
Call ExtFloodFill(Picture1.hdc, Picture1.ScaleLeft + 1, Picture1.ScaleTop + 1, vbBlue, 0)
End Sub

在ArcGIS中怎么画圆

参考技术A 在工具条 右键，勾选 advanced editor，这个高级编辑工具条里有画圆工具。

画的时候开捕捉，然后点好圆心，键入 R 后是 输入 半径值本回答被提问者采纳