MSFLexGriDRésolu

Question

Salut à tous, je dois réaliser une application permettant de faire' une chasse au trésor' utilisant un msflexgrid...

J'ai pourtant plusieurs bug-> je ne peu cliker sur aucune case de la msflexgrid,mais seulement utliser le clavier, et encore kan je lance une nouvelle partie ce n'est plus possible. 
Y aurait-il un moyen d'activer le clik avec la souris?
LA fameuse formule nombre aléatoire int(rnd+étendu)+nbredebase génère toujours le même nombre au premier coup.. ce ki fausse toute l'appli
D'avance merci

PCPT · Accepted Answer

salut,

pour le randomize, il faut le placer une seule fois dans le form_load (pas &#224; chaque appel de ta fonction).





pour le click, par d&#233;faut, la cellule est s&#233;lectionnable.

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    Me.Caption = MSFlexGrid1.Text

End Sub



++

PCPT · Answer

salut,

pour le 2e probl&#232;me, il faut initialiser le proc. donc au form_load, tu as juste &#224; &#233;crire Randomize



pour le 1er, t'es trop vague. il faut du code et l'indication du langage ne serait pas un luxe ;)

PCPT  [AFCK]

Micro_and_Macro · Answer

Merci en effet j'avais crée ma propre fonction randomize :--D
Je vais essayer d'être plus précis ,je prog. sous vb 6.0
le probleme est autre maintenant  :) ( mais ce n'est pas le plus important)
 Le nombre généré aléatoirement est bon pour randomligne...
Mais le premier nobre généré dans random colonne sera toujours zero, il y a sûrement une explication , je vais chercher !

Private Sub Form_Load()
'initialise le compteur à 5
cpt = 5
Call FLexajust
Randomligne = RandomiSe()
RandomColonne = RandomiSe()
End Sub
Private Function RandomiSe() As Integer
   Randomize
   Dim aléa As Integer
   aléa = Int((8) * Rnd) + 1
   RandomiSe = aléa
   lblrandom.Caption = "Ligne : " & Randomligne & "Colonne : " & RandomColonne
End Function

Mais le vrai problème c pour le clik-> kan j'execute lapplication ,je ne peu pas selectionner une case msflexgrid)(je selectionne toute la msflexgrid)..
Je voulai savoir s'il y avait une option ou qqchose ki permettrait de selectionner avec la souris n'importe quelle casse de msflexgrid du genre
Msflexgrid_click()
Est-ce assez clair?

Micro_and_Macro · Answer

J'ai trouvé pour la formule, il y avait un erreur de logik evidente -_-
 lblrandom.Caption = "Ligne : " & Randomligne & "Colonne : " & RandomColonne
 afficher random colonne avant kil ne soit initialisé manuellement '-_-'

Micro_and_Macro · Answer

Merci , j'ai recommencer un projet et effectivement le clik était autorisé case par case..
J'avais du trifouiller un peu trop ma flexgrid ^^
en tout cas merci beaucoup, je vais mettre le code source en release, enfin ca n'interessera peut être personne(?)

MSFLexGriD

5 réponses

Discussions similaires