Kako da ubacim Zvuk i da promenim izgled dugmeta u VB6

Molim vas treba mi pomoc u Visual Basic 6.0 ne znam kako da ubacim zvuk u Visual Basic - odnosno kako da se cuje odredjeni zvuk kada se klikne na neko dugme (command button )

Isto tako bi mi jako dobro doslo kada bi neko uspeo da mi objasni kako da promenim oblik dugmeta (command button)- da ne bude pravougaonik nego recimo krug ili deltoid ili sasvim nesto trece

MOLIM VAS POMOZITE MI STO PRE
UNAPRED VAM SVIMA HVALA

http://www.andreavb.com/forum/viewtopic.php?TopicID=2525

Poz

poaslji mi mejl sta ti treba

Ako hoces da pustis neki konkretan zvuk (u wav formatu) najbolje ti je da iskoristis API funkcije imas ih u API Viewer-u, a da bi najlakse nasao sve ovo najbolje ti je da odes na www.VBCODE.com gde lepo odes na API calls i nadjes i to i za pravljenje neobicnih oblika.
Stim sto definitivno neces uspeti da nateras da dugme ima neobican oblik vec ces morati da napravis sam tu kontrolu, izvodljivo je da preko picture box-a napravis ovu varijantu.
Fora je u tome sto to pravis oblik koji ce da se vidi na ekranu (poenta sa prozorima neobicnog izgleda) a sve to ostaje i dalje pravougaonog oblika (tj. vidi se samo deo u okviru tih tvojih granica). Tako da dok to ne razradis i ne shvatis kako treba potrosices par dana. Sve jedno sta god ti treba za VB imas na gore navedenom sajtu, jedino postoji varijanta da ne mozes da nadjes.

sndPlaySound API ti je za zvuk. Za menjanje izgleda buttona, sam znao caku al sam zaboravio. sndPlaySound moze da pusta i MP3 fajlove, no za koriscenje je najbolje naci na internetu totalno sve oko njega.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto, a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto, a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Sto se tice zvuka, mozes i bez API poziva. Recimo OLE, ili ActiveX kontrola Microsoft Multimedia Control (MMC). Sto se tice command dugmeta, probaj da koristis tri slike (od kojih dve postavis da budu nevidljive). Onda za trecu sliku upises code:

Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image1.picture
End Sub

Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
image3.Picture=image2.picture
End Sub

P.S.
Prva slika je slika kada je dugme pritisnuto a druga kada nije.

Izvinjavam se, ali nesto se cudno desilo. Neznam kako ali glupi server je poslao ne jednu, nego desetak poruka. Izvinjavam se!

Prvi nacin:
Neka ti dugme uopste ne bude dugme vec slika. Zatim namestis sta da se dogadja sa njom kada mis predje preko nje, kada klikne na nju i sl.
A za zvuk ides na Ctrl+T i odatle uzmes Microsoft Multimedia Controler 6.0 ili tako nesto slicno se zove. Zatim promenis mu ime u MM1 i kucas
Command1_Click
MM1.Command="Close" 'da zatvori sve svoje radnje
MM1.Filename=(ime .WAV fajla)
MM1.Command="Open"
MM1.Command="Play"
End Sub

Ti jos u ovo dodaj sta zelis da se dogadja i sl. Uzmi knjigu Visual Basic 6.0 Korak po korak. Jako je dobra, ali vecinu stvari ces morati sam/a da kontas