Clan Member List

[GoSuGaMING]

What do you guys think is the best way to sort the different ranks out?



You know
(Chieftain top)
(shamin)
(Grunt)
(Peon)

[MyndFyre]

What do you guys think is the best way to sort the different ranks out?



You know
(Chieftain top)
(shamin)
(Grunt)
(Peon)

I do it this way:

Chieftan: Insert at 0.

Shaman: Insert at 0 plus the number of Chieftans received.

Grunt: Insert at 1 plus the number of Shamans received.

Peons: Insert at 1 plus the number of Shamans and Grunts received.

Recruits: Insert at 1 plus the number of Shamans, Grunts, and Peons received.

[BaDDBLooD]

I added them all to a array

Than for each item in the array

i had

Name as String
Rank as Integer
Status as Integer

Than i just used a Loop to add them to the listview depending on Rank ;\

[Stealth]

I use the ListView's built-in sorting system - one of my columns [invisible] contains their rank, so I just sort Ascending based on that column.

[BaDDBLooD]

Stealth.. I might look into doing it that way! Is that ok if i use your idea?

[GoSuGaMING]

I use the ListView's built-in sorting system - one of my columns [invisible] contains their rank, so I just sort Ascending based on that column.

Code Select Expand


Public Function GetClanList(Data As String)

Form1.LvClan.ListItems.Clear

Dim List() As String
Dim x As Integer
List = Split(Mid$(Data, 10), Chr(0), -1)
     For x = 0 To UBound(List)
     
     If Not List(x) = "" Then

     Select Case Asc(List(x))
     Case Is > 4
     Form1.LvClan.ListItems.Add , , List(x)
     Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 128
     Case 0, 1, 2, 3, 4
 
Select Case Asc(List(x))
Case 4
   Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 131
       Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "1"
'Clan Chieftain
Case 3
   Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 132
       Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "2"
'Clan Leader
Case 2
   Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 130
       Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "3"
'Clan Member
Case 1
   Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 129
       Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "4"
'Member thats been in clan for over a week
Case 0
   Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 128
       Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "4"
'Member thats been in clan under a week


       
       Case Else
           Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).SmallIcon = 128
               Form1.LvClan.ListItems(Form1.LvClan.ListItems.Count).Add , , "4"
       End Select
       Case Else
       End Select
       End If
 Next x

Form1.LvClan.Refresh
End Function


It doesnt add the 4 for Peons... I know that it sorts it by Numerical Numbers... Do you see a flaw in the code?

[Stealth]

Code Select Expand

Sub AddMember(ByVal Name As String, Rank As Integer, Online As Integer)
   
   If Rank = 0 Then Rank = 1
   If Rank > 4 Then Rank = 5 '// handle bad ranks
   
   '// add user
   
   With lvClan
       .ListItems.Add lvClan.ListItems.Count + 1, , Name, , Rank
       .ListItems(.ListItems.Count).ListSubItems.Add , , , Online + 6
       .ListItems(.ListItems.Count).ListSubItems.Add , , Rank
       .SortKey = 2
       .SortOrder = lvwDescending
       .Sorted = True
   End With
   
End Sub

[GoSuGaMING]

Code Select Expand

Sub AddMember(ByVal Name As String, Rank As Integer, Online As Integer)
   
   If Rank = 0 Then Rank = 1
   If Rank > 4 Then Rank = 5 '// handle bad ranks
   
   '// add user
   
   With lvClan
       .ListItems.Add lvClan.ListItems.Count + 1, , Name, , Rank
       .ListItems(.ListItems.Count).ListSubItems.Add , , , Online + 6
       .ListItems(.ListItems.Count).ListSubItems.Add , , Rank
       .SortKey = 2
       .SortOrder = lvwDescending
       .Sorted = True
   End With
   
End Sub

If i use your code i will never learn.. help me with mine if you would :X

[BaDDBLooD]

the code you posted wasnt yours >.< it was from Void Bot Source

I'm not surprised

Anyways, Maybe if you Instant Messaged Or Private Messaged stealth and asked him to explain how to use the Listview's Sort Property, he would explain it to you.

Otherwise you could post in the Visual Basic section of this forum; under the topic "Sorting listview items".

[Tuberload]

Or here's a revolutionary idea: rtfm...

[BaDDBLooD]

rtfm?

[Eli_1]

the code you posted wasnt yours >.< it was from Void Bot Source

Anyways, Maybe if you Instant Messaged Or Private Messaged stealth and asked him to explain how to use the Listview's Sort Property, he would explain it to you.

The ListView's sort feature is self-explanitory, as are most VB things.

Edit:
Whew, this is my first post in this forum in a little while - feels wierd.

[GoSuGaMING]

the code you posted wasnt yours >.< it was from Void Bot Source

I'm not surprised

Anyways, Maybe if you Instant Messaged Or Private Messaged stealth and asked him to explain how to use the Listview's Sort Property, he would explain it to you.

Otherwise you could post in the Visual Basic section of this forum; under the topic "Sorting listview items".

I know the method for it... stop posting stupid shit... better yet dont try to help me... you never can or do so ignore my threads ... k thnx

[Tuberload]

rtfm?

read the f*cking manual

[GoSuGaMING]

rtfm?

read the f*cking manual

MSDN is better


The problem right now is that its not recgonizing my &H0 case