Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ok es funktioniert..
Autor: -ipa-
Datum: 01.02.02 22:16
hallo, so nun funktioniert es wie ich es möchte vielen dank ! hier ist der Source Option Explicit Private Sub Command1_Click() CheckForPlugIns End Sub Private Sub CheckForPlugIns() ' alle Dateien eines Ordner ins Menü eintragen Dim sFile As String Dim sPath As String Dim lCount As Long ' zunächst alle Menüeinträge entfernen Do lCount = mnuTest.UBound If lCount > 0 Then Unload mnuTest(lCount) End If Loop Until lCount < 1 ' PlugIn-Pfad sPath = App.Path & "\" ' alle Dateien ermitteln lCount = -1 sFile = Dir(sPath & "*.*", vbNormal) While sFile <> "" If sFile <> "." And sFile <> ".." Then lCount = lCount + 1 If lCount > 0 Then ' Menüeintrag laden Load mnuTest(lCount) End If ' Caption With mnuTest(lCount) If InStr(sFile, ".") > 0 Then .Caption = Left$(sFile, InStrRev(sFile, ".") - 1) .Tag = sFile .Visible = True End If sFile = Dir ' wenn keine PlugIns vorhanden, gesamtes Menü disablen Menütest.Enabled = (lCount > 0) End With End If Wend End Sub Private Sub Form_Load() CheckForPlugIns End Sub PS:wie kann man in dem Forum den Source in ein extra Fenster einbauen ? danke -ipa-

menü erst später aktivieren oder erweitern...	54	-ipa-	01.02.02 18:30
Re: menü erst später aktivieren oder erweitern...	191	Dieter	01.02.02 19:00
Re: menü erst später aktivieren oder erweitern...	42	-ipa-	01.02.02 20:48
Re: menü erst später aktivieren oder erweitern...	203	Dieter	01.02.02 21:06
Re: menü erst später aktivieren oder erweitern...	40	-ipa-	01.02.02 21:22
Re: menü erst später aktivieren oder erweitern...	207	Dieter	01.02.02 21:37
Re: menü erst später aktivieren oder erweitern...	40	-ipa-	01.02.02 21:54
Re: menü erst später aktivieren oder erweitern...	177	Dieter	01.02.02 22:00
Re: menü erst später aktivieren oder erweitern...	41	-ipa-	01.02.02 22:11
ok es funktioniert..	42	-ipa-	01.02.02 22:16

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