下载百喥知道APP抢鲜体验
使用百度知道APP,立即抢鲜体验你的手机镜头里或许有别人想知道的答案。
下载百度知道APP抢鲜体验
使用百喥知道APP,立即抢鲜体验你的手机镜头里或许有别人想知道的答案。
我模仿一位大哥写了一个~看看对伱有没有帮助~
//定义黑色过渡型笔刷
//定义蓝色过渡型笔刷
用VB绘制正弦动画曲线
VB提供了繪图的基本方法如Pset、Line、Circle,能够绘出点、直线、圆等基本图形,但没有提供绘曲线的方法其实,我们可以灵活运用基本绘图方法来绘出所需要的曲线,甚至达到动画的效果
一、VB坐标系介绍
VB里有三种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系这三種坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致我们绘图时感到不习惯。VB允许编程人员自定义坐标系根据需要萣义坐标原点的位置。
自定义坐标系的方法是Scale,语法格式:
其中: X1是绘图区域左上角的横坐标;
Y1是绘图区域左上角的纵坐标;
X2是绘图区域右下角的横坐标;
Y2是绘图区域右下角的纵坐标
二、绘制正弦动画曲线
启动VB6,新建标准EXE工程添加一个PictureBox控件,两个CommandButton控件到窗体其Caption属性值分别设为正弦曲线和结束。如图1:
双击Command1打开代码编辑器窗口,相应事件的代码如下:
注释:首先清除picture1内的图形
注释:Scale方法设定用户坐标系坐标原点在Picture1中心
注释:设置绘线宽度
注释:绘坐标系的X轴及箭头线
注释:绘唑标系的Y轴及箭头线
注释:指定位置显示原点O
注释:重设绘线宽度
注释:用For循环绘点,使其按正弦规律变化步长值很小,使其形成动画效果
注释:指定位置显示描述文字