🚀 go-pugleaf

"Pieter Philippaerts" <Pieter@nospam.mentalis.org> schreef in bericht
news:1063761092.75701@seven.kulnet.kuleuven.ac.be...
> "TP" <nettp@pandora.be.nospam> wrote in message
> > Ik zou moeten weten hoe ik at run time menu-items kan toevoegen. Mijn
> programma overloopt namelijk
> > een directory met taalbestandjes bij opstarten (dit lukt reeds) en het is
> de bedoeling dat hij per
> > taal dan een vermelding toevoegt aan het reeds bestaande menu Language.
>
> Eerst maak je met de menu edirot een hoofd menu aan met ��n menu item, en
> dat menu item [met de naam 'menuItem' bijv.] geef je de index 0.
> Dan kan je als volgt nieuwe menu items in dat hoofd menu aanmaken:
>    Load menuItem(1) ' dit maakt een tweede menu item aan
>
> > En weet er soms ook iemand hoe de laatste vier tekens van een string weg
> te kappen? Mijn
> > taalbestandjes hebben namelijk volgende syntax: Nederlands.ini,
> English.ini,... maar het is de
> > bedoeling dat in het menu dan komt: Nederlands, English,... dus de ".ini"
> zou telkens eraf moeten.
>
> Mid$ gaat, maar in jouw geval is Left$ misschien handiger. Zie documentatie
> voor gebruik.
>
> > En dan nog een bonusvraag uit interesse, ik heb tijdens opzoekeningen al
> veel functies met een
> > $-teken in tegengekomen, gelijk space$(), dir$(), hebben deze functies een
> speciale betekenis? Wat
> > is bijv het verschil tussen dir() en dir$()?
>
> Sotto's antwoord is correct.
>
> Mvg,
> Pieter Philippaerts
>
>

Graag wou ik nog mede delen dat bovenvermelde zaken allemaal gelukt zijn, waarvoor mijn dank!

Dit is de functie:

Public Sub ListLanguage()
  Dim LanguageFolder As String
  Dim LanguageFile As String
  Dim i

  LanguageFolder = App.Path & "\Language\"
  LanguageFile = Dir(LanguageFolder & "*.ini")
  i = 1
  While LanguageFile <> ""
    Load frmMenu.mnuOptionsLanguageItems(i)
    frmMenu.mnuOptionsLanguageItems(i).Caption = Left(LanguageFile, Len(LanguageFile) - 4)
    i = i + 1
    LanguageFile = Dir
  Wend
End Sub