Mensajes

Hola. Estoy intentando crear un BBCode para mi foro similar al "code", pero para colocar enlaces de descarga. La base la tengo hecha, pero hay algo que no soy capaz de solucionar.
Introduzcas el texto que introduzcas, los enlaces te los detecta como tal, y por lo tanto, te permite hacer clic en él. Lo que yo quería crear era algo como el "code", que no lo detecte como enlace, sino como texto normal.

¿Alguien tiene alguna idea de cómo podría hacerlo?
Gracias de antemano

Yo no me di cuenta de que había preguntas hasta que lo seleccioné con el ratón, porque no se ven.

En mi instituto tienen instalado el Avira, y siempre que pongo un programa hecho en VB 6 (aunque sea un simple hola mundo) me lo detecta como virus...

Código (vb) [Seleccionar] Expandir


Error = mciSendString("put " & medio & " window at " & Left & " " & Top & " " & Width & " " & Height, 0, 0, 0)


Eso es lo que está en la función "EstablecerPosicionVentana", pero lo que necesitaba serían las medidas exactas para ponerlo en 16:9 o 4:3, por ejemplo, ya que me pierdo con las conversiones.

Saludos

Quizá sea problema del UAC, cuando tenía Vista e intentaba realizar modificaciones al registro me saltaba la pantalla de confirmación, así que en el 7 desactivé el UAC y no dice nada.

Saludos.

Hola. Estoy intentando agregar la funcionalidad de cambiar la relación de aspecto en un reproductor de vídeo, pero no sé exactamente qué tengo que poner.
Utilizo la API mciSendString para ello.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Resize()
   picVideo.Height = Me.ScaleHeight: picVideo.Width = Me.ScaleWidth
   c_Reproductor.EstablecerPosicionVentana 0, 0, picVideo.Width / Screen.TwipsPerPixelX, picVideo.Height / Screen.TwipsPerPixelY
End Sub

Con esto aparecía por defecto con la relación del vídeo, pero, ¿qué medidas debería poner para, por ejemplo, una relación de 16:9?
Al estilo del VLC Media Player.

Saludos y gracias de antemano.

Además de InStr(), podrías usar Left$()

Un ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub ListarUrl()
Dim i As Integer
   
        List2.Clear
        For i = 0 To WebBrowser1.Document.links.length - 1
            If Left$(WebBrowser1.Document.links.Item(i), Len("http://www.bux.to/view.php?ad") = "http://www.bux.to/view.php?ad" Then
                List2.AddItem WebBrowser1.Document.links.Item(i)
            End If
        Next
End Sub

Saludos

Código (vb) [Seleccionar] Expandir

Shell "cmd /k ipconfig /all"

Lo del Codejock es cierto. Yo tengo instalada la versión 12, y después de probar algo con la 13, siempre me da errores tras borrar los OCX, por lo que tengo que volver a registrar los antiguos OCX.

Saludos.

Hola. Por lo que yo sé, si quieres guardar el archivo, lo único que tendrías que hacer sería sobreescribir el que ya tienes. Para ello, puedes almacenar la ruta del mismo en una variable, y cuando quieras guardarlo, haces lo de siempre:

Código (vb) [Seleccionar] Expandir

Dim s_RutaArchivo As String
Open s_RutaArchivo For Output As #1
    Print #1, Text1.Text
Close #1

Si quieres que sea guardar como, tan solo añade las funciones del CommonDialog:

Código (vb) [Seleccionar] Expandir

CommonDialog1.CancelError = False ' Para que no de error al cancelar.
CommonDialog1.Filter = "Texto|*.txt"
CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text
Close #1

Saludos