LinkBack URL
About LinkBacks
Hola que tal... me preguntaba si existe alguna forma para comprimir todo este codigo:
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox3.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox3.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button3.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox4.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox4.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button4.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox5.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox5.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button5.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox6.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox6.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button6.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox7.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox7.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button7.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox8.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox8.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button8.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox9.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox9.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button9.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox10.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox10.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button10.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox11.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox11.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button11.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox12.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox12.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button12.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox13.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox13.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button13.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox14.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox14.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button14.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox15.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox15.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button15.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox16.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox16.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button16.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox17.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox17.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button17.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox18.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox18.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button18.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox19.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox19.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button19.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox20.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox20.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button20.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox21.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox21.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button21.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox22.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox22.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button22.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox23.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox23.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button23.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox24.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox24.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button24.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox25.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox25.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button25.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox26.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox26.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button26.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox27.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox27.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button27.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If[/color][/color]
[color=#0000ff size=2][color=#0000ff size=2]If[/color][/color] PictureBox28.Visible [color=#0000ff size=2][color=#0000ff size=2]Then[/color][/color]
PictureBox30.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
MessageBox.Show([color=#a31515 size=2][color=#a31515 size=2]"Sigue Intentando"[/color][/color])
PictureBox2.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button2.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
PictureBox28.Visible = [color=#0000ff size=2][color=#0000ff size=2]False[/color][/color]
Button28.Visible = [color=#0000ff size=2][color=#0000ff size=2]True[/color][/color]
TextBox1.Text = Val(TextBox1.Text) - 72
[color=#0000ff size=2][color=#0000ff size=2]End[/color][/color] [color=#0000ff size=2][color=#0000ff size=2]If
la idea es metero en un ciclo for o while, si alguin sabe, agradezco mucho su ayuda. Gracias[/color][/color]
Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores
Usuarios activos: 49
Foros de programación, recursos, tutoriales, sistemas operativos...
Bienvenido a la zona de foros. Participa en alguno de nuestros foros: Foros de visual basic, foros de visual basic.net foros de Crystal reports, programas gratis, foros de C++ - C# , foros de Java, foros de PHP, foros de ASP.net. Seguro que hay un foro que te servirá de gran utilidad y si no lo encuentras avísanos y crearemos uno nuevo.
Resultados 1 al 6 de 6
Tema: Memorama
-
04/08/2008, 16:37 #1
Junior Member
Iniciad@
- Fecha de ingreso
- 04 ago, 08
- Ubicación
- Colombia
- Mensajes
- 2
-
05/08/2008, 09:17 #2
Junior Member
Iniciad@
- Fecha de ingreso
- 27 jul, 08
- Ubicación
- Spain
- Mensajes
- 22
No sé si he leído todo el código bien ... pero yo haría algo así:
'definimos una estructura para almacenar la pareja picture botón
structure pictures
<blockquote>dim imagen as picturebox
dim boton as button
</blockquote>end estructure
'creamos la variable
dim una_picture as pictures
'creamos el arraylist para almacenar todos los elementos que hay que procesar
dim lista_pictures as arraylist = new arraylist
'y lo s vamos metiendo (uno por uno, eso sí :P)
una_picture.imagen = picturebox3
una_picture.boton = button3
lista_pictures.add(una_picture)
una_picture.imagen = picturebox43
una_picture.boton = button4
lista_pictures.add(una_picture)
...
'recorremos el arraylist y procesamos
for i=0 to lista_pictures.count-1
<blockquote>If lista_pictures(i).imagen.visible Then
<blockquote>PictureBox30.Visible = True
MessageBox.Show("Sigue Intentando")
PictureBox2.Visible = False
Button2.Visible = True
lista_pictures(i).imagen.Visible = False
lista_pictures(i).boton.Visible = True
TextBox1.Text = Val(TextBox1.Text) - 72
</blockquote>End If
</blockquote>Next
Si hace falta explicación lo dices ...
-
06/08/2008, 14:11 #3
Junior Member
Iniciad@
- Fecha de ingreso
- 04 ago, 08
- Ubicación
- Colombia
- Mensajes
- 2
Hey viejito muchas gracias
, ya merito lo pongo en práctica
-
08/08/2008, 00:43 #4
Junior Member
Iniciad@
- Fecha de ingreso
- 27 jul, 08
- Ubicación
- Spain
- Mensajes
- 22
Muchas de nadas ... un placer hacer mi primera aportación
-
02/10/2008, 17:33 #5
Junior Member
Iniciad@
- Fecha de ingreso
- 02 oct, 08
- Ubicación
- El Salvador
- Mensajes
- 2
Hola me gustaria que me iluminaras jejejeje ya que coloco el cod. en un metodo para llamarlo cada vez que se pesiones un boton y no me funciona jejejeje me pudieras ayudar. trabajo con 16 botones e imagenes.
Dim i As Int16
For i = 0 To lista_pictures.Count - 1
If lista_pictures(i).imagen.visible Then
PictureBox1.Visible = True
MessageBox.Show("Sigue Intentando")
PictureBox2.Visible = False
Button2.Visible = True
lista_pictures(i).imagen.Visible = False
lista_pictures(i).boton.Visible = True
End If
Next
-
04/10/2008, 18:32 #6
Junior Member
Iniciad@
- Fecha de ingreso
- 02 oct, 08
- Ubicación
- El Salvador
- Mensajes
- 2
Gracias por el codigo pude solucionar mi problema despues de pensar por un momento
Citar