在vb程序中,如果绘制了一条直线,怎样让这条直线通过控制上下左右键来移动,

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/01 00:57:02

你用Line控件在窗体上绘制一条直线,然后复制下面的代码到代码窗口：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With Line1
Select Case KeyCode
Case vbKeyUp
.Y1 = .Y1 - 60
.Y2 = .Y2 - 60
Case vbKeyDown
.Y1 = .Y1 + 60
.Y2 = .Y2 + 60
Case vbKeyLeft
.X1 = .X1 - 60
.X2 = .X2 - 60
Case vbKeyRight
.X1 = .X1 + 60
.X2 = .X2 + 60
End Select
End With
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

如果是用Line命令实时画出来的直线,也可以实现移动的,原理差不多,就是先清屏,然后根据方向键移动几个像素的位置后重新画,或者不清屏,用底色擦除原直线后挪个位置重新画.但是这种方法移动过程中会出现闪烁现象,所以不推荐.

proe4.0绘制中遇到的问题,祈高手拯救.1、PROE中二位草图的绘制：如果画好一条直线,怎样对直线延长?我 AI移动一个图时点上下左右键,请问移动的距离能不能调?因为有时只要移动一点,而点上下左右键却移动得很 VB已经绘制一条直线,怎么使这条直线绕原点旋转一定角度 Excel 2003 用键盘上下左右键光标不移动,整个表格移动怎么办在CAD 中怎样延长一条直线 “用键盘左右键控制移动”这句话用英文怎么说 CAD中如何绘制一条规定长度的直线怎样在MATLAB中将一条直线的斜率输出来 VB在两个图形中间连接一条直线 cad中,如何绘制一个半径已知,圆心在一条直线上并且和一条圆弧相切 sketchup移动su在移动物体时怎么锁定轴才能随心所欲的移动（按shift和上下左右键都不是很好移有没有更好的方法 cad标注三维转换成主视图、俯视图、左视图,主视图的中标注在俯视图中怎样看不见,一条直线也要看不见