Page History
[ 
|../../index.htm#lansa/lansa048_2945.htm]
Visual LANSA フレームワーク ガイド > フレームワーク・プログラミング > インスタンスリストとインスタンスリスト・マネージャー > 独自のスナップイン・インスタンスリストの作成 > インスタンスリストに 11 個以上の英数字列や数値列を追加 > 34個の列(16個の英数字、16個の数値+ビジュアルID)を使用するサンプル・フィルター
...
独自の VLF-ONE スナップイン・リストの作成は「独自の VLF-ONE インスタンスリスト・ブラウザの作成」を参照してください。
...
...
BEGIN_COM ROLE(*EXTENDS #VF_AC007) HEIGHT(123) WIDTH(216)
DEFINE_COM CLASS(#PRIM_PHBN) NAME(#PHBN_1) CAPTION('Add to list ') DISPLAYPOSITION(1) LEFT(52) PARENT(#COM_OWNER) TABPOSITION(1) TOP(28)
...
...
EVTROUTINE HANDLING(#PHBN_1.Click)
...
Define #Zone07 Reffld(#Date) Length(7) decimals(0) edit_code(4) Default(0)
Define #Char07 *char 7 To_Overlay(#Zone07)
...
Invoke Method(#avListManager.BeginListUpdate)
...
Invoke Method(#avListManager.ClearList)
...
Begin_Loop from(1) to(50) using(#Zone07)
...
* BILL, MARY .. などのシンボリック名を持つ、16 の英数字列を埋めるA16
...
set #avListManager AColumn<BILL>(#Char07 + BILL)
set #avListManager AColumn<MARY>(#Char07 + MARY)
set #avListManager AColumn<TOTAL>(#Char07 + TOTAL)
set #avListManager AColumn<CUSTNO>(#Char07 + CUSTNO)
set #avListManager AColumn<A5>(#Char07 + A5)
set #avListManager AColumn<A6>(#Char07 + A6)
set #avListManager AColumn<A7>(#Char07 + A7)
set #avListManager AColumn<A8>(#Char07 + A8)
set #avListManager AColumn<A9>(#Char07 + A9)
set #avListManager AColumn<A10>(#Char07 + A10)
set #avListManager AColumn<A11>(#Char07 + A11)
set #avListManager AColumn<A12>(#Char07 + A12)
set #avListManager AColumn<A13>(#Char07 + A13)
set #avListManager AColumn<A14>(#Char07 + A14)
set #avListManager AColumn<A15>(#Char07 + A15)
set #avListManager AColumn<A16>(#Char07 + A16)
...
* BILL, MARY ... などのシンボリック名を持つ、16
...
の数値列を埋めるN16
...
set #avListManager nColumn<BILL>(#Zone07 + 1)
set #avListManager nColumn<MARY>(#Zone07 + 2)
set #avListManager nColumn<TOTAL>(#Zone07 + 3)
set #avListManager nColumn<CUSTNUM>(#Zone07 + 4)
set #avListManager nColumn<n5>(#Zone07 + 5)
set #avListManager nColumn<n6>(#Zone07 + 6)
set #avListManager nColumn<n7>(#Zone07 + 7)
set #avListManager nColumn<n8>(#Zone07 + 8)
set #avListManager nColumn<n9>(#Zone07 + 9)
set #avListManager nColumn<n10>(#Zone07 + 10)
set #avListManager nColumn<n11>(#Zone07 + 11)
set #avListManager nColumn<n12>(#Zone07 + 12)
set #avListManager nColumn<n13>(#Zone07 + 13)
set #avListManager nColumn<n14>(#Zone07 + 14)
set #avListManager nColumn<n15>(#Zone07 + 15)
set #avListManager nColumn<n16>(#Zone07 + 16)
* インスタンスリストにこれとすべての追加列を追加
...
Invoke Method(#avListManager.AddtoList) Visualid1(#Char07) Visualid2(#char07) Akey1(#char07)
End_Loop
Invoke Method(#avListManager.EndListUpdate)
ENDROUTINE
...
End_Com
...