JCL_lst_Sort_HeaderName

/ JCL_lst / By

リストボックスの列番号を渡して、列名を取得。

使い方
$headerName:=JCL_lst_Sort_HeaderName ($lstboxName;$nr)

引数
$1: リストボックスのオブジェクト名
$2: 列番号

  //JCL_lst_Sort_HeaderName
  //20160503 wat
  // リストボックスの列番号を渡して、列名をエル
  // リストボックスの列順（列番号）はユーザ操作によって変化する可能性がある

C_TEXT($1;$lstboxName)
$lstboxName:=$1
C_LONGINT($2;$nr)
$nr:=$2
C_TEXT($0;$headerName)
$headerName:=""
C_LONGINT($sizeOfAry)

ARRAY TEXT($arrColNames;0)
ARRAY TEXT($arrHeaderNames;0)
ARRAY POINTER($arrColVars;0)
ARRAY POINTER($arrHeaderVars;0)
ARRAY BOOLEAN($arrColsVisible;0)
ARRAY POINTER($arrStyles;0)
LISTBOX GET ARRAYS(*;$lstboxName;$arrColNames;$arrHeaderNames;$arrColVars;$arrHeaderVars;$arrColsVisible;$arrStyles)

$sizeOfAry:=Size of array($arrHeaderNames)
If ($sizeOfAry>=$nr)
	
	$headerName:=$arrHeaderNames{$nr}
	
End if 

$0:=$headerName