Here is a sample program that is being provided by my close friend, business partner and fellow software engineer Sir Larry Dave Emol. He created this program using Microsoft Visual Basic 6 to add custom CSS/HTML and display the records in Visual Basic 6.
My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.
Here in Bacolod I also accepting computer repair, networking and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com.
Sample Program Output
Program Listing
Sub LOAD()
Dim i As Long
Call SQLDB(Me.AdoCon, "select distinct Namex from tblInfo Order by Namex")
Me.WebBrowser1.Navigate2 "About:Blank"
Do While Me.WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
With WebBrowser1.Document
.Write ("<button>Save</button>")
.Write ("<HTML><head></head><style type='text/css'> body,td{font-family: Tahoma;} body,td{font-size:16px;} button{padding:30px; Background-color: blue;}</style>")
.Write ("<BODY Scroll=Yes oncontextmenu='return false';>")
.Write ("<TABLE WIDTH=100% BORDER=1 BORDERCOLOR=#215DC6 CELLPADDING=1 CELLSPACING=1>")
.Write ("<thead>")
.Write ("<TR>")
.Write ("<TH BGCOLOR=#D6E9F7><B>Namex </B></TH>")
.Write ("</TR>")
.Write ("</thead>")
Do While AdoCon.Recordset.EOF <> True
i = i + 1
.Write ("<TR>")
.Write ("<TD bgcolor=#FFFFD2><FONT FACE=tahoma SIZE=1>" & AdoCon.Recordset.Fields("Namex").Value & "</TD>")
.Write ("</TR>")
AdoCon.Recordset.MoveNext
Loop
.Write ("</TABLE>")
.Write ("</BODY>")
.Write ("</HTML>")
WebBrowser1.Document.Script.Document.Clear
WebBrowser1.Document.Script.Document.Close
End With
End Sub
Private Sub Form_Activate()
Call LOAD
End Sub
No comments:
Post a Comment