Abc Menu Codigo Visualbasic2008
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Dim conexion As New SqlConnection("Data Source=TELMEX0;InitialCatalog=Computadoras;Integrated Security=True")
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
MultiView1.ActiveViewIndex =0
End Sub
Protected Sub ImageButton2_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton2.Click
MultiView1.ActiveViewIndex = 1TextBox7.Text = GridView1.SelectedRow.Cells(2).Text
TextBox8.Text = GridView1.SelectedRow.Cells(3).Text
TextBox9.Text = GridView1.SelectedRow.Cells(4).Text
TextBox10.Text= GridView1.SelectedRow.Cells(5).Text
TextBox11.Text = GridView1.SelectedRow.Cells(6).Text
TextBox12.Text = GridView1.SelectedRow.Cells(7).Text
TextBox13.Text =GridView1.SelectedRow.Cells(1).Text
End Sub
Protected Sub ImageButton3_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton3.ClickMultiView1.ActiveViewIndex = 2
TextBox14.Text = GridView1.SelectedRow.Cells(2).Text
TextBox15.Text = GridView1.SelectedRow.Cells(3).Text
TextBox16.Text =GridView1.SelectedRow.Cells(4).Text
TextBox17.Text = GridView1.SelectedRow.Cells(5).Text
TextBox18.Text = GridView1.SelectedRow.Cells(6).Text
TextBox19.Text = GridView1.SelectedRow.Cells(7).TextTextBox20.Text = GridView1.SelectedRow.Cells(1).Text
End Sub
Protected Sub ImageButton4_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) HandlesImageButton4.Click
MultiView1.ActiveViewIndex = 3
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then...
Regístrate para leer el documento completo.