Home » Category » Microsoft Visual Basic

Microsoft Visual Basic: zoom mouseover html pic

104| Tue, 04 Dec 2007 15:01:00 GMT| jlt7| Comments (3)
I have a small picture in html and what I'm trying to do is whenever I roll the mouse over the small image a large image will popup, and when the mouse rolls off the image it goes back to small.

Keywords & Tags: zoom, mouseover, html, pic, microsoft, visual basic, vb

URL: http://www.programmerbase.com/visual-basic/560758/
 
«« Prev - Next »» 3 helpful answers below.
I have a small picture in html and what I'm trying to do is whenever I roll the mouse over the small image a large image will popup, and when the mouse rolls off the image it goes back to small.

And this is VB-related how? I suggest you google for "JavaScript"

smux | Mon, 03 Dec 2007 17:35:00 GMT |

It is in vb, my code is in a module like for instance.

txtHTML = txtHTML & " </style>"
txtHTML = txtHTML & "<html>" & vbCrLf
txtHTML = txtHTML & " <head>" & vbCrLf
txtHTML = txtHTML & " </head>" & vbCrLf
txtHTML = txtHTML & " <body background = ""file:///C:/VB/Movieguide/backpanel.gif"">" & vbCrLf
txtHTML = txtHTML & " <div align=""center"">" & vbCrLf
txtHTML = txtHTML & " <table width=""98%"" cellspacing=""0"" cellpadding=""2"" border=""0"">" & vbCrLf
txtHTML = txtHTML & " <tr>" & vbCrLf
txtHTML = txtHTML & " <td width=""140"" valign=""top"" align=""center"">"
txtHTML = txtHTML & " <a href="http://reference.itags.org/reference/link/?url="/fullposter""><img src=" & .Fields("HTMLFrontCover") & " width=""140"" border=""0""></a><br>" & vbCrLf
txtHTML = txtHTML & " <small><small>(<a href="http://reference.itags.org/reference/link/?url="/backposter""><small><small>Back Cover</a>)</small></small><br>"
txtHTML = txtHTML & " <small><small>(<a href="http://reference.itags.org/reference/link/?url="/trailer""><small><small>View Trailer</a>)</small></small>"
txtHTML = txtHTML & " <td valign=""top""><div align=""left""><!-- TITLE --> <table width=""100%"" cellspacing=""0"" cellpadding=""1"" border=""0"">" & vbCrLf
txtHTML = txtHTML & " <tr>" & vbCrLf
txtHTML = txtHTML & " <th width=""100%"">" & vbCrLf & .Fields("Title") & "" & " (" & vbCrLf & .Fields("MovieDate") & ")" & "</th>" & vbCrLf
txtHTML = txtHTML & " </tr>"

jlt7 | Mon, 03 Dec 2007 17:36:00 GMT |

I know the javascript code but I can't get it to work in my module.

jlt7 | Mon, 03 Dec 2007 17:37:00 GMT |

Microsoft Visual Basic Hot Answers

Microsoft Visual Basic New questions

Microsoft Visual Basic Related Categories