how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

**szpilman** · January 18th, 2007, 11:56 PM

dear all,
i'd like to apologize if this question incidentally have been asked before.

i am building an inventory application.
I have one trouble - which until now not solved yet - in delivering the view of the data.
I wonder, if there is any way to view the data with HTML component such as <TABLE> in vb 6 ? the data will be taken from MSSQL using ADO, and will be shown in a VB6 form, inside a table, but the table is not a DataGrid, or FlexGrid, or another grid, because i have a hard experience in programming those GRID things. I think the solution is, If only I can insert the HTML TABLE object into one of my FORM, and from that FORM i can control or modify the <TABLE> value, spanning the column, inserting an event, just like HTML things ..

i'd be very thankful in every reply

rgrds,

szpilman

**dglienna** · January 19th, 2007, 12:33 AM

Maybe using a WebBrowser control? That would dispay the html, but you'd have to edit it using an editor, or from within VB, and then reload a new page.

**Thread1** · January 19th, 2007, 01:17 AM

yes, using the webbrowser control you can display an HTML file or even create the HTML document interactively.. here's my sample code, the first line instantiates the document property of the control.. hope it helps.

Code:

  wbb.Navigate "about:blank"
  
  wbb.Document.open
    
  wbb.Document.writeln "<html><body>"
  wbb.Document.writeln "<head>" & vbCrLf & _
                       "<style type=""text/css"">" & vbCrLf & _
                       "td {white-space: nowrap;}" & vbCrLf & _
                       "</style>" & vbCrLf & _
                       "</head>"
  
  wbb.Document.writeln "<table border=""1"" cellspacing=""0"">" & vbCrLf & _
                       "<thead style=""font: bold 14px arial; color: blue;"">" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>Item #</td>" & vbCrLf & _
                       "  <td>Quantity</td>" & vbCrLf & _
                       "  <td>Code</td>" & vbCrLf & _
                       "  <td>Description</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "<tbody style=""font: 10px arial;"">" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>1</td>" & vbCrLf & _
                       "  <td>50</td>" & vbCrLf & _
                       "  <td>USBFD2G</td>" & vbCrLf & _
                       "  <td>USB Flash Drive 2GB</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>2</td>" & vbCrLf & _
                       "  <td>15</td>" & vbCrLf & _
                       "  <td>LCDMON</td>" & vbCrLf & _
                       "  <td>TFT LCD Monitor</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "</table>"
  wbb.Document.writeln "</body></html>"
                       
  wbb.Document.Close

**szpilman** · January 19th, 2007, 02:11 AM

thnx thread1 and david.
the web browser control work well.
but it raise another question is..
suppose i have made the TABLE succesfully, then
how to make that HTML TABLE can interact with the VB6 FORM ?
lets say FORM1 contain the TABLE from WEB BROWSER control,
if i right click on the cell, there is an event that will show another form, but the form is from VB6 not HTML page.

thnk U.

rgrds,

szpilman

**WoF** · January 19th, 2007, 10:28 AM

@Thread1: I seem to get an error when trying wbb.Document.open:
Runtime error 438, saying method is not supported (in german).
Any Idea? Because I'd like to try that piece of code.

**davidc2p** · January 19th, 2007, 10:42 AM

how to make that HTML TABLE can interact with the VB6 FORM ?

As far as i can remember, making interaction between your VB application and HTML content is one side only. If you can easily and dinamically write an HTML file based on a SQL table content and put it in a webbrowser control, like shown in the samples below. Reading the content of the HTML in the control to interact with your VB, is another issue to which i see no easy solution.

If someone know, please tell us. I'm also very interested...

**dglienna** · January 19th, 2007, 12:06 PM

Well, I've used DOM (Document Object Model) to scrape info off a webpage, as well as put info back. You can get the text easily.

**dglienna** · January 20th, 2007, 11:41 AM

Here is an older sample. I hope they haven't changed the webpage layout, or it wouldl need more work. In any case, it won't work for any other webpage, but you can see how it's done.

If you have the Firefox Browser, it has on the TOOLS MENU, a link to the DOM Parser. It lets you see the underlying Markup Language in most webpages (except some PHP and ASP sites).

**hensa22** · January 20th, 2007, 01:35 PM

I think,you can use this piece of code.
where 'wb' is Microsoft Internet Controls, to find press CTRL + T

Code:

dim rs as new adodb.recordset
dim For_ValueNull as string
dim RStoHTML  as string
set rs=new adodb.recordset
 rs.ActiveConnection =strcon
 rs.Source = "select campo1,campo2 from tabla"
 rs.Open

For_ValueNull="(NULL)" 
RStoHTML = rs.GetString(adClipString, -1, "</TD><TD>", "</TD></TR>" & vbCrLf & "<TR><TD>", For_ValueNull)
RStoHTML = "<TR><TD>" & Left(RStoHTML, Len(RStoHTML) - 8)
RStoHTML = "<table bgcolor='#0078B3' border='1' cellspacing='0' >" & vbCrLf & _
					"<thead style='font: bold 14px arial; color: black;'>" & vbCrLf & _
					"<tr bgcolor='#8ABEF2'><td><font color='#E8FFE8'>Tittle1</font></td><td><font color='#E8FFE8'>title2</font></td></font></tr>" & RStoHTML &
 "</TABLE>"
set rs=nothing
wb.Navigate "about:blank"
wb.Document.Open
wb.Document.writeln RStoHTML

I hope it helps you

**Thread1** · January 21st, 2007, 10:18 PM

Originally Posted by szpilman

thnx thread1 and david.
the web browser control work well.
but it raise another question is..
suppose i have made the TABLE succesfully, then
how to make that HTML TABLE can interact with the VB6 FORM ?
lets say FORM1 contain the TABLE from WEB BROWSER control,
if i right click on the cell, there is an event that will show another form, but the form is from VB6 not HTML page.

thnk U.

rgrds,

szpilman

well, thanks to the control's TitleChange event

. .. the event fires whenever there is a change in the document.title or whenever you assign a value to this property. since this event also fires upon load of the document, perhaps you can declare your own format that can be filtered out.. here is the revised code, see how i raised the event in the script

Code:

  wbb.Navigate "about:blank"
  
  wbb.Document.open
    
  wbb.Document.writeln "<html>" & vbCrLf & _
                       "<head>" & vbCrLf & _
                       "<style type=""text/css"">" & vbCrLf & _
                       "td {white-space: nowrap;}" & vbCrLf & _
                       "</style>" & vbCrLf & _
                       "<script type=""text/javascript"">" & vbCrLf & _
                       "document.onmousedown = function () { if (event.button == 2) { this.title = 'RIGHT CLICK DATA: ' + this.elementFromPoint(event.x, event.y).innerHTML; return false; } }" & vbCrLf & _
                       "</script>" & vbCrLf & _
                       "</head>"
  
  wbb.Document.writeln "<body oncontextmenu=""return false;"">" & vbCrLf & _
                       "<table border=""1"" cellspacing=""0"">" & vbCrLf & _
                       "<thead style=""font: bold 14px arial; color: blue;"">" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>Item #</td>" & vbCrLf & _
                       "  <td>Quantity</td>" & vbCrLf & _
                       "  <td>Code</td>" & vbCrLf & _
                       "  <td>Description</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "<tbody style=""font: 10px arial;"">" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>1</td>" & vbCrLf & _
                       "  <td>50</td>" & vbCrLf & _
                       "  <td>USBFD2G</td>" & vbCrLf & _
                       "  <td>USB Flash Drive 2GB</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "<tr>" & vbCrLf & _
                       "  <td>2</td>" & vbCrLf & _
                       "  <td>15</td>" & vbCrLf & _
                       "  <td>LCDMON</td>" & vbCrLf & _
                       "  <td>TFT LCD Monitor</td>" & vbCrLf & _
                       "</tr>" & vbCrLf & _
                       "</table>"
  wbb.Document.writeln "</body></html>"
                       
  wbb.Document.Close

Code:

Private Sub wbb_TitleChange(ByVal Text As String)
  If Text Like "RIGHT CLICK DATA:*" Then
    MsgBox Text    
  End If
End Sub

**Thread1** · January 21st, 2007, 10:25 PM

Originally Posted by WoF

@Thread1: I seem to get an error when trying wbb.Document.open:
Runtime error 438, saying method is not supported (in german).
Any Idea? Because I'd like to try that piece of code.

is your "wbb" a web browser control (reference : microsoft internet controls)?

**WoF** · January 22nd, 2007, 10:04 AM

Yes, it is. What am I doing wrong?

Thread: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Thread Tools

Display

how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Re: how to enable HTML objects, such as TABLE, FORM,, etc in VB 6

Posting Permissions