Mensajes

Lo que ha en el corazon que hizo azielito es un ...mmm un traserito jijiji,

cierto, cierto, incluso creo que veo...  hay diooos 

Me gusto el primero, el segundo tiene muchos colores para mi gusto 

¿el corazón abierto?   

Por si no se han dado cuenta el último post de drakolive en este hilo se hizo hace ya 1 año exactamente y dijo que había conseguido lo que quería, solo están reviviendo post antiguos...

Si no me equivoco ese no devuelve extension! :S

lol y yo que pensaba que lo querías hacer sin el commond dialog  - por no fijarse en el título - 

solo una cosita para imprimirlas no hay una forma de que me salgan bien en 3 x 3 osea que salgan en este formato

Código [Seleccionar] Expandir

1 2 3
1 2 3
1 2 3

Código (vb) [Seleccionar] Expandir

J = 1
For I = 1 To 3
        Label1.Caption = Label1.Caption & h(I, J) & " " & h(I, J + 1) & " " & h(I, J + 2) & vbCrLf
Next

Extrae exactamente lo que quieres...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
Dim Path As String, Nombre As String

    Path = "C:\WINDOWS\system32\fotos\jose.exe"
   
    'InStrRev = Como el "InStr", devuelve la posición de la primera aparición de una _
    cadena dentro de otra, pero comenzando por el extremo derecho de la cadena.
   
    'Right = extraer caracteres desde el lado derecho de la cadena.
   
    'Len = Devuelve la cantidad de caracteres que tiene una determinada cadena.
    Nombre = Right(Path, Len(Path) - InStrRev(Path, "\"))
   
    MsgBox Nombre
End Sub

Tan sencillo como decirle al text1 del form2 que tome el valor del text1 del form1

Código (vb) [Seleccionar] Expandir

Form2.Text1 = Text1.Text

¿No se te ocurrio?

bueno ese es mi problema que se introducen las matrices bien pero el problema es que cuando empuesa la primera operacion me marca un error me dice que el sub indice esta fuera del intervalo y me marca esta linea
d(k, l) = a(i, j) - c(i, j)

Fijate que estas usando las variables I y J para las operaciones, en un par de ciclos For que usan OTRAS variables (k y l)...  cuando el antepenultimo par de For termina de usar las variables J e I estas toman el siguiente valor, o sea "4"... a(4,4) esta fuera del intervalo, además, debes usar dentro del ultimo par de For las variables de estos para las operaciones  que realizas...

Código (vb) [Seleccionar] Expandir

d(K, L) = a(I, J) - c(I, J) 'Incorrecto
d(K, L) = a(K, L) - c(K, L) 'Corecto


Para imprimirlo puedes hacer esto si lo sigues haciendo con el label, aunque para mi mejor un listbox...

Código (vb) [Seleccionar] Expandir

For K = 1 To 3
        For L = 1 To 3
            Label1.Caption = Label1.Caption & vbCrLf & h(K, L)
        Next L
Next K

O si lo prefieres, así:

Código (vb) [Seleccionar] Expandir

J = 1
    For I = 1 To 3
        Label1.Caption = Label1.Caption & h(I, J) & " " & h(I, J + 1) & " " & h(I, J + 2) & vbCrLf
    Next

Usa el api SetWindowPos por acá hay algunos ejemplos...

[ListView]

Acá tenes desde como agregarlo hasta como usarlo ==> ListView

¡Buen provecho! 

parece qu estoy volado 

Siii deja de fumar esas cosas raras!!