Discussion :

[gornarf]

Bonjour à tous,

je me tourne vers vous pour un problème (pas vital mais dérangeant).

J'ai une appli (en form + tabcontrol) pour laquelle je sauvegarde tous les champs modifiables et cliquables à la fermeture ou en cours de programme.

J'aimerai bien, si on arrete le programme en cours, qu'il puisse reprendre à la position où il a été fermé.

J'espère me faire comprendre...

j'ai essayé en sauvegardant le focus le formposition ou je ne sais plus quoi mais ça ne marche pas.... l'un ou l'une d'entre vous saurait m'éclairer?

merci d'avance

[SaumonAgile]

Tu parles de la position de la fenêtre ou tu parles de l'état global du formulaire y compris les valeurs saisies par l'utilisateur ?

[gornarf]

Tout ce qui concerne les données saisies est déja enregistré,

je parle de la position au moment de la fermeture du programme.

Exemple, si au moment de la fermeture le programme se situe,

form2/tabcontrol2/tabpage3,

à l'ouverture il me met en form2/tabcontrol2/tabpage3

et me permet de continuer mon travail où il a été arrêté

[jlm22]

Salut,
tu peux enregistrer la position et le nom des tab séleectionnés à la fermeture.

Etape 1:

faire une méthode qui à l'événement de fermeture de l'appli (c'est taform.onclosing il me semble).
En gros ta méthode enregistrera les coordonnées de ta form dans un fichier texte.

Etape 2 :

Méthode qui se lance au démarrage de l'appli qui lit ton fichier texte et met en forme ton appli.

En gros t'as l'idée là.

[franticfranz]

Bonjour,

Dans le même registre, vous pouvez définir des "paramètres d'application" dans les propriétés de votre application.

[Sankasssss]

Bonsoir,

utilises la propriété SelectedIndex du TabPage que tu sauvegardes, comme l'as si bien dit "franticfranz", dans les paramètres de l'application (Projet => Propriétés de xxxxxx => Paramètres) et est accessible par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Settings.nomParamètre

pour sauvegarder rien de plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Settings.save

petite ressource à lire : MSDN Settings

Bonne soirée et bon code.

[gornarf]

Salut à tous, désolé de répondre si tardivement,

alors oui en effet je fonctionne avec les my.settings. c'est justement la le problème.... je sais pas quoi sauver.

Ok selectindex pour tabpages,

Si je dois juste détecter le form en cours et l'enregistrer pour le réouvrir après fermeture c'est quoi alors? selectform? ca existe?

[gornarf]

Pour être peut être plus clair, je souhaite par code faire changer le formulaire de démarrage de mon application... si je sauvegarde mon appli à l'instant X dans un formulaire Y je veux que mon application s'ouvre la prochaine fois sur ce même formulaire Y

[gornarf]

Bon bah résolu:

1°) j'ai fais un Sub Main plutôt que de sélectionner un formulaire de démarrage de manière standard

Sub main conditionnel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 

Module Module1

    Public Sub Main()

        If My.Settings.Setting = "0" Then
            Application.EnableVisualStyles()
            Dim frm1 As Form1
            frm1 = New Form1()
            Application.Run(frm1)
        End If


        If My.Settings.Setting = "1" Then
            Application.EnableVisualStyles()
            Dim frm1 As Form2
            frm1 = New Form2()
            Application.Run(frm1)
        End If

'Et ainsi de suite....

    End Sub


End Module

Et ensuite j'ai défini un paramètre ==>

My.settings.settingX = "nombre"

Et j'ai fais varier le nombre de 0 à 9

0 etant le formulaire de départ initial
1 etant l'étape 1
2 etant l'étape 2

etc

Et j'ai rajouté à la fermeture de chacun des formulaire une petit code qui lui dit: "coco si toi tu te ferme ton paramètre = X et donc dans ce cas à l'ouverture, c'est X qui s'affiche ;-)"

Merci à tous

[Sankasssss]

C'est cool que tu aies trouvé seul et que tu aies mi la solution

Petite astuce, utilises un select c'est plus lisible (c'est très important la lisibilité ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        select case My.Settings.Setting 
            case "0"
                Application.EnableVisualStyles()
                Dim frm1 As Form1
                frm1 = New Form1()
                Application.Run(frm1)
 
            case "1" 
                 Application.EnableVisualStyles()
                 Dim frm1 As Form2
                 frm1 = New Form2()
                 Application.Run(frm1)
 
            case "3"
                 ' etc...
        End Select

Bon code