谁能给在下提供一个vb播放mp3的控件或者提供一个有这种控件的网站?谢谢了

handsome_xw 2000-09-01 04:58:00
如何在vb中调用mp3播放软件?
...全文
112 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
myb003 2000-09-02
  • 打赏
  • 举报
回复
Media player播放器6.0的也可以。很方便。
lynxliu 2000-09-01
  • 打赏
  • 举报
回复
你可以直接使用Micosoft ActiveMoive Control,Win98以上的系统都可以有。安装了office2000也会有,实在不行,可以去微软的网站。加入这个控件可以播放几乎所有流行的媒体文件,也支持网络流媒体,才不用去下载什么第三方的未经验证的控件呢。
wr 2000-09-01
  • 打赏
  • 举报
回复
不用找了
windows的自带Media player播放器空件7.0以上就可以播放.
wuf 2000-09-01
  • 打赏
  • 举报
回复
vbonline.126.com
不过还是建议你去我的主页看看
http://wuf.yeah.net
shines77 2000-09-01
  • 打赏
  • 举报
回复
test
0xFFCD 2000-09-01
  • 打赏
  • 举报
回复
http://lovevb.2699.com 里面就有几个,那里很不错,还经常更新。
主要介绍如何开发一个ActiveX控件提供接口,与相应事件挂钩。文中涉及到VARIANT,SAFEARRAY,BSTR的详细使用方法。 另外还提供了WinSock的详细开发步骤,以及如何响应网络超时,网络断开的事件方法以及在VC,VB调用该控件的方法。 一、MFC ActiveX控件开发步骤(VC 6.0): New->Projects->MFC ActiveX ControlWizard,然后输入MFCWinSock工程名。如下图: 图一 创建工程 一路狂按Next,直至Finsh出现,再按下OK,如下图:     图二 创建完成 二、架设Socket环境: 首先在StdAfx.h文件中加入下面这句代码: #include // MFC socket extensions 打开MFCWinSock.cpp文件,添加代码,看起来如下: //////////////////////////////////////////////////////////////////////////// // CMFCWinSockApp::InitInstance - DLL initialization BOOL CMFCWinSockApp::InitInstance() { BOOL bInit = COleControlModule::InitInstance(); if (bInit) { // TODO: Add your own module initialization code here. if (!AfxSocketInit()) { AfxMessageBox("无法初始化Socket,请检查!"); return FALSE; } WSADATA wsaData; WORD wVersion = MAKEWORD(1, 1);//设定为Winsock 1.1版 int errCode; errCode = WSAStartup(wVersion, &wsaData);//启动Socket服务 if (errCode) { AfxMessageBox("无法找到可以使用的 WSOCK32.DLL"); return FALSE; } } return bInit; } //////////////////////////////////////////////////////////////////////////// // CMFCWinSockApp::ExitInstance - DLL termination int CMFCWinSockApp::ExitInstance() { // TODO: Add your own module termination code here. WSACleanup();//结束网络服务 return COleControlModule::ExitInstance(); } 三,提供控件接口和事件 在MFCWinSockCtl.cpp加入如下代码: #ifndef WM_MYWINSOCK #define WM_MYWINSOCK WM_USER+1888 #endif View->ClassWizard->Automation->Add Method…如下图: 图三 创建接口 这个时候,我们为这个控件添加了一个Connect()的接口,出于通用性,安全性和扩展性的考虑,我们采用了VARIANT类型的参数, 很多人可能都不太了解该类型,又或者有接触过,但被吓怕了,那么我们来看清它的本来面目: struct tagVARIANT { union { struct __tagVARIANT { VARTYPE vt; WORD wReserved1; WORD wReserved2; WORD wReserved3; union { LONG lVal; BYTE bVal; SHORT iVal; FLOAT fltVal; DOUBLE dblVal; VARIANT_BOOL boolVal; _VARIANT_BOOL bool; SCODE scode; CY cyVal; DATE date; BSTR bstrVal; IUnknown __RPC_FAR *punkVal; IDispatch __RPC_FAR *pdispVal; SAFEARRAY __RPC_FAR *parray; BYTE __RPC_FAR *pbVal; SHORT __RPC_FAR *piVal; LONG __RPC_FAR *plVal; FLOAT __RPC_FAR *pfltVal; DOUBLE __RPC_FAR *pdblVal; VARIANT_BOOL __RPC_FAR *pboolVal; _VARIANT_BOOL __RPC_FAR *pbool; SCODE __RPC_FAR *pscode; CY __RPC_FAR *pcyVal; DATE __RPC_FAR *pdate; BSTR __RPC_FAR *pbstrVal; IUnknown __RPC_FAR *__RPC_FAR *ppunkVal; IDispatch __RPC_FAR *__RPC_FAR *ppdispVal; SAFEARRAY __RPC_FAR *__RPC_FAR *pparray; VARIANT __RPC_FAR *pvarVal; PVOID byref; CHAR cVal; USHORT uiVal; ULONG ulVal; INT intVal; UINT uintVal; DECIMAL __RPC_FAR *pdecVal; CHAR __RPC_FAR *pcVal; USHORT __RPC_FAR *puiVal; ULONG __RPC_FAR *pulVal; INT __RPC_FAR *pintVal; UINT __RPC_FAR *puintVal; struct __tagBRECORD { PVOID pvRecord; IRecordInfo __RPC_FAR *pRecInfo; } __VARIANT_NAME_4; } __VARIANT_NAME_3; } __VARIANT_NAME_2; DECIMAL decVal; } __VARIANT_NAME_1; }; 它先是一个结构体,里面有一个重要成员VARTYPE vt;vt即是指明当前的数据类型,比如整型或者字符型,当指明vt后, 后面看到各种变量类型包括在一个联合体当中,也就是说指明vt后,你只能使用对应的其中之一变量类型。看着这众多的各种不同 类型变量集中在一起,确实让人吓了一跳,但细细看来,大多数变量跟我们平时的用法相似。值得一提的是SAFEARRAY __RPC_FAR *parray; 也许有很多人还没有接触过SAFEARRAY类型的变量,SAFEARRAY实际上也是一个结构,大家可以参考MSDN,我也将在后面介绍它的具体使用方法。 用同样的方法创建DisConnect()接口 创建两个事件,FireCloseWinsock()响应网络断开事件,FireRecvSockEvent()响应网络有数据到达的事件。创建方法如下图: 图四 创建事件 重载控件消息处理函数WindowProc(),在View->ClassWizard中打开类向导,在消息映射中找到WindowProc,如下图: 图五 重载WindowProc() 四、编写代码 编写VariantToLong()转换函数,该函数代码如下: //类型转换,将VARIANT类型转换成Long类型 long CMFCWinSockCtrl::VariantToLong(const VARIANT &var) { long r; switch(var.vt) { case VT_UI2://USHORT r = var.uiVal; break; case VT_UI4://ULONG r = var.ulVal; break; case VT_INT://INT r = var.intVal; break; case VT_UINT://UINT r = var.uintVal; break; case VT_I4://LONG r = var.lVal; break; case VT_UI1://BYTE r = var.bVal; break; case VT_I2://SHORT r = var.iVal; break; case VT_R4://FLOAT r = (long)var.fltVal; break; case VT_R8://DOUBLE r = (long)var.dblVal; break; default: r = -1;//无法转换该值 break; } return r; } 大家可以看到,该函数将最基本的若干中数据类型转换成了long类型,但VARIANT决不是个简单的谱,我将在后面继续揭开它的神秘面纱. 编写我们刚才的接口Connect(),代码代码如下: 在MFCWinSockCtrl.h中加入 SOCKET OnlySock;//建立的唯一Socket,不允许重复建立多个 bool isOnlyConnect;//是否建立了连接 然后再编写Connect(),看起来如下: BOOL CMFCWinSockCtrl::Connect(const VARIANT FAR& RemoteHost, const VARIANT FAR& RemotePort) { // TODO: Add your dispatch handler code here if(isOnlyConnect)//该连接已建立,还没有断开 return FALSE; CString IPAddress; int Port;//转换成整型的端口 switch(RemoteHost.vt) { case VT_BSTR://字符串型 IPAddress = CString(RemoteHost.bstrVal); break; case VT_BYREF|VT_I1://CHAR * IPAddress.Format("%s",RemoteHost.pcVal);//RemoteHost.pbstrVal); break; default: IPAddress = ""; return FALSE; } Port = VariantToLong(RemotePort);//我们编写的一个VARIANT转换成long类型的函数 if(Port<=0) return FALSE; _TCHAR *ip = 0; struct hostent *host = 0; struct sockaddr_in addr; ULONG dotIP = inet_addr(IPAddress); OnlySock = socket(AF_INET, SOCK_STREAM, 0); // 判断是否为点IP地址格式 if (OnlySock == INVALID_SOCKET) { shutdown(OnlySock, 0x02); closesocket(OnlySock);//释放占有的SOCK资源 return FALSE; } memset(&addr, 0, sizeof(struct sockaddr_in)); // 设定 SOCKADDR_IN 结构的内容 // 如果通讯协议是选择IP Protocol,那此值固定为AF_INET // AF_INET 与 PF_INET 这两个常量值相同 addr.sin_family = AF_INET; addr.sin_port = htons(Port); addr.sin_addr.S_un.S_addr = dotIP; if (dotIP == INADDR_NONE) { host = gethostbyname(IPAddress); if (!host) { shutdown(OnlySock, 0x02); closesocket(OnlySock);//释放占有的SOCK资源 return FALSE; }; ip = inet_ntoa(*(struct in_addr*)(*host->h_addr_list)); addr.sin_addr.S_un.S_addr = inet_addr(ip); } //开始连线 if (connect(OnlySock, (LPSOCKADDR)&addr, sizeof(SOCKADDR))) { shutdown(OnlySock, 0x02); closesocket(OnlySock);//释放占有的SOCK资源 return FALSE; } int iError = WSAAsyncSelect(OnlySock, m_hWnd,WM_MYWINSOCK, FD_READ|FD_CLOSE); //只对网络断开和数据到达通知感兴趣 if(iError == SOCKET_ERROR)//无法绑定Winsock的事件通知 { shutdown(OnlySock, 0x02); closesocket(OnlySock);//释放占有的SOCK资源 return FALSE; } isOnlyConnect = true; return TRUE; } 有必要提一下WSAAsyncSelect(),这里接收网络数据到达和断开的两个消息,我们收到WM_MYWINSOCK消息时将处理该消息并作为事件传送给调用者. 第二个参数,窗口句柄,我们传送了m_hWnd,这是因为MFC ActiveX也属于一个窗口,并且是可见的,因此可以成功。 编写WindowProc(),代码看起来如下: LRESULT CMFCWinSockCtrl::WindowProc(UINT message, WPARAM wParam, LPARAM lParam) { // TODO: Add your specialized code here and/or call the base class switch(message) { case WM_MYWINSOCK://响应自定义的消息 switch(WSAGETSELECTEVENT(lParam)) { case FD_READ://有新数据到达 FireRecvSockEvent(); break; case FD_CLOSE://对方已断掉当前连接 FireCloseWinsock(); break; } break; default: break; } return COleControl::WindowProc(message, wParam, lParam); } 本部分结束语: 好了,现在一个可以运行的控件已经完成,里面提供有Connect()和DisConnect()接口,和RecvSockEvent()及CloseWinsock()事件。以及WinSock的使用方法。 在下一部分(高级篇)将讲解两个重要接口SendData()和GetData(),下期内容如下: long SendData(const VARIANT FAR& Data, const VARIANT FAR& DataType,const VARIANT FAR& DataLength, const VARIANT FAR& TimeOut) long GetData(VARIANT FAR* Data, const VARIANT FAR& DataType, const VARIANT FAR& DataMaxLength, const VARIANT FAR& TimeOut) VARIANT和SAFEARRAY的复杂用法。 控件开发出来后在VC和VB环境下的使用方法。 声明: 部分资料来源于网络,本文所用的所有源代码仅供非商业用途,并请保留原版权,否则后果自负! 欢迎大家拍砖,或指正不足的地方,一起探导更好的方法。 欢迎访问www.59186618.com,感谢您的支持!
关于 School NC(一个特色功能的工具)1:什么是 School NC(校园及时通) 如果我没记错,已有个软件叫Net Call了,记得她是用于互联网的聊天软件,但朋友请注意我的Net Call是用于局域网的聊天软件,如楼群之间或企业内部。如果你想用在INTERNET中也行.每个聊天软件都有自己的特点,此软件的优点就是小巧玲珑,虽说不是功能强大,但使用方便是她最大的好处。2:怎样使用"网扩" Net Call是一个客户/服务形程序,现在你所有的是一个软件包,主动要包括: Server.exe:此程序需运行在服务器端,如运行在公司或网吧的服务器中. Client.exe:此程序需运行在客户端,如运行在公司的工作站或网吧的工作站中. User.mdb:服务器端的用户资料库. Readme.txt:现在你所看的文件. 由于本软件是用VB所编写,所以在你的机子中一定要有VB运行库(即须安装).3:功能 服务器端: 支持对用户"IP地址查看","系统重置","清除用户",用户资料管理,自动侦测用户在线状态,加上热键(Crtl+F12)后台服务功能 客户端: 可进行有特色的"二人画板",客户双方可实时在画板上进行图解交流,支持二人进行语音聊天(特快),但还是会有延时,同时可进行任何格式的文件传送.支持分组用户操作,支持热键(Ctrl+ ←) "迷你顶层滚屏模式".4:技术支持 这个版本(1.00 Bate)设计中网扩有很多功能未能来得及写出代码(如实时语音对话)和跨网传送,由于时间不是很多,所以在你使用过程中如出现了问题请通知我,我将在下一版改进后,第一个送给你,如果你是一个编程爱好者,如果你喜欢我的程序,请Email给我.电猛人
前言: 自汽车诞生以来,汽车维修业便一直伴随着汽车工业的发展而成长,汽车维修业已成为交通运输业必不可少的服务性支柱与保障。尤其是近几十年来,由于汽车科技和电子技术的迅速发展,使得汽车电子化的进程日益加快,各种高新技术纷纷涌进汽车王国。与之关系密切的汽车维修业也随着汽车高科技化的发展,出现了一些新的面貌。 汽车维修制度的改革和发展及汽车维修技术的变革,促使汽车维修人员培训的教学内容、教学手段、教学设备都应作出相应的改革,因为在现代汽车维修中,有故障的车辆先用检测诊断仪器或设备进行相应的检查,而后由维修技术人员基于自己的知识能力和经验,对检查结果进行综合分析后作出相应的诊断,接下来再由主修人员独立或指导辅修人员完成故障排除或修理任务,查找故障所占的时间达总维修时间的70%以上,因此为了提高汽车维修人员素质和专业技能,以达到提高维修质量和效率的目的,所以开发设计了能进行故障模拟和故障分析诊断的实验台,用于汽车维修从业人员的培训。 1.实现的功能 (1)电路分析实验 (2)具有考核系统和题库 (3)传感器执行器检测实验 (4)动画演示传感器动作原理 (5)嵌入检测软件使其具有解码器功能 (6)电脑控制设置断路、短路模拟及综合故障实验 2.开发设计思路 根据汽车发动机电控技术,智能控制技术,基于单片机控制的试验技术,设计完成实验台系统的控制电路。系统硬件平台搭建本着为性能可靠,工作稳定,功能强大的总体设计原则,采用高性能大众AJR电控发动机与8位AVR嵌入式单片机硬件平台。系统软件平台是建立在AVR嵌入式操作系统基础之上的。然后,应用VB程序设计完成实验台操作界面窗口的设计,同时使用VB程序自带串口设计控件,完成向单片机串口发送指令的设计。并应用C语言程序设计写出单片机控制程序,实现单片机对控制电路继电器开路与断路的控制。最后进行系统调试,达到实验台硬件系统与软件系统的有效匹配。 3. 电路方框图 驱动电路分析: 由于该系统设置的故障点比较多,单片机仅有32个I/O口,因此经过长时间的方案论证和比较决定使用串行转并行的数据芯片,而且该芯片自带数据寄存器,其状态只有在下一个数据到来之后才会改变,这样也加强了系统的稳定性,其次为了观察方便我们还在每个小单元电路中加入了指示发光二极管,实时显示电路的状态。 模拟故障分析 模拟电路由两个继电器、一个D/A转换芯片和一个普通的二极管组合而成。因为模拟故障电路不仅要产生模拟故障而且还要设置开路故障和短路故障。因此,模拟故障板采用了两个继电器组合的方法。当模拟故障产生时D/A芯片产生的电压会通过继电器送入到汽车的CPU中,使汽车产生出故障现象。二极管的作用主要是防止电压倒流,损坏器件。 K9 1-3 、K10 1-2接通时D/A转换芯片向CPU 输入电压,实现模拟故障功能。 K9 1-2 、K10 1-3接通时实现开路故障功能。 K9 1-2 、K10 1-2接通时实现短路故障功能。 更详细资料请见附件!

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧