Tengo 2 formularios, un Splash y un formulario principal, en el Splash hay un checkbox que si lo tildas la proxima vez no se ejecutara y pasara al formulario principal.
Guardo el estado del checkbox antes de abrir la aplicacion en un archivo de configuracion.. pero si es la primera ejecucion este archivo no existira y tirara error (podria comprobar la existencia del archivo, comprobarlo con un if y a partir de hay decidir) pero me gustaria hacerlo como en visual basic seria "on local resume goto etiqueta1"
Este seria el codigo que me da problemas
' gambas class file
PUBLIC SUB Timer1_Timer()
Button1.Enabled = TRUE
Timer1.Enabled = FALSE
END
PUBLIC SUB Form_Open()
DIM X AS Long
X = Settings["Config/Splash"] 'Aqui tira error si el archivo no existe, en vb bastaria con un "on local error resume next"
IF X = -1 THEN
ME.Close
FrmMain.Show 'Si el codigo que esta en el if se ejecuta, cuando vuelva el programa a este codigo dara error en el me.center
END IF
ME.Center
CheckBox1.Text = "Hide this screen"
Button1.Text = "Ok"
Timer1.Delay = 2000
END
PUBLIC SUB Button1_Click()
Settings["Config/Splash"] = CheckBox1.Value
Settings.Save
ME.Close
FrmMain.Show
END
PUBLIC SUB Timer1_Timer()
Button1.Enabled = TRUE
Timer1.Enabled = FALSE
END
PUBLIC SUB Form_Open()
DIM X AS Long
X = Settings["Config/Splash"] 'Aqui tira error si el archivo no existe, en vb bastaria con un "on local error resume next"
IF X = -1 THEN
ME.Close
FrmMain.Show 'Si el codigo que esta en el if se ejecuta, cuando vuelva el programa a este codigo dara error en el me.center
END IF
ME.Center
CheckBox1.Text = "Hide this screen"
Button1.Text = "Ok"
Timer1.Delay = 2000
END
PUBLIC SUB Button1_Click()
Settings["Config/Splash"] = CheckBox1.Value
Settings.Save
ME.Close
FrmMain.Show
END
