VB的小问题

补充：1b3c2d 我没明白额 +我QQ教教我吧357368795
		

答案：
把音乐制作为资源文件放到程序里。
添加方法
少网友问及如何在VB中建立和使用文本资源文件。我想这也是很多VB初学者迫切想掌握的技巧。为此，将回答网友的信件整理了一下，形成此文，希望对大家有些帮助。   
    
  一.文本资源文件的建立   
    
  第一步：启动资源编辑器   
    
  如果VB资源编辑器没有被加载，请单击"外接程序"，选取"外接管理器"启动外接管理器，然后选中"VB6   资源编辑器"，在左下方的"加载行为"中的"加载/卸载"前打钩，点击"确定"退出外接管理器。此时，可以在工具条中看到资源编辑器的绿色图标，单击它就可以启动VB资源编辑器了。   
    
  第二步：   
    
  在VB资源编辑器窗口的工具栏中央，有一个有"abc"字样的图标，点击它，弹出编辑字符串表，进入字符串编辑状态。在这里的编辑状态有点特殊，没有见到常见的文本编辑器所见到的输入光标，不过已经可以输入了，输完一行按回车，进入下一行的编辑，其中标识符是程序自动给出的。编辑完毕请单击窗体右上角的关闭按钮，这时可以看到VB资源编辑器目录树里多出了"abc字符串表格"字样，它就是刚才输入的东东了，如果需要修改双击它就行。   
  保存资源文件，退出资源编辑器。资源文件已经自动添加在"相关文档"里，当前的工程可以使用它了。   
    
  (技巧：任何时候都可以对已经建立的资源文件进行修改。方法是在"相关文档"中双击以.res为后缀名的资源文件。)   
    


播放：
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim IsMusicOn As Boolean
Dim RetValue As Long

Private Sub Form_Load()
IsMusicOn = True
If Pub_MUSIC = "" Then Pub_MUSIC = "88.mid"
RetValue = mciSendString("OPEN " & App.Path & "\mid\" & Pub_MUSIC & " TYPE SEQUENCER ALIAS BackgroundMusic", "", 0, 0)

If IsMusicOn = True Then
MCIStatusLen = 15
MCIStatus = String(MCIStatusLen + 1, " ")
RetValue = mciSendString("STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0)
If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
RetValue = mciSendString("PLAY BackgroundMusic FROM 0", "", 0, 0)
End If
End If

==============不过应该是计算机问题Windowsmediaplayer控件我这里不会延迟
呵呵

上一个：求VB小软件一个
下一个：VB里面的 .ocx文件是什么