Red de conocimiento informático - Conocimiento del nombre de dominio - Necesitamos urgentemente un código de software de bloc de notas VB.NET.

Necesitamos urgentemente un código de software de bloc de notas VB.NET.

SelStart Text1.SelLength 1)

End Sub

Sub privado findMenu_Click()

Search = InputBox("Ingrese la palabra que está buscando for :")

Dim Where1 'Obtiene la variable de la cadena a encontrar

Text1. SetFocus 'El cuadro de texto se enfoca y muestra el contenido encontradoSearch = InputBox("Ingrese la palabra que está buscando:")

Where1 = InStr(Text1.MsgBox "La cadena que está buscando no estaba encontrado.", vbInformation, "Preguntar"

Finalizar si

Finalizar sub

Sub privado findNextMenu_Click()

Atenuar Where2

Dim StartMe As Integer 'Encuentra la posición inicial de la variable de posición

Text1.SetFocus 'El cuadro de texto recibe el foco

StartMe = Text1.SelLength Text1.SelLength = Text1.SelLength = Text1. SelLength = Text1.SelLength = Text1.SelLength = Text1.SelLength = Text1.SelLengthSelLength Text1.SelStart 1 'Asignar un valor a la variable

Where2 = InStr(StartMe, Text1. Buscar ) 'Haz que busque desde la última vez Comienza en la posición

Si Where2 Then

Text1.SelStart = Where2 - 1

Text1.SelLength = Len( Buscar)

De lo contrario :MsgBox "No se encontró la cadena que busca. Cadena".

, vbInformation, "Sugerencia"

Finalizar si

End Sub

Sub privado aboutMenu_Click()

MsgBox Space(2) amp; "Número de versión del editor de texto 1.0" amp; Chr(13) amp "Desarrollado por Tianfu College, Southwestern University of Finance and Economics" amp; Chr(13) amp; Space(2) amp; "copyright: Tianfu College"

End Sub

Sub privado allMenu_Click()

Text1.CommonDialog1. Acción = 3

Text1.ForeColor = Form1.CommonDialog1.Color

End Sub

Sub privado cutMenu_Click()

Clipboard.SetText Text1.SelText

Text1.Text = Izquierda(Text1.Text, Text1.SelStart) Mid(Text1.SelStart, Text1.SelStart).SelStart) Mid(Text1.Text, Text1.SelStart Text1.SelLength 1 )

Fin Sub

Sub privado exitMenu_Click()

Fin

Fin Sub

Sub privado fontMenu_Click( ) 'Código de menú de fuente

Form1.Form1.CommonDialog1.Flags = 3 o 256

Form1.CommonDialog1.Action = 4

If Len(Form1.CommonDialog1 .FontName) = 0 Entonces

Form1.Text1.FontName = "宋体"

De lo contrario

Form1.Text1.FontName = Form1.CommonDialog1.FontName

Finalizar si

Form1.Text1.FontSize = Form1.CommonDialog1.FontName

Finalizar si

Form1.Text1.FontSize = Form1.CommonDialog1 .FontName

Form1.CommonDialog1.ShowHelp

End Sub

Sub privado newMenu_Click()

If Len(Trim(Text1.Text )) = 0 Entonces

Form1.Caption

= "Mi Bloc de notas" & "--" & "Sin nombre"

sFileName = "Sin nombre"

Text1.FontSize = 15

上篇: Suministros de Cai Hua 下篇: ¿Cuál es mejor entre las tres escuelas secundarias de Yanji No. 4 Middle School, No. 7 Middle School y No. 9 Middle School?

Artículos populares