🚀 go-pugleaf

On Tue, 16 Sep 2003 19:16:22 +0000, TP wrote:

> 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.
> 
> 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.
> 
> 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$()?
> 
> Met vriendelijke groeten.


Over de menu-items, ik heb het ooit gekunnen, maar heel simpel is het
niet.  Spijtig genoeg vind ik de code daar niet direct meer van terug.
Maar als ik mij niet vergis was dat met API's (ingebouwde functies van
windows, niet van vb zelf)
Ja kan eventueel proberen zoeken op www.pscode.com

ivm het string-probleem: iets als mid(str,1,len(str)-4) zou u voort moeten
helpen (niet getest!)

de bonusvraag dan: ik dacht dat het te maken had met de manier waarop de
functies de parameters beschouwt. dat je met space() een variant kunt
passeren en bij space$() enkel een string...
best even iemand anders' antwoord afwachten nog voor zekerheid :)


in de hoop u toch iets vooruit geholpen te hebben...

mvg
 sotto

--
  http://www.sotto.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

"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