Mensajes

Hola,..busca en el foro que hay codigos de como mandar por correo...o en las FAQ

saludos.

Deshabilitar menú en control web

[mciSendString]

para que este dentro guardado simplemente lo guardas en un archivo de recursos y al iniciar lo pasas al disco y de ahi lo reproducis...si no sabes lo que es entonces averigua primero porque nadie te va a explicar la teoria, eso lo tenes que saber vos...pero para reproducir un mp3 podes hacer con la api mciSendString...o con mciExecute...busca porque nadie te va a poner el ejemplo si no sabes todavia lo que es una api....

saludos.

simplemente haces una llamada al evento del Timer y te ahorras ese problema...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Call Timer1_Timer
End Sub

saludos.

Hola,me parece que te referis a tipos , algo asi:

Código (vb) [Seleccionar] Expandir

Private Type Datos
    Piloto As String
    Azafata As String
    Compania As String
End Type

Dim Avion As Datos

saludos.

Hola, es porque se elimino las referencias al control winosck y todavia hay partes que lo usan en tu programa, agregalo de nuevo guardalo y listo...

saludos.

bueno dale , si tengo un tiempito te lo programo... ..busca por favor...

Hola, pero te sale algun error o que?, he sabido que hay algunos que tuvieron problemas...pero otros no lo tuvieron...yo no lo tengo no pudo probar...

[Next]

o sea primero que nada sin ofender...sabes algo por lo menos? ,te falta en Next del For y te falta el -1 en el Count...

Código [Seleccionar] Expandir

For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value", fchat.check(i).Value)
Next i

igualmente se tendria que guardar indice del checkbox tambien para despues poder recuperarlo:

Código [Seleccionar] Expandir

For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value" & i, fchat.check(i).Value)
Next i

en teoria con esto te tiene que ir..sino ...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Call Cargar
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call Grabar
End Sub

Sub Grabar()
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Call SaveSetting(App.EXEName, "CheckBox", "Check" & i, Check1(i).Value)
    Next
End Sub

Sub Cargar()
    On Error Resume Next
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Check1(i).Value = GetSetting(App.EXEName, "CheckBox", "Check" & i)
    Next
End Sub

haber ...pone este codigo:

Código [Seleccionar] Expandir

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub


si el valor del tabindex del textbox7 es uno mas que el del textbox2 ...te tiene que funcionar...