| |
Visual-Basic EinsteigerEbene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 20.10.17 18:31 |
| Liebes Forum!
Win10; VB6
Ich muss aus einer Datenbank ca. 400 Passbilder ca. 2,5cm mal 2,5cm mit Personenname usw. anzeigen.
(Stammbaum-Passfotos) Ich habe einfach keine Idee, wie ich das anstellen soll. Auf einer Form, aber dort kann ich nicht scrollen...
Hat jemand eine Idee; oder gibt es da schon was?
Mit freundlichen Grüßen
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 20.10.17 19:11 |
| Hallo Dieter,
danke für den Hinweis; ich nehme an das es das zu kaufen gibt.
Du kennst auch sicherlich den Preis?
Danke für deine Antwort
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 20.10.17 19:16 |
| Ja Dieter, das wär schon das richtige für mich, aber für ein kleines Hobby ist mir dann dieses Grid auch zu teuer.
Nochmals danke für deine
Antwort
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: Manfred X | Datum: 20.10.17 19:26 |
| Hallo!
Ein bißchen HTML-Code (mit Bildverweisen) per VB6-Programm erstellen
und das Ergebnis im WebBrowser-Control anzeigen ??? | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 20.10.17 19:45 |
| Hallo Manfred!
Vorerst danke für deine Antwort. Was du sagst klingt so einfach - ist aber für mich mit Sicherheit viel zu kompliziert. Im Grunde hatte ich gedacht, dass es da so etwas wie eine Form auf der man beliebig viele Images plazieren kann und die Form sich scrollen lässt, gibt. War wohl nur ein Traum.
Mit den in VB6 zu Verfügung stehenden Controlls ist das wohl nicht zu machen (ich meine ohne all zu großen Aufwand)
Nochmals danke für deine Antwort
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: Manfred X | Datum: 20.10.17 21:27 |
| Mit Sicherheit zu kompliziert .....
Als Parameter den lokalen Ordner mit den Bild-Dateien (hier: JPGs) angeben.
Verweis auf FilesystemObject (Microsoft Scripting Runtime) wird benötigt.
Private Sub CreateHTMLPics(picpath As String)
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fil As Scripting.File
Dim fname As String
If Mid(picpath, Len(picpath) - 1) = "\" Then
picpath = picpath & "\"
End If
Open picpath & "HTMLPics.htm" For Output As #1
Print #1, "<HTML><BODY>"
Set fld = fso.GetFolder(picpath)
For Each fil In fld.Files
fname = LCase(fil.Name)
If Len(fname) > 4 Then
'Hier können auch andere Bildformate verwendet werden
If Mid(fname, Len(fname) - 3) = ".jpg" Then
fname = "file:///" & picpath & "/" & fil.Name
Print #1, "<img src=" & Chr(34) & fname & Chr(34) & "Class = " & _
Chr(34) & _
"pure-img" & Chr(34) & "Height =" & Chr(34) & "100" & Chr(34) & _
"Width=" & Chr(34) & "100" & Chr(34) & " >"
Print #1, ""
End If
End If
Next fil
Print #1, "</BODY></HTML>"
Close #1
Set fil = Nothing
Set folder = Nothing
Set fso = Nothing
'Anzeige der HTML-Datei im Webbrowser-Control
WebBrowser1.Navigate ("file:///" & picpath & "HTMLPics.htm")
End Sub
Beitrag wurde zuletzt am 20.10.17 um 21:31:59 editiert. | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 21.10.17 10:12 |
| Hallo Zardoz!
Danke für deinen Beitrag! Ist das was ich suche! Nun werde ih beide Vorschläge (Deiner und der von Manfred) umsetzen und sehen, was sich da für mich am besten eignet!
Nochmals recht herzlichen Dank für die rasche und gute Antwort!
LG
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 21.10.17 10:15 |
| Hallo Manfred!
Danke für deinen Beitrag! Scheint ebenfalls das zu sein was ich suche! Nun werde ich beide Vorschläge (Deiner und der von Zardoz) umsetzen und sehen, was sich da für mich am besten eignet!
Nochmals recht herzlichen Dank für die rasche und gute Antwort!
Brauche nur den Code zu übernehmen...
LG
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 21.10.17 11:24 |
| Hallo Zardoz!
Also deinen Tipp habe ich bereits versucht umzustzen - wirklich toll wie das funktioniert! Aber es gelingt mir einfach nicht den Programmcode dahin gehend zu adaptieren das die Datenquelle nicht ein Verzeichnis mit Bildern darstellt, sondern eine DAO Datenbank ist. Die Bilder sind als Binary gespeichert. Nun so schnell gebe ich nich auf...
Nochmals danke für deinen wirklich guten Tipp
LG
Karl | |
Re: Ebene zum Anzeigen von Bildern gesucht | | | Autor: CarloStein | Datum: 21.10.17 22:46 |
| Hallo Manfred!
Nochmals recht herzlichen Dank für deine Bemühungen; - ist auch nicht alltäglich!!
Nun mache ich mich an die Arbeit...
LG
Karl | |
| 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 |
|
|
Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats 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 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|