[vb6]extensies verbergen file listbox

[Aphelion]

Ben bezig met het schrijven van een programma in visual basic 6.
Maar nu liep ik vast tegen het simpelste wat je kan tegen komen maar ik toch echt even niet weet:

Hoe verberg je de extensies, in de file listbox control ....
En als het niet kan (heb me suf gezocht) is er een vergelijkbare custom control waarmee het wel kan?

[johnwoo]

1. Het kan niet
2. Je zou een ListBox kunnen gebruiken, en die zelf vullen met een Dir$ loopje.

[Aphelion]

hmm zou je een stukje voorbeeld code kunnen typen van hoe ik dan die txt files in die map zonder extensie in een ListBox krijg ?

[Verwijderd]

Bestandsextenties? Je kan toch met een soort van loopje kijken waar de LAATSTE . staat in de bestandsnaam en haalt dan met mid het laatste eraf As simple as dat

[Aphelion]

in een file listbox??

[Janoz]

Waarom wil je dit eigenlijk? Het hele id van die standaard dialogen is juist dat elk dialoog met dezelfde functionaliteit er bij verschillende programma's precies hetzelfde uit ziet. Waarom wil jij dan nu plaotseling ff voor de gebruiker gaan bepalen dat ze de extencie nu niet mogen zien??

[aj-san]

Het zal wel aan de maandagmorgen liggen, maar ik begrijp niet precies wat je bedoelt..
Zou je iets uitgebreider uit kunnen leggen wat je precies probeert te doen?

[Aphelion]

Oke

ben dus bezig met een twilight achtig menu.
en aangezien ik nog niet veel snap van databases in vb6, haal ik de gegevens uit txt bestanden.

en die kan je dus via een filelist openen. Die txt bestanden geef ik meteen de naam van het programma zodat als die extensies wegzijn het gewoon voor de eindgebruiker een software lijst lijkt.

dus mn vraag, is er een custom control dan om dit voor elkaar te krijgen, ofJohnwoo zou je jou manier misschien in een stukje code kunnen plaatsen?

/update

Screenshotje. De grijze balk links is zoals je ziet de filelist

/update
screenshot weggehaald, probleem solved. scheelt bandbreedte:$

[ Voor 0% gewijzigd door Aphelion op 14-10-2002 11:37 . Reden: Schreenshot ]

[johnwoo]

Maurice schreef op 14 oktober 2002 @ 09:53:
hmm zou je een stukje voorbeeld code kunnen typen van hoe ik dan die txt files in die map zonder extensie in een ListBox krijg ?

Even uit de losse pols:

Visual Basic .NET:

Public Sub MakeFileList(lstBox As ListBox, ByVal Path As String)
   ' Vul een ListBox met filenames
   Dim File As String

   lstBox.Clear
   File = Dir$(Path)
   While File <> ""
      lstBox.Add GetFileFromPath(File)
      File = Dir$
   Wend
End Sub

Private Function GetFileFromPath(ByVal Path As String) As String
   ' Strip het pad en de extensie van de filename
   Dim Pos As Integer

   Pos = InStrRev(Path, "\")
   If Pos Then Path = Mid$(Path, Pos + 1)
   Pos = InStrRev(Path, ".")
   If Pos Then Path = Left$(Path, Pos - 1)

   GetFileFromPath = Path
End Function

Gebruiksaanwijzing: sleur een ListBox op je form. Op het moment dat je em wilt vullen (in jouw geval waarschijnlijk maar een keer, in je Form_Load event) roep je MakeFileList aan, bijvoorbeeld:

Visual Basic .NET:

Private Sub Form_Load()
   MakeFileList lstFiles, "C:\blaat\*.*"
End Sub

edit:

Oeps, ik zat nog met de foldertree uit een ander topic in mn kop en had de file variabele Folder genoemd Toch maar ff verbeteren voor eventuele toekomstige zoekacties

[Aphelion]

johnwoo schreef op 14 oktober 2002 @ 11:01:
[...]

Even uit de losse pols:

Visual Basic .NET:

Public Sub MakeFileList(lstBox As ListBox, ByVal Path As String)
   ' Vul een ListBox met filenames
   Dim Folder As String

   lstBox.Clear
   Folder = Dir$(Path)
   While Folder <> ""
      lstBox.Add GetFileFromPath(Folder)
      Folder = Dir$
   Wend
End Sub

Private Function GetFileFromPath(ByVal Path As String) As String
   ' Strip het pad en de extensie van de filename
   Dim Pos As Integer

   Pos = InStrRev(Path, "\")
   If Pos Then Path = Mid$(Path, Pos + 1)
   Pos = InStrRev(Path, ".")
   If Pos Then Path = Left$(Path, Pos - 1)

   GetFileFromPath = Path
End Function

Gebruiksaanwijzing: sleur een ListBox op je form. Op het moment dat je em wilt vullen (in jouw geval waarschijnlijk maar een keer, in je Form_Load event) roep je MakeFileList aan, bijvoorbeeld:

Visual Basic .NET:

Private Sub Form_Load
   MakeFileList lstFiles, "C:\blaat\*.*"
End Sub

ey hardstikke bedankt! even kijken of ik eruit kom.!

[Sponge]

Je had ook creatief een file listbox kunnen verbergen, en een listbox kunnen vullen met

code:

Dim I as Long,lngPos as long
For I = 0 to file1.listcount -1
  lngpos = instrrev(1,file1.list(i),".")
  if lngpos > 0 then list1.additem left$(file1.list(i),lngpos-1)
Next I

(ook uit losse pols
Al is deze methode niet echt gewaardeerd denk ik, zelf zou ik hem ook grotendeels afraden

[Demo]

Ey Maurice
Als je probs hebt, ik ben ook VB progger dus je kan altijd dingen vragen via Messenger

[Aphelion]

Demoniac schreef op 14 oktober 2002 @ 11:17:
Ey Maurice
Als je probs hebt, ik ben ook VB progger dus je kan altijd dingen vragen via Messenger

jo oke fijn om te weten, thanx hey!
en woo, het werkt, hardstikke bedankt!