Red de conocimiento informático - Problemas con los teléfonos móviles - Tarea de programación en VB

Tarea de programación en VB

¿Importaciones?System.IO

¿Pública?Clase?Form1

Dim?needSave?As?Boolean?=?False

Dim ?currentFileName?As?String

Privado?Sub?TMenuItemFont_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemFont.Click

Dim?fd?As?New?FontDialog

fd.Font?=?RTexEide.Font

Si?(fd.ShowDialog()?=?Windows.Forms. DialogResult.OK)?Entonces

RTexEide.SelectionFont?=?fd.Font

¿Fin?Si

fd.Dispose()

Fin?Sub

¿Privado?Sub?TMenuItemColor_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemColor.Click

Dim?cd?As?New?ColorDialog

cd.AllowFullOpen?=?True

cd.Color?=?RTexEide.ForeColor

Si?( cd.ShowDialog()?=?Windows.Forms.DialogResult.OK?Entonces

RTexEide.SelectionColor?=?cd.Color

Fin?Si

cd.Dispose()

Fin?Sub

Privado?Sub?TMenuItemBackColor_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs) ?Handles?TMenuItemBackColor.Click

Dim?cd?As?New?ColorDialog

cd.AllowFullOpen?=?True

cd.Color?=?RTexEide .ForeColor

¿Si?(cd.ShowDialog()?=?Windows.Forms.DialogResult.OK)?Entonces

RTexEide.BackColor?=?cd.Color

¿Fin?Si

cd.Dispose()

Fin?Sub

¿Privado?Sub?TMenuItemTime_Click(ByVal?sender?As?System.Object ,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemTime.Click

RTexEide.Text?=?RTexEide.Text?

Ahora

¿Fin?Sub

¿Privado?Sub?RTexEide_TextChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?RTexEide. TextChanged

RTexEide.SelectionStart?=?RTexEide.Text.Length

RTexEide.ScrollToCaret()

needSave?=?True

¿Fin?Sub

Privado?Sub?TMenuItemNew_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemNew.Click

If?needSave?=?True?Then

Dim?result?As?DialogResult?=?MessageBox.Show("El contenido del texto ha cambiado, ¿necesita guardarlo?",?"Guardar archivo ",?MessageBoxButtons .YesNoCancel)

Si?resultado?=?Windows.Forms.DialogResult.Sí?Entonces

TMenuItemSave_Click(remitente,?e)

RTexEide.Clear( )

Me.Text?=?"Editar texto--Nuevo texto"

needSave?=?False

Fin?Si

If?result?=?Windows.Forms.DialogResult.No?Then

RTexEide.Clear()

Me.Text?=?Editar texto-- Nuevo texto"

needSave?=?False

Fin?If

Else

RTexEide.Clear()

Yo. Texto?=?"Texto Editar nuevo texto"

Fin?Si

Fin?Sub

Privado?Sub?TMenuItemOpen_Click(ByVal?sender ?Como?System .Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemOpen.Click

Si?needSave?=?True?Then

Dim?reslt ?As?DialogResult ?=?MessageBox.Show("El contenido del texto ha cambiado, ¿necesita guardarlo?",?"Guardar archivo",?MessageBoxButtons.YesNoCancel)

If?reslt?= ?Windows.Forms.DialogResult.Sí ?Entonces

TMenuItemSave_Click(remitente,?e)

needSave?=?False

Fin?Si

¿Fin?Si

Dim?fileName?As?String?=?GetOpenFile()

Si?fileNa

yo?lt;gt;?""?Entonces

nombre de archivo actual?=?nombre de archivo

OpenFile()

¿Fin?Si

¿Fin?Sub

Privado?Sub?OpenFile()

Probar

Dim?f?As?New?FileInfo(currentFileName)

Dim?reader?As?StreamReader?=?f.OpenText()

RTexEide.Text?=?reader.ReadToEnd()

reader.Close()

Me.Text?=?"Edición de texto——"? ?f.Name

Catch?ex?As?Exception

MessageBox.Show(ex.Message)

¿Fin?Intentar

Fin?Sub

¿Privado?Función?GetOpenFile()?As?String

¿Dim?openFile?As? ¿Nuevo?OpenFileDialog

openFile.Title?=?"Abrir archivo de texto"

openFile.InitialDirectory?=?Environment.SpecialFolder.Desktop

openFile.CheckFileExists? =?True

openFile.CheckPathExists?=?True

openFile.AddExtension?=?True

openFile.Multiselect?=?False

openFile.Filter?=?"Archivos de texto?(*.txt)|*.txt|¿Todos los archivos?(*.*)|*.*"

Si?(openFile.ShowDialog() ?=?DialogResult.OK)?Entonces

¿Regresar?openFile.FileName

Si no

¿Regresar?Nada

¿Fin?Si

¿Fin?Función

¿Privado?Sub?TMenuItemSave_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemSave.Click

Si?currentFileName?=?""?Entonces

TMenuItemSaveA_Click(remitente,?e)

Else

Guardar archivo(RTexEide.Text )

¿Fin?Si

needSave?=?False

Fin?Sub

¿Privado?Sub?SaveFile(ByVal?str? As?String)

Probar

Dim?write?As?New?StreamWriter(currentFileName)

write.Write(str)

escribir.Cerrar(

)

¿Catch?ex?As?Exception

MessageBox.Show(ex.Message)

¿Fin?Intentar

Fin?Sub

¿Privado?Sub?TMenuItemSaveA_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemSaveA.Click

Dim?file ?As?String?=?GetSavefile()

Si?file?lt;gt;?""?Entonces

currentFileName?=?file

Guardar archivo (RTexEide.Text)

Dim?f?As?New?FileInfo(currentFileName)

Me.Text?=?"Editar texto--" ?f.Name

needSave?=?False

¿Fin?Si

Fin?Sub

¿Privado?Función?GetSavefile()

Dim?saveFile?As?New?SaveFileDialog

saveFile.Title?=?"Guardar archivo de texto"

saveFile.InitialDirectory?=?Environment.SpecialFolder.Desktop

saveFile.OverwritePrompt?=?True

saveFile.CreatePrompt?=?True

saveFile.AddExtension?=?True

saveFile.Filter?= ?"¿Archivos de texto?(*.txt)|*.txt|¿Todos los archivos?(*.*)|*.*"

If?saveFile.ShowDialog()?=?DialogResult.OK?Then

¿Regresar?guardarArchivo.NombreDeArchivo

Si no

¿Regresar?Nada

¿Fin?Si

¿Fin?Función

¿Privado?Sub?TMenuItemPageset_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemPageset.Click

Dim?pageset ?Como?Nuevo?PageSetupDialog

pageset.Document?=?PrintDocument1

pageset.ShowDialog()

Fin?Sub

Privado ?Sub?TMenuItemPrint_Click(ByVal?sender?As?System.Object, ?ByVal?e?As?System.EventArgs)?Handles?TMenuItemPrint.Click

Dim?prDialog?As?New?PrintDialog

rDialog.Document?=?PrintDocument1

Si?prDialog.ShowDialog()?=?Windows.Forms.DialogResult.OK?Entonces

Intente

PrintDocument1. Print()

¿Capturar?ex?As?Exception

MessageBox.Show(ex.Message)

¿Fin? Intentar

Fin ?If

End?Sub

Privado?Sub?TMenuItemExit_Click(ByVal?sender?As?System.Object, ?ByVal?e?As?System.EventArgs)?Handles?TMenuItemExit .Hacer clic

Me.Close()

Fin?Sub

Privado?Sub?TMenuItemUndo_Click(ByVal?remitente?As?System.Object, ?ByVal? e?As?System.EventArgs)?Handles?TMenuItemUndo.Click

If?RTexEide.CanUndo?=?True?Then

RTexEide.Undo()

¿Fin?Si

Fin?Sub

Privado?Sub?TMenuItemCut_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles ?TMenuItemCut.Click

Si?RTexEide.SelectedText?lt;gt;?""?Entonces

RTexEide.Cut()

Fin?Si

Fin?Sub

¿Privado?Sub?TMenuItemCopy_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemCopy.Click

Si?RTexEide.SelectionLength?gt;?0?Entonces

RTexEide.Copy()

Fin?Si

Fin?Sub

¿Privado?Sub?TMenuItemPast_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemPast.Click

If?Clipboard. GetDataObject().GetDataPresent(DataFormats.Text)?Entonces

Si?RTexEide.SelectionLength?gt;?0?Entonces

Dim?result?As?DialogResult?=?MessageBox. Show("¿Desea sobrescribir el texto seleccionado?",?"Confirmación de sobrescritura",?MessageBoxButtons.YesNo)

p>¿Si?(resultado?=?Windows.Forms.DialogResult.No)?Entonces

RTexEide.SelectionStart?=?RTexEide.SelectionStart? ?RTexEide.SelectionLength

Fin?Si

¿Fin?Si

RTexEide.Paste()

¿Fin?Si

Fin?Sub

Privado ?Sub?TMenuItemDelete_Click(ByVal?sender?As?System.Object, ?ByVal?e?As?System.EventArgs)?Handles?TMenuItemDelete.Click

RTexEide.SelectedText.Remove(0,?RTexEide. SelectionLength)

RTexEide.SelectedText?=?""

Fin?Sub

Privado?Sub?TMenuItemSellall_Click(ByVal?sender?As?System.Object, ?ByVal?e?As?System.EventArgs)?Handles?TMenuItemSellall.Click

RTexEide.SelectAll()

Fin?Sub

Privado?Sub? TMenuItemEdit_DropDownOpened(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemEdit.DropDownOpened

If?Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) ?Entonces

TMenuItemPast.Enabled?=?True

Else

TMenuItemPast.Enabled?=?False

Fin?Si

Si?RTexEide.SelectionLength?gt;?0?Entonces

TMenuItemCopy.Enabled?=?True

TMenuItemCut.Enabled?=?True

TMenuItemDelete.Enabled?=?True

Else

TMenuItemCopy.Enabled?=?False

TMenuItemCut.Enabled?=?False

TMenuItemDelete.Enabled?=?False

¿Fin?Si

¿Si?(RTexEide.CanUndo?=?True)?Entonces

TMenuItemUndo.Enabled? =?Verdadero

Else

TMenuItemUndo.Enabled?=?False

Fin?Si

Fin?Sub

Privado?Sub?ImprimirDocumento

1_PrintPage(ByVal?sender?As?System.Object,?ByVal?e?As?System.Drawing.Printing.PrintPageEventArgs)?Handles?PrintDocument1.PrintPage

Dim?linesPerPage?As?Single?=? 0

¿Dim?yPos?As?Single?=?0

Dim?count?As?Integer

Dim?leftMargin?As?Single?=? e.MarginBounds.Left

Dim?topMargin?As?Single?=?e.MarginBounds.Top

Dim?line?As?String?=?""

Dim?streamToPrint?As?New?StreamReader(currentFileName)

Dim?brush?As?New?SolidBrush(RTexEide.ForeColor)

linesPerPage?=?e.MarginBounds .Height?/?RTexEide.Font.GetHeight(e.Graphics)

Mientras?count?lt;?linesPerPage?And?((line?=?streamToPrint.ReadLine())?lt;gt; ?"")

yPos?=?topMargin? (count?*?RTexEide.Font.GetHeight(e.Graphics))

e.Graphics.DrawString(línea,? RTexEide.Font,?brush,?leftMargin,?yPos,?New?StringFormat())

count?0

Fin?While

Si ?(line?lt;gt;?"")?Entonces

e.HasMorePages?=?True

Else

e.HasMorePages?=?False

¿Fin?Si

Fin?Sub

Privado?Sub?Form1_FormClosing(ByVal?sender?As?System.Object,?ByVal?e?As? System.Windows.Forms.FormClosingEventArgs)?Handles?MyBase.FormClosing

If?needSave?=?True?Then

Dim?result?As?DialogResult?=?MessageBox.Show ("El contenido del texto ha cambiado, ¿necesita guardarlo?",? "Guardar archivo",?MessageBoxButtons.YesNoCancel)

If?result?=?DialogResult.Cancel?Then

e .Cancel?=?True

Fin?If

If?result?=?DialogResult.Yes?Then

TMenuItemSave_Click(remitente

,?e)

e.Cancel?=?False

Fin?Si

Fin?Sub p>

¿Privado?Sub?TMenuItemWord_CheckedChanged(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?TMenuItemWord.CheckedChanged

If?TMenuItemWord .Marcado ?=?Verdadero?Entonces

RTexEide.WordWrap?=?True

De lo contrario

RTexEide.WordWrap?=?Falso

Fin ?If

End?Sub

Privado?Sub?Form1_Load(ByVal?sender?As?System.Object, ?ByVal?e?As?System.EventArgs)?Handles ?MyBase .Load

Me.StartPosition?=?FormStartPosition.CenterScreen

Fin?Sub

Fin?Clase

上篇: ¿Cuál es el orden de las tramas históricas de "Danganronpa"? ¿Cuál debería jugar primero un novato al ingresar al juego? 下篇: Cómo abrir el teclado del portátil thinkpad

Tarea de programación en VB

Artículos populares