Newsgroup: it.comp.lang.visual-basic
Titolo: listview e grassetto

ho un listivew. imposto il carattere di questo listview su Arial, Grassetto.
se durante l'aggiunta dei listitem e dei listsubitem non specifico niente,
lui me li mette tutti in grassetto.
ma se specifico che qualche listsubitem, o anche qualche listitem NON deve
essere grassetto, lui se ne frega altamente e me li mette ugualmente tutti
in grassetto. perche??!!??!!
tenete presente che nel caso opposto, e cioe se specifico come carattere per
il listview Arial NON grassetto, e poi rendo grassetti solo alcuni listsub
item, lui non fa problemi, e li grassettizza...
come mai???????
MarioH

come mai???????
l' occhio del padrone "grassettizza" il cavallo :)
ciao, hal

 ha scritto nel messaggio
news:9d7ghu$gnt16$1...@ID-56381.news.dfncis.de...



no dai davvero... perche succede??
lo sai che stanotte mi sono coricato alle 4 per cercare di capirlo... ??????
se passo un'altra nottata in bianco sarà colpa tua, e del fatto che mi
prendi in giro sulle cose serie... ::)))))))
davero, scherzi a parte, ma è proprio impossibile??
MarioH

 wrote in message
35HJ6.10016$024.2...@news2.tin.it...
in alternativa, magari qualcuno sa come è possibile, impostando il carattere
di un listview come NON grassetto, prevedere però che il testo delle
intestazioni di colonna sia grassetto?
magari devo usare qualche messaggio, ma non ne ho trovato nessuno che faccia
al caso mio.
MarioH

 al caso mio.
se non trovi le dichiarazioni dimmi quali che te le posto...
Faber
Public Sub SetHeadersFont( _
    ByVal lvwListView As ListView, _
    Optional ByVal Bold As Boolean = False, _
    Optional ByVal Underline As Boolean = False, _
    Optional ByVal Italic As Boolean = False, _
    Optional ByVal StrikeOut As Boolean = False)
    'Questa funzione imposta lo stile del carattere delle intestazioni
    Dim LF As LOGFONT
    Dim r As Long
    Dim hCurrFont As Long
    Dim hOldFont As Long
    Dim hHeader As Long
    Dim hHeaderFont As Long
    'Ottiene l'handle dell'intestazione
    hHeader = SendMessageLong(lvwListView.hWnd, LVM_GETHEADER, 0, 0)
    'Ottiene l'handle del font utilizzato nell'intestazione
    hCurrFont = SendMessageLong(hHeader, WM_GETFONT, 0, 0)
    'Ottiene i dettagli LOGFONT del font utilizzato
    r = GetObject(hCurrFont, Len(LF), LF)
    If r > 0 Then
        'Imposta gli attributi del font in base alle checkboxes relative
        'sulla maschera
        If Bold Then
            LF.lfWeight = FW_BOLD
        Else
            LF.lfWeight = FW_NORMAL
        End If
        LF.lfItalic = Abs(CLng(Italic))
        LF.lfUnderline = Abs(CLng(Underline))
        LF.lfStrikeOut = Abs(CLng(StrikeOut))
        'Elimina il font precedente
        r = DeleteObject(hHeaderFont)
        'Crea il nuovo font
        hHeaderFont = CreateFontIndirect(LF)
        'Seleziona il nuovo font
        hOldFont = SelectObject(hHeader, hHeaderFont)
        'Informa la ListView che il font è cambiato
        r = SendMessageLong(hHeader, WM_SETFONT, hHeaderFont, True)
    End If
End Sub


Newsgroups: it.comp.lang.visual-basic
Sent: Wednesday, May 09, 2001 1:15 AM
Subject: Re: listview e grassetto
muuuuuuuuuu grazieeeeeee
sono questi i momenti in cui mi accorgo che NON conosco le api (bzzz bzzz) e
che ho bisogno di quello schifosissimo stramaledettissimo bellissimo libro
di Appleman... mannaggia... ::))))))))
MarioH