| Код | ::SetWindowLong(listview.handle,GWL_STYLE, ::GetWindowLong(listview.handle,GWL_STYLE) | WS_HSCROLL);
::SetWindowPos(listview.handle,0,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED);
//::InvalidateRect(listview.handle, NULL, TRUE);
|
Добавлено @ 15:20
| Код | Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dword As Integer 'вообще выключить чтоб не мешало ListView1.Scrollable = False '1 метод Включить скролл SetWindowLong(ListView1.Handle.ToInt32, GWL_STYLE, GetWindowLong(ListView1.Handle.ToInt32, GWL_STYLE) Or WS_VSCROLL Or WS_HSCROLL) SetWindowPos(ListView1.Handle.ToInt32, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER) '2 метод включить скролл 'ShowScrollBar(ListView1.Handle.ToInt32, 3, 1) '3 'SetScrollInfo 'Проверка наличия скролов dword = GetWindowLong(ListView1.Handle.ToInt32, GWL_STYLE) If (dword And WS_VSCROLL) Then ' Debug.WriteLine("вертикальный скрол") End If If (dword And WS_HSCROLL) Then ' Debug.WriteLine("горизональный скрол") End If End Sub
|
http://support.microsoft.com/kb/111011 |