Scrollbars aus Listview entfernen, aber scrollen können

Ole.Grossklaus · 10. Mai 2011, 15:35

Hallo zusammen,

vielleicht kann mir jemand einen Tipp geben:

Ich möchte die Scrollbars einer Listview weg haben:

ListView1.Scrollable = false gehts auch, aber dann funktioniet auch das Folgende nicht mehr

ListView1.TopItem = (irgend ein Item der Liste, das dann zu oberst erscheint)

Dann kann man die Liste auch nicht mehr selbst scrollen.

Da ich eigene Navigationsbuttons habe (macht sich auf nem Touch Screen besser), möchte ich trotzdem scrollen können (was auch bereits funktioniert, aber eben nur, wenn die Scrollbars auch sichtbar sind, was ich aber nicht will).

Gibt es eine Möglichkeit, einer Listview die Scrollbars "wegzunehmen", trotzdem aber mit .TopItem = <irgendwas> scrollen zu können?

Danke und Gruß

Ole

SystemUnknow · 10. Mai 2011, 17:56

Hier ein Demo Projekt in VB6: vbforums.com/showthread.php?t=375284

Ole.Grossklaus · 11. Mai 2011, 10:41

Hallo Alex,

ich bekomme das Sample leider nicht im Visual Studio 2010 unter .NET4 zum laufen...

Bin inzwischen auch auf "ShowScrollBar()" gestoßen, die in "User32" deklariert ist, was wohl das ist, wonach ich suche, aber ich bekomme immer eine pInvokeStackImbalance Fehlermeldung - und die ist ein bischen über meinem Verständnis-Horizont...

Hat dazu jemand einen guten Tipp?

Danke und Gruß

Ole

Ole.Grossklaus · 11. Mai 2011, 11:50

OK: Ich hab was Funktionierendes gefunden, aber .....

Wann immer die ListView einen redraw Event bekommt, erscheinen die Scrollbars wieder und ich muss die wieder entfernen. Das flackert ganz fürchterlich - aber geht

Hier der Code:

VB.NET-Quellcode

'(in meiner Form ein 1ms TimerTick)
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
NativeMethods.ShowScrollBar(lvValues.Handle, 3, 0)
End Sub
End Class
'unter der Form diese Class einfügen
<System.Runtime.InteropServices.StructLayoutAttribute(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure HWND__Public unused As Integer
End Structure
Partial Public Class NativeMethods<System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="ShowScrollBar")> _
Public Shared Function ShowScrollBar(<System.Runtime.InteropServices.InAttribute()> ByVal hWnd As System.IntPtr, ByVal wBar As Integer, <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> ByVal bShow As Boolean) As <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> BooleanEnd Function
End Class

vielleicht hilfts dem einen oder anderen

Gruß

Ole

SystemUnknow · 11. Mai 2011, 16:59

Du muß der Code umschreiben, versuch selber umzuschreiben.
API Deklarationen für NET findest hier: pinvoke.net/default.aspx/user32.isiconic

PS: Habe EXE ertstellt, ist genau dein lösung, siehe anhang (hoffe mit ausführen wird klappen) !

Warfley · 11. Mai 2011, 17:16

VB.NET-Quellcode

ListBox1.Region = New Region(New Rectangle(1, 1, ListBox1.Width - 20, ListBox1.Height - 2))

nicht der beste weg, funktioniert aber

SystemUnknow · 11. Mai 2011, 18:33

Es geht um ListView und nich um ListBox.....

SystemUnknow · 15. Mai 2011, 11:29

sorry für doppelpost.
So schaut der Code aus (habe angepasst):

VB.NET-Quellcode

Option Explicit
Private Type SCROLLINFO
cbSize As Long
fMask As Long
nMin As Long
nMax As Long
nPage As Long
nPos As Long
nTrackPos As Long
End Type
Private Declare Function GetScrollInfo Lib "user32" (ByVal hWnd As Long, _
ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long
Private Const SIF_RANGE = &H1
Private Const SIF_PAGE = &H2
Private Const SIF_POS = &H4
Private Const SIF_DISABLENOSCROLL = &H8
Private Const SIF_TRACKPOS = &H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)
Private Const SB_HORZ As Long = 0
Private Const SB_VERT As Long = 1
Private Const SB_CTL As Long = 2
Private Const SB_BOTH As Long = 3
Private Declare Function SendMessage Lib "user32.dll" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Const WS_VSCROLL As Long = &H200000
Private Const WS_HSCROLL As Long = &H100000
Private Const GWL_STYLE As Long = (-16)
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_FINDITEM As Long = (LVM_FIRST + 13)
Private Const LVFI_NEARESTXY As Long = &H40
Private Const LVM_GETCOUNTPERPAGE = (LVM_FIRST + 40)
Private Const LVM_SCROLL = (LVM_FIRST + 20)
Dim b As Long
Dim lngScrollPage As Long
Dim lngScrollMax As Long
Const lngScrollItem As Long = 75
Private sngScroll As Single
Private Sub LoadLVW()
Dim a As Long
Dim lMax As Long
lMax = 100
With ListView 'Loads data into Listviews
For a = 1 To lMax
.ListItems.Add , "_" & a, "Item " & a, a
Next a
End With
End Sub
Private Function ListViewScroll(lvw As ListView, ByVal dx As Long, ByVal dy As Long)
'This function determines if scroll bars are visible
'on the "Hidden" Listview
SendMessage lvw.hWnd, LVM_SCROLL, dx, ByVal dy
End Function
Private Sub cmdItemAb_Click()
sngScroll = (lngScrollItem)
Call ListViewScroll(ListView, 0, sngScroll)
End Sub
Private Sub cmdItemAuf_Click()
sngScroll = (lngScrollItem) * -1
Call ListViewScroll(ListView, 0, sngScroll)
End Sub
Private Sub Form_Load()
'Set up Listviews
ListView.Icons = ImageList
ListView.FlatScrollBar = True 'Don't display scrollbar on visible Listview
Call LoadLVW 'Load Data into Listviews
End Sub
Private Sub Form_Resize()
Dim a As Long
With ListView 'Resizes listviews to form scale height
.Height = ScaleHeight - 100
.Top = 0
End With
Call ListViewScroll(ListView, 0, (lngScrollMax) * -1) ' Scrolls listview to top when form is re-sized
End Sub

Muß du nur umschreiben !

Scrollbars aus Listview entfernen, aber scrollen können

Scrollbars aus Listview entfernen, aber scrollen können

Scrollbars aus Listview entfernen, aber scrollen können

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

1 Benutzer hat hier geschrieben