PopUp Menu

Question

Bonjour, je ne connais pas très bien VB mais je fais un stage sous VB6 et il faudrait que j'arrive à augmenter la taille de police des popup menu qui dépendent donc des paramètres de windows
car la personne pour qui je fais le programme est un peu bigleuse...

Est-ce que quelqu'un pourrais m'aider ??
Merci d'avance

cs_EBArtSoft · Answer

une solution serait d'utiliser le flag owner draw pour pouvoir dessiner toit meme les menu 

@+


E.B.

anas49 · Answer

cs_gide_x · Answer

Salut !

ou beaucoup plus archaïque:


    Private Sub AutoResize(ByVal MyForm As System.Windows.Forms.Form, Optional ByVal Ratio As Double = 1)

        MyForm.SetBounds(MyForm.Left * Ratio, MyForm.Top * Ratio, MyForm.Width * Ratio, MyForm.Height * Ratio)

        For Each ctl As Control In MyForm.Controls
            ctl.SetBounds(ctl.Left * Ratio, ctl.Top * Ratio, ctl.Width * Ratio, ctl.Height * Ratio)
            For Each subctl As Control In ctl.Controls
                subctl.SetBounds(subctl.Left * Ratio, subctl.Top * Ratio, subctl.Width * Ratio, subctl.Height * Ratio)
                subctl.Font = New Font(subctl.Font.FontFamily.Name, subctl.Font.SizeInPoints * Ratio)
            Next
            ctl.Font = New Font(ctl.Font.FontFamily.Name, ctl.Font.SizeInPoints * Ratio)
        Next
    End Sub


J'avais fais ça pour les forms et certains contrôles ... un peu d'adaptation pour les popups pourrait peut-être le faire... (Le ratio est en pourcent, donc pour agmenter la taille de 10% -> ratio = 1.1) 

Ça peut aider un peu j'espère.

JD.

PopUp Menu

3 réponses

Discussions similaires