Visual Basic 6.0 - Tecnun

ESIISS: Aprenda Visual Basic 6.0 como si estuviera en Primero página 68Private Sub mnuTextFontCou_Click()mnuTextFontArial.Checked = FalsemnuTextFontTimes.Checked = FalsetxtBox.Font.Name = "Courier New"mnuTextFontCou.Checked = TrueEnd SubPrivate Sub mnuTextFontTimes_Click()mnuTextFontArial.Checked = FalsemnuTextFontCou.Checked = FalsetxtBox.Font.Name = "Times New Roman"mnuTextFontTimes.Checked = TrueEnd SubPrivate Sub mnuTextSizeA_Click(Index As Integer)Dim i As IntegerFor i = 0 To 4mnuTextSizeA(i).Checked = FalseNext iSelect Case IndexCase 0txtBox.Font.Size = 10Case 1txtBox.Font.Size = 11Case 2txtBox.Font.Size = 12Case 3txtBox.Font.Size = 13Case 4txtBox.Font.Size = 14End SelectmnuTextSizeA(Index).Checked = TrueEnd SubPrivate Sub mnuTextStyleBold_Click()txtBox.Font.Bold = Not txtBox.Font.BoldmnuTextStyleBold.Checked = Not mnuTextStyleBold.CheckedEnd SubPrivate Sub mnuTextStyleItalic_Click()txtBox.Font.Italic = Not txtBox.Font.ItalicmnuTextStyleItalic.Checked = Not mnuTextStyleItalic.CheckedEnd Sub5.6 MENÚS CONTEXTUALES (POPUP MENU)Los menús contextuales aparecen cuando el usuario clica con el botón derecho sobre un elementode la aplicación. El programa debe reconocer el evento MouseUp o MouseDown, ver si el usuarioha clicado con el botón derecho (argumento Button igual a 2) y llamar al método PopupMenu, quetiene la siguiente forma general:PopupMenu menuName [,flags[,x[,y]]]donde menuName ee el nombre de un menú (con al menos un elemento), x e y son las coordenadasbase para hacer aparecer el menú contextual, y flags son unas constantes que determinan más enconcreto dónde y cómo se muestra el menú. Las constantes que determinan dónde aparece el menúson: vbPopupMenuLeftAlign (default), vbPopupMenuCenterAlign y vbPopupMenuRightAlign. Porotra parte vbPopupMenuLeftButton (default) y vbPopupMenuRightButton determinan si el comandose activa con el botón izquierdo o con cualquiera de los dos botones. Las constantes se combina conel operador Or. El nombre del menú que aparece en el método PopupMenu debe haber sido creadocon el Menu Editor, aunque puede tener la propiedad Visible a False, si no se desea que se vea.