Bonjour à tous !
Voila, je suis amené à faire la modification d'une partie de programme codé en VB dans le cadre d'un stage.
Cette partie de programme permet simplement d'afficher les éléments d'une listview et mon travail consiste à changer l'ordre d'affichage des éléments de cette liste.
Voici le code initial à modifier, de la fonction qui permet cela :

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
Private Function VerifDB()
Dim cx As DFCLib.DfClientX
Dim client As IDfClient
 
Dim docBroker As String
Dim docbaseMap As DFCLib.IDfDocbaseMap
Dim docbaseName As String
Dim serverMap As DFCLib.IDfTypedObject
Dim serverName As String
Dim iDocbase As Long
Dim cDocbases As Long
Dim i As Long, j As Long
Set cx = New DFCLib.DfClientX
Set client = cx.getLocalClient
'lblDFC.Caption = "DFC Version :" & cx.getDFCVersion
 
'// Get Docbase map object
Set docbaseMap = client.getDocbaseMap()
'   // get host machine on which the DocBroker resides
docBroker = docbaseMap.getHostName
'   // Nb Docbase sur DocBroker
cDocbases = docbaseMap.getDocbaseCount()
Dim apiConfig As DFCLib.IDfTypedObject
Set apiConfig = client.getClientConfig
cDocbases = docbaseMap.getDocbaseCount()
For iDocbase = 0 To cDocbases - 1
   ' Set docbaseMap = client.getDocbaseMap()
    docbaseName = docbaseMap.getDocbaseName(iDocbase)
'    Set serverMap = docbaseMap.getServerMapByName(docbaseName)
'    serverName = serverMap.getString("r_host_name")
    lstDocbase.ListItems.Add , docbaseName, docbaseName, 2, 2
Next iDocbase
lstDocbase.Sorted = True
End Function
Je dois faire en sorte que les éléments à être affichés en tête de liste soient ceux qui contiennent la sous-chaine de caractère "_DEV" en fin de nom.

Je débute en VB et je ne vois vraiment pas comment remedier à cela...

Pourriez-vous m'apporter votre aide ?

Merci.