|
513
|
Programación / Programación Visual Basic / Re: Reproduccion de Sonidos... clamando por ayuda...
|
en: 27 Octubre 2005, 18:09 pm
|
Fuente : Api Guide 'Example submitted by Danjel Nyberg 'It needs a textbox (Text1) and two command buttons (Command1, Command2) Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer, dwVolume As Long) As Integer Private Sub Command1_Click() Dim a, i As Long Dim tmp As String a = waveOutGetVolume(0, i) tmp = "&h" & Right(Hex$(i), 4) Text1 = CLng(tmp) End Sub Private Sub Command2_Click() Dim a, i As Long Dim tmp, vol As String vol = Text1 tmp = Right((Hex$(vol + 65536)), 4) vol = CLng("&H" & tmp & tmp) a = waveOutSetVolume(0, vol) End Sub
|
|
|
514
|
Programación / Programación Visual Basic / Valores del registro
|
en: 27 Octubre 2005, 17:54 pm
|
Conozco mas de 20 sitios en los que el ordenador puede iniciar una aplicacion al iniciar el SO, pero el inicio ActiveX no se donde se encuentra, me podriais ayudar, en google no e encontrao donde se encuentra per omuchos programas lo usan
Salu2
|
|
|
515
|
Programación / Programación Visual Basic / Re: Reproduccion de Sonidos... clamando por ayuda...
|
en: 26 Octubre 2005, 18:34 pm
|
Fuente: api - guide Private Const SND_APPLICATION = &H80 ' look for application specific association Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Private Const SND_ASYNC = &H1 ' play asynchronously Private Const SND_FILENAME = &H20000 ' name is a file name Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy Private Const SND_PURGE = &H40 ' purge non-static events for task Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom Private Const SND_SYNC = &H0 ' play synchronously (default) Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load() PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC End Sub
|
|
|
519
|
Programación / Programación Visual Basic / Re: Duda con el control INet
|
en: 25 Octubre 2005, 15:35 pm
|
127.0.0.1 es lo mismo k poner localhost 4936 alomejor es por que tienes algun programa que esta usando el puerto del ftp, y intenta usar otro o es que tu programa se conecta a otro puerto ademas de ese, o tienes el puerto 21 blokeado para ese progrma... kita el firewall y prueba, alomojor es alguan linea de code que no as borrado... cualkier cosa...
Salu2
|
|
|
|
|
|
|