Codigos De Vb Para Botones De Navegacio

Public Class frmusuario

Private Sub btnend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnend.Click End End Sub Private Sub btnhlp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhlp.Click Shell("winhlp32 t:\VB.Net\ejercicios\archivos\prueba.hlp", AppWinStyle.NormalFocus) End Sub Private Sub btnfirst_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles btnfirst.Click BdSTUsuarios.MoveFirst() If TxtFotoUsr.Text = "" Then TxtFotoUsr.Text = "t:\imagenes\imgapp\foto1.png" pct1.Image = Image.FromFile(DStdbcprueba.TUsuarios.Rows(BdSTUsuarios.Position).Item(2).ToString) 'pct1.Image = Image.FromFile(TxtFotoUsr.Text) ElseIf TxtFotoUsr.Text "" Then pct1.Image =Image.FromFile(DStdbcprueba.TUsuarios.Rows(BdSTUsuarios.Position).Item(2).ToString) 'pct1.Image = Image.FromFile(TxtFotoUsr.Text) End If stb1.Panels(0).Text = "Registro" + Str(BdSTUsuarios.Position + 1) + " / " + Str(BdSTUsuarios.Count) btnlast.Enabled = True btnnext.Enabled = True If BdSTUsuarios.Position + 1 = 1 Then btnfirst.Enabled = False btnprev.Enabled = False MsgBox("Primer Registro", 0, "Advertencia") End If End Sub Private Subbtnfirst_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles btnfirst.KeyDown Select Case e.KeyCode Case Keys.F1 Shell("winhlp32 t:\VB.Net\ejercicios\archivos\prueba.hlp", AppWinStyle.NormalFocus) End Select End Sub Private Sub btnprev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnprev.Click BdSTUsuarios.MovePrevious() If TxtFotoUsr.Text = "" ThenTxtFotoUsr.Text = "t:\imagenes\imgapp\foto.png" pct1.Image = Image.FromFile(DStdbcprueba.TUsuarios.Rows(BdSTUsuarios.Position).Item(2).ToString) 'pct1.Image = Image.FromFile(TxtFotoUsr.Text)

ElseIf TxtFotoUsr.Text "" Then 'pct1.Image = Image.FromFile(DStdbcprueba.TUsuarios.Rows(BdSTUsuarios.Position).Item(2).ToString) pct1.Image = Image.FromFile(TxtFotoUsr.Text) End If stb1.Panels(0).Text ="Registro" + Str(BdSTUsuarios.Position + 1) + " / " + Str(BdSTUsuarios.Count) btnlast.Enabled = True btnnext.Enabled = True If BdSTUsuarios.Position + 1 = 1 Then btnfirst.Enabled = False btnprev.Enabled = False MsgBox("Primer Registro", 0, "Advertencia") End If End Sub Private Sub btnprev_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles btnprev.KeyDownSelect Case e.KeyCode Case Keys.F1 Shell("winhlp32 t:\VB.Net\ejercicios\archivos\prueba.hlp", AppWinStyle.NormalFocus) End Select End Sub Private Sub btnhlp_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles btnhlp.KeyDown Select Case e.KeyCode Case Keys.F1 Shell("winhlp32 t:\VB.Net\ejercicios\archivos\prueba.hlp", AppWinStyle.NormalFocus) End Select End SubPrivate Sub btnedit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnedit.Click With btnedit If .Tag = "edit" Then .Tag = "undo" .Image = Image.FromFile("t:\imagenes\imgapp\undo.png") With btnnew .Tag = "save" .Image = Image.FromFile("t:\imagenes\imgapp\disk.png") End With GrBNav.Enabled = False GrBFn.Enabled = False btndel.Enabled = False With TxtCodUsr .Enabled = True.BackColor = Color.White cod = .Text .Focus() End With With TxtNomUsr

.Enabled = True .BackColor = Color.White nom = .Text End With btnfoto.Enabled = True ElseIf .Tag = "undo" Then .Tag = "edit" .Image = Image.FromFile("t:\imagenes\imgapp\edit.png") With btnnew .Tag = "new" .Image = Image.FromFile("t:\imagenes\imgapp\new.png") End With GrBNav.Enabled = True GrBFn.Enabled = True btndel.Enabled =True BdSTUsuarios.CancelEdit() With TxtCodUsr .Enabled = False .BackColor = Color.FromArgb(224, 224, 224) '.Text = cod End With With TxtNomUsr .Enabled = False .BackColor = Color.FromArgb(224, 224, 224) '.Text = nom End With btnfoto.Enabled = False End If End With End Sub Private Sub TUsuariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...