Implementación VB de la función Bloc de notas de Windows

Durante la inicialización, cortar, copiar, pegar y eliminar están deshabilitados.

Sub privado EditMenuName_Click()

Si TextEditAreaName.SelLength > 0 entonces

CopySubMenuName.Enabled = True

CutSubMenuName.Enabled = True

DeleteSubMenuName.Enabled = True

De lo contrario

Copia el nombre del submenú. Habilitado = Verdadero

De lo contrario

Copiar nombre del submenú. Enabled = Falso

Cortar el nombre del submenú. Clipboard.GetText) > 0 Luego

Pegar el nombre del submenú.Enabled = True

De lo contrario

Pegar el nombre del submenú.