Página 1 de 1

Pregunta tonta VB6

Publicado: 17 Nov 2014, 21:07
por Mr-Sh4d0w
Hola que tal, les quería hacer una simple pregunta..
Necesito mostrar un formulario en base a lo que dice un Label pero no se cómo, con un textbox lo hago así
If Text1.Text = "palabra" Then
form1.show

Me gustaría saber como hacer eso eso pero con el caption de un label

Re: Pregunta tonta VB6

Publicado: 17 Nov 2014, 21:26
por Blau
If Label1.Caption = "palabra" Then

Re: Pregunta tonta VB6

Publicado: 17 Nov 2014, 23:45
por Mr-Sh4d0w
Gracias por responder, era como lo pensaba, les comento a ver si me pueden ayudar.
Descargué el código fuente de un programa que reconoce el S.O, y este mismo aparece en un label, en mi caso aparece "Microsoft Windows 7 Ultimate", yo lo que quería hacer era en base al caption del label que se abra un formulario, el problema está en que tarda en modificarse el label, entonces, cómo hago para hacer esto pero una vez que el formulario cargó completamente? con un timer? no tengo mucha idea de vb.

Agrego estas lineas
If lblCaption.Caption = "Microsoft Windows 7 Ultimate" Then
Form2.Show
End If
dentro de Private Sub Form_Load() , quizás estoy haciendo todo mal

Re: Pregunta tonta VB6

Publicado: 18 Nov 2014, 02:34
por Blau
Sí, puedes usar un timer. Algo así:
If lblCaption.Caption = "Microsoft Windows 7 Ultimate" Then
Form2.Show
Timer1.Enabled = False
End If

Re: Pregunta tonta VB6

Publicado: 19 Nov 2014, 03:56
por Metal_Kingdom
El timer no es buena solución.

Supongo que lo que estás haciendo es algo tipo:
label.caption = Funcion_que_nos_dice_el_SO
Y posteriormente revisas el caption para determinar qué form mostrar, correcto?

Bien, para no esperar a que el label cambie, usa directamente alguna variable, o ni eso, directamente algo como:
if Funcion_que_nos_dice_el_SO = "Microsoft Windows 7 Ultimate" then
  form2.show
end if
Saludos.

Re: Pregunta tonta VB6

Publicado: 23 Nov 2014, 21:27
por Mr-Sh4d0w
gracias por responder muchachos, el problema que tenía era que por alguna razón, el código me daba la versión del S.O un un espacio al final, que obviamente en el label no se notaba, entonces no me reconocia cuando ponía "Microsoft Windows 7 Ultimate" ya que era "Microsoft Windows 7 Ultimate*espacio*"