SoloCodigo

Hola, de antemano gracias por leer esto. Pues bien el problema es el siguiente:
Necesito hacer un programa que reproduzca un video y q lea un archivo donde esta la cancion y que coloque la letra de la cancion encima del video, ya reproduce el video, incluso el programa  lee la letra de la cancion y la muestra en la pantalla pero al momento de reproducir el video se pone encima de la letra. Lo intente con un frame pero el chiste es que solo se vea la letra como lo haria un label.backStyle = 0. Gracias por su ayuda.

Hola a todos, mi cuestion es: Como puedo colocar ( o simular si es el caso) un fondo de pantalla, sin importar si contiene una imagen o no, el dilema es colocar un fondo y que al ejecutar un programa en modo grafico no se borre el fondo o se altere. Interrupciones?, guardar en memoria? por lo menos una idea. De antemano gracias

Hola:
   
         Se que antes de pedir ayuda debo investigar un poco por mi cuenta, pero como tengo poco tiempo escribire primero el mensaje e inmediatamente me pondre a investigar.
         Lo que quiero es un codigo para reproducir musica desde c, esto implica tambien que pueda detenerlo en el momento adecuado o necesario, sin mas por el momento .
   GRACIAS de antemano...
   
    ATTE:  kkklira

Hola:
Pues bien hace poco hice este código a ver que les parece.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1 = KeyCode
Label2 = "Se Conoce Como: " & TeclaPresionada(KeyCode)
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Function TeclaPresionada(Tecla As Integer) As String

Select Case Tecla
  Case 8: TeclaPresionada = "Retroceso"
  Case 9: TeclaPresionada = "Tab"
  Case 13: TeclaPresionada = "Entrada"
  Case 16: TeclaPresionada = "Shift"
  Case 17: TeclaPresionada = "Control"
  Case 18: TeclaPresionada = "Alt"
  Case 19: TeclaPresionada = "Pausa"
  Case 20: TeclaPresionada = "Mayus"
  Case 23: TeclaPresionada = "Entrada"
  Case 27: TeclaPresionada = "Escape"
  Case 32: TeclaPresionada = "Barra Espaciadora"
  Case 33: TeclaPresionada = "Re Pag"
  Case 34: TeclaPresionada = "Av PAg"
  Case 35: TeclaPresionada = "Fin"
  Case 36: TeclaPresionada = "Shift"
  Case 37: TeclaPresionada = "Flecha Izq"
  Case 38: TeclaPresionada = "Flecha Arriba"
  Case 39: TeclaPresionada = "Flecha Der"
  Case 40: TeclaPresionada = "Flecha Abajo"
  Case 45: TeclaPresionada = "Insert"
  Case 46: TeclaPresionada = "Supr"
  Case 48 To 57: TeclaPresionada = AbNumero(Tecla - 47)
  Case 65 To 90: TeclaPresionada = ABCDario(Tecla - 64, AbMayus)
  Case 91, 92: TeclaPresionada = "Windows"
  Case 96 To 105: TeclaPresionada = AbNumero(Tecla - 95) & " Tec Numerico"
  Case 106: TeclaPresionada = "*"
  Case 107: TeclaPresionada = "+"
  Case 109: TeclaPresionada = "-"
  Case 110: TeclaPresionada = "."
  Case 111: TeclaPresionada = "÷"
  Case 112 To 123: TeclaPresionada = "F" & Tecla - 111
  Case 144: TeclaPresionada = "Bloq Num"
   Case 144: TeclaPresionada = "Bloq Despl"
  Case 186 To 192: TeclaPresionada = AbEspecial(Tecla - 185)
  Case 219: TeclaPresionada = "?"
  Case 220: TeclaPresionada = "°"
  Case 221: TeclaPresionada = "¡"
  Case 222: TeclaPresionada = "["
  Case Else: TeclaPresionada = "Desconocido"
End Select
End Function

 ' Y en un módulo peguen lo siguiente

Public Enum AbMinMay
  AbMinus
  AbMayus
End Enum

Public Function ABCDario(AbLetra As Integer, AbMinsMays As AbMinMay) As String
  Dim CadABCMay, CadABCMin As String
CadABCMay = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
CadABCMin = LCase$(CadABCMay)
If AbLetra < 1 Then
MsgBox "AbLetra < 1"
ElseIf AbLetra > 26 Then
MsgBox "AbLetra < 26"
Else
  Select Case AbMinsMays
  Case AbMayus:  ABCDario = Mid(CadABCMay, AbLetra, 1)
  Case AbMinus:  ABCDario = Mid(CadABCMin, AbLetra, 1)
  End Select
End If
End Function

Public Function AbNumero(AbNum As Integer) As String
  Dim CadNum As String
CadNum = "0123456789"
If AbNum < 1 Or AbNum > 10 Then
MsgBox "La cadena de AbNum debe ser entre 1 y 10"
Else
AbNumero = Mid(CadNum, AbNum, 1)
End If
End Function

Public Function AbEspecial(AbNum As Integer) As String
  Dim CadNum As String
CadNum = "´+;-:}Ñ"
If AbNum < 1 Or AbNum > 7 Then
MsgBox "La cadena de AbNum debe ser entre 1 y 7"
Else
AbEspecial = Mid(CadNum, AbNum, 1)
End If
End Function

' Saludos

Incluso se puede quitar una condición así:

Private Sub NoMinimizar(ByVal Minimizar As Boolean)
If Not Minimizar Then Me.WindowState = 0
End Sub

Private Sub Form_Load()
Check1.Caption = "Minimizar"
End Sub

Private Sub Form_Resize()
NoMinimizar Check1.Value
End Sub

Hey, La verdad es que se me cerraron las ideas y lo ùnico que buscaba era donde enlazarlo o sea a la hora de reproducir a donde lo enlazaba. Lei un libro donde venia el MMMedia pero no se si no lo lei bien o no lo traìa pero a l hora de reproducir provocaba un error, ahora con este còdigo tengo la opcion de reproducirlo en mi ventana o fuera de ella . Gracias Hitman47 te debo una.

Desde Visual Basic Como Puedo ?</li>[li]  Copiar y Pegar  una Carpeta </li>[/li][li]  Cortarla y Pegarla</li>[/li][li]  Cambiarle Nombre</li>[/li][li]  Crear una nueva</li>[/li][li]  Eliminarla  
     Si alguien me puede ayudar se lo agradecería.
al inicio o mas bien final de las discusiones del foro alli por
la pagina 78, 79 hay una discusion relacionado a esto, pero lo que hace es
pasarme una pagina, pero parece que no funciona o no supe. En fin de antemano muchas gracias por leer esto y a quien me responda. </li>[/li][/list]

1. Ok.   Soy KKKlira y esta es una posible respuesta.   si tienes en el form2 el boton tu codigo es mas o menos asi (en el evento Click del boton)
2.  with ColorDialog  
3. .cancel=true
4. on error goto Error
5. .showcolor
6.  form1.picture1.backcolor=colordialog.color
7. end with
8. Error:
9.  if error <> 0 then Exit sub

[/code]