作业帮Vb 根据距离求坐标求VB代码：已知坐标点1的坐标 X=a,Y=b 求向45° 135° 225° 315°移动距离c的公式文化低,对公式的理解能力差,麻烦注释一下,/>原点不一定是 0,0,麻烦用X=a Y=b 距离为c 表示,2点坐标
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 16:28:10
Vb 根据距离求坐标求VB代码：已知坐标点1的坐标 X=a,Y=b 求向45° 135° 225° 315°移动距离c的公式文化低,对公式的理解能力差,麻烦注释一下,/>原点不一定是 0,0,麻烦用X=a Y=b 距离为c 表示,2点坐标
Vb 根据距离求坐标
求VB代码：
已知坐标点1的坐标 X=a,Y=b 求向45° 135° 225° 315°移动距离c的公式
文化低,对公式的理解能力差,麻烦注释一下,/>
原点不一定是 0,0,麻烦用X=a Y=b 距离为c 表示,
2点坐标X2=... y2=.
3点坐标X3=.Y3=.
4点坐标X4=.y4=...
5点坐标X5=.y5=.
另外再问一个问题,怎样才能取消list上的焦点,比如在list空白处点击后,让list失去焦点
Vb 根据距离求坐标求VB代码：已知坐标点1的坐标 X=a,Y=b 求向45° 135° 225° 315°移动距离c的公式文化低,对公式的理解能力差,麻烦注释一下,/>原点不一定是 0,0,麻烦用X=a Y=b 距离为c 表示,2点坐标
Dim c As Single, ju As Single
Dim x As Single, y As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim x5 As Single, y5 As Single
x = 100
y = 100
c = 100‘x y c的值你自己定,我是随便写了几个数
ju = Sqr(c * c / 2)
x2 = x + ju: y2 = y + ju
x3 = x + ju: y3 = y - ju
x4 = x - ju: y4 = y + ju
x5 = x - ju: y5 = y - ju
PSet (x, y)
PSet (x5, y5)
PSet (x2, y2)
PSet (x3, y3)
PSet (x4, y4)
想让某个控件失去焦点,把焦点移到其他控件即可,如：Me.SetFocus