Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: eigenes Steuerelement
Autor: Comviet
Datum: 30.09.02 20:57
Private Sub UserForm_Initialize() ChDir ("C:Eigene Dateien\") Filename = Dir("C:Eigene Dateien*.*") While Filename <> "" UserForm1.ListBox1.AddItem (Filename) Filename = Dir Wend End Sub Du Brauchst ein Userform, ein Listbox und ein Commandbutton. Dein Lsitbox muß Multiselect haben. Dann findest du heraus welche Namen selektiert werden und geben das weiter Fot i = 0 to Listbox.Listcount-1 If Listbox1.Selected(i)=true then gibt du den Namen weiter end if next i

eigenes Steuerelement	69	Andre	30.09.02 16:32
Re: eigenes Steuerelement	47	Comviet	30.09.02 17:21
Re: eigenes Steuerelement	40	Andre	30.09.02 17:56
Re: eigenes Steuerelement	39	Comviet	30.09.02 20:28
Re: eigenes Steuerelement	40	Comviet	30.09.02 20:57
eigenes Steuerelement - nicht ganz	36	Andre	01.10.02 11:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen