esto se puede?

[Petro_Boca]

hoola!

miren, en el command1 tengo

Código (vb) [Seleccionar] Expandir

msgbox "EH"
msgbox "SOS G@Y!"

pero yo quiero que el msgbox "SOS G@Y!" se muestre solo si el CHECKBOX este tildado.

como se hace O.O?

[_katze_]

pero loco lee un puto manual puede ser ¬¬""

[-=[ §ÂßÂÑÐØ ]=-]

Pues seguro que se hace con un IF ,pero como te han dicho lee un poquito mas que hacer eso es muy fácil en VB

[agus0]

Si, Se puede. Como Dicen los compañeros de arriba tendrías que leer un manual por que eso que vos querés hacer es tan fácil como esto:

Código (VB) [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
    MsgBox "EH"
    If Check1.Value = 1 Then
        MsgBox "SOS G@Y!"
    End If
End Sub


[Petro_Boca]

Código (vb) [Seleccionar] Expandir


                                'Le establecemos un valor para el máximo
ProgressBar1.Max = 50500

    For i = 0 To ProgressBar1.Max

        ' Valor actual del Progressbar
        ProgressBar1.Value = i

        ' Visualizamos el porcentaje en el Label
        Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"


        DoEvents

    Next

ahora me tira error aca:

For i = 0 To ProgressBar1.Max

Variable no definida

[Petro_Boca]

Código (vb) [Seleccionar] Expandir


                                'Le establecemos un valor para el máximo
ProgressBar1.Max = 50500

    For i = 0 To ProgressBar1.Max

        ' Valor actual del Progressbar
        ProgressBar1.Value = i

        ' Visualizamos el porcentaje en el Label
        Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"


        DoEvents

    Next

ahora me tira error aca:

For i = 0 To ProgressBar1.Max

Variable no definida

borre el option explicit y se soluciono

[agus0]

Es por que nunca definiste la variable i tendrías que poner al comienzo del evento

Dim i As Integer

[[L]ord [R]NA]

Alguien puede mandarlo a leer un manual.

[aaronduran2]

Aunque lo mandes, no lo hará, tan solo se reirá...

[Petro_Boca]

Aunque lo mandes, no lo hará, tan solo se reirá...

ah noser q me den el link