Discussion :

[Eden83]

Salut,
Merci bcp , sur montock effectivement cela fonctionne très bien et du coup je l'ai mis de manière à choisir la couleur du label de la page d'accueil, c'est cool....comme dans ton code ci-dessus.

Oui a force, recherche et test, je commence a être copain avec le datagridview, il est très important dans mes projets.

Cependant ma réflexion vise plus loin comme d'habitude, ce que je souhaite réussir cette fois-ci, toujours dans le thème des couleurs du datagridview c'est de pouvoir mettre autant de couleur que je veux dans les cellules des lignes grâce au colordialog.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub BtCouleur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCouleur.Click
 
  Dim color As DialogResult
        color = ColorDialog1.ShowDialog()
        If color = Windows.Forms.DialogResult.OK Then
            HeureDataGridView.CurrentCell.Style.BackColor = ColorDialog1.Color
       End If
 
    End Sub

Jusque là tout fonctionne, je peux mettre pleins de couleurs différentes dans la même ligne et sur plusieurs lignes différentes. C'est le but recherché.... Par contre la ou je bloque c'est pour mémoriser toutes ces couleurs et de pouvoir les recharger.



Sur les textbox j'y arrive très bien , Un petit exemple avec trois boutons et un textbox:
deux paramétres : 1 de type "string" avec le nom "Valeur" pour le text et 1 de type "System.Drawing.Color" avec le nom "Couleur" pour la couleur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Bouton pour choisir sa couleur
 
Private Sub BtChoixCouleur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCouleur.Click
 
Dim color As DialogResult
        color = ColorDialog1.ShowDialog()
 
 If color = Windows.Forms.DialogResult.OK Then
                      TextBox1.BackColor = ColorDialog1.Color    ' affiche notre couleur dans le textbox
                    End If
 
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
 
'Bouton pour sauvegarder le texte et la couleur du texbox
 
Private Sub BtSauvegarderSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        Settings.valeur = TextBox1.Text
        Settings.couleur = ColorDialog1.Color
        Settings.Save()
 
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
'Bouton pour recharger a la réouverture du form
 
Private Sub BtChargeSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
TextBox1.Text = Settings.valeur
TextBox1.BackColor = Settings.couleur
 
  End Sub

Donc est ce possible sous VB de pouvoir mémoriser toutes les couleurs que l'on ajoute dans chaque lignes d'un datagridview et de pouvoir les recharger dans les bonnes cellules ?

Merci.

[Phil Rob]

Personnellement, pour ce qui est de ta dernière question (la mémorisation des couleurs), j'opterais pour le fichier de paramètres comme déjà implémenté dans ton application "MonStock". Le nombre de paramètres est illimité (à condition de bien t'organiser ).
Ce fichier de paramètres peut en outre être accédé avec le NotePad et aussi servir une autre application réalisée avec le même design.
A toi de voir ...

[Eden83]

Salut,

Bon je n'ai pas réussi a mémoriser toutes les couleurs individuellement , je ne suis pas assez bon pour le moment avec les settings donc je range cette idée et je reviendrai dessus par la suite.
J'ai réussi a mettre les lien pdf dans le datagridview et à les ouvrir à ma convenance . Ce qui me permet d'avoir un lien direct avec des documentations sur mes produits dans le stock. J'ai compris le truc , en fait on peut appeler plein de type de fichier avec openfiledialog
Je commence a bien utiliser les événements du datagridview et autre c'est très pratique ....
VB est très passionnant.

[Phil Rob]

Bravo
Etonnant tout de même que tu puisses mémoriser la dernière couleur du Label "Attention" et que tu ne puisses pas mémoriser les autres ... ça viendra plus tard.
Bonne continuation,

[Eden83]

Salut,
Excuse moi de te poser cette question :

Code :

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

1
2
3
4
5
6
 
Try
 
Catch ex As Exception
 
 End Try

Peut-on en mettre autant que l'on désire pour pouvoir "exemple" sortir d'un SUB au cas ou , ou bien il faut éviter d'en mettre partout?

Je viens de réaliser ce soir ma première action double sur une cellule du datagridview avec l’événement CellClick, si la cellule est vide alors j'ouvre l'openfiledialog sinon je lance le fichier. J'ai également pensé à rajouter au clic droit la possibilité de changer le lien actif.

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
 
Private Sub LienpdfDataGridView_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LienpdfDataGridView.CellClick
 
        If e.ColumnIndex = 4 Then
 
            Dim ValLien As Object = LienpdfDataGridView.CurrentRow.Cells(4).Value
 
            If ValLien IsNot DBNull.Value And ValLien IsNot Nothing Then
                Process.Start(LienpdfDataGridView.CurrentRow.Cells(4).Value)
            Else
                Dim opf As New OpenFileDialog
                opf.Filter = "Choisir un fichier (*.pdf|*.pdf"
 
                If opf.ShowDialog = DialogResult.OK Then
                    LienpdfDataGridView.CurrentRow.Cells(4).Value = opf.FileName
                End If
 
            End If
        End If
 
    End Sub

Effectivement j'arrive a mémoriser les couleurs des lignes , d'une cellule ,d'un élément mais je n'arrive pas a mémoriser 2 ou 3 couleurs différentes sur une ligne. Je reste sur le fait que ça doit pas être le moment... Mon chemin m'y amènera en temps voulu mais en tout cas je pense que je suis sur la bonne voie, je m'amuse.
Merci.

[Phil Rob]

Pour ce qui est Try, que tu peux effectivement en mettre partout mais ils "ralentissent" un peu le code contrôlé.
Personnellement, je les utilise là où mon algorithme de contrôle serait trop "lourd", sinon je préfère coder moi-même le contrôle.
Par exemple, une division pas zéro donne une erreur (généralement) ou quelque chose comme ±infini. Il faut donc contrôler la valeur d'un diviseur ou le résultat de la division.
Soit :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Resutat As Single
Dim Diviseur As Single
'................
Try
    Resultat = 123456.123 / Diviseur
Catch
    MessageBox.Show "Erreur ... blabla ... "
    Exit Sub
End Try

Soit :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Resutat As Single
Dim Diviseur As Single
'................
If Diviseur <> 0 then
    Resultat = 123456.123 / Diviseur
Else
    MessageBox.Show "Erreur ... blabla ... "
    Exit Sub
End IF

Dans cet exemple où l'algorithme de contrôle est simple, mieux vaut éviter le Try.

[Eden83]

Merci pour ta réponse , je vais modifier selon le cas.