SetColumnWidthListBox

Синтаксис

Sub SetColumnWidthListBox(ByVal gadget As long, ByVal width As Long)

Описание

Устанавливает ширину столбцов в ListBoxGadget. Для использования этой функции необходимо выставить флаг lbs_multicolumn у ListBoxGadget

Параметры

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

width - ширина в пикселах

Платформы

Windows

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",10,10,300,300)
Dim flag As Integer=LBS_MULTICOLUMN Or WS_VSCROLL Or WS_HSCROLL
ListBoxGadget(1,10,10,200,200,flag)
For a As Integer=1000 To 1100
  AddListBoxItem(1,Str(a))
Next
SetColumnWidthListBox(1,50)
Do
  var event=WaitEvent()
  If event=eventclose Then End
Loop

Результат

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