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

来源：学生作业帮助网编辑：作业帮时间：2024/05/12 01:22:46

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

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

在vb程序中,如果绘制了一条直线,怎样让这条直线通过控制上下左右键来移动, proe4.0绘制中遇到的问题,祈高手拯救.1、PROE中二位草图的绘制：如果画好一条直线,怎样对直线延长?我1、PROE中二位草图的绘制：如果画好一条直线,怎样对直线延长?我是直接在直线上接着画, VB已经绘制一条直线,怎么使这条直线绕原点旋转一定角度在VB中,我画出了如下直线：For xian = -100 To 100 Step 25Picture1.Line (-Sqr(10000 - xian * xian),xian)-(Sqr(10000 - xian * xian),xian),vbBlacknext现在我想这条在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的. 3Ds max 中如何让一条直线修改成曲线在绘制一个啤酒瓶子的时候,瓶子的本身会有曲线的部分,那个曲线的部分如何绘制,让瓶子显得更自然 VB中画平滑曲线的问题给定5、6个点,按照点画一条平滑曲线,VB程序如何写?之前翻了下别人的问题,用pictures box 的line画直线,这样在点不够的情况下是不是曲线不会平滑曲线拟合如何做? VB中怎样知道随机数产生的次数?我在程序中取了两个随机数,设当这两个随机数的和为50时程序停止.求这次程序运行中随机数产生了多少次? 在几何画板中怎样让一条直线绕着一个点运动? 在cad中,怎样按输入的数值绘制出固定长度的直线?在cad中,怎样按输入的数值,绘制出固定长度的直线? CAD中如何绘制一条规定长度的直线 vb中如何让一条线绕其中一端旋转 vb算式四舍五入在vb缩写的代码中有一个算式：(ProgressBar1.Value / Text2.Text) * 10,怎样让这个算式计算的结果只保留到整数呢?如果是小数就自动四舍五入. VB在设计程序过程中,Caption是什么意思 VB在设计程序过程中,Caption属性是什么意思怎样在word中绘制数轴rt 怎样在ppt中绘制运动轨迹 VB ,首先在picture上绘制了一个表格,怎样实现在这个表格上绘制曲线,曲线会变动,在一段时间内曲线变化表格不再改变,但是之后使用timer绘制动态曲线,怎样实现表格不变化,只有之后绘制的曲线怎样在maya里挤压polygons物体请问有哪位高手知道啊,我绘制了一条曲线,让后挤压我想挤压出来polygons物体,而且是四边面的.