LABEL on listview

[luca90]

I dont know if is possible.....

i need to positioning in center of listview a transparent and foreground Label with the caption:"ATTENZIONE!" untill the listview is filled... and then hide the label.

Tks.

[SamOscarBrown]

Not sure if you can do it with a label, but you can a textbox (and you can lock the textbox and make it LOOK like a label).

[I Love VB6]

How do you get the textbox transparent?

[SamOscarBrown]

Ah....I SEEEE...so, you are saying OP wants a transparent 'something' with just LETTERS being shown, right?

[SamOscarBrown]

OK, so use a RICHTEXTBOX instead of a label...see this example:

Put a RICHTEXTBOX on a form on top of a listbox...

Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Private Sub Form_Load()
Dim x As Integer
For x = 0 To 10
    List1.AddItem (CStr(x))
Next x
Dim result As Long
result = SetWindowLong(RichTextBox1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
End Sub

[I Love VB6]

Very cool, sam

[dilettante]

This is really what .MousePointer = vbHourglass is for.

[fafalone]

You can also consider setting the empty markup text:



It requires subclassing; but in the end it's probably the same amount of work if you want to always have it present when the ListView is empty and keep it in alignment after resize.

In a WM_NOTIFY handling routine,

    Case LVN_GETEMPTYMARKUP
        Dim nmlvem As NMLVEMPTYMARKUP
        Dim sEMText As String
        sEMText = "Empty markup text."
        CopyMemory ByVal VarPtr(nmlvem), ByVal lParam, LenB(nmlvem)
        CopyMemory nmlvem.szMarkup(0), ByVal StrPtr(sEMText), LenB(sEMText)
        nmlvem.dwFlags = EMF_CENTERED
        CopyMemory ByVal lParam, ByVal VarPtr(nmlvem), LenB(nmlvem)
        DoLVNotify = 1
        Exit Function

'where
Public Const L_MAX_URL_LENGTH = 2084
Public Const EMF_CENTERED = &H1
Public Type NMLVEMPTYMARKUP
    hdr As NMHDR
    dwFlags As Long
    szMarkup(0 To ((L_MAX_URL_LENGTH * 2) - 1)) As Byte
End Type

[luca90]

You can also consider setting the empty markup text:



It requires subclassing; but in the end it's probably the same amount of work if you want to always have it present when the ListView is empty and keep it in alignment after resize.

In a WM_NOTIFY handling routine,

    Case LVN_GETEMPTYMARKUP
        Dim nmlvem As NMLVEMPTYMARKUP
        Dim sEMText As String
        sEMText = "Empty markup text."
        CopyMemory ByVal VarPtr(nmlvem), ByVal lParam, LenB(nmlvem)
        CopyMemory nmlvem.szMarkup(0), ByVal StrPtr(sEMText), LenB(sEMText)
        nmlvem.dwFlags = EMF_CENTERED
        CopyMemory ByVal lParam, ByVal VarPtr(nmlvem), LenB(nmlvem)
        DoLVNotify = 1
        Exit Function

'where
Public Const L_MAX_URL_LENGTH = 2084
Public Const EMF_CENTERED = &H1
Public Type NMLVEMPTYMARKUP
    hdr As NMHDR
    dwFlags As Long
    szMarkup(0 To ((L_MAX_URL_LENGTH * 2) - 1)) As Byte
End Type

Exit function...
But where the init of function code?
And how to call it?

[I Love VB6]

fafalone expects you to write your own subclass and capture the WM_NOTIFY message

[fafalone]

Well it's just every ListView-related sample code on every VB6 website all use the same format, so I started from the point that since the sample code what I posted could be inserted into as-is is ubiquitous, nobody would have to write their own anything unless they had never seen a subclassed ListView in their life. Nothing wrong with that being the case it just wasn't my default assumption.
See the Virtual Mode Grouping project in my sig for how to set up subclassing that handles LVN_ messages.

[luca90]

I'M very sorry... i'm not in VB6 but VBA for excel.
Tks

[si_the_geek]

Thread moved from the VB6 forum to the 'Office Development/VBA' forum.