Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 26 Septiembre 2010, 00:36 AM

Título: esto se puede?
Publicado por: Petro_Boca en 26 Septiembre 2010, 00:36 AM
hoola!

miren, en el command1 tengo

Código (vb) [Seleccionar]
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?
Título: Re: esto se puede?
Publicado por: _katze_ en 26 Septiembre 2010, 01:05 AM
pero loco lee un puto manual puede ser ¬¬""
Título: Re: esto se puede?
Publicado por: -=[ §ÂßÂÑÐØ ]=- en 26 Septiembre 2010, 01:09 AM
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
Título: Re: esto se puede?
Publicado por: agus0 en 26 Septiembre 2010, 01:27 AM
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]

Option Explicit

Private Sub Command1_Click()
    MsgBox "EH"
    If Check1.Value = 1 Then
        MsgBox "SOS G@Y!"
    End If
End Sub
Título: Re: esto se puede?
Publicado por: Petro_Boca en 26 Septiembre 2010, 01:53 AM
Código (vb) [Seleccionar]

                                '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

Título: Re: esto se puede?
Publicado por: Petro_Boca en 26 Septiembre 2010, 01:56 AM
Cita de: Petro_Boca en 26 Septiembre 2010, 01:53 AM
Código (vb) [Seleccionar]

                                '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
Título: Re: esto se puede?
Publicado por: agus0 en 26 Septiembre 2010, 02:44 AM
Es por que nunca definiste la variable i tendrías que poner al comienzo del evento

Dim i As Integer
Título: Re: esto se puede?
Publicado por: [L]ord [R]NA en 26 Septiembre 2010, 02:50 AM
Alguien puede mandarlo a leer un manual.
Título: Re: esto se puede?
Publicado por: aaronduran2 en 26 Septiembre 2010, 03:01 AM
Aunque lo mandes, no lo hará, tan solo se reirá...
Título: Re: esto se puede?
Publicado por: Petro_Boca en 26 Septiembre 2010, 05:57 AM
Cita de: aaronduran2 en 26 Septiembre 2010, 03:01 AM
Aunque lo mandes, no lo hará, tan solo se reirá...


ah noser q me den el link  ;D
Título: Re: esto se puede?
Publicado por: Darioxhcx en 26 Septiembre 2010, 05:59 AM
a no ser que uses el buscador o google  :rolleyes:
Título: Re: esto se puede?
Publicado por: bizco en 26 Septiembre 2010, 10:15 AM
lo que hay que hacer es ignorar a este tipo de gente, no tiene interes alguno en aprender nada.

CitarCuando el sabio señala la luna, el tonto se fija en el dedo.

claramente es lo que le pasa a esta persona.
Título: Re: esto se puede?
Publicado por: Psyke1 en 26 Septiembre 2010, 11:07 AM
Cita de: ctlon en 26 Septiembre 2010, 10:15 AM
lo que hay que hacer es ignorar a este tipo de gente, no tiene interes alguno en aprender nada.

CitarCuando el sabio señala la luna, el tonto se fija en el dedo.

claramente es lo que le pasa a esta persona.
:laugh: :laugh: :laugh: :laugh:
Buena esa frase, viene perfecta en esta situacion...
Yo de decidido dejar de contestar a sus hilos, lo unico que hace es hacer perder nuestro tiempo, y probablemente el suyo tambien... :rolleyes:

DoEvents! :P
Título: Re: esto se puede?
Publicado por: -=[ §ÂßÂÑÐØ ]=- en 26 Septiembre 2010, 12:07 PM
Haced como yo dadle un paista y mandarle a leer el manual igual al final por aburrimiento se lo lee  ::)