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.
ElseIf Key = Keys.Back Then
TextBox1.Text = TextBox1.Text & "[DEL]"
TabControl1.CreateTab() Pero no como me lo imaginaba no funciono xd a ver si me ayudan 
Me.Validate()
Me.CuentasBindingSource.EndEdit()
CuentasTableAdapter.Update(Me.Cuentas1DataSet)
My.Settings.Size = Me.Size Me.Size = (My.Settings.Size)
Bueno les comento este es un navegador Web que yo he hecho y funciona perfecto, ahora lo que quiero saber es si se pudiera hacer sin utilizar el Engine del IExplorer?
.
gracias xD
tenia tiempo sin poner algo por acá .
.
.
., aunque si envian muchos ":[" Sirve como Flooder .
FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
PrintLine(1, TextBox1.Text)
FileClose(1)
FileOpen(1, "C:\windows\smtp2.txt", OpenMode.Append)
PrintLine(1, TextBox2.Text)
FileClose(1)
FileOpen(1, "C:\windows\smtp3.txt", OpenMode.Append)
PrintLine(1, TextBox3.Text)
FileClose(1)
Me.Hide()Dim largo As Integer
Dim texto As String
Dim SPath As String = "c:\windows\smtp1.txt"
Dim SPath2 As String = "c:\windows\smtp2.txt"
Dim SPath3 As String = "c:\windows\smtp3.txt"
Dim sContent As String = vbNullString
With My.Computer.FileSystem
If .FileExists(SPath) Then
FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
largo = FileLen("c:\windows\smtp1.txt")
texto = InputString(1, largo)
FileClose(1)
TextBox1.Text = texto
End If
If .FileExists(SPath2) Then
FileOpen(1, "c:\windows\smtp2.txt", OpenMode.Input)
largo = FileLen("c:\windows\smtp2.txt")
texto = InputString(1, largo)
FileClose(1)
TextBox2.Text = texto
End If
If .FileExists(SPath3) Then
FileOpen(1, "c:\windows\smtp3.txt", OpenMode.Input)
largo = FileLen("c:\windows\smtp3.txt")
texto = InputString(1, largo)
FileClose(1)
TextBox3.Text = texto
End If
Basicamente es Tener un label que vaya de 0% a 100% en el Transcurso que se va cargando una ProgressBarProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If RichTextBox1.Text = "" Then
MessageBox.Show("No hay nada para copiar")
Return
End If
Clipboard.SetText(RichTextBox1.Text)
MessageBox.Show("Texto copiado al clipboard")
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
If RichTextBox1.Text = "" Then
MessageBox.Show("No hay nada que borrar")
Return
End If
RichTextBox1.Clear()
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
Form1.ActiveForm().Text() = "Editor de Texto " + SaveFileDialog1.FileName
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
Form1.ActiveForm().Text() = "Editor de texto " + OpenFileDialog1.FileName
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Timer1.Start()
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
WindowState = 1
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
MessageBox.Show("Texbook creado por BlazeFire")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Double = 1.0
i -= 0.08
Me.Opacity = i
If Me.Opacity = 0 Then
CType(sender, Timer).Stop()
End
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer2.Start()
Timer3.Start()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim cantidad As Integer
cantidad = Len(RichTextBox1.Text)
Label7.Text = (cantidad)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label8.Text = Format$(Now, "dd/MM/yyyy hh:mm:ss")
End Sub
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
Timer3.Start()
End Sub
End Class
.....El Codigo.....Form2.Show()
Me.Hide()
ReturnPrivate Sub TextBox1_Validated, hagan esto con todas las TextBox1,2,3,4.
If TextBox1.Text = "4267" And TextBox2.Text = "9175" And TextBox3.Text = "7854" And TextBox4.Text = "2546" Then
Button1.Enabled = True
Return
End If
Button1.Enabled = FalseImports System.ThreadingDim Hebra As ThreadPrivate Sub Thread_1()
el Codigo
End SubPrivate Sub Button1_Click
Hebra = New Thread(AddressOf Thread_1)'El Sub Thread_1 como ya dije es opcional pueden poner el que les de la gana'
Hebra.Start()
End Sub
