http://www.w3processing.com/index.php?subMenuLoad=Servlet/Request.php&environmentPath=NB/GF
Monday, July 2, 2018
Friday, June 22, 2018
Steps to configure in IIS for ASP
kindly follow the below link
http://www.windows7home.net/how-to-install-iis-7-and-setup-asp-in-windows-7/
after setting this steps next have to create ASP file with the following code
Paste the below code ans save the filename with .asp extension.
<!DOCTYPE html>
<html>
<body>
<p>ASP can output HTML attributes as well as plain text:</p>
<%
response.write("<p style='color:#0000ff'>This text is styled.</p>")
%>
</body>
</html>
Note : put this file in the path "C:\inetpub\wwwroot"
and type the address like 'localhost/sample.asp" in the address bar. finally the asp file get executed.
http://www.windows7home.net/how-to-install-iis-7-and-setup-asp-in-windows-7/
after setting this steps next have to create ASP file with the following code
Paste the below code ans save the filename with .asp extension.
<!DOCTYPE html>
<html>
<body>
<p>ASP can output HTML attributes as well as plain text:</p>
<%
response.write("<p style='color:#0000ff'>This text is styled.</p>")
%>
</body>
</html>
Note : put this file in the path "C:\inetpub\wwwroot"
and type the address like 'localhost/sample.asp" in the address bar. finally the asp file get executed.
Wednesday, September 28, 2016
MSFlexGrid in VB2010 Express Edition
i) Have to add reference
Add Reference -> COM - > Microsoft Felxgrid Control 6.0
.
ii) ToolBox - > Right Click on the pointer - > Choose Items -> COM - >MS Flexgrid Control 6.0
-------------------------------------------------------------------------------------------------------------
Public Class Form1
Public rowcnt, colcnt, i, j As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Entering no. of rows and cols for flexgrid
rowcnt = InputBox("enter no. of rows")
colcnt = InputBox("enter no. of cols")
AxMSFlexGrid1.Rows = rowcnt
AxMSFlexGrid1.Cols = colcnt
End Sub
'Giving values
For i = 0 To rowcnt - 1
For j = 0 To colcnt - 1
'by matrix m X n format entering values to the cells
AxMSFlexGrid1.set_TextMatrix(i, j, InputBox("enter the value"))
Next
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tot, colindex As Integer
' Calculating values based on the given column
colindex = InputBox("enter which column should be totaled")
For i = 1 To rowcnt - 1
tot = tot + AxMSFlexGrid1.get_TextMatrix(i, colindex)
Next
'Incrementing rows by one (to add total value in the next row)
rowcnt = rowcnt + 1
AxMSFlexGrid1.Rows = rowcnt
' column based total is assigned in the specified cell
' Specifying index of row and coloumn to feed "Total" String
AxMSFlexGrid1.Row = rowcnt - 1
AxMSFlexGrid1.Col = 0
AxMSFlexGrid1.Text = "Total"
' Specifying index of row and coloumn to feed total value
AxMSFlexGrid1.Row = rowcnt - 1
AxMSFlexGrid1.Col = colindex
AxMSFlexGrid1.Text = tot
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'display the index of selected row and column
MessageBox.Show("Rowselected " & AxMSFlexGrid1.RowSel.ToString)
MessageBox.Show("Colselected " & AxMSFlexGrid1.ColSel.ToString)
End Sub
End Class
----------------------------------------------------------------------------------------------------------
Subscribe to:
Posts (Atom)