Buscando el código del botón C++

Paso 1: Dibujar la interfaz.

Cree un nuevo proyecto EXE estándar, cambie su propiedad Título a "Super Bloc de notas" y haga clic en la propiedad Icono para encontrar un icono adecuado para él. Haga clic en el menú "Proyecto" - "Componentes", busque Microsoft RichText Box 6.0 y Microsoft Common Dialog 6.0 en el cuadro de diálogo emergente "Componentes" y selecciónelos, haga clic en el botón "Aceptar". En este momento, los dos nuevos controles que acabamos de agregar aparecen en la barra de herramientas izquierda. Dibuje el cuadro RichText y el cuadro de diálogo Commn en el formulario. El tamaño y la posición del cuadro RichText se pueden ignorar. Lo manejaremos en el código. Por supuesto, es necesario establecer su propiedad ScrollBar en 2-rtfVertica l. al abrir y las barras de desplazamiento vertical solo están disponibles al editar archivos.

Paso 2: Editar menú.

Presione Ctrl+E para abrir el editor de menús. Hagamos los siguientes menús:

1 Menú Archivo:

Archivo (primera capa) mnuFile<. /p>

Nuevo (segunda capa) mnuNew

Abrir (segunda capa) mnuOpen

Guardar (segunda capa) mnuSave

- (Segundo nivel) mnuFileSep (separador)

Salir (segundo nivel) mnuExit

2 Menú Edición:

Editar (primer nivel) mnuEdit

Copiar. (segunda capa) mnuCopy

Cortar (segunda capa) mnuCut

Pegar (segunda capa) mnuPaste

- (Segunda capa) mnuEditSep (separador)

Seleccionar todo (segunda capa) mnuSelecAll

3. Menú de búsqueda:

Buscar (primera capa) mnuSearch

Buscar (segunda capa) mnuFind

Busca el siguiente (segunda capa) mnuFindOn

4. Menú Ayuda:

Ayuda (primer nivel) mnuHelp

Instrucciones de uso ( segundo nivel) mnuUsage

Acerca de (segundo nivel) mnuAbout

(Nota: cada menú configure usted mismo las teclas de acceso directo para los elementos)

Está bien, otro menú Los elementos se agregarán según sea necesario más adelante. Ahora ingresa:

Paso 3: Escribe el código.

'Declarar la variable de búsqueda

Dim sFind As String

'Declarar el tipo de archivo

Dim FileType, FiType As String

'Inicializar programa

Private Sub Form_Load()

'Establecer el tamaño cuando se inicia el programa

Me.Height = 6000

Me.Width = 9000

End Sub

'Establecer la posición y el tamaño del cuadro de edición

Private Sub Form_Resize()

En caso de error, continuar con el siguiente 'Manejo de errores

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40

End Sub

'Nuevo archivo

Sub privado mnuNew_Click()

RichTextBox1.Text = "" 'Borrar el cuadro de texto

FileName = "Sin nombre"

Me.Caption = FileName

End Sub

'Abrir el archivo

Private Sub mnuOpen_Click()

CommonDialog1.Filter = "Documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)| *.rtf|Todos los archivos (*.*)|*.*"

CommonDialog1.ShowOpen

RichTextBox1.Text = "" 'Borrar el cuadro de texto

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "Super Notepad:" & FileName

End Sub

'Guardar archivo

Private Sub mnuSave_Click()

CommonDialog1.Filter = "Documento de texto (*.txt)|*.txt|Documento RTF (*.rtf)| *.rtf|Todos los archivos (* .*)|*.*"

CommonDialog1.ShowSave

FileType = CommonDialog1.FileTitle

FiType = LCase(Derecha (FileType, 3))

FileName = CommonDialog1.FileName

Seleccione Case FiType

Caso "txt"

RichTextBox1.SaveFile FileName , rtfText

Caso "rtf"

RichTextBox1.SaveFile FileName, rtfRTF

Caso "*.*"

RichTextBox1.SaveFile FileName

End Select

Me.Caption = "Super Notepad:" & FileName

End Sub

'Salir

te Sub mnuExit_Click()

End

End Sub

'Copia

Sub privado mnuCopy_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

End Sub

'Cut

Sub privado mnuCut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

' Seleccionar todos

Private Sub mnuSelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text)

Fin Sub

'Pegar

Sub privado mnuPaste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

'Find

Private Sub mnuFind_Click()

sFind = InputBox("Ingrese las palabras que desea buscar:", "Buscar contenido", sFind)

RichTextBox1.Find sFind

End Sub

'Continuar buscando

Private Sub mnuFindOn_Click()

RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

RichTextBox1.Find sFind, , Len(RichTextBox1)

End Sub

'Instrucciones de uso

Private Sub mnuReadme_Click()

En caso de error del controlador GoTo

RichTextBox1.LoadFile "Readme.txt", rtfText 'Escriba el archivo Readme.txt y guárdelo en la carpeta donde se encuentra el programa Medio

Me.Caption = "Super Notepad:" & "Instructions"

Salir de Sub

handler:

MsgBox " Es posible que se hayan eliminado las instrucciones de uso; comuníquese con el autor.

", vbOKOnly, "Mensaje de error"

End Sub

'About

Private Sub mnuAbout_Click()

MsgBox "Super Notepad Ver1 .0 Copyright?0?8 2001 Turen",vbOKOnly,"About"

End Sub

'Establezca el menú emergente (es decir, haga clic con el botón derecho del mouse en el cuadro de edición menú dinámico que aparece)

Private Sub RichTextBox1_MouseDown(Botón como entero, Mayús como entero, X como único, Y como único)

Si el botón = 2, entonces

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Salir de Sub

Finalizar si

Fin de Sub

'Prevenir La fuente cambia automáticamente al cambiar los métodos de entrada (gracias al Sr. Wang Bicheng por proporcionar esta solución)

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeySpace Entonces

RichTextBox1.SelFontName = CommonDialog1.FontName

End If

End Sub

En este punto, nuestro bloc de notas puede compilarse y utilizado Haga clic en el menú ".Archivo"-"Generar XXX.EXE",