txt y coordenadas en vb6

[lokoman]

Chequea el CODE, el CMD1 (el que carga el archivo) forma el cuadro al igual que el CMD de ejemplo que pusiste:

Código vb:

Private Sub cmd_Click()
    pic.Line (30, 25)-(30, 150), vbBlue
    pic.Line (30, 150)-(200, 150), vbBlue
    pic.Line (200, 150)-(200, 25), vbBlue
    pic.Line (200, 25)-(30, 25), vbBlue
End Sub
 
Private Sub cmd1_Click()
    Dim strRUTA_ARCH As String
    Dim DATA As String
    Dim xA As Integer
    Dim yA As Integer
    Dim x As Integer
    Dim y As Integer
    Dim CONT As Integer
    Dim I As Integer
    Dim HAY_DATOS As Boolean
 
    HAY_DATOS = False
    CONT = 0
    I = 1
    strRUTA_ARCH = "D:\Me\Down\New\Exe\COORDENADAS.TXT"
 
    Open strRUTA_ARCH For Input As #1
    Do While EOF(1) = False
        Line Input #1, DATA
 
        If Trim(DATA) = "block " & I Then
            HAY_DATOS = True
            I = I + 1
        Else
            If HAY_DATOS = True Then
'                xA = (pic.Width / 2)
'                yA = (pic.Height / 2)
 
                If CONT = 0 Then
                    xA = Mid(DATA, 1, InStr(1, DATA, ",") + 1)
                    yA = Mid(DATA, InStr(1, DATA, ",") + 1)
                End If
                
                x = Mid(DATA, 1, InStr(1, DATA, ",") + 1)
                y = Mid(DATA, InStr(1, DATA, ",") + 1)
                
                CONT = CONT + 1
 
                If CONT = 2 Then
                    pic.Line (xA, yA)-(x, y), vbBlue
                    Debug.Print xA, yA
                    Debug.Print x, y
                    
                    CONT = 0
 
                Else
                    xA = x
                    yA = y
                End If
            End If
        End If
        DoEvents
    Loop
    Close #1
End Sub
 
Private Sub cmd3_Click()
    pic.Cls
End Sub
 
Private Sub Form_Load()
    Me.ScaleMode = 3
    pic.ScaleMode = 3
    pic.AutoRedraw = True
End Sub
 

La linea:

Código vb:

x = Mid(DATA, 1, InStr(1, DATA, ",") + 1)
y = Mid(DATA, InStr(1, DATA, ",") + 1)
 

X=Te extrae el numero que esta antes de la coma ","
Y=Te extrae el numero que esta despues de la coma ","

La funcion MID te permite extraer de un string una cantidad de caracteres, en donde le indicas la posicion inicial y la final

La funcion INSTR te trae de un string la posicion inicial del caracter o string que buscas, le pones la posicion inicial, luego el string que contiene los datos y despues el string que quieres buscar en los datos

El +1 al final es para que me sume 1 posicion a la que me trae el INSTR, ej. si me trae la posicion 3, el proximo caracter que deseo leer esta en la posicion 4, por eso el +1 al final