| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 433 人关注过本帖
标题:[求助]我这段程序错在哪里了
只看楼主 加入收藏
zhengzinan
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-7-14
收藏
 问题点数:0 回复次数:2 
[求助]我这段程序错在哪里了
private sub mn22_click()
cls
scale (-15,1000)-(15,-1000)
fill syle=0
fill color=qbcolor(9)
circle (0.0),5,qbcolor(12)
end sub
程序执行的时候说函数程序未定义,请问错在哪里了?

搜索更多相关主题的帖子: sub qbcolor 定义 
2007-07-14 15:39
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
circle (0.0),5,qbcolor(12)
请仔细检查黄底红字部分

VB QQ群:47715789
2007-07-14 16:56
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
以下是引用zhengzinan在2007-7-14 15:39:54的发言:
private sub mn22_click()
cls
scale (-15,1000)-(15,-1000)
fill syle=0
fill color=qbcolor(9)
circle (0.0),5,qbcolor(12)
end sub
程序执行的时候说函数程序未定义,请问错在哪里了?


Private Sub mn22_Click()     
Cls             
Scale (-15, 1000)-(15, -1000)
FillStyle = 0         
FillColor = QBColor(9)    
Circle (0, 0), 5, QBColor(12) 
End Sub              


自己对比一下错了多少地方?全是打字打错!

[此贴子已经被作者于2007-7-14 17:32:28编辑过]


VB QQ群:47715789
2007-07-14 17:29
快速回复:[求助]我这段程序错在哪里了
数据加载中...
 
   



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

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