| |
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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere 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
|
|