SAN ANTONIO RESORT
January 21, 2010
The San Antonio Resort set amidst seven hectares of tree lined, meticulously groomed tropical gardens, with a lagoon in one corner and the blue waters of the Visayan Sea in the another, the resort offers the convenience of both the modern amenities and the charms of nature.
We are near to the beach, to the Culasi port and Roxas City Air Port. And we’re just a few minutes near to the City.
Public Class Form1
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘PhonebookDataSet.Contacts’ table. You can move, or remove it, as needed.
Me.ContactsTableAdapter.Fill(Me.PhonebookDataSet.Contacts)
End Sub
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
Me.ContactsBindingSource.MovePrevious()
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
Me.ContactsBindingSource.MoveNext()
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
Me.ContactsBindingSource.MoveLast()
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.ContactsBindingSource.MoveFirst()
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Me.ContactsBindingSource.AddNew()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Me.ContactsBindingSource.EndEdit()
Me.ContactsTableAdapter.Update(Me.PhonebookDataSet.Contacts)
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.ContactsBindingSource.CancelEdit()
End Sub
End Class
my First
January 19, 2010<html>
<head>
<title>LAMESA</title>
</head>
<body>
<table border=”1″ width=”100%”>
<tr>
<td>Color</td>
<td>Shape</td>
<td>Texture</td>
</tr>
<tr>
<td>Blue</td>
<td>Circle</td>
<td>Rough</td>
</tr>
<tr>
<td>jenifer</td>
<td>anna</td>
<td>jovelyn</td>
</tr>
</table>
</body>
</html>
Exer1
Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
txtlastname.Text = “Delantar”
txtfirstname.Text = “Jenifer”
txtmi.Text = “Bejo”
txtage.Text = “18″
txtaddress.Text = “Navitas,Panay,Capiz”
txtcourse.Text = “BCSL”
txtyrandsection.Text = “2-A”
txtguardian.Text = “Elizabeth Delantar”
txtlastname.Enabled = “True”
txtfirstname.Enabled = “True”
txtmi.Enabled = “True”
txtage.Enabled = “True”
txtaddress.Enabled = “True”
txtcourse.Enabled = “True”
txtyrandsection.Enabled = “True”
txtguardian.Enabled = “True”
End Sub
Private Sub btnEnabled_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnabled.Click
txtlastname.Text = “Delantar”
txtfirstname.Text = “Jenifer”
txtmi.Text = “Bejo”
txtage.Text = “18″
txtaddress.Text = “Navitas,Panay,Capiz”
txtcourse.Text = “BCSL”
txtyrandsection.Text = “2-A”
txtguardian.Text = “Elizabeth Delantar”
txtlastname.Enabled = “True”
txtfirstname.Enabled = “True”
txtmi.Enabled = “True”
txtage.Enabled = “True”
txtaddress.Enabled = “True”
txtcourse.Enabled = “True”
txtyrandsection.Enabled = “True”
txtguardian.Enabled = “True”
End Sub
Private Sub btndisabled_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndisabled.Click
txtlastname.Text = “Delantar”
txtfirstname.Text = “Jenifer”
txtmi.Text = “Bejo”
txtage.Text = “18″
txtaddress.Text = “Navitas,Panay,Capiz”
txtcourse.Text = “BCSL”
txtyrandsection.Text = “2-A”
txtguardian.Text = “Elizabeth Delantar”
txtlastname.Enabled = “False”
txtfirstname.Enabled = “False”
txtmi.Enabled = “False”
txtage.Enabled = “False”
txtaddress.Enabled = “False”
txtcourse.Enabled = “False”
txtyrandsection.Enabled = “False”
txtguardian.Enabled = “False”
End Sub
Private Sub btnVisible_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvisible.Click
txtlastname.Text = “Delantar”
txtfirstname.Text = “Jenifer”
txtmi.Text = “Bejo”
txtage.Text = “18″
txtaddress.Text = “Navitas,Panay,Capiz”
txtcourse.Text = “BCSL”
txtyrandsection.Text = “2-A”
txtguardian.Text = “Elizabeth Delantar”
txtlastname.Visible = “True”
txtfirstname.Visible = “True”
txtmi.Visible = “True”
txtage.Visible = “True”
txtaddress.Visible = “True”
txtcourse.Visible = “True”
txtyrandsection.Visible = “True”
txtguardian.Visible = “True”
End Sub
Private Sub btnretry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnretry.Click
txtlastname.Text = “”
txtfirstname.Text = “”
txtmi.Text = “”
txtage.Text = “”
txtaddress.Text = “”
txtcourse.Text = “”
txtyrandsection.Text = “”
txtguardian.Text = “”
txtlastname.Visible = “True”
txtfirstname.Visible = “True”
txtmi.Visible = “True”
txtage.Visible = “True”
txtaddress.Visible = “True”
txtcourse.Visible = “True”
txtyrandsection.Visible = “True”
txtguardian.Visible = “True”
txtlastname.Enabled = “True”
txtfirstname.Enabled = “True”
txtmi.Enabled = “True”
txtage.Enabled = “True”
txtaddress.Enabled = “True”
txtcourse.Enabled = “True”
txtyrandsection.Enabled = “True”
txtguardian.Enabled = “True”
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Me.Close()
End Sub
Private Sub btninvisible_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninvisible.Click
txtlastname.Text = “Delantar”
txtfirstname.Text = “Jenifer”
txtmi.Text = “Bejo”
txtage.Text = “18″
txtaddress.Text = “Navitas,Panay,Capiz”
txtcourse.Text = “BCSL”
txtyrandsection.Text = “2-A”
txtguardian.Text = “Elizabeth Delantar”
txtlastname.Visible = “False”
txtfirstname.Visible = “False”
txtaddress.Text = “False”
txtmi.Visible = “False”
txtage.Visible = “False”
txtaddress.Visible = “False”
txtcourse.Visible = “False”
txtyrandsection.Visible = “False”
txtguardian.Visible = “False”
End Sub
Private Sub txtlastname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlastname.TextChanged
End Sub
End Class
