Discussion :

[chaima01]

bonjour ,

comment je peux faire un retour chariot dans un msflexgrid sous vb6 ?
d'aprés les recherches que je vient de les faire , j'ai trouvé qu'il faut utiliser la propriété WordWrap. mais ça marche pas .
je veut afficher dans chaque ligne 10 éléments seulement.Comment faire ???
merci de m'aider

[XylonAkau]

_ Ia ora na.
_ Apparemment, il n'est pas possible de formater le texte d'une cellule à l'aide de vbCr ou vbCrLf (à l'inverse de ce qui se passe avec une étiquette ou une zone de texte).
_ Donc, si le texte à afficher dans une cellule dépasse la largeur de la colonne,
ou bien WordWrap = Faux --> seul apparaît le début de la ligne,
ou bien WordWrap = Vrai --> le texte est réparti sur plusieurs lignes (visibles dans la mesure où la hauteur de la ligne [la propriété RowHeight() de la grille] le permet).

je veux afficher dans chaque ligne 10 éléments seulement.Comment faire ???

_ Je suppose que ligne désigne la ligne de texte à afficher dans une cellule (et pas une ligne de la grille) ;
dans ce cas, de quels éléments s'agit-il ? et comment cette limitation (seulement) s'articule-t-elle avec l'emploi du retour chariot ou de WordWrap, qui visent au contraire à afficher des éléments supplémentaires ?
_ Bonne poursuite de votre travail.

[chaima01]

voici le code dans le quel je veux faire le retour à la ligne.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub Command1_Click()
    Label2.Caption = "Surveillance Active"
    Label2.BackColor = &H80FF80
 
Rs1.Open "select adresse_ip, NOM_CELLULE from serveur", cnn, adOpenKeyset, adLockOptimistic
 
If Rs1.RecordCount > 0 Then
    j = 1
    Rs1.AbsolutePosition = 1
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 0
        Do While Not Rs1.EOF
            MSFlexGrid1.TextMatrix(1, j) = Rs1.Fields("adresse_ip")
            MSFlexGrid1.TextMatrix(2, j) = Rs1.Fields("NOM_CELLULE")
 
            'Get the sockets ready.
        If SocketsInitialize() Then
             'Address to ping
            strIPAddress = MSFlexGrid1.TextMatrix(1, j)
            'Ping the IP that is passing the address and get a reply.
            lngSuccess = ping(strIPAddress, Reply)
            'Display the results.
            Debug.Print "Address to Ping: " & strIPAddress
            Debug.Print "Raw ICMP code: " & lngSuccess
            Debug.Print "Ping Response Message : " & EvaluatePingResponse(lngSuccess)
            Debug.Print "Time : " & Reply.RoundTripTime & " ms"
            'Clean up the sockets.
            SocketsCleanup
        Else
            'Winsock error failure, initializing the sockets.
            Debug.Print WINSOCK_ERROR
 
        End If
With MSFlexGrid1
            .FillStyle = flexFillRepeat
            .Col = j
            .Row = 0
           .ColAlignment(j) = 4
           .RowHeight(0) = 1000
 
    If EvaluatePingResponse(lngSuccess) = "Success!" Then
      Set .CellPicture = LoadPicture("c:\application PFE\serveur1.jpg")
 
    Else
      Set .CellPicture = LoadPicture("c:\application PFE\serveur2.jpg")
 
    End If
 End With
 
 
    j = j + 1
    Rs1.MoveNext
 
    Loop
End If
Rs1.Close

SVP aider moi

[XylonAkau]

_ Ia ora na.
_ J'avoue ne voir clairement ni où ni à quelle fin vous avez besoin d'un retour à la ligne : le début de votre premier message laissait supposer qu'il s'agissait de répartir du texte sur plusieurs lignes à l'intérieur d'une cellule ; mais la fin du même et le code que vous citez feraient plutôt penser que vous souhaitez afficher dix colonnes sur trois rangées puis les trente éléments suivants sous les trente premiers. J'espère que quelqu'un de plus compétent (ou/et plus perspicace) que moi pourra vous aider.
_ Bonne chance et bon courage.