que es freefile()??Como uso un checkbox??

[JiMmY_hAcK]

soy muy newbie en esto por eso igual mi pregunta es muiy tonta pero queria saber q es freefile().Porque lo utilizo sin saber lo que es.lo saque de un code de ranefi. y tambien queria saber como se usa un checkbox??

[ranefi]

soy muy newbie en esto por eso igual mi pregunta es muiy tonta pero queria saber q es freefile().Porque lo utilizo sin saber lo que es.lo saque de un code de ranefi. y tambien queria saber como se usa un checkbox??

Un ejemplo del uso de los controles CheckBox es el siguiente

Agregar 1 control CommandButton, 1 Label, 4 CheckBox e insertar el siguiente código

Código:

Private Sub Command1_Click()
    Dim Concatena As String

    If Check1.Value = 1 Then
        Concatena = Check1.Caption
    End If
   
    If Check2.Value = 1 Then
        Concatena = Concatena & " " & Check2.Caption
    End If
   
    If Check3.Value = 1 Then
        Concatena = Concatena & " " & Check3.Caption
    End If
   
    If Check4.Value = 1 Then
        Concatena = Concatena & " " & Check4.Caption
    End If
   
    MsgBox "Tus tacos tendrán: " & _
        Concatena, vbInformation, ":p"
End Sub

Private Sub Form_Load()
    AgregaCaptionsyDemas
End Sub


Private Sub AgregaCaptionsyDemas()
    Label1.Caption = "¿Con qué quieres tus tacos?"
    Check1.Caption = "Cebollitas asadas"
    Check2.Caption = "Cilantro"
    Check3.Caption = "Cebolla cruda"
    Check4.Caption = "Aguacate"
    Command1.Caption = "Ordenar"
   
    Label1.AutoSize = True
End Sub

Espero haya quedado claro.

Ahora, la función FreeFile devuelve un valor Integer que representa el siguiente número de archivo disponible para ser utilizado por la función FileOpen. En resumen, busca el número de archivo que se encuentre libre.

Nos vemos.