I have a program that I wrote in VB6. It uses the WebBrowser control to display animated GIF's. As most of you are probably aware, when a picture is opened in a web browser it is aligned to the left. I would like the GIF to be centered horizontally in the browser if at all possible. Does anyone know if I can achieve this with code?

Please let us know if you found someone's advice to be helpful.

Yes, put it in a table with 100% width and center it in a single sell such ass (<> replaced with []).

[table width=100%]
[tr]
[td align=center]
[img src=image.gif]
[/td]
[/tr]
[/table]

You could also center it vertically by giving the table 100% height.

Michael J

Thanks for the quick reply, but I've tried that without success. The problem is that the GIF to be displayed is triggered by clicking one of an array of buttons. It's further complicated by the fact that each button in the array can be configured to display any GIF or JPEG that the user has in the default folder. Therefore, the path for the image source cannot be defined as: [img src=image.gif].

Here is the existing code for the button array.
---
Private Sub cmdUser_Click(Index As Integer)

For intCtr = (Forms.Count - 1) To 1 Step -1
Unload Forms(intCtr)
Next intCtr
frmWeb.Show
frmWeb.WebBrowser1.Navigate strPic + strFile(Index)
frmMain.SetFocus

End Sub
---
This code works well except for the fact that the images are aligned left.

Please let us know if you found someone's advice to be helpful.

Here's a couple things I've tried.
Note: I've used ] imstead of > for posting purposes only.
-------
Private Sub cmdUser_Click(Index As Integer)

For intCtr = (Forms.Count - 1) To 1 Step -1
Unload Forms(intCtr)
Next intCtr
frmWeb.Show
strhtml = "about:[html][body bgcolor=white scroll='no']"
strhtml = strhtml & "[table border=0 width=100%][tr][td align=center]"
strhtml = strhtml + "[img src=strPic + strFile(Index)][/img]"
strhtml = strhtml & "[/td][/tr][/table][/body][/html]"
frmWeb.WebBrowser1.Navigate strhtml
frmMain.SetFocus

End Sub
-------------------------
That produces a box with a red "X" centered in the browser.
-------------------------
Private Sub cmdUser_Click(Index As Integer)

For intCtr = (Forms.Count - 1) To 1 Step -1
Unload Forms(intCtr)
Next intCtr
frmWeb.Show
strhtml = "about:[html][body bgcolor=white scroll='no']"
strhtml = strhtml & "[table border=0 width=100%][tr][td align=center]"
strhtml = strhtml + strPic + strFile(Index)
strhtml = strhtml & "[/td][/tr][/table][/body][/html]"
frmWeb.WebBrowser1.Navigate strhtml
frmMain.SetFocus

End Sub
-------------------------
That produces the full path (as a string) centered in the browser.

No matter how I change the above code, I can't get the image to display.

Please let us know if you found someone's advice to be helpful.

Not too familiar with VB6, but it makes sense that the above code only prints the path instead of the actual image because you did not create the image tag.

The example you posted in Reply 2 displayed the image because you were directing the browser to open an image - not an html page. In that manner, IE is functioning as an image viewer not a web browser. There is NO way to change the alignment of an image when opened in that manner.

The code you posted in Response 3 will work if you include the path in an image tag by adding the two lines identified below:

-------------------------
Private Sub cmdUser_Click(Index As Integer)

For intCtr = (Forms.Count - 1) To 1 Step -1
Unload Forms(intCtr)
Next intCtr
frmWeb.Show
strhtml = "about:[html][body bgcolor=white scroll='no']"
strhtml = strhtml & "[table border=0 width=100%][tr][td align=center]"
strhtml = strhtml & "[img src="
strhtml = strhtml + strPic + strFile(Index)
strhtml = strhtml & "]"
strhtml = strhtml & "[/td][/tr][/table][/body][/html]"
frmWeb.WebBrowser1.Navigate strhtml
frmMain.SetFocus

End Sub
-------------------------

Hope this helps.

Michael J

Michael,
Thank you. The code you posted has solved this for me. It wasn't important, but annoying. I guess annoying things drive me a little crazy. Thanks again.

Please let us know if you found someone's advice to be helpful.

It seems I spoke too soon. The code runs well from the IDE and once compiled runs well from the folder in which the project is stored. However, if I use the PDW then install the program, all I get is a box with a red "X" centered in the browser. I also tried copying the exe file (along with needed files and folders) to another folder and get the same problem. This didn't happen before introducing the code to center the image. Any ideas as to what the problem might be?

Please let us know if you found someone's advice to be helpful.

Correction: It just won't work from the "Program Files" folder on the C:\ drive.

Please let us know if you found someone's advice to be helpful.

Another Correction: It seems to not work from any folder that has a space in it's path, e.g. "Program Files", "New Folder", "My Documents".

Please let us know if you found someone's advice to be helpful.

Update: Fixed!

Please let us know if you found someone's advice to be helpful.