VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: VBProFan

[原创] VBProFan原创作品开源展示之一:超级电子琴

[复制链接]
 楼主| 发表于 2007-5-28 23:34:52 | 显示全部楼层
原帖由 startbin321 于 2007-5-27 19:37 发表
网上很多类似的vb源码


都是抄袭同一个人的垃圾源码,跟我编的这个不是同一个档次的
回复 支持 反对

使用道具 举报

发表于 2007-5-28 23:40:08 | 显示全部楼层
我倒是有意思学学琴,听说好的电子琴要3000~5000,天啊……不指望你的超级电子琴,除非……你开发出一个拟钢琴键盘来……
回复 支持 反对

使用道具 举报

发表于 2007-5-28 23:43:19 | 显示全部楼层
再指出一下你的最重大缺陷就是没有处理DoubleClick
送你一段代码……我的经典之一
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long


Private Sub Form_GotFocus()
    SetClassLong Me.hWnd, -26, GetClassLong(Me.hWnd, -26) And Not 8&
End Sub
Private Sub Form_LostFocus()
    SetClassLong Me.hWnd, -26, GetClassLong(Me.hWnd, -26) Or 8&
End Sub
回复 支持 反对

使用道具 举报

发表于 2007-5-28 23:44:57 | 显示全部楼层
数组元素12不存在?退出了……
回复 支持 反对

使用道具 举报

发表于 2007-5-29 00:07:44 | 显示全部楼层
我试试VOS游戏的挥着翅膀的女孩,第二局,发现全部的音符都要用A来按……晕
而且Good率特别低……天啊……我当年劲乐团玩这种难度的音乐还是简单的呢
回复 支持 反对

使用道具 举报

发表于 2007-5-29 00:08:43 | 显示全部楼层
在VOS按快捷键弹出打开文件对话框后,再按一次快捷键弹出对象已加载,接着程序崩溃……
可以说你的界面是一塌糊涂
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 07:21:23 | 显示全部楼层
原帖由 superzmy 于 2007-5-28 23:40 发表
我倒是有意思学学琴,听说好的电子琴要3000~5000,天啊……不指望你的超级电子琴,除非……你开发出一个拟钢琴键盘来……

正在开发中~,还有点灯学习功能,呵呵~ 一般的midi键盘都是2000元,自己做的话<100,哈哈,竞争优势啊~
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 07:22:13 | 显示全部楼层
原帖由 superzmy 于 2007-5-28 23:43 发表
再指出一下你的最重大缺陷就是没有处理DoubleClick
送你一段代码……我的经典之一
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, By ...

多谢院士!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 07:25:16 | 显示全部楼层
原帖由 superzmy 于 2007-5-29 00:08 发表
在VOS按快捷键弹出打开文件对话框后,再按一次快捷键弹出对象已加载,接着程序崩溃……
可以说你的界面是一塌糊涂


我知道里面有无数个Bug,除非全部按我预先假设的去操作才能完好运行。这也是我敢把它发上来,不怕别人用于商业用途的原因,因为假如有人抄袭我的作品,他肯定会被骂死,而且由于这个软件不是他编的,要修改起来增加功能减少bug相当滴困难
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-30 07:30:53 | 显示全部楼层
我拿这个软件参加5月12日计算机学院举办的软件设计大赛中取得第二名,明天去领奖。
以下附件是最新更新的帮助文件和设计文档:

超级电子琴帮助文件&设计文档.rar

214.82 KB, 下载次数: 142

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-9-24 13:17

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表