Exame GRii
Public Class Form1
Private Sub
Form1_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
Me.AniversarioTableAdapter.Fill(Me.AgendapessoalDataSet.aniversario)
End Sub
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
'AgendapessoalDataSet.aniversario' table. You can move, or remove it, as
needed.
Me.AniversarioTableAdapter.Fill(Me.AgendapessoalDataSet.aniversario)
End Sub
Private Sub
AgendaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
AgendaToolStripMenuItem.Click
agenda.ShowDialog()
End Sub
Private Sub
ListaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
ListaToolStripMenuItem.Click
listar.ShowDialog()
End Sub
Private Sub
FicheiroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
FicheiroToolStripMenuItem.Click
End Sub
Private Sub
SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SairToolStripMenuItem.Click
Me.Close()
End Sub
End Class
ublic Class agenda
Private Sub
ContactosBindingNavigatorSaveItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs)
Me.Validate()
Me.ContactosBindingSource.EndEdit()
Me.ContactosTableAdapter.Update(Me.AgendapessoalDataSet.contactos)
End Sub
Private Sub
agenda_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
'TODO: This line of code loads data into the
'AgendapessoalDataSet.contactos' table. You can move, or remove it, as needed.
Me.ContactosTableAdapter.Fill(Me.AgendapessoalDataSet.contactos)
Me.ContactosBindingSource.Position() = listar.ficha()
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
Me.ContactosBindingSource.MoveFirst()
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button6.Click
Me.ContactosBindingSource.MovePrevious()
End Sub
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button7.Click
Me.ContactosBindingSource.MoveNext()
End Sub
Private Sub
Button8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button8.Click
Me.ContactosBindingSource.MoveLast()
End Sub
Private Sub
Num_pessoalTextBox_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Num_pessoalTextBox.TextChanged
Me.Label1.Text = Str(Me.ContactosBindingSource.Position
+ 1) & "\" & Me.ContactosBindingSource.Count
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
Me.ContactosBindingSource.AddNew()
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
Me.ContactosBindingSource.RemoveCurrent()
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button3.Click
Me.Validate()
Me.ContactosBindingSource.EndEdit()
Me.ContactosTableAdapter.Update(Me.AgendapessoalDataSet.contactos)
Me.Close()
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button4.Click
Me.Close()
End Sub
Private Sub
Label1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label1.Click
End Sub
End Class
Public Class listar
Private Sub
ContactosBindingNavigatorSaveItem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs)
Me.Validate()
Me.ContactosBindingSource.EndEdit()
Me.ContactosTableAdapter.Update(Me.AgendapessoalDataSet.contactos)
End Sub
Private Sub
listar_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
Me.ContactosTableAdapter.Fill(Me.AgendapessoalDataSet.contactos)
End Sub
Private Sub
listar_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
'TODO: This line of code loads data into the
'AgendapessoalDataSet.contactos' table. You can move, or remove it, as needed.
Me.ContactosTableAdapter.Fill(Me.AgendapessoalDataSet.contactos)
End Sub
Public Function
ficha() As Integer
Dim linha As Integer
linha = Me.ContactosBindingSource.Position()
Return (linha)
End Function
Private Sub
ContactosDataGridViewd_CellDoubleClick(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
ContactosDataGridView.CellDoubleClick
agenda.ShowDialog()
End Sub
<!DOCTYPE html PUBLIC
"-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html
xmlns="http://www.w3.org/1999/xhtml">
<head>
<style
type="text/css">
<!--
h1 {background-color:
#CCFFFF;} /*azul claro*/
h2 {text-align: center;}
li {font-family:
sans-serif; background-color: #FF0000;}
-->p
</style>
</head>
<body
onload="MM_preloadImages('../Os meus documentos/Unnamed Site 2/2
(Custom).jpg')">
<table
width="85%" border="0">
<tr>
<th colspan="2" scope="row"><h1>Ricardo
Vilarinho</h1></th>
</tr>
<tr>
<th width="20%"
rowspan="2" scope="row"><ol>
<li>
<div align="left"><a
href="http://www.sapo.pt">Programação</a></div>
</li>
<li>
<div align="left">Redes</div>
</li>
<li>
<div
align="left">Aplicações</div>
</li>
<li>
<div align="left">Matematica</div>
</li>
</ol></th>
<td width="80%"><p>hgfdsgjdgjfjgkdjgdkfgjdkgjkdgjkdjgdf</p>
<p>fgdfgdfgdfgdfgdjfçgdjgçhdfç</p>
<p> </p></td>
</tr>
<tr>
<td><div align="center">
<p><a
href="rollover.html" onMouseOver="imgOn('test')"
onMouseOut="imgOff('test')"><img
src="daiane.jpg"
width="100" height="100" border="0"
name="test"></a>
</div>
</body>
</html>
</div>
</body>
</html></td>
</tr>
<tr>
<th colspan="2"
scope="row"><h2>Prova PAF</h2></th>
</tr>
</table>
</body>
</html>