扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:佚名 来源:BLOG 2007年10月14日
关键字:
在本页阅读全文(共2页)
CommonDialog1.FileName = App.Path & "\*.txt" CommonDialog1.ShowOpen ‘显示保存对话框 If CommonDialog1.FileName = App.Path & "\*.txt" Then Exit Sub Me.MousePointer = 11 For LineY& = 1 To 40 OutputS = "Tone" & LeadingZeros$(LineY&, 2) & ": " For ColoumX = 1 To 150 A = Chr(Music(LineY&, ColoumX) + Asc("0")) OutputS = OutputS & A ‘写入文件 Next ColoumX Whole$ = Whole$ & OutputS & vbCrLf Next LineY Open CommonDialog1.FileName For Output As #1 Print #1, Whole$ Close #1 ‘关闭文件 |
For LineY& = 1 To 30 If Music(LineY&, X) <> 0 And Not ISAgainFlag Then midimsg = &H90 + ((46 + LineY&) * &H100) + (volume * &H10000) + TempChannel ‘定义音高 midiOutShortMsg hmidi, midimsg ‘输出音频 End If Next LineY |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。