VB picture控件中line和circle 怎么直线与圆弧连接 5
VBpicture控件中line和circle怎么直线与圆弧连接VB本来画出的直线和圆弧应该相切正好连接但是怎么连接不起我知道单位不一样但是我转换不来。。。求大神代码如下...
VB picture控件中line和circle 怎么直线与圆弧连接VB本来画出的直线和圆弧应该相切正好连接 但是怎么连接不起 我知道单位不一样 但是我转换不来。。。求大神 代码如下:Picture1.ScaleMode = 1Form1.ScaleMode = 1Picture1.AutoRedraw = TruePicture1.Scale (0, 0)-(1400, 2600)Picture1.Line (0, 0)-(1400, 0), vbBlackPicture1.Line (0, 0)-(0, 2600), vbBlackPicture1.Circle (Rz, C4), Rz, vbRed, 3.14159, (180 + Jb) * 3.14159 / 180画出来的图如下:
Picture1.Scale (0, 0)-(1400, 2600) Picture1.Line (0, 0)-(1400, 0), vbBlack Picture1.Line (0, 0)-(0, 2600), vbBlack Picture1.Line (0, 0)-(0, 450), vbRed '坐标1(0,450) Picture1.Circle (450, 450), 450, vbRed, 3.14159, (180 + 54.54) * 3.14159 / 180 '画圆弧(450,450)圆心,450为半径,180°起点,180°+54.54°终点Picture1.Line (188.94, 816.53)-(592.43, 1103.91), vbRed '450-450*cos54.54°=188.94,450+450*cos54.54=816.53 坐标2(188.94,816.53) 展开
Picture1.Scale (0, 0)-(1400, 2600) Picture1.Line (0, 0)-(1400, 0), vbBlack Picture1.Line (0, 0)-(0, 2600), vbBlack Picture1.Line (0, 0)-(0, 450), vbRed '坐标1(0,450) Picture1.Circle (450, 450), 450, vbRed, 3.14159, (180 + 54.54) * 3.14159 / 180 '画圆弧(450,450)圆心,450为半径,180°起点,180°+54.54°终点Picture1.Line (188.94, 816.53)-(592.43, 1103.91), vbRed '450-450*cos54.54°=188.94,450+450*cos54.54=816.53 坐标2(188.94,816.53) 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询