SetFieldLongメソッド

テキストフィールド、グリッドフィールドの各種プロパティを設定します。
 
[構文]
 
レポートライブラリOCX
 
Object.SetFieldLong (fieldname, mode, lval)
 
レポートライブラリ.NETコントロール
 
long Object.SetFieldLong (fieldname, mode, lval)
 

設定項目

内容

Object

 

オブジェクトへの参照を表すオブジェクト式

fieldname

string

プロパティを設定するフィールド名

mode

long

プロパティ(設定値参照)

lval

long

設定値

 
[エラーコード]
 

内容

1044

指定されたフィールドがありません

1051

パラメータエラー

 
[設定値]
 
mode には次の値を指定します。
 

定数

内容

JV_FONT_SIZE

1

フォントサイズの指定(1/10ポイント単位)

JV_FONT_BOLD

2

フォントボールドの指定

JV_FONT_ITALIC

3

フォントイタリックの指定

JV_TEXT_ALIGNMENT

4

文字配置の指定

JV_TEXT_UNDERLINE

5

下線の指定

JV_TEXT_DELETELINE

6

打ち消し線の指定

JV_FORE_COLOR

7

前景色(RGB値)  

JV_BACK_COLOR

8

背景色(RGB値)

JV_UNDERLINE_DISTANCE

9

文字と下線の距離(1/10mm単位)

   
フォントボールド(JV_FONT_BOLD)のlval には次の値を指定します。
 

定数

内容

JV_BOLD_OFF

0

ボールド解除

JV_BOLD_ON

1

ボールド設定
 
フォントイタリック(JV_FONT_ITALIC)のlval には次の値を指定します。
 

定数

内容

JV_ITALIC_OFF

0

イタリック解除

JV_ITALIC_ON

1

イタリック設定
 
文字配置(JV_FONT_ALIGNMENT)のlval には次の値を指定します。
 

定数

内容

JV_TEXT_LEFT

0

左寄せ

JV_TEXT_RIGHT

1

右寄せ

JV_TEXT_CENTER

2

中央揃え

JV_TEXT_EVEN

3

均等割付

 
下線(JV_TEXT_UNDERLINE)、打ち消し線(JV_TEXT_DELETELINE)のlval には次の値を指定します。
 

定数

内容

JV_LINE_OFF

0

なし

JV_LINE_DASH

1

破線

JV_LINE_DOT

2

点線

JV_LINE_DASHDOT

3

一点鎖線

JV_LINE_DASHDOTDOT

4

二点鎖線

JV_LINE_SOLID

5

一重線

JV_LINE_DOUBLE

6

二重線

JV_LINE_WIDE

7

太線

 
文字と下線の距離(JV_UNDERLINE_DISTANCE)のlval には-50〜50の値を指定します。
 
[解説]
 
各プロパティの初期値は、デザイン時に設定された値です。
 
fieldname には、プロパティを変更するフィールド名称を指定します。
グリッドフィールドの場合は、フィールド名称と一緒に行と列を指定することができます。
 
例)明細という名称のグリッドフィールドの場合
明細フィールド1行目2列目のセルを指定   明細@R1C2

明細フィールド2行目のセルを指定

明細@R2

明細フィールド3列目のセルを指定

明細@C3

明細フィールドの全てのセルを指定

明細

  
前景色
前景色を設定すると、デザイン時に設定したフォント色を変更することができます。
カラー印刷が指定されている場合のみ有効です。
 
背景色
背景色を設定すると、テキストフィールドではフィールド領域を塗り潰します。グリッドフィールドではセル領域を塗り潰します。 カラー印刷が指定されている場合のみ有効です。
 
StartメソッドとEnd(Abort)メソッドの間で実行します。
 
[コーディング例]
 
レポートライブラリOCX
 
Call Jvr.Start
 
''顧客名テキストフィールドのフォント色を赤に変える
Call Jvr.SetFieldLong(“顧客名”, JV_FORE_COLOR, RGB(255, 0, 0))
 
''明細グリッドフィールド3行目4列目のセルを緑で塗り潰す
Call Jvr.SetFieldLong(“明細@R3C4”, JV_BACK_COLOR, RGB(0, 255, 0))
 
''テキストフィールドのフォントサイズを16ポイントに変える
Call Jvr.SetFieldLong("TEXT2", JV_FONT_SIZE, 160)
 
Call Jvr.SetFieldLong("TEXT2", JV_FONT_BOLD, JV_BOLD_ON)
Call Jvr.SetFieldLong("GRID1@R2C2", JV_FONT_ITALIC, JV_ITALIC_ON)
 
''グリッドフィールドの文字配置を均等割付に変える
Call Jvr.SetFieldLong("GRID1@R1C1", JV_TEXT_ALIGNMENT, JV_TEXT_EVEN)
 
レポートライブラリ.NETコントロール
 
ret = Jvr.Start()
 
''顧客名テキストフィールドのフォント色を赤に変える
ret = Jvr.SetFieldLong(“顧客名”, JV_FORE_COLOR, RGB(255, 0, 0))
 
''明細グリッドフィールド3行目4列目のセルを緑で塗り潰す
ret = Jvr.SetFieldLong(“明細@R3C4”, JV_BACK_COLOR, RGB(0, 255, 0))
 
''テキストフィールドのフォントサイズを16ポイントに変える
ret = Jvr.SetFieldLong("TEXT2", JV_FONT_SIZE, 160)
 
ret = Jvr.SetFieldLong("TEXT2", JV_FONT_BOLD, JV_BOLD_ON)
ret = Jvr.SetFieldLong("GRID1@R2C2", JV_FONT_ITALIC, JV_ITALIC_ON)
 
''グリッドフィールドの文字配置を均等割付に変える
ret = Jvr.SetFieldLong("GRID1@R1C1", JV_TEXT_ALIGNMENT, JV_TEXT_EVEN)