VB 键盘钢琴+自动播放 源代码

Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii > 96 And KeyAscii < 123 ThenasCikey = KeyAscii - 90 '为键盘指定音节位置，如网上的FLASH音节一样key asCikeya(no50(asCikey)).AddLabel.Appearance = 1 '使大键3D效果End IfEnd Sub