Страница: 1 |
|
Вопрос: Включить полосы прокрутки ListView
|
Добавлено: 10.12.08 11:47
|
|
Автор вопроса: kavonline
|
Подскажите плиз как включить полосы прокрутки контрола ListView, что бы они отображались всегда (даже в пустом контроле) а не зависили от количество items и размеров контрола. Или хотя бы как понять отображены ли в данный момент полосы прокрутки. Это нужно что бы изменять ширину столбцов.
Ответить
|
Номер ответа: 5 Автор ответа: Father
Вопросов: 0 Ответов: 159
|
Профиль | | #5
|
Добавлено: 11.12.08 07:53
|
по теме:
-
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ListView1.View = View.Details
- ListView1.Columns.Clear()
- ListView1.Columns.Add("col 1", 10, HorizontalAlignment.Left)
- ListView1.Columns.Add("col 2", 10, HorizontalAlignment.Left)
- ListView1_SizeChanged(sender, e)
- End Sub
-
- Private Sub ListView1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SizeChanged
- On Error Resume Next
- Dim r As Rectangle = ListView1.ClientRectangle
- ListView1.Columns(0).Width = r.Width / 2
- ListView1.Columns(1).Width = r.Width / 2
- End Sub
что бы они отображались всегда (даже в пустом контроле) или как понять отображены ли в данный момент
то можно так:
-
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim dword As Integer
-
- ListView1.Scrollable = False
-
- 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)
-
-
-
-
-
-
- dword = GetWindowLong(ListView1.Handle.ToInt32, GWL_STYLE)
- If (dword And WS_VSCROLL) Then
-
- End If
- If (dword And WS_HSCROLL) Then
-
- End If
- End Sub
Ответить
|
Страница: 1 |
Поиск по форуму