Mensajes

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:

Código (vbnet) [Seleccionar] Expandir

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.

A ver si entiendo, queres que al terminar de cargar el form, automaticamente se cierre el mismo que carga?

A ver si este código te funciona, lo tengo en un proyecto que la imagen tiene una forma distinta (a la de los form tradicionales) pero no posee partes transparentes, fijate si te sirve para lo que necesitas, de lo contrario podrias intentar codearlo para que haga lo que decis, en este caso coloco una imagen y el form adapta la forma de la misma, el code no lo hice yo y no recuerdo de donde lo saque ya que fue hace mucho tiempo:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Arrastre As Boolean
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim imagen As Image = Bitmap.FromFile("C:\url.jpg")
        Me.BackgroundImage = imagen
        Me.Height = imagen.Height
        Me.Width = imagen.Width
        Dim mibitmap As Bitmap = CType(imagen, Bitmap)
        Me.Region = ObtenerRegionDelBitmap(mibitmap, mibitmap.GetPixel(0, 0))
    End Sub
    Private Function ObtenerRegionDelBitmap(ByVal MiImagen As Bitmap, ByVal ColorTransparente As Color) As Region
        Dim RegionLocal As Region
        If MiImagen Is Nothing Then Return RegionLocal
        Dim ColorDeFondo As Color = ColorTransparente
        Dim Largo As Integer = MiImagen.Height - 1
        Dim Ancho As Integer = MiImagen.Width
        Dim Fila As Integer
        Dim Columna As Integer
        RegionLocal = New Region(New Rectangle(0, 0, 0, 0))
        For Fila = 0 To Largo
            Dim ColumnaComienzo As Integer = -1
            Dim ColumnaFin As Integer = -1
            For Columna = 0 To Ancho
                If Columna = Ancho Then
                    If ColumnaComienzo <> -1 Then
                        ColumnaFin = Columna
                        Dim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
                        RegionLocal.Union(regUnion)
                        regUnion = Nothing
                    End If
                Else
                    If Not MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
                        If ColumnaComienzo = -1 Then ColumnaComienzo = Columna
                    ElseIf MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
                        If ColumnaComienzo <> -1 Then
                            ColumnaFin = Columna
                            Dim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
                            RegionLocal.Union(regUnion)
                            regUnion = Nothing
                            ColumnaComienzo = -1
                            ColumnaFin = -1
                        End If
                    End If
                End If
            Next
        Next
        Return RegionLocal
    End Function
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Arrastre = True
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        Arrastre = False
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If Arrastre Then Me.Location = Me.PointToScreen(New Point(e.X, e.Y))
    End Sub
End Class

El unico parametro que tenes que modificar es el de la ubicacion del archivo en cuestion:

Código (vbnet) [Seleccionar] Expandir

Dim imagen As Image = Bitmap.FromFile("C:\url.jpg")

Despues si tenes distinto el nombre del form bueno eso esta demas decirlo.

Espero te sirva.

Creo entender lo que necesitas, pero exactamente tal vez no pensemos lo mismo, yo te muestro el codigo para abrir un formulario nuevo y el anterior cerrarlo, este code funciona si la configuracion de tu Vb es la adecuada (dependiendo la opcion de tu "modo de apagado", que pienso que esta por default (al cerrar el form principal, por lo que no te servira)

Código (vbnet) [Seleccionar] Expandir

       Form2.Show()
        Me.Close()


Deberia bastarte, se entiende que "me", se refiere al formulario que estas viendo, y queres cerrar priori de la carga del form 2, que de manera consecutiva queres verlo y que no quede el form1 ocupando memoria.

Saludos.

Como esta en visual basic, asumi que era en Vb6, en Vb.NET (actualmente uso 2012, en el 2010 creo que era igual)

La propiedad de tu imagen en modo diseño es en

Código (vbnet) [Seleccionar] Expandir

BackGroundImage

Ahi colocas la imagen que hiciste.

Para "desaparecer" los botones y dejar el form completamente sin bordes ni nada usa

En form load (tambien modificas en modo diseño, como gustes)

Código (vbnet) [Seleccionar] Expandir

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Si mal no recuerdo con esas propiedades dejas el Form sin nada con tu imagen en el.

Saludos.

Si tenes algo de importancia para sacar, instala windows sobre windows sin borrar nada, entonces podes obtener los datos que necesitas.
Despues ves si queres recuperar pero si te da el pantallazo azul puede ser Hardware (como no)

Sino tenes nada importante intenta obtener el identificador del error, a veces es dificil porque el numero es largo y el pantallazo es tecnicamente instantaneo, pero sin conocer el numero o algun detalle es dificil de resolver.
Si conseguis algo de info compartila asi vemos de ayudarte.

Saludos.

Podrias ponerle la propiedad del form

Código (vb) [Seleccionar] Expandir

BorderStyle = 0

y luego implementar tu fondo en

Código (vb) [Seleccionar] Expandir

Me.Picture = App.Path & "\nombrefoto.Jpg"

o bien podes realizarlo en modo de diseño.

Si haces esto tenes que manipular algunas apis en conjunto para lograr el arrastre de la ventana desde alguna parte de tu imagen porque al ponerle el estilo de borde en 0 no vas a poder mover el form sin aplicar codigo.

Saludos.

Creo que esto va en Windows, debe estar mal hecho el disco, intentaste con otro? aunque no sea el SO que quieras instalar, para saber si es problema de la lectora o del disco mal realizado.

Saludos.

Creo que es como todo "chiquilin" (aca se le dice asi a los niños) no toma precauciones por lo que venga despues ni piensa en las consecuencias, a ninguno  le paso al hacer alguna lammereada en internet a corta edad?

Por que ese hombre pide disculpas sino realizo el ataque?(en teoria)

segun dicen las malas lenguas (en el chat en cuestion) me acaban de dar su direccion el nombre de su novia edad no lo pongo aca por si es mentira pero bueno si quieren lo paso por pv si estan interesados para confirmarlo con su ip

me llamaron policia en el chat lo que es algo sospechoso xD

Tiene que ser demasiado ingenuo o tiene una desesperacion por llamar la atencion si esto se comprueba = True, debe ser tan empatico en el foro/chat (ese que dicen) que lo venden por frijoles... jaja