Foro de elhacker.net

Programación => 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
  1. msgbox "EH"
  2. msgbox "SOS G@Y!"
  3.  
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
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.    MsgBox "EH"
  5.    If Check1.Value = 1 Then
  6.        MsgBox "SOS G@Y!"
  7.    End If
  8. End Sub
  9.  


Título: Re: esto se puede?
Publicado por: Petro_Boca en 26 Septiembre 2010, 01:53 am
Código
  1.                                'Le establecemos un valor para el máximo
  2. ProgressBar1.Max = 50500
  3.  
  4.    For i = 0 To ProgressBar1.Max
  5.  
  6.        ' Valor actual del Progressbar
  7.        ProgressBar1.Value = i
  8.  
  9.        ' Visualizamos el porcentaje en el Label
  10.        Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"
  11.  
  12.  
  13.        DoEvents
  14.  
  15.    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
Código
  1.                                'Le establecemos un valor para el máximo
  2. ProgressBar1.Max = 50500
  3.  
  4.    For i = 0 To ProgressBar1.Max
  5.  
  6.        ' Valor actual del Progressbar
  7.        ProgressBar1.Value = i
  8.  
  9.        ' Visualizamos el porcentaje en el Label
  10.        Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max) & " %"
  11.  
  12.  
  13.        DoEvents
  14.  
  15.    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
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.

Citar
Cuando 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
lo que hay que hacer es ignorar a este tipo de gente, no tiene interes alguno en aprender nada.

Citar
Cuando 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  ::)