GRILLE VB6

Question

Bonjour je voudrait savoir comment mettre du noir dans "quelques" cellules d'un MSflexgrid sous VB6  avant l'éxécution du programme et aussi apres et interdire la saisie a l'intérieur de ce cellules noires. merci

chaibat05 · Answer

Bonjour,
Pour la question de saisie, c' est d' office reglée
puisque ça m' étonnerais que tu puisse saisir
quoique ce soit.Tout au plus tu peux insèrer.
A moins que c' est ce que tu veux dire oar saisie,
ou bien si tu utilises un control customisé.


Pour la mise en forme:
  
With TonFlexGrid
    'tu te places sur la ligne et la colonne 
    'tu inséres ton texte
     .TextMatrix(.Row,.Col)="Le texte" 
     .CellBackColor = vbBlack
     .CellForeColor = vbWhite
  End With

Mattcau59 · Answer

dsl mais j'arrive tjs pas a mettre un fond noir ds les cases choisies sinn pour ce ki est du text c bon merci

chaibat05 · Answer

Ok.., inverses les choses
     .CellBackColor = vbBlack
     .CellForeColor = vbWhite
    'et après
     .TextMatrix(.Row,.Col)="Le texte"

Mattcau59 · Answer

non je veu juste mettre un fond noir ds quelques cases de mon msflexgrid avant l'eécution du programme c pour n mot croisés

chaibat05 · Answer

With TonFlexGrid
    'tu te places sur la ligne et la colonne 
    .Row=3
    .Col=7
    .CellBackColor = vbBlack
     
    .Row=3
    .Col=9  
    .CellBackColor = vbBlack
   
    .Row=5
    .Col=2
    .CellBackColor = vbBlack
    
    'etc
End With

sinon, envoies le code pour voir

Mattcau59 · Answer

Private Sub Grille_Click( )
With Grille
    'tu te places sur la ligne et la colonne
    Grille.row = 3
    Grille.col = 7
    Grille.CellBackColor = vbBlack
     
    Grille.row = 3
    Grille.col = 9
    Grille.CellBackColor = vbBlack
   
End With


End Sub

en mettant sa sa ne marche pas

chaibat05 · Answer

Ok...ça a sûrement quelque chose à voir avec les propriétés du grid.
je vais vérifier sur un de mes codes et je te répond par la suite

à plus

cs_MPi · Answer

Personnellement, j'utilise un Label invisible et indexé de couleur noire.
J'en crée donc un nouveau sur double-clique sur une case (avec Load) et le place en utilisant Move.
S'il y a déjà un label sur la case, je l'élimines (Unload)

Et pense à utiliser un tableau pour faire tes "calculs" de vérification. Ce sera plus rapide à mon avis. À chaque lettre ou case noire inscrite dans la grille, tu fais la même chose dans le tableau à une ou deux dimensions.

MPi

chaibat05 · Answer

je viens de truver...
  .Row=3
  .Col=4
 ' ou bien
  .RowSel = 3
   .ColSel = 4
   .CellBackColor = &H0&  'pour le noir
la constante VbBlack ne marche pas

sinon très astucieuse l' idée du label , MP ...

Mattcau59 · Answer

ok meci a vs  2 ciao a+

chaibat05 · Answer

très curieuse cette histoire du noir
il faut que le BackColor soit différent du ForeColor
si ça mache pas avec &H0& essaies avec avec le gris &HC0C0C0

chaibat05 · Answer

et pourtant... gris sur gris marche

.CellBackColor = &HC0C0C0
.CellForeColor = &HC0C0C0

j' ai rien compris à cette histoire...
ça devient noir dans mon esprit !

cs_MPi · Answer

Salut Chaibat,
C'est tout de même étonnant que vbBlack ne fonctionne pas du tout ... (?)
Avec ta méthode, ça me donne un gris plutôt qu'un noir et la même chose en utilisant QbColor(0) ...(?!?)

Private Sub Grid1_DblClick()
    If Grid1.CellBackColor = QBColor(0) Then
        Grid1.CellBackColor = QBColor(7)
    Else
        Grid1.CellBackColor = QBColor(0)
    End If
End Sub

MPi

chaibat05 · Answer

salut MPi,
effectivement c' est rès curieux...!
d' autant plus que che moi, QBColor(0) ne me donne
ni noir ni gris...ça reste sur la couleur initiale...
alors qu' avec QBColor(7) le gris est "flagrant" 
Je pense que c' est un conflit entre les paramètres couleurs
(dans les propriétés du grid)

jmfmarques · Answer

Bonsoir,

Je n'ai pas essayé, mais il est possible que l'on ait là la même difficulté que celle rencontrée avec les OptionButtons !

Essaye voir de mettre ta gris dans un container (picturebox, par exemple) pour voir ...

chaibat05 · Answer

Salut Marques,
Apparament les histoires tordues, ça t' attire ...
Je te souhaite du plaisir avec "cette affaire là" ,
comme dirait Céline ...

cs_MPi · Answer

Salut JMF,
Même avec la grille dans un Picturebox, ça ne va pas mieux...
C'est comme si le noir n'existait pas

MPi

Mattcau59 · Answer

oui tres curieux en effet

jmfmarques · Answer

Salut Chaibat,

Non, cette histoire-là ne risque pas de m'intéresser réellement, pour trois raisons :

1) je pars à Paris pour 4 ou 5 jours dès demain matin après avoir voté et, à Päris, j'aurai d'autres chats à fouetter...
2) je n'encouragerais vraiment pas l'utilisation d'une grid pour un mot croisé
3) j'ai déposé il y a ... (je ne sais plus combien de temps...) de quoi faire tout celà à l'aise et de façon flexible..

Alors : à toi de faire joujou avec c't'affaire-là

chaibat05 · Answer

Bon voyage alors et ...votes bien

cs_MPi · Answer

JMF, j'aimerais bien que tu ne fouettes pas les chats... 

Bonne journée de vote à vous, les Français...
J'espère que la proportion de gens qui vote chez vous est plus élevée que chez nous...
Ce n'est pas qu'un droit, mais une obligation morale...

MPi

Mattcau59 · Answer

sinn je ne sais tj pas comment mettre de la couleur (ss texte) a certaines cellules de msflexgrid AVANT l'execution du prog

cs_MPi · Answer

Bah, fais comme moi et mets des Labels noir comme je t'ai expliqué.

MPi

Mattcau59 · Answer

oui justement mais tu peu expliké plus précisément tp je voi pas tro merci

cs_MPi · Answer

Bon, oublie ce que je t'ai dit pour le Label.
Le problème du Label est qu'il ne peut apparaître au-dessus de la grille.
Utilise plutôt une Picturebox en guise de case noire. Même chose pour les propriétés, Index 0, Visible False et BackColor = couleur noire. 
Ici, je l'ai appelé "CaseNoire"

Ma grille se nomme Grid1

Et voici  un peu  comment je procède... (modifié pour les besoins de la cause...)
ça devrait te faire avancer pas mal...
J'ai peut-être aussi laissé des choses qui ne semblent pas servir ici, mais probablement dans mon programme original

Option Explicit

'Initialisation de la grille
Private Sub Form_Load()
    Dim I As Integer
    
    Grid1.Cols  = 12
    Grid1.Rows = 12
    
    For I = 0 To 11
        Grid1.ColWidth(I) = 250
        Grid1.RowHeight(I) = 250
    Next
    
    Grid1.Height = (250 * 12) + (12 * 10)
    Grid1.Width = (250 * 12) + (12 * 10)
    Grid1.ScrollBars = flexScrollBarNone
    
End Sub

Private Sub Grid1_DblClick()
    Dim LblIndex As Integer
    
    'Trouver le premier index vide
    LblIndex = GetLastIndex(CaseNoire)
    
    Load CaseNoire(LblIndex)  'crée une nouvelle image noire
    'la posiitionne sur la grille
    CaseNoire(LblIndex).Move Grid1.Left + Grid1.CellLeft, _
                            Grid1.Top + Grid1.CellTop, _
                            Grid1.CellHeight, _
                            Grid1.CellWidth
    
    CaseNoire(LblIndex).Visible = True
    CaseNoire(LblIndex).ZOrder 0  'la met à l'avant-plan
    
End Sub

Private Sub Grid1_KeyPress(KeyAscii As Integer)
    Grid1.Col = Grid1.ColSel
    Grid1.Row = Grid1.RowSel
    
    Select Case KeyAscii
        Case 32  'touche Espace efface le texte
            Grid1.TextMatrix(Grid1.Row, Grid1.Col) = ""
        
        Case 65 To 90, 97 To 122  'caractères alphabétiques permis
            Grid1.TextMatrix(Grid1.Row, Grid1.Col) = UCase(Chr(KeyAscii))
            
        Case 9  'caractère Tab pour se déplacer
            
        Case Else  'le reste est refusé
            KeyAscii = 0
            
    End Select
    
    'déplacement du curseur
    If Grid1.Col < Grid1.Cols - 1 Then
        Grid1.Col = Grid1.Col + 1
    Else
        Grid1.Col = 0
        If Grid1.Row < Grid1.Rows - 1 Then
            Grid1.Row = Grid1.Row + 1
        Else
            Grid1.Row = 0
        End If
    End If
    
End Sub

Private Sub CaseNoire_DblClick(Index As Integer)
    'Effacer l'image noire lorsqu'on double-clique dessus
    Unload CaseNoire(Index)
End Sub

Function GetLastIndex(CaseNoire) As Integer
    Dim I As Integer
    
    On Error GoTo ErrLabel
    
    'ne sert à rien d'autre que générer une erreur
    'sur l'index non utilisé
    For I = 1 To CaseNoire.Count
        If Not CaseNoire(I).Visible Then
            GetLastIndex = I
        End If
    Next
    
    Exit Function
    
ErrLabel:
    GetLastIndex = I
End Function

MPi

GRILLE VB6

25 réponses

Votre réponse

Discussions similaires