SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: koctail5 en Martes 8 de Enero de 2008, 12:17

Título: Control En El Que Aparece La V De Validad
Publicado por: koctail5 en Martes 8 de Enero de 2008, 12:17
Buenas, Me gustaria saber donde aparece el dibujo en el que sale una V alargada representando algo que se ha validado y es correcto.

Lo que quiero es mientras estoy validando algo que me aparezcan puntos suspensivos y al final la V alargada de correcto.
Título: Re: Control En El Que Aparece La V De Validad
Publicado por: Abhero en Miércoles 9 de Enero de 2008, 20:34
Acaso ese control que describes no es el checkbox?

Imagen Adjunta....
 :whistling:
Título: Re: Control En El Que Aparece La V De Validad
Publicado por: koctail5 en Martes 15 de Enero de 2008, 09:17
No lo que quiero es lo siguiente:

mientras realizo un proceso que en el formulario aparezca:

Realizando proceso...................................V

conforme se realiza el proceso van apareciendo puntos suspensivos y cuando termina que aparezca una V alargada (indicando que todo se ha desarrollado satisfactoriamente.

Un saludo.
Título: Re: Control En El Que Aparece La V De Validad
Publicado por: Abhero en Martes 15 de Enero de 2008, 13:44
Eso lo puedes hacer con un text box utilizando fuentes.

Pon en un formulario un Boton, un textboxt,  un label y un timer.



luego de eso usa este codigo, es mas o menos lo que quieres.


Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static a As Byte = 0
        a = a + 1
        TextBox1.Text = TextBox1.Text & "."
        Label1.Text = a

        If a > 9 Then
            TextBox1.Font = New Font("Wingdings 2", 14)
            TextBox1.Text = "P"
            a = a + 0
            a = 0
            Timer1.Enabled = False
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Font = New Font("times new roman", 14)
        Timer1.Interval = 1000
        Timer1.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub
End Class


 :kicking:
Ab.