Basta bufale: giugno 2019

24 giugno 2019

Questo blog da tempo ha preso posizione a favore degli inceneritori. A Roma invece tutto si è verificato per voler ascoltare le brutte sirene degli ambientalisti M5S. Fra l'altro c'è stato un persistente no agli inceneritori. Inceneritori che sono stati una importante risorsa per altri comuni in Italia e in Europa ha permesso di risolvere brillantemente i problemi. Vedere qui gli impianti virtuosi di inceneritori in Italia e all'estero: vedere per es questo articolo su Repubblica.it: https://ricerca.repubblica.it/repubblica/archivio/repubblica/2016/05/31/lesperto-emissioni-non-dannose-unattrazioneFirenze07.html
Ecco qui l'importante articolo della Stampa.it che descrive la difficilissima situazione della città di Roma: https://www.lastampa.it/2019/06/19/roma/emergenza-rifiuti-a-roma-c-pericolo-di-epidemia-9Qx9otQuZWJSyeu0L2ewCI/pagina.html

17 giugno 2019

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

Basta bufale

Facebook. Come vedere sempre le notizie più recenti

Emergenza rifiuti: a Roma si va verso la catastrofe

Come ottenere una msgbox con caratteri ingranditi

Cerca nel blog

Ultimi articoli

In rilievo

Per gli argomenti clicca sotto

Siti amici

Blog Archive

24 giugno 2019

Facebook. Come vedere sempre le notizie più recenti

20 giugno 2019

Emergenza rifiuti: a Roma si va verso la catastrofe

17 giugno 2019

Come ottenere una msgbox con caratteri ingranditi

Basta bufale

document.write(ssyby);

Facebook. Come vedere sempre le notizie più recenti

document.write(ssyby);

Emergenza rifiuti: a Roma si va verso la catastrofe

document.write(ssyby);

Come ottenere una msgbox con caratteri ingranditi

Cerca nel blog

Ultimi articoli

In rilievo

Per gli argomenti clicca sotto

Siti amici

Blog Archive

24 giugno 2019

Facebook. Come vedere sempre le notizie più recenti

20 giugno 2019

Emergenza rifiuti: a Roma si va verso la catastrofe

17 giugno 2019

Come ottenere una msgbox con caratteri ingranditi