| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 700 人关注过本帖
标题:类模块中的sub过程不能改变变量的值么?以下过程为什么实现不了?
只看楼主 加入收藏
wantvb
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-7-19
收藏
 问题点数:0 回复次数:3 
类模块中的sub过程不能改变变量的值么?以下过程为什么实现不了?

想做一个小游戏,建了一个role类,想添在类中添加一个重力加速度的效果(sub gravity),可是不行,下面我已经把问题作了简化,请帮忙看一下毛病出在哪里
在窗体上放一个image,改名为body;放一个timer,interval值设为50,然后添加如下代码:
类模块role:
Option Explicit
Public body As Image
Public Vy As Integer
Public g As Integer

Public Sub gravity(body As Image, Vy As Integer, g As Integer)
Vy = Vy - g
body.Top = body.Top - Vy
End Sub

窗体:
Option Explicit
Dim p As New role

Private Sub Form_Load()
body.BorderStyle = 1
body.Left = 2000
body.Top = 6000
Set p.body = body
p.Vy = 100
p.g = 20
End Sub

Private Sub Timer1_Timer()
p.gravity p.body, p.Vy, p.g
End Sub

运行时body作匀速运动,并无加速度效果,也就是说似乎Vy并没被Vy = Vy - g改变,用F8逐行执行发现,每次虽然在过程sub gravity内部Vy的值确实被Vy=Vy-g改变了,但是sub gravity结束时Vy又变成了100,这是怎么回事儿啊?每么样才能使Vy的值能够被sub gravity过程改变?


[此贴子已经被作者于2006-7-21 15:52:22编辑过]

搜索更多相关主题的帖子: 变量 sub 模块 
2006-07-21 14:10
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 
body 既然是 role 類的一個公共成員, 在公共函數 gravity 的參數表裏爲甚麽還要一個 body 參數

原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2006-07-21 16:44
VB爱上我
Rank: 6Rank: 6
等 级:贵宾
威 望:25
帖 子:478
专家分:52
注 册:2005-10-14
收藏
得分:0 

Option Explicit
Public body As Image
Public Vy As Integer
Public g As Integer

Public Sub gravity(a As Integer, b As Integer)
a = a - b
Vy = a
body.Top = body.Top + Vy
End Sub

Option Explicit
Dim p As New role

Private Sub Form_Load()
body.BorderStyle = 1
body.Left = 2000
body.Top = 6000
Set p.body = body
p.Vy = 44
p.g = 20
End Sub

Private Sub Timer1_Timer()
p.gravity p.Vy, p.g
Text1 = p.Vy
End Sub
=============================
Option Explicit
Public body As Image
Public Vy As Integer
Public g As Integer

Public Sub gravity()
Vy = Vy - g
body.Top = body.Top + Vy
End Sub

Option Explicit
Dim p As New role

Private Sub Form_Load()
body.BorderStyle = 1
body.Left = 2000
body.Top = 6000
Set p.body = body
p.Vy = 44
p.g = 20
End Sub

Private Sub Timer1_Timer()
p.gravity
Text1 = p.Vy
End Sub


IT618资讯网 提供服务端开发,前端开发,网页特效,热门开源系统研究,软件下载,站长建站,淘宝开店等学习资料.
2006-07-22 09:50
穆扬
Rank: 1
等 级:禁止发言
帖 子:1910
专家分:0
注 册:2006-6-1
收藏
得分:0 
提示: 作者被禁止或删除 内容自动屏蔽

2006-07-22 10:33
快速回复:类模块中的sub过程不能改变变量的值么?以下过程为什么实现不了?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017314 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved