Sort Popup Menu

[kunai]

Hi,

I'm trying to figure out if it's possible to sort a popup menu programatically.

I need to sort my popup menu because i change their captions depending on language.

Using VB6.

Thanks

 

[CasperTFG]

You can create the menu dynamically...

Casper

There is room for all of gods creatures, "Right Beside the Mashed Potatoes".

 

[bclt]

Yes but you need to have names as arrays: mnuItem(0), mnuItem(1) ...etc.

Then the next important is (as the sort order changes the location of items) the way that the code for each click is executed. I mean: mnuItem(0) has caption "bla", in other language its caption will be "hello".

So:

Private Sub mnuPopUp_Click(Index As Integer)
  Select Case mnuPopUp(Index)[b].Caption[/b]
    Case "bla", "hello"
      ' code
    
    Case ...
      ' code
  End Select
End Sub

To sort them:

Dim i, j As Integer
Dim temp As String

For i = 1 To mnuPopUp.UBound
  For j = mnuPopUp.UBound To i Step -1
    If mnuPopUp(j - 1).Caption > mnuPopUp(j).Caption Then
      temp = mnuPopUp(j - 1).Caption
      mnuPopUp(j - 1).Caption = mnuPopUp(j).Caption
      mnuPopUp(j).Caption = temp
    End If
  Next
Next

The index of the first must be zero.




-bclt

 

[kunai]

I was in the process of coding something like that.
I think that should work great.

Thanks!