How to display 10 Images horizontally on a continuous form using vba
- Thread starter Exi
- Start date
I wanted it on a form using vba instead of a cross tab.
so I can sort and select each Image as it will be the main view Form.
using statics web browser insert would work fine but I know nothing of how to write that code to allow image selection and add more sort options etc.
I'm not trying to see the whole 4000 pics at once just 40 per page as u roll the mouse down the next row loads within a sec even if you go to the last image its only a second delay.
and sorry bout the delay on the database but it took awhile to get it under 2 MB .
so I can sort and select each Image as it will be the main view Form.
using statics web browser insert would work fine but I know nothing of how to write that code to allow image selection and add more sort options etc.
I'm not trying to see the whole 4000 pics at once just 40 per page as u roll the mouse down the next row loads within a sec even if you go to the last image its only a second delay.
and sorry bout the delay on the database but it took awhile to get it under 2 MB .
Last edited:
linux_s2002
Registered User.
- Local time
- Today, 14:10
- Joined
- Sep 20, 2017
- Messages
- 21
linux_s2002
Registered User.
- Local time
- Today, 14:10
- Joined
- Sep 20, 2017
- Messages
- 21
Thank you!!!!!!!!!!!!!!! It's perfect for me!!!!
linux_s2002
Registered User.
- Local time
- Today, 14:10
- Joined
- Sep 20, 2017
- Messages
- 21
Hi guys!
I write to you because after the last windows update, my code doesn't work like it used to.
I use webbrowser control and I displayed images horizontal.
After windows update (iframe.dll changed?), now I see images vertical.
Code:
With CurrentDb.OpenRecordset(sQuery)
sBody = "<html><body>"
Do Until .EOF
sBody = sBody & "<div>"
sBody = sBody & "<span style='width:150px;vertical-align:top;margin:1px;'>"
sBody = sBody & "<TABLE border='1' width='300'>"
sBody = sBody & "<TR><TD ROWSPAN='2'><p style='background-color: #F8FAB3;font-family: courier;font-size:9pt;'><b>" & .Fields("Titolo") & "</b></TD></TR>"
sBody = sBody & "<TR><TD>" & "<a href='#" & .Fields("tbl") & "#" & .Fields("ID") & "' style='font-family: courier;font-size:10pt;'>" & .Fields("ID") & "</a></TD></TR>"
If .Fields("genere") & "" <> "" Then
sBody = sBody & "<TR><TD COLSPAN='2'>"
sBody = sBody & "<span style='font-family: courier;font-size:8pt;'>" & .Fields("genere") & "</TD></TR>"
Else
sBody = sBody & "<TR><TD COLSPAN='2'> </TD></TR>"
End If
sBody = sBody & "<TR><TD ROWSPAN='3'>" & "<img src ='" & .Fields("copertinaweb") & "' alt='" & .Fields("copertina") & "' height='250' width='170'>" & "</TD>"
sBody = sBody & "<TR><TD><p style='font-family: courier;font-size:9pt;'>" & .Fields("auth")
sBody = sBody & "<br>"
sBody = sBody & "<p style='font-family: courier;font-size:9pt;'>pag. " & .Fields("pagine") & "<br>"
sBody = sBody & "</TD>"
sBody = sBody & "</TABLE>"
sBody = sBody & "</div>"
sBody = sBody & "</span>"
.MoveNext
Loop
End With
What's wrong?
Thanks for help
Silvia
I write to you because after the last windows update, my code doesn't work like it used to.
I use webbrowser control and I displayed images horizontal.
After windows update (iframe.dll changed?), now I see images vertical.
Code:
With CurrentDb.OpenRecordset(sQuery)
sBody = "<html><body>"
Do Until .EOF
sBody = sBody & "<div>"
sBody = sBody & "<span style='width:150px;vertical-align:top;margin:1px;'>"
sBody = sBody & "<TABLE border='1' width='300'>"
sBody = sBody & "<TR><TD ROWSPAN='2'><p style='background-color: #F8FAB3;font-family: courier;font-size:9pt;'><b>" & .Fields("Titolo") & "</b></TD></TR>"
sBody = sBody & "<TR><TD>" & "<a href='#" & .Fields("tbl") & "#" & .Fields("ID") & "' style='font-family: courier;font-size:10pt;'>" & .Fields("ID") & "</a></TD></TR>"
If .Fields("genere") & "" <> "" Then
sBody = sBody & "<TR><TD COLSPAN='2'>"
sBody = sBody & "<span style='font-family: courier;font-size:8pt;'>" & .Fields("genere") & "</TD></TR>"
Else
sBody = sBody & "<TR><TD COLSPAN='2'> </TD></TR>"
End If
sBody = sBody & "<TR><TD ROWSPAN='3'>" & "<img src ='" & .Fields("copertinaweb") & "' alt='" & .Fields("copertina") & "' height='250' width='170'>" & "</TD>"
sBody = sBody & "<TR><TD><p style='font-family: courier;font-size:9pt;'>" & .Fields("auth")
sBody = sBody & "<br>"
sBody = sBody & "<p style='font-family: courier;font-size:9pt;'>pag. " & .Fields("pagine") & "<br>"
sBody = sBody & "</TD>"
sBody = sBody & "</TABLE>"
sBody = sBody & "</div>"
sBody = sBody & "</span>"
.MoveNext
Loop
End With
What's wrong?
Thanks for help
Silvia
June7
AWF VIP
- Local time
- Today, 13:10
- Joined
- Mar 9, 2014
- Messages
- 5,913
@linux_s2002, you should start your own thread instead of hijacking a very old one. A new thread will get more attention. Can include a link to this old one if you think it can help understanding your issue.
isladogs
MVP / VIP
- Local time
- Today, 22:10
- Joined
- Jan 14, 2017
- Messages
- 18,787
@June7
Whilst I agree that a new thread might be better, @linux_s2002 was first involved in this thread when it was active back in 2017.
He/she isn't really hijacking an old thread so much as resurrecting it from the grave
Whilst I agree that a new thread might be better, @linux_s2002 was first involved in this thread when it was active back in 2017.
He/she isn't really hijacking an old thread so much as resurrecting it from the grave
linux_s2002
Registered User.
- Local time
- Today, 14:10
- Joined
- Sep 20, 2017
- Messages
- 21
Ok I create a new thread. I don't know why code fail after windows update.
thanks
thanks
