Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Braayhaan

#171
Bueno aca les dejo el source haber si me echan una mano ya que no entendi muy bien lo que puso el seba  :-[ me da error

Código (vbnet) [Seleccionar]
Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No se puede compilar un texto vacio")
            Return
        End If
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
            ProgressBar1.Visible = True
            Timer1.Start()
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + SaveFileDialog1.FileName
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Batch Creator" + OpenFileDialog1.FileName
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()
            MessageBox.Show("Se ha creado satisfactoriamente el archivo .bat en la direccion especificada")
            ProgressBar1.Value = ProgressBar1.Minimum
            ProgressBar1.Visible = False
            Return
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("Ya hay un nuevo documento abierto")
            Return
        End If
        Form2.Show()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form3.SHOW()
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

End Class
#172
Me imagino que eso va en el Rich, o quizás en un timer pero me dice error.

Me dice algo de error valuetype-1 is no correct, o algo del value-1, alguna idea?

echame una mano seba!  :xD
#173
Bueno acá esto pidiendoles ayuda de nuevo xD

Necesito que en un Richtextbox se muestre el texto de distintos colores por ejemplo.

Como el GeSHi de este foro que muestra distintos colores segun el texto.

hay alguna manera de hacerlo?

Todo esto en el VB.NET Claro

Saludos!
#175
Bueno si tu imagen es un Picture Box seria Así

Código (vbnet) [Seleccionar]
Private Sub PictureBox1_Click

Me.Hide
Form2.Show

End Sub
#176
.NET (C#, VB.NET, ASP) / Re: Duda con NotifyIcon
2 Septiembre 2009, 02:26 AM
Bueno no creo que te pueda ayudar mucho ya que no se mucho al respecto, yo una vez hice un programa que al darle click al notify icon cerraba el programa.

Prueba con las Declaracions "click" de Notify icon a lo mejor te puede servir de algo.

Saludos !
#177
.NET (C#, VB.NET, ASP) / Re: Spammer V1.2
2 Septiembre 2009, 02:05 AM
mojolloyo20

ya esta version la cambie por la V2.0 Ve el post, hay esta incluido el proyecto + el programa.

Saludos!
#178
jaja si parece que Skeletron le tiene fobia o rabia a los eventos vacios  :xD

Saludos

-----------------EDITO-----------------

Ya los borre  :xD
#179
odeONeSs

ya subi el Proyecto  ;D es quese me habia olvidado :xD