vb@rchiv · Diskussionsforen · Re: Webseiten erstellen VB6

VB Classic
VB.NET
ADO.NET
VBA
C#

Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[256 User online]
[249 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Suche Visual-Basic Code

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Suche Visual-Basic Code

Re: Webseiten erstellen VB6

Autor: Rippler
Datum: 24.09.08 01:57

Benötigt wird ein CommandButton und eine FileListBox gegebenenfalls den pfad in der LOAD procedur anpassen Dim Pfad As String Private Sub Command1_Click() Dim x As Long Dim name As String For x = 0 To File1.ListCount - 1 name = Left(File1.List(x), Len(File1.List(x)) - 3) & "html" Open Pfad & name For Output As #1 Print #1, "<html> " Print #1, "<head>" Print #1, "</head>" Print #1, "<table>" Print #1, "<tr><td><img src="""; Print #1, name; Print #1, """></td></tr>" Print #1, "</table>" Print #1, "</body>" Print #1, "</html>" Close #1 Next x End Sub Private Sub Form_Load() Pfad = App.Path Pfad = IIf(Right(Pfad, 1) = "\", Pfad, Pfad & "\") File1.Path = Pfad File1.Pattern = "*.jpg" End Sub

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Webseiten erstellen VB6	1.518	Chris1973	23.09.08 22:05
Re: Webseiten erstellen VB6	958	Rippler	24.09.08 01:57
Re: Webseiten erstellen VB6	916	Chris1973	24.09.08 06:35
Re: Webseiten erstellen VB6	1.064	Chris1973	25.09.08 07:58
Re: Webseiten erstellen VB6	972	Dieter	25.09.08 09:00
Re: Webseiten erstellen VB6	914	Chris1973	25.09.08 09:52

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

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Juli 2024
Dieter Otter

Beliebige Zeichen am Anfang und Ende eines Strings entfernen

Mit der Trim-Funktion lassen sich nicht nur Leerzeichen, sondern bei Bedarf auch beliebige Zeichen entfernen.

Details

TOP Entwickler-Paket

TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...

Jetzt nur 599,00 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel