Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMSFlexGrid1.Cols = 10 MSFlexGrid1.Rows = 15 Rs2.Open "select adresse_ip, NOM_CELLULE from routeur", cnn, adOpenKeyset, adLockOptimistic If Rs2.RecordCount > 0 Then j = 1 Rs2.AbsolutePosition = 1 MSFlexGrid1.Row = 0 Do While Not Rs2.EOF MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(1, j) = Rs2.Fields("adresse_ip") MSFlexGrid1.TextMatrix(2, j) = Rs2.Fields("NOM_CELLULE") 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\routeur1.jpg") Else Set .CellPicture = LoadPicture("c:\application PFE\routeu2.jpg") Trace.Ecrire MSFlexGrid1.TextMatrix(1, j) & " Déconnecté " End If End With j = j + 1 Rs2.MoveNext Loop End If 'Loop Rs2.Close
Dim lLigne as long Dim lColonne as long lLigne=0 lColonne=0 Do until Recordset.Eof Cellule(lColonne, lLigne)=Value lColonne=(lColonne+1) mod 10 if lColonne=0 then lLigne=lLigne+1 loop
Private Sub command_Click() Dim lLigne As Long Dim lColonne As Long MSFlexGrid1.Cols = 10 MSFlexGrid1.Rows = 15 lLigne = 0 lColonne = 0 Rs2.Open "select adresse_ip, NOM_CELLULE from routeur", cnn, adOpenKeyset, adLockOptimistic If Rs2.RecordCount > 0 Then j = 1 Rs2.AbsolutePosition = 1 MSFlexGrid1.Row = 0 Do Until Rs2.EOF MSFlexGrid1.TextMatrix(lLigne, lColonne) = Rs2.Fields("adresse_ip") lLigne = lLigne + 1 MSFlexGrid1.TextMatrix(lLigne, lColonne) = Rs2.Fields("NOM_CELLULE") lColonne = (lColonne + 1) Mod 10 If lColonne = 0 Then lLigne = lLigne + 3 End If 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 = lColonne .Row = lLigne .ColAlignment(lColonne) = 4 .RowHeight(lColonne) = 1000 If EvaluatePingResponse(lngSuccess) = "Success!" Then ' .CellBackColor = &H80FF80 Set .CellPicture = LoadPicture("c:\application PFE\routeur1.jpg") Else '.CellBackColor = &H8080FF Set .CellPicture = LoadPicture("c:\application PFE\routeu2.jpg") ' Trace.Ecrire MSFlexGrid1.TextMatrix(1, j) & " Déconnecté " End If End With j = j + 1 Rs2.MoveNext Loop End If Rs2.Close End Sub