Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: menü erst später aktivieren oder erweitern...
Autor: -ipa-
Datum: 01.02.02 22:11
hallo jetzt kapier ich gar nichts mehr also ich habe nun wie folgt 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 = "C:ProgrammeAdobePhotoshop 6.0usatzmodule\" ' 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) .Caption = Left$(sFile, InStrRev(sFile, ".") - 1) .Tag = sFile .Visible = True End With End If sFile = Dir Wend ' wenn keine PlugIns vorhanden, gesamtes Menü disablen Menütest.Enabled = (lCount > 0) End Sub Private Sub Form_Load() CheckForPlugIns End Sub wenn ich nun die zeilen ab With mnuTest in das neue ändere kommt nur Wend ohne While end With ohne With obwohl es vorhanden ist und dann ist VB abgestürzt zuviel des guten werde es noch testen trotzdem 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...	43	-ipa-	01.02.02 20:48
Re: menü erst später aktivieren oder erweitern...	204	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...	42	-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