Kako da ubacim Zvuk i da promenim izgled dugmeta u VB6

  • Začetnik teme Začetnik teme Veverica_igor_89_Dead_eye
  • Datum pokretanja Datum pokretanja
V

Veverica_igor_89_Dead_eye

Gost
:?: 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 ) :cry:

:?: 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 :cry:

MOLIM VAS POMOZITE MI STO PRE
UNAPRED VAM SVIMA HVALA :idea:
 
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. :D
 
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.
 
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
 
Prijavite se ili registrujte da biste poslali poruku.

Slične teme

D
Kako da rele zamenim tranzistorima
Odgovora
6
Pregleda
326
mip163
M
Neno
Naučnik tvrdi da ima dokaz, da živimo u Matriksu
Odgovora
6
Pregleda
286
Masno-TkivoInViVo
M
Nina
Kako da vam baterija telefona traje ceo dan?
Odgovora
5
Pregleda
315
DarkMoon
DarkMoon

Back
Top