VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

[分享] 几个很少见的例子(带源码)

  [复制链接]
发表于 2009-8-25 09:12:52 | 显示全部楼层
真是太好了,太感谢楼主了!
回复 支持 反对

使用道具 举报

发表于 2009-9-15 15:52:46 | 显示全部楼层
顶一下
回复 支持 反对

使用道具 举报

发表于 2009-9-16 15:31:34 | 显示全部楼层
支持一个◎◎
回复 支持 反对

使用道具 举报

发表于 2009-9-16 15:53:31 | 显示全部楼层
非常感谢LZ分享。。。下载学习了
回复 支持 反对

使用道具 举报

发表于 2009-9-17 15:27:49 | 显示全部楼层
多是多但是基本我都有了
回复 支持 反对

使用道具 举报

发表于 2009-10-26 09:39:45 | 显示全部楼层
顶源码!非常感谢@
回复 支持 反对

使用道具 举报

发表于 2009-10-26 11:33:03 | 显示全部楼层
先顶再下
回复 支持 反对

使用道具 举报

发表于 2009-10-26 12:39:33 | 显示全部楼层
赞!!!感谢你的无私奉献!
不过,貌似图标替换有点问题,我这里一弄就无响应了!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-10-26 19:07:54 | 显示全部楼层
图标替换 貌似 只能替换 没加密压缩的  谢谢??

那个播放音乐 有点问题
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVallpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
这是声明

Private Sub 播放_音乐(FileName As String)
    Dim Buffer As String * 128
    Dim Ret As Long
    Dim PlayStatus As String * 20
    mciExecute "close all"
    mciSendString "open " & FileName & " alias mp3", Buffer, Ret, 0
    mciSendString "play mp3", Buffer, Ret, 0
    PlayError = False
End Sub
                                                                        
Private Sub 停止音乐()
    Dim Buffer As String * 128
    Dim Ret As Long
    mciSendString "stop mp3", Buffer, Ret, 0
End Sub
回复 支持 反对

使用道具 举报

发表于 2009-10-27 20:18:06 | 显示全部楼层
谢谢你,下来学习一下
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-7-4 20:59

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