Hola espero esten bien todos por ahi....
Miren mi problema se trata de que intento diseñar un programita en el cual tengo un formulario que tiene del lado izquierdo un treeView adentro de un tabcontrol, la cual contiene cuatro tabpages( en las cuales tengo otros componentes ) y en la parte que sobra del formulario le pongo un control panel para que dentro de este pueda yo insertar cualquier aplicacion, bueno en particular paginas, las cuales quiero que esten linkeadas con los nombres que aparecen dentro del treeview.
mira les mando el codigo, para que se den una idea mas clara de lo que les intento decir... por favor si alguien me puede ayudar a resolver mi problema se lo agradeceria........
De antemano gracias
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
'Form reemplaza a Dispose para limpiar la lista de componentes.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
'Puede modificarse utilizando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.MenuItem2 = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.MenuItem5 = New System.Windows.Forms.MenuItem
Me.MenuItem4 = New System.Windows.Forms.MenuItem
Me.Panel1 = New System.Windows.Forms.Panel
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Panel2 = New System.Windows.Forms.Panel
Me.Splitter1 = New System.Windows.Forms.Splitter
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TreeView1 = New System.Windows.Forms.TreeView
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label1 = New System.Windows.Forms.Label
Me.TabPage4 = New System.Windows.Forms.TabPage
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.Panel1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.SuspendLayout()
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem5})
Me.MenuItem1.Text = "Archivo"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Nuevo"
'
'MenuItem3
'
Me.MenuItem3.Index = 1
Me.MenuItem3.Text = "Abrir"
'
'MenuItem5
'
Me.MenuItem5.Index = 2
Me.MenuItem5.Text = "Cerrar"
'
'MenuItem4
'
Me.MenuItem4.Index = 1
Me.MenuItem4.Text = "Edicion"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192, Byte))
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Controls.Add(Me.Button6)
Me.Panel1.Controls.Add(Me.Button7)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(800, 64)
Me.Panel1.TabIndex = 0
'
'Button5
'
Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
Me.Button5.Location = New System.Drawing.Point(112, 16)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(40, 32)
Me.Button5.TabIndex = 8
'
'Button6
'
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
Me.Button6.Location = New System.Drawing.Point(160, 16)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(40, 32)
Me.Button6.TabIndex = 9
'
'Button7
'
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
Me.Button7.Location = New System.Drawing.Point(64, 16)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(40, 32)
Me.Button7.TabIndex = 7
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.LightSkyBlue
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 64)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(800, 436)
Me.Panel2.TabIndex = 10
'
'Splitter1
'
Me.Splitter1.Location = New System.Drawing.Point(240, 64)
Me.Splitter1.Name = "Splitter1"
Me.Splitter1.Size = New System.Drawing.Size(3, 436)
Me.Splitter1.TabIndex = 11
Me.Splitter1.TabStop = False
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.TreeView1)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(232, 410)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Contenido"
Me.TabPage1.Visible = False
'
'TreeView1
'
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Top
Me.TreeView1.ImageIndex = -1
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
Me.TreeView1.Name = "TreeView1"
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Legislación, jurisprudencia y medios fiscales", New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Legislación Fiscal vigente"), New System.Windows.Forms.TreeNode("Legislación Fiscal Derogada"), New System.Windows.Forms.TreeNode("Analisis de Cambio en leyes fiscales")}), New System.Windows.Forms.TreeNode("Legislación Civil"), New System.Windows.Forms.TreeNode("Legislación de Comercio Exterior"), New System.Windows.Forms.TreeNode("Legislación Constitucional"), New System.Windows.Forms.TreeNode("Legislación Finaciera"), New System.Windows.Forms.TreeNode("Legislación Laboral"), New System.Windows.Forms.TreeNode("Legislación Mercantil"), New System.Windows.Forms.TreeNode("Legislación Penal"), New System.Windows.Forms.TreeNode("Otras leyes de interés empresarial"), New System.Windows.Forms.TreeNode("Otras leyes (parciales)"), New System.Windows.Forms.TreeNode("Decretos no fiscales"), New System.Windows.Forms.TreeNode("Calculadora de actualización y Recargos"), New System.Windows.Forms.TreeNode("Diccionario Fiscal - Contable"), New System.Windows.Forms.TreeNode("Centro de Ayuda y Soporte Técnico")})
Me.TreeView1.SelectedImageIndex = -1
Me.TreeView1.Size = New System.Drawing.Size(232, 344)
Me.TreeView1.TabIndex = 0
'
'TabPage3
'
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(232, 410)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Busqueda"
Me.TabPage3.Visible = False
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.ListBox1)
Me.TabPage2.Controls.Add(Me.ComboBox1)
Me.TabPage2.Controls.Add(Me.Label1)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(232, 410)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Indice"
Me.TabPage2.Visible = False
'
'ListBox1
'
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.ListBox1.Location = New System.Drawing.Point(0, 36)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(232, 329)
Me.ListBox1.TabIndex = 2
'
'ComboBox1
'
Me.ComboBox1.Dock = System.Windows.Forms.DockStyle.Top
Me.ComboBox1.ItemHeight = 13
Me.ComboBox1.Location = New System.Drawing.Point(0, 16)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(232, 20)
Me.ComboBox1.TabIndex = 1
Me.ComboBox1.Text = "ComboBox1"
'
'Label1
'
Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(232, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Escriba la palabra clave a buscar"
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(232, 410)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Favoritos"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.TabControl1.ItemSize = New System.Drawing.Size(60, 18)
Me.TabControl1.Location = New System.Drawing.Point(0, 64)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(240, 436)
Me.TabControl1.TabIndex = 6
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(800, 500)
Me.Controls.Add(Me.Splitter1)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Menu = Me.MainMenu1
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "INFORMACION FISCAL AL INSTANTE"
Me.TransparencyKey = System.Drawing.SystemColors.GrayText
Me.Panel1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Parte de código para cargar la ventana de inicio
'Instanciamos la ventana de inicio
Dim MiSplashForm As New Form2
'Modificamos los valores del control Timer
'de la ventana de inicio
With MiSplashForm.Timer1
.Interval = 1000
.Enabled = True
End With
'Cargamos la ventana de inicio
MiSplashForm.ShowDialog(Me)
MiSplashForm.Dispose()
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Me.Close()
End Sub
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
End Sub
Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint
End Sub
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
End Sub
Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
End Sub
End Class
