Go Back   Viprasys - Your #1 source for freewares > PC Related > Programming related

Programming related Anything about programming in here ! Ask help if you need ! Share sources.

Similar Threads
Thread Thread Starter Forum Replies Last Post
Music background 4 - Stock Vector | 5 EPS | + JPEG Preview | 61 Mb | [Letitbit] ~~Bad_jutt~~ Scripts and Templates 0 11-15-2012 04:50 PM
Music background 3 | 5 EPS + JPEG Preview | 57 MB [Letitbit] ____BurGeR____ Scripts and Templates 0 10-30-2012 07:47 AM
Vector Background - music keys | EPS | 4 files | 20 Mb | [Letitbit] oO-WaNteD-Oo Scripts and Templates 0 03-17-2011 06:06 PM
Music background | 4 jpg | 7 mb | [HotFile] _C.e.S.a.R__ Trash Can [Archive] 0 09-02-2010 12:51 AM
Music Background Floral & Love Vector[easy-share] AKLAT Trash Can [Archive] 0 07-24-2008 01:01 PM

Post New Thread  Reply
 
LinkBack Thread Tools Display Modes
Old 08-21-2012, 05:09 AM   #1 (permalink)
Junior Member
 
a-y-i-e's Avatar
 
Join Date: Dec 2009
Posts: 67
VipraSys Cash: 147,624.54
Thanks (Given): 0
Thanks (Received): 0
Likes (Given): 0
Likes (Received): 0
a-y-i-e is an unknown quantity at this point
Programming How to put background music in vb6



Hello. i need someone help about visual basic 6.
If i download some yahoo booters, some of them have background music. My friend told me, that programe to make yahoo booters is visual basic 6.

So i search at google then they said if i want put background music in vb6 just like wav / mp3, i must use MMControl just like image above. I play & compile the program. Im hear it. But when i share the program to my friend, there are no music.
__________________

To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts.



a-y-i-e is offline   Reply With Quote
Old 08-21-2012, 07:04 PM   #2 (permalink)
Elite Member
 
Join Date: May 2008
Posts: 228
VipraSys Cash: 14,348.95
Thanks (Given): 0
Thanks (Received): 1
Likes (Given): 0
Likes (Received): 0
tadpole is an unknown quantity at this point
Default Re: How to put background music in vb6

put this in a module
Dim s() As Byte
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpsxname As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function PlaySoundData Lib "winmm.dll" Alias "PlaySoundA" (lpData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const Flag = &H1 Or &H4 Or &H2

Function PlaySounds(ByVal SoundName As Long) As Long
On Error Resume Next
s = LoadResData(SoundName, "WAVE")
PlaySounds = PlaySoundData(s(0), 0, Flag)
End Function

then in resource editer add custom resource itll add it like 100 or 101 thats the mp3 or w/e file you added now just call it like so put it in your form load event or in a command button

PlaySoundData (100) or 101 w/e the resources number maybe





and u can Put this code right in your form with out needing a module


Code:
Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_ASYNC = &H1

Dim Sound As String

Sound = App.Path & "\" & "yourfile.wav"
PlaySound Sound, 0, SND_ASYNC

Last edited by tadpole; 08-21-2012 at 07:15 PM.
tadpole is offline   Reply With Quote
Old 08-22-2012, 01:47 AM   #3 (permalink)
Sponsored By Vip, Inc
 
Anthony's Avatar
 
Join Date: Jan 2008
Location: Ohio
Posts: 1,258
VipraSys Cash: 65,116.43
Thanks (Given): 0
Thanks (Received): 22
Likes (Given): 0
Likes (Received): 2
Anthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond reputeAnthony has a reputation beyond repute
Send a message via Yahoo to Anthony
Default Re: How to put background music in vb6

Close topic exactly correct no more help should be needed
__________________
Code:
Kiddies Be Like #LookICodedAWebbrowserApp
Anthony is offline   Reply With Quote
Old 07-23-2013, 08:31 AM   #4 (permalink)
~~[ LoyaL MembeR ]~~
 
_____-M-a-D-_____'s Avatar
 
Join Date: Mar 2011
Location: ||V||i||p||r||a||s||y||s||
Posts: 154
VipraSys Cash: 14,977.89
Thanks (Given): 3
Thanks (Received): 2
Likes (Given): 0
Likes (Received): 1
_____-M-a-D-_____ is an unknown quantity at this point
Send a message via Yahoo to _____-M-a-D-_____
Default Re: How to put background music in vb6

Can you make a Video tutorial??? Please?
__________________

To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts.


To view links or images in signatures your post count must be 0 or greater. You currently have 0 posts.
_____-M-a-D-_____ is offline   Reply With Quote
Old 10-05-2013, 12:12 AM   #5 (permalink)
Member
 
Join Date: Apr 2009
Posts: 37
VipraSys Cash: 1,500.31
Thanks (Given): 1
Thanks (Received): 0
Likes (Given): 0
Likes (Received): 0
MrAlone is an unknown quantity at this point
Default Re: How to put background music in vb6

take one wave file called start.wav
create one module called Splash.bas
create one form called frmain.frm
create one form called Splash.frm

copy and past this in your module :
----------------------------------------
Option Explicit

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Const SND_ASYNC = &H1
Public Const SND_FILENAME = &H20000
Public Const SND_LOOP = &H8
Public Const SND_NODEFAULT = &H2
Public Const SND_NOSTOP = &H10
Public Const SND_RESOURCE = &H40004
Public Const SND_SYNC = &H0


Public Function DelayTime(Seconde__Attendre As Single)
Dim MarqueDeTemps As Single
MarqueDeTemps = GetTickCount
Do While GetTickCount < MarqueDeTemps + Seconde__Attendre * 1000 '
Loop
End Function

Public Sub JouerLeFichier(ByVal NomDuFichier As String, Optional ByVal Attente As Boolean = False)
If Attente Then
Call PlaySound(NomDuFichier, SND_SYNC, SND_FILENAME)
Else
Call PlaySound(NomDuFichier, SND_SYNC, SND_ASYNC Or SND_FILENAME)
End If
End Sub
---------------------------------------
copy and past this in frmain form
---------------------------------------
Option Explicit

Private Sub Form_Load()
Form1.Visible = False
Splash.Show
Splash.SetFocus
Call DelayTime(2)
Form1.Visible = True
Splash.SetFocus
Call DelayTime(1)
Unload Splash
Form1.SetFocus
End Sub
---------------------------------------
copy and past this in your Splash form:
---------------------------------------
Option Explicit

Private Sub Form_Load()
JouerLeFichier App.Path + "\" & "start.wav"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Splash = Nothing
End Sub
---------------------------------------------

MrAlone is offline   Reply With Quote
Old 10-05-2013, 04:58 PM   #6 (permalink)
Junior Member
 
mr_su@ve & ms_M@e's Avatar
 
Join Date: Apr 2012
Posts: 43
VipraSys Cash: 1,872.57
Thanks (Given): 0
Thanks (Received): 3
Likes (Given): 0
Likes (Received): 0
mr_su@ve & ms_M@e is an unknown quantity at this point
Default

heloo ayei may be this can help..... just put an ole=7 just like that.... see my example.... this is a sample only....hope it will help you....

this my sample sounds hope it helps....





VIRUS Scan::::

[Only registered users can see links. ]

Download Here::::

[Only registered users can see links. ]
mr_su@ve & ms_M@e is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT. The time now is 02:25 AM.


Powered by vBulletin®
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.6.1
vBCredits II Deluxe - vBulletin Mods & Addons Copyright © 2010-2014 DragonByte Technologies Ltd.
Feedback Buttons provided by Advanced Post Thanks / Like v3.1.6 (Pro) - vBulletin Mods & Addons Copyright © 2014 DragonByte Technologies Ltd.
The logos and trademarks used on this site are the property of their respective owners.
We are not responsible for comments posted by our users, as they are the property of the poster.