para copiar cortar y pegar en visual basic 6.0

					Autor : David Azael Aguayo Rosado                              Tizimin 26 de Septiembre de 2010


Estos son los códigos para cortar, pegar, eliminar, y copiar en visual basic

Private Sub Form_Load()

‘esto es para el inicio del programa

MsgBox "Trabajo realizado por David Aguayo Rosado", vbInformation, "EJERCICIO DE MENU"



End Sub



Private Sub mnuAbandonar_Click()

End

End Sub



Private Sub mnuAbrir_Click()

Dim doc As New Word.Application



  With doc

      .Documents.Open App.Path & Lbl 'abrimos "Mi documento"

      .Visible = True 'hacemos visible Word

  End With

End Sub



Private Sub mnuBorrar_Click()

Txt.SelText = ""

End Sub



Private Sub mnuCopiar_Click()

Clipboard.Clear

  Clipboard.SetText Txt.SelText
Autor : David Azael Aguayo Rosado         Tizimin 26 de Septiembre de 2010


End Sub



Private Sub mnuCortar_Click()

'Limpiar Portapapeles

  Clipboard.Clear

  'Conseguir en el Portapapeles

  'el texto seleccionado.

  Clipboard.SetText Txt.SelText

  ' Borrar el texto seleccionado.

  Txt.SelText = ""

End Sub



Private Sub mnuDireccion_Click()

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then



 Lbl = CommonDialog1.FileName




Else

   Lbl = "NO SELECCIONO NINGUN ARCHIVO"

   End If

End Sub



Private Sub mnuGuardar_Click()

Dim Linea As String

'Titulo del CommonDialog
Autor : David Azael Aguayo Rosado                           Tizimin 26 de Septiembre de 2010


CommonDialog1.DialogTitle = "Escriba el nombre del archivo de texto"



'Extension del CommonDialog. Archivo de tipo txt

CommonDialog1.Filter = "Archivos de texto Txt|*.txt"



'Abrimos el CommonDialog

CommonDialog1.ShowSave



If CommonDialog1.FileName = "" Then

 'salimos ya que no se ha seleccionado ningún archivo

 Exit Sub

Else

 If Txt = "" Then

  MsgBox "Debe escribir algo en el text1 para poder crear el archivo"

  'Salimos de la rutina ya que no hay nada que guardar

  Exit Sub

 End If

  'Creamos un archivo con la sentencia OutPut, pasandole la ruta _

  con la pro piedad FileName del Commondialog

  Open CommonDialog1.FileName For Output As #1



  'Escribimos en el archivo el contenido de Text1

  Print #1, Txt

       MsgBox "LOS DATOS HAN SIDO GUARDADOS", vbExclamation

 'Cerramos el archivo

 Close

End If
Autor : David Azael Aguayo Rosado   Tizimin 26 de Septiembre de 2010


End Sub



Private Sub mnuPegar_Click()

Txt.SelText = Clipboard.GetText()

End Sub