大家好请教一个VB按键判定问题 和 音乐播放问题
1请教 当按着任意一个键位时 再按其他时键无反映 如KeyPress : Case了 65 就不能Case 68.....83 等等其他键
2 VB中的音乐播放控件在哪里呀？ 要能播放MP3或WMA的
3 因为程序是给别人写的 程序里有音乐 图片文件 要别人也能听音乐看图片 这样的路径要怎么设置呀
1请教 当按着任意一个键位时 再按其他时键无反映 如KeyPress : Case了 65 就不能Case 68.....83 等等其他键
2 VB中的音乐播放控件在哪里呀？ 要能播放MP3或WMA的
3 因为程序是给别人写的 程序里有音乐 图片文件 要别人也能听音乐看图片 这样的路径要怎么设置呀
2006-12-15 18:58
谢谢哈
请教怎么让一首音乐循环播放？
第三点不太明白啊 怎么使用APP。PATH ？
另加二个问题 1 FORM 窗口 加载了图片 后 怎么去除图片 我找不到这个选项
2 VB 怎么播放GIF图片呀 我用IMAGE控件加载GIF图片后 不会有GIF动画效果 就一张图片
[此贴子已经被作者于2006-12-17 12:04:28编辑过]
2006-12-17 11:42
以下是引用slore在2006-12-15 19:55:02的发言：Option Explicit
Dim OneHasPress As Boolean
Dim TheKey1 As Integer, TheKey2 As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If Not OneHasPress Then
TheKey1 = KeyAscii
TheKey2 = KeyAscii - 32
Select Case KeyAscii
Case 97
Print "97"
Case 98
Print "98"
Case Else
Print KeyAscii
End Select
End If
If Not OneHasPress Then OneHasPress = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = TheKey1 Or KeyCode = TheKey2 Then OneHasPress = False
End Sub
Private Sub Form_Load()
OneHasPress = False
End Sub
2006-12-17 11:54
太好了 问题全解决了 哇卡卡
谢谢哈
又有一个新问题了
VB 中 FOR不能使用continue 吗 只能EXIT FOR ？ 但EXIT FOR 跳出循环了 我想让他跳过下面语句 再循环呢
有别的方法吗
2006-12-17 18:57