vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Suche Visual-Basic Code
Re: Bilder aus FileList in Html einbinden... 
Autor: alert
Datum: 01.12.03 20:54
ops, war noch ein kleines Fehlerchen drin aber...
und die Seiten werden jetzt im Bilderverzeichnis
gleich abgespeichert. 

Private Sub Command1_Click()
Dim sFile As String
Dim sBuffer As String
Dim i As Integer
Dim sName As String
Dim F As Integer
 
Dim ZE
ZE = Chr(13) + Chr(10)
 
sBuffer = "<html>" + ZE _
+ "<head>" + ZE _
+ "<title>#NAME#</title>" + ZE _
+ "</head>" + ZE _
+ "<body>" + ZE _
+ "<div align=""center"">" + ZE _
+ "<p><img src=""#FILE#"" width=""200"" height=""200"" alt=""#NAME#""></p>" + ZE _
+ "</div>" + ZE _
+ "</center>" + ZE _
+ "</body>" + ZE _
+ "</html>"
 
With File1
  For i = 0 To .ListCount - 1
    sName = .List(i)
    If InStr(sName, ".") > 0 Then
    sName = Left$(sName, InStrRev(sName, ".") - 1)
    End If
    F = FreeFile
    'mit File1.path werden die *.htm Seiten im Bilderverzeichnis erstellt!
    Open File1.path & "\" & sName & ".htm" For Output As #F
    Print #F, Replace(Replace(sBuffer, "#NAME#", sName), "#FILE#", .List(i))
    Close #F
  Next i
End With
End Sub
aber die Sache mit der Größe der Bilder...
also wie ich ein Bild auslese ist mir klar
siehe folgenden Code: 
With Image1
  .Stretch = False
  .Visible = False
  .Picture = LoadPicture("Bild.jpg")
 
  Dim nWidth As Long
  Dim nHeight As Long
 
  nWidth = ScaleX(.Width, vbTwips, vbPixels)
  nHeight = ScaleY(.Height, vbTwips, vbPixels)
 
  .Picture = LoadPicture()
 
  MsgBox "Bildergröße: " & nWidth & " x " & nHeight
End With
aber wie wende ich den auf die FileList an?

gruß, alert
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Bilder aus FileList in Html einbinden...948alert01.12.03 11:09
Re: Bilder aus FileList in Html einbinden...619ModeratorDieter01.12.03 16:06
Re: Bilder aus FileList in Html einbinden...623alert01.12.03 19:51
Re: Bilder aus FileList in Html einbinden...650alert01.12.03 20:51
Re: Bilder aus FileList in Html einbinden...617alert01.12.03 20:54
Hat sich erledigt hab es...616alert02.12.03 15:51

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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