在vb程序中,如果绘制了一条直线,怎样让这条直线通过控制上下左右键来移动,
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/09 06:26:03
在vb程序中,如果绘制了一条直线,怎样让这条直线通过控制上下左右键来移动,
你用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命令实时画出来的直线,也可以实现移动的,原理差不多,就是先清屏,然后根据方向键移动几个像素的位置后重新画,或者不清屏,用底色擦除原直线后挪个位置重新画.但是这种方法移动过程中会出现闪烁现象,所以不推荐.
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标注三维 转换成主视图、俯视图、左视图,主视图的中标注在俯视图中怎样看不见,一条直线也要看不见