vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,Private Sub Pic_Click()InitTimer3.Interval = 60000Timer3.Enabled = TrueEnd SubPrivate Sub Init()Dim i As IntegerPic.ClsPic.Scale (-10,120)-(120,-10)Line (-10,i)-(110,i)Lin

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 17:25:42
vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,Private Sub Pic_Click()InitTimer3.Interval = 60000Timer3.Enabled = TrueEnd SubPrivate Sub Init()Dim i As IntegerPic.ClsPic.Scale (-10,120)-(120,-10)Line (-10,i)-(110,i)Lin
xU]OP+n[Fۉd("Y"lWۊ8t%C!92$"4h3=/|i`\qt={NFS)knZ<$9sBʗb}`&3%sf8/:SԨ}^5'(:)IQB#8=67@TZOj8U4Y=@jAT247M<Ǔy%P#4C,-ee <'| ;ϱl,R{Z>٥,FU.["N_\Ms^1M 0caf<˩P(Cϣ&Q#b1#dg9V.o;!7uE90,r8

vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,Private Sub Pic_Click()InitTimer3.Interval = 60000Timer3.Enabled = TrueEnd SubPrivate Sub Init()Dim i As IntegerPic.ClsPic.Scale (-10,120)-(120,-10)Line (-10,i)-(110,i)Lin
vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,
Private Sub Pic_Click()
Init
Timer3.Interval = 60000
Timer3.Enabled = True
End Sub
Private Sub Init()
Dim i As Integer
Pic.Cls
Pic.Scale (-10,120)-(120,-10)
Line (-10,i)-(110,i)
Line (i,-10)-(i,110)
For i = 0 To 100 Step 3 '横坐标
' Pic.Line (0,0)-(100,0)
Pic.Line (0,0)-(0,100)
'Pic.Line (0,I)-(100,I),RGB(0,255,0)
Pic.Line (i,0)-(i,100),RGB(0,0,255)
'Line (i,-2)-(i,0)
'Line (-2,i)-(0,i)
Next
For i = 0 To 100 Step 10 '纵坐标
Pic.Line (0,0)-(100,0)
'Pic.Line (0,0)-(0,100)
Pic.Line (0,i)-(100,i),RGB(0,255,0)
'Pic.Line (I,0)-(I,100),RGB(0,0,255)
'Line (i,-2)-(i,0)
'Line (-2,i)-(0,i)
Next
Pic.CurrentX = 0
Pic.CurrentY = 0
End Sub
Private Sub Timer3_Timer()
Static X As Integer
Dim Y1 As Integer
Dim Y2 As Integer
xo2 = xo2 + 1
If xo2 = 2 Then
X = X + 3
If X = 90 Then
X = 0
Init
End If
Y1 = Val(MSG3.TextMatrix(7,4))
Y2 = Rnd
Pic.Line -(X,Y1),RGB(255,0,0)
'Pic.Line -(X,Y2),RGB(255,255,0)
xo2 = 0
End If
End Sub
这些代码在本form中使用正常,就是在切换了画面后,在切回来,走的实时曲线就变了,它从右上角画下来一跟线不知道是哪里的问题,那个大哥帮忙给看看怎么改

vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,Private Sub Pic_Click()InitTimer3.Interval = 60000Timer3.Enabled = TrueEnd SubPrivate Sub Init()Dim i As IntegerPic.ClsPic.Scale (-10,120)-(120,-10)Line (-10,i)-(110,i)Lin
把pic的autoredraw设为true

vb画曲线在切换图形的时候怎么曲线就乱了,帮我看看谢谢了,Private Sub Pic_Click()InitTimer3.Interval = 60000Timer3.Enabled = TrueEnd SubPrivate Sub Init()Dim i As IntegerPic.ClsPic.Scale (-10,120)-(120,-10)Line (-10,i)-(110,i)Lin 曲线积分的图形在负轴怎么算 coreidraw怎么保存曲线?我画了个图形,是曲线状态,我想保存它以后可以再用,怎么保存?是结合的图形 在求曲线长度的时候必须有曲线的表达式,但怎么求一条曲线的表达式呢? 曲线的绘制及读数程序设计怎么做?（VB） CAD里怎么把样条曲线图形转成圆弧 其他软件就不用了 CAD里怎么把样条曲线图形转成圆弧 其他软件就不用了 电子表格里如何进行图形筛选做了一个数学的电子表格,因为里面有大量的图形,可是在筛选的时候（比如筛勾股定理）图形就乱了,怎样才能在筛选的时候保证图形整齐呢. 在ai怎么组合曲线?就是在ai画了两条曲线,怎么把它们变成一条曲线 proe的曲线标识我在看别人的设计,参考来做的时候,这个曲线标识选项在哪噢,我选草绘怎么显示的就不是曲线标识呢... 宏观经济学LM曲线图形是直线还是曲线画图的时候、好纠结. 请问哪位VB大神可以解决这一题?就程序完整语句,最好有程序运行截图.绘制余弦曲线和直线在屏幕上显示0°——360°的cos(x)曲线和直线f(x)=45×(y－1)+31的叠加图形,其中cos(x)图形用“*”表示,f(x) fluent怎么同时显示几条监测曲线在一个图上就是我在监测几个不同出口的某个量时候能不能把几个不同监控器显示的曲线合到一个图形里面显示出来? AI 两个图形怎么相关联?就是画个矩形和一条曲线 我相把相交上部分的图形涂上颜色但是又要保持整个图形的完整 （因为用那个路经查找器里的分割一切 矩形外面的曲线就没了,只剩下相交 VB中画平滑曲线的问题给定5、6个点,按照点画一条平滑曲线,VB程序如何写?之前翻了下别人的问题,用pictures box 的line画直线,这样在点不够的情况下是不是曲线不会平滑曲线拟合如何做? coreldraw 曲线加粗之类的……画曲线的时候 希望曲线能加粗点 不然看不明显,就像图片上的蓝色线 要加粗 在哪里设置? Vb中的函数曲线? CAD怎么在一条曲线上画出一些 长度相同 间距均匀的直线直线可以阵列,但是曲线就不可以了.