GetColumnWidthListView

Синтаксис

Function GetColumnWidthListView(ByVal gadget As Long, ByVal IndexColumn As long) As Integer

Описание

Получает ширину столбца по указанному индексу(индексы начинаются с нуля). В Linux ширина последнего столбца всегда расширяется до ширины гаджета, поэтому может не совпадать с шириной столбца под Windows

Параметры

gadget - номер гаджета

IndexColumn - индекс столбца

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,500,500)
ListViewGadget(1,10,10,310,300)
AddListViewColumn(1, "1",0,0,80)
AddListViewColumn(1, "2",1,1,90)
AddListViewColumn(1, "3",2,2,100)
For aa As Integer=0 To 15
  AddListViewItem(1,"item ?"+Str(aa),0,aa,0)
  AddListViewItem(1,"item ?"+Str(aa+18),0,aa,1)
  AddListViewItem(1,"item ?"+Str(aa+36),0,aa,2)
Next
Do
  Var event=WaitEvent()
  If Event=EventClose Then End
  If event=EventLBDown Then
     If EventNumberListView=1 Then
        ? GetColumnWidthListView(1,0)
        ? GetColumnWidthListView(1,1)
        ? GetColumnWidthListView(1,2)
     EndIf
  EndIf
Loop

Результат

80
90
100

Created with the Personal Edition of HelpNDoc: Easily create CHM Help documents