Autor
|
Tema: [Duda] TabControl1 (Leído 2,585 veces)
|
Br1ant
Desconectado
Mensajes: 791
Incluso la "nada" es un "algo"
|
¡Buenas! Creé un sencillo programa con un WebBrowser, un TabControl y un TextBox (más unos botones). El pequeño inconveniente es cuando el usuario ingresa a un sitio web. Bueno, ingresa, y la URL del sitio se "captura" en el TextBox1. Por ejemplo, http://www.bing.com/.Luego al crear una nueva Tab con TabControl1, ingresa a otro sitio, y también la URL se captura en TextBox1, aquí, por ejemplo, http://www.google.com/. Cuando nuevamente el usuario regresa al Tab anterior (Bing) aparece la URL anterior (Google). Mi pregunta es, ¿cómo es posible que TextBox1 "guarde" cada URL por cada Tab seleccionada? Que no se combinen. ¡Saludos!
|
|
|
En línea
|
Namasté, criatura.
|
|
|
XresH
|
Tenes varias maneras, podrias crear un listado o array para almacenar lo que se va ingresando y luego "consulte" segun un index del tab (manejado por vos a traves una variable o como quieras) Tambien utilizando un listbox que "almacene" de manera temporal los accesos. Podrias crear una matriz con textbox.
Si pones que codigo tenes podemos ver la mejor forma y opinar sobre alguna solucion.
Saludos.
|
|
« Última modificación: 10 Septiembre 2014, 05:26 am por XresH »
|
En línea
|
|
|
|
Br1ant
Desconectado
Mensajes: 791
Incluso la "nada" es un "algo"
|
¡Buenas XresH! No sabría que responder. Soy un poco novato para esto. Aunque eso del ListBox suena bien. Si bien entiendo, dices que cada URL del TextBox vaya almacenándose allí, ¿no? Y luego cuando se cambie de pestaña se copie dicha URL al TextBox. Algo así. No sé que código poner, haber si éste guía un poco: Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Me.DocumentCompleted Form1.Text = Me.DocumentTitle & "" Dim Tabpage As TabPage = Me.Tag Tabpage.Text = Me.DocumentTitle Try Form1.TextBox1.Text = Me.Url.AbsoluteUri Catch ex As Exception End Try If Me.CanGoBack = True Then Form1.Button1.Enabled = True Else Form1.Button1.Enabled = False End If If Me.CanGoForward = True Then Form1.Button2.Enabled = True Else Form1.Button2.Enabled = False End If End Sub ¡Saludos!
|
|
|
En línea
|
Namasté, criatura.
|
|
|
-- KiLiaN --
Desconectado
Mensajes: 1.163
Ju Já!!
|
Crea un textbox2.
|
|
|
En línea
|
|
|
|
XresH
|
Mi idea era otra porque supuse que programabas en Visual basic 6, no importa pero digo para que coloques los temas en el lugar correcto, tal vez hubiese contestado alguien antes que yo pero no lo sabrian porque tu tema no esta en .NET.
Hice un codigo de ejemplo manipulando el tab con 3 paginas. Dentro de los tabs coloque 3 WebBrowser, 1 textbox y un boton de comando.
Lo que hace el ejemplo es recargar las paginas que se le indica partiendo del tab seleccionado, luego lo modifica en el listbox anteriormente cargado, para cuando se vuelva a hacer clic en el tab, al tener "en foco" el mismo busca en el listado del listbox y lo agrega al textbox de url, claro que no encajara exactamente a tu proyecto, eso debes encargarte, ya que eres novato te sera util, porque manipulo elementos basicos:Public Class Form1 Dim ListaUrl() As String Private Sub cmdIr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIr.Click Dim webS As Byte 'obtenemos en la variable webS el tab seleccionado webS = TabControl1.SelectedIndex 'depende el tab seleccionado es donde recargara la url puesta Select Case webS Case 0 'si esta seleccionado el tab 1 Web1.Navigate(Trim(txtUrl.Text)) 'actualiza en el listbox (el index se obtiene desde el tab seleccionado) listUrl.Items.Item(webS) = Trim(txtUrl.Text) Case 1 'si esta seleccionado el tab 2 Web2.Navigate(Trim(txtUrl.Text)) listUrl.Items.Item(webS) = Trim(txtUrl.Text) Case 2 'si esta seleccionado el tab 3 Web3.Navigate(Trim(txtUrl.Text)) listUrl.Items.Item(webS) = Trim(txtUrl.Text) End Select End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load listUrl.Items.Clear() ReDim Preserve ListaUrl(3) 'redimensionamos, aca depende la cantidaad de tabs, yo uso 3 como ejemplo 'tambien se podria declarar junto con la variable Dim ListaUrl(0 to 2) como gustes. 'cargamos el listbox con los items para solo edditarlos luego al recargar las paginas listUrl.Items.Add("( Pagina 1 )") listUrl.Items.Add("( Pagina 2 )") listUrl.Items.Add("( Pagina 3 )") End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click If listUrl.Items.Count = 0 Then Exit Sub 'sino hay elementos salimos txtUrl.Text = listUrl.Items.Item(TabControl1.SelectedIndex) End Sub End Class
Espero sirva, saludos.
|
|
|
En línea
|
|
|
|
Br1ant
Desconectado
Mensajes: 791
Incluso la "nada" es un "algo"
|
¡Buenas!
¡Gracias viejo! Me has ayudado un montón. Dejé el programita y recién esta semana lo he vuelto a administrar.
Ha funcionado a la perfección.
Si quieres, te pongo en los créditos xD!
¡Saludos!
|
|
|
En línea
|
Namasté, criatura.
|
|
|
XresH
|
¡Buenas!
¡Gracias viejo! Me has ayudado un montón. Dejé el programita y recién esta semana lo he vuelto a administrar.
Ha funcionado a la perfección.
Si quieres, te pongo en los créditos xD!
¡Saludos!
No es obligacion, al menos yo estoy para colaborar en la comunidad, me alegro haberte ayudado, suerte con tu proyecto y si tienes dudas ya sabes !
Saludos.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Pequeña duda con un comando batch (NUEVA DUDA RELACIONADA)
Scripting
|
revenge1252
|
9
|
9,752
|
13 Febrero 2008, 21:41 pm
por revenge1252
|
|
|
Duda duda y duda de Metasploit
Bugs y Exploits
|
huber_nomas
|
4
|
5,785
|
17 Febrero 2012, 14:00 pm
por MauroMasciar
|
|
|
Duda facil, [VIDEO QUE EXPLICA MI DUDA]
Diseño Gráfico
|
Ngeooz
|
6
|
8,866
|
2 Diciembre 2013, 19:33 pm
por Ngeooz
|
|
|
[DUDA] Cambiar letra de unidad a archivo con un Batch [DUDA]
« 1 2 »
Windows
|
MrMaticool
|
10
|
11,320
|
12 Febrero 2014, 17:55 pm
por MrMaticool
|
|
|
[DUDA][LICENCIA][GPL]tengo una duda sobre las caracteristicas de la licencia GPL
Dudas Generales
|
Noxware
|
0
|
1,870
|
2 Mayo 2014, 00:34 am
por Noxware
|
|