广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 4396 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
upside 手机 葫芦墩家族
个人头像
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖 社区建设奖 优秀管理员勋章
头衔:反病毒 反诈骗 反虐犬   反病毒 反诈骗 反虐犬  
版主
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] 模组中的变数 未定义
程式越写越庞大 单独使用都没问题 一旦合并在一起就很容易出现各种错误
现在又出现变数未定义的问题 请大家麻烦看一下 问题出在那里

问题出在这里 m_cTmr.Interval = 0
会显示 变数 未定义

Private Sub pMouseMove()
Dim iMenu As Long
Dim iLastOver As Long
iMenu = MenuHitTest()
iLas ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



爸爸 你一路好走
献花 x0 回到顶端 [楼 主] From:台湾和信超媒体宽带网 | Posted:2007-01-12 00:53 |
法兰克 手机
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x13
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

复制程式
   If m_cTmr Is Nothing Then
      Set m_cTmr = New CTimer
   End If
这个部份,除了Nothing的判断外.
再加上IsObject的判断试试~
复制程式
   If m_cTmr Is Nothing Or Not(IsObject(m_cTmr)) Then
      Set m_cTmr = New CTimer
   End If


献花 x0 回到顶端 [1 楼] From:台湾台湾索尼 | Posted:2007-01-14 02:02 |
newp
个人头像
个人文章 个人相簿 个人日记 个人地图
小有名气
级别: 小有名气 该用户目前不上站
推文 x23 鲜花 x169
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

m_cTmr 并未定义
可能在最前面加上这行定义试试
dim m_cTmr as CTimer


想学前打!前打在那里!
现在请叫我,前打阿忠~
献花 x0 回到顶端 [2 楼] From:台湾 | Posted:2007-06-07 00:41 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.011584 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言