Red de conocimiento informático - Problemas con los teléfonos móviles - Código de fuente VB para hacer un bloc de notas

Código de fuente VB para hacer un bloc de notas

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects ' El cuadro de diálogo cdlCFBoth enumera las fuentes de impresora y pantalla disponibles. El cuadro de diálogo cdlCFEffects permite efectos de tachado, subrayado y color.

CommonDialog1.ShowFont 'Mostrar el cuadro de diálogo "Fuente"

Text1.font.Name = CommonDialog1.FontName 'Establecer la fuente

Text1.font.Size = CommonDialog1 .FontSize 'Establece el tamaño de fuente

Text1.font.Bold = CommonDialog1.FontBold 'Establece si se mostrará en negrita

Text1.font.Italic = CommonDialog1.FontItalic 'Establece si se mostrará en cursiva

Text1.FontStrikethru = CommonDialog1.FontStrikethru 'Establece si se mostrará tachado

Text1.FontUnderline = CommonDialog1.FontUnderline 'Establece si se mostrará subrayado

Text1.ForeColor = CommonDialog1.Color 'Establece el color de la fuente

Text2.font.Name = CommonDialog1.FontName 'Establece la fuente

Text2.font.Size = CommonDialog1 .FontSize 'Establece el tamaño de fuente

Text2.font.Bold = CommonDialog1.FontBold 'Establece si se mostrará en negrita

Text2.font.Italic = CommonDialog1.FontItalic 'Establece si mostrar en cursiva

Text2. FontStrikethru = CommonDialog1.FontStrikethru 'Establecer si se mostrará tachado

Text2.FontUnderline = CommonDialog1.FontUnderline 'Establecer si se mostrará subrayado

Text2.ForeColor = CommonDialog1.Color 'Establece el color de la palabra