Cómo usar VB para hacer un bloc de notas

Categoría: Computadora/Red gt; Programación gt; Otros lenguajes de programación

Análisis:

Esto es lo que hice por primera vez. Aprendí la función Muy pocas, agreguemos algunas ideas a la mezcla

Primero agregue un formulario MID, MDIForm1

El código es

Private Sub allselect_Click( )'Seleccionar todo

MDIForm1.ActiveForm.Text1.selatart = 0

MDIForm1.ActiveForm.Text1.SelLength = Len(MDIForm1.ActiveForm.Text1.Text)

End Sub

Private Sub mycut_Click()'Clip

Clipboard.SetText MDIForm1.ActiveForm.ActiveControl.SelText

MDIForm1.ActiveForm.ActiveControl.SelText = " "

Fin Sub

Sub Privado mynew_Click()Nuevo

loadnewdoc

Fin Sub

Sub Privado loadnewdoc()

Ldocumentcount estático siempre que

Dim frmd As Form1

ldocumentcount = ldocumentcount 1

Establecer frmd = Nuevo Form1

frmd. Caption = "Documento" & ldocumentcount

frmd.Show

End Sub

Agregue otro subformulario MID, Form1, y agregue un cuadro de texto, el tamaño es tan grande como todo el formulario

El código es

Private Sub loadnewdoc()

Ldocumentcount estático siempre y cuando

Dim frmd As Form1

ldocumentcount = ldocumentcount 1

Establecer frmd = Nuevo Form1

frm.Caption = "Documento" & ldocumentcount

frmd.Show

End Sub

Private Sub Form_QueryUnload(Cancelar como entero, UnloadMode como entero)

guardar archivo Texto1.Text

Fin Sub

Sub privado Form_Resize()

MDIForm1.ActiveForm.Text1.Left = MDIForm1.ActiveForm.ScaleLeft

MDIForm1.ActiveForm.Text1.Top = MDIForm1.ActiveForm.ScaleTop

p> MDIForm1.ActiveForm.Text1.Width = MDIForm1.ActiveForm.ScaleWidth

MDIForm1.ActiveForm.Text1.Height = MDIForm1.ActiveForm.ScaleHeight

Fin Sub