qweqwe
Private Sub actualizar_Click()
tabla1.Rows = cantidad.Text + 1
For i = 1 To cantidad
tabla1.TextMatrix(i, 0) = i
Next i
End Sub
Private Sub armar_Click()
For i = 2 To cantidad
For j = 1 To (i - 1)
nuevalinea = Chr$(13) + Chr$(10)
lineatexto = tabla1.TextMatrix(i, 1) & " versus " & tabla1.TextMatrix(j, 1)
lista = lista & lineatexto & nuevalinea
Next j
Next i
End Sub
Private Sub Command1_Click()
guardar.DefaultExt = "txt"
guardar.Filter = "archivo de texto (*.txt) | *.txt"
guardar.InitDir = App.Path
guardar.ShowSave
If guardar.FileName = "" Then Exit Sub
arch = FreeFile
Open guardar.FileName For Output As #arch
Write #arch, lista
Close #arch
End Sub
Private Sub Form_Load()
tabla1.TextMatrix(0, 0) = "NUMERO"
tabla1.TextMatrix(0, 1) = "NOMBRE"
End Sub
Private Sub tabla1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Len(tabla1.Text) > 0 Then
tabla1.Text = Left((tabla1.Text), Len(tabla1.Text) - 1)
End If
Else
tabla1.Text = tabla1.Text + Chr$(KeyAscii)
End If
End Sub
Hoy habia 12316 visitantes¡Aqui en esta página!