Visual Basic Forum

Verfasst am: 18.06.2009, 11:57 Aufrufe: 1670

Verfasst am: 19.09.2008, 06:00 Aufrufe: 3172

Funktion: Erstellen Sie zuerst eine Klasse mit folgendem Code: Visual Basic: Anwendung: Die beiden Funktionen der ExplorerContextMenu-Klasse sind statisch, es muss keine Instanz der ExplorerContextMenu-Klasse mit „New“ erzeugt werden. Das Eintragen und Entfernen von Einträgen im Explorer-Menü ist damit nur noch eine Sache von jeweils einer Zeile. Als Beispiel soll für die Dateiendung .js ein Eintrag mit dem Text „ ...

Verfasst am: 06.09.2008, 13:04 Aufrufe: 2564

Verfasst am: 25.08.2008, 19:38 Aufrufe: 573

Du musst die Dateiendung mit deinem Programm assoziieren, hier ein Beispiel von ActiveVB:http://www.activevb.de/tipps/vb6tipps/tipp0001.htmledit:// da werden sogar beide Fragen beantwortet Very Happy

Verfasst am: 15.07.2008, 12:06 Aufrufe: 682

Moin Leute!Ich habe zwei fragen.1.Wo finde ich die Zugehörigkeit, dass eine z.B. .jpg-Datei ein Jpg-Icon hat?Und wie lade ich die Icons (für Dateien mit bestimter Dateiendung) in eine PictureBox o.Ä.?2.Wie kann ich es verbieten, dass man in der Listview die Einträge umebennen kann?MfG

Verfasst am: 17.05.2008, 16:24 Aufrufe: 162

Verfasst am: 13.05.2008, 01:36 Aufrufe: 1863

Filter geben wir an, welche Dateien in dem kleinen Fenster angezeigt werden sollen. Hier werden jetzt nur die Textdateien angezeit und die anderen ausgeblendet.Mit .DefExt geben wir die Dateiendung an, in der die Datei gespeichert werden soll. Da es eine Textdatei werden soll, geben wir "txt" an.Das war auch schon das ganze Tutorial über unseren kleinen Editor.Und hier ist noch mal der ganze Code, ein bisschen ordent ...

Verfasst am: 11.05.2008, 16:21 Aufrufe: 1703

Ich bin grad an einem Tutorial dran, über genau das Thema :wink:Um die Dateiendung automatisch hinzufügen zu lassen, kannst du bei den Eigenschaften der Dialoge folgende auf true setzten: AddExtension = true und DefaultExt = txt und Filter = Textdateien|*.

Verfasst am: 03.05.2008, 19:47 Aufrufe: 1006

wieso mit eigener dateiendung?find ich eher sinnfrei..hab auch schonmal einen gebastelt:http://archiv.vb-x.org/viewtopic.php?t=200...=simple+notices

Verfasst am: 24.04.2008, 21:04 Aufrufe: 673

Ich bin mir echt nicht sicher aber probier mal "Verknüpfung mit iw3mp.exe.ink"! Da es eine Verknüpfung ist, steht immer ein .ink dahinter als Dateiendung. MfG

Verfasst am: 16.02.2008, 13:27 Aufrufe: 338

Wie kann ich alle Dateien mit gleicher Dateiendung löschen? Also das z.B. alle Dateien mit der Endung .exe in einem Verzeichniss gelöscht werden?

Verfasst am: 16.01.2008, 12:05 Aufrufe: 410

net/archiv/tipp_details.php?pid=1220 Und hier noch ein modul das ich vor längerer Zeit benutzt habe. Option Explicit ' FindSub() ermittelt alle Dateien mit der im Commondialog ' ausgewählten Dateiendung bis zur untersten Ebene ab dem gewählten Verzeichnis. ' Hierzu wird ein rekursiver Aufruf der Routine FindSub() eingesetzt. Public Function FindSub(strStart As String, strFindWhat A ...

Verfasst am: 13.01.2008, 12:14 Aufrufe: 2206

Unter "Projekt -> Verweise" einfach "Microsoft Scripting Runtime" aktivieren. Dann sollte es gehen. Achja. Die Function zum Icon (bzw. Index) ermitteln zur Dateiendung, könnte man einfacher machen, wenn du deinen Icons in der Imagelist einfach eindeutige keys verteilst. Ich empfehle überhaupt wenn möglich keys zu verteilen, egal ob Imagelist, ListView (Columns), Tabbed Dialog usw. D ...

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2012

... (ByVal Filepath As String) As String GetFilename = Mid$(Filepath, InStrRev(Filepath, "\") + 1) End Function GetFilepath - Gibt den Pfad ohne Dateinamen zurück Public Function GetFilepath(ByVal Filepath As String) As String GetFilepath = Mid$(Filepath, 1, InStrRev(Filepath, "\")) End Function GetFileExtension - Liest die Dateiendung ...

Verfasst am: 14.08.2007, 21:50 Aufrufe: 219

Ehhhm, wie mache ich ein DirectoryListing, das nur eine bestimmte Dateiendung auflistet?!

Verfasst am: 11.06.2007, 16:15 Aufrufe: 651

... tring) As String Dim iNumber As Integer Dim lSize As Long iNumber = FreeFile Open sFileName For Input As iNumber lSize = LOF(iNumber) TextRead = Input(lSize, iNumber) Close iNumber End Function ' Sub CreateBatch erzeugt eine Batch-Datei, die sofort ausgeführt wird, ' um das laufende Programm sofort zu ersetzen, sobald es beendet wird: ' Die downgeloadete Datei wird mit der Dateiendung ...