vb使用picturebox画曲线图
发布时间:2020-12-16 23:20:52 所属栏目:大数据 来源:网络整理
导读:'添加个picture1和command1 Option ExplicitDim lngCenter As LongDim lngMax As LongDim lngPadDim PCurrent As POINT,PLast As POINTPrivate Type POINT x As Long y As LongEnd TypePrivate Sub Form_Load() lngCenter = (Picture1.Top + Picture1.Height
'添加个picture1和command1
效果图:
如果需要带有点规律性可以将获得y的坐标稍加处理下: Private Function getRndY() As Integer Dim lngTmp% If intRnd = 0 Then Randomize intRnd = Rnd * 3 + 1 End If Randomize lngTmp = Rnd * lngCenter If PLast.y > lngCenter Then getRndY = lngCenter + lngTmp Else getRndY = lngTmp End If intCurRnd = intCurRnd + 1 If intCurRnd > intRnd Then Randomize intRnd = Rnd * 3 + 1 getRndY = Rnd * lngMax intCurRnd = 0 End If End Function (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |