Come ottenere una msgbox con caratteri ingranditi

Non pochi si sono lamentati per i caratteri troppo piccoli della msgbox ufficiale di Visual Studio. Anche io trovo la msgbox di Visual Studio poco leggibile con i suoi caratteri troppo piccoli.

Però potete risolvere il problema con questo programmino free veramente utile, che potrete provare anche al di fuori di Visual studio: si chiama 'advchange.exe'
Ecco come appare la sua interfaccia:

Per modificare i caratteri delle msgbox bisogna scegliere Message box e impostare la grandezza dei caratteri. Poi si può modificare la grandezza delle icone sul desktop, dei caratteri del titolo delle pagine, e altro. Dopo le modifiche Windows si disconnette e si riconnette da se. Lo potete scaricare da questo sito: http://advanced-system-font-changer.findmysoft.com/

Poi ho studiato un soluzione al problema che credo soddisferà tutti
Ora vi do il codice per ottenere la nostra msgbox personalizzata. Naturalmente la mia è un versione di test. Quindi voi potrete adattarla alle vostre esigenze. Create due form: Form1 e Message (date a Message le dimensioni che volete ma date al pulsante OK la posizione più adatta. Inoltre regolate il valore New Size nel Form1. In Form1 inserite:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Message.Label1.Text = "Il 16 giugno 2011 si è sposata con il calciatore italiano Gianluigi Buffon, cui era legata dal 2005 e dal quale aveva già avuto due figli, nati rispettivamente nel 2007 e nel "
Message.Label1.MaximumSize = New Size(350, 0)
Message.Label1.AutoSize = True
Message.Show()
End Sub

Nel form Message selezionate tutto e poi incollate il seguente testo:

Public Class Message
    Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer



    Private Sub Message_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CenterButton()

    End Sub
    Private Sub Message_Resize(ByVal sender As Object,
                     ByVal e As System.EventArgs) Handles MyBase.Resize
        CenterButton()
    End Sub
    Private Sub CenterButton()

        Label1.Top = (Me.ClientSize.Height / 2) - (Label1.Height / 2)
        Label1.Left = (Me.ClientSize.Width / 2) - (Label1.Width / 2)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Message_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
        drag = True
        mousex = Windows.Forms.Cursor.Position.X - Me.Left
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If drag Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub

    Private Sub Message_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
        drag = False
    End Sub
End Class

Ecco come appare la nostra nuova msgbox. Se volete potete aumentare la grandezza di caratteri da Visual Studio.

Fatto! Arrivederci

17 giugno 2019