ページの先頭行へ戻る
MeFt V11.0 ユーザーズガイド
FUJITSU Software

7.9 Visual Basic使用時のインタフェース

  Visual Basic使用時のインタフェースを、表にまとめて説明します。

  利用者プログラムは表の機能を使用する場合、MeFtが提供するVisual Basicのサンプルプログラムにある標準モジュール(psdef.bas、psmac.bas)を参考に標準モジュールを作成してください。

表7.5 Visual Basic使用時のインタフェース

分類

機能名

インタフェース

基本処理

オープン処理

ps_open (ByVal file As String, ByVal MOde As Integer, errcode As Integer, Opt As Any) As Long

出力処理

ps_write (ByVal file As Long, ByVal MOde As Integer, ByVal sGroup As String, record As Any, Opt As Any) As Integer

行移動出力

ps_write_lineshift (ByVal file As Long, ByVal sGroup As Any, ByVal MOde As Integer, ByVal LINES As Integer, record As Any) As Long

パーティション出力

ps_write_partition (ByVal file As Long, byVal sGroup As Any, ByVal MOde As Integer, ByVal LINES As Integer, record As Any) As Long

入力処理

ps_read (ByVal file As Long, ByVal MOde As Integer, ByVal sGroup As Any, record As Any, Opt As Any) As Integer

クローズ処理

ps_close (ByVal file As Long, errcode As Integer) As Integer

定義体名とレコードデータ領域長の設定

ps_set_formatsize (ByVal file As Long, ByVal sFormat As String, ByVal lRecSize As Long) As Integer

通知コードの獲得

ps_get_return_code (ByVal file As Long) As Integer

項目制御

項目の表示属性の設定

Mid関数を使い項目制御部の1バイト目に設定します。

項目の強調属性の設定

Mid関数を使い項目制御部の2バイト目に設定します。

項目の色属性の設定

Mid関数を使い項目制御部の3バイト目に設定します。

項目の入力属性の設定

Mid関数を使い項目制御部の4バイト目に設定します。

項目の状態の参照

Mid関数を使い項目制御部の4バイト目を参照します。

項目へのカーソル設定

Mid関数を使い項目制御部の5バイト目に設定します。

項目のカーソル獲得

Mid関数を使い項目制御部の5バイト目を参照します。

項目の背景色属性の設定

Mid関数を使い項目制御部の4バイト目に設定します。

項目の網がけ属性の設定

Mid関数を使い項目制御部の5バイト目に設定します。

画面制御

アテンション情報の獲得

ps_get_attention (ByVal file As Long, ByVal Attn As String) As Integer

ウィンドウの移動とサイズ変更-行/桁指定

ps_move_window_lc (ByVal file As Long, ByVal MOde As Integer, PPOINT As PSLCPOINT, PSIZE As PSLCSIZE) As Integer

ウィンドウの移動とサイズ変更-ピクセル指定

ps_move_window (ByVal file As Long, ByVal MOde As Integer, PPOINT As PSPOINT, PSIZE As PSSIZE) As Integer

ウィンドウの操作

ps_handle_window (ByVal file As Long, ByVal MOde As Integer, ByVal Opt As Any) As Integer

カーソル行/桁位置の獲得

ps_get_caret_lc (ByVal file As Long, PPOINT As PSLCPOINT) As Long

カーソル行/桁位置の設定

ps_set_caret_lc (ByVal file As Long, PPOINT As PSLCPOINT) As Long

メニュー項目の変更

ps_modify_menu (ByVal file As Long, ByVal MOde As Integer, NUM As Integer, PATTN As Any) As Long

ブザー鳴動

ps_buzzer (ByVal file As Long, ByVal MOde As Integer) As Long

ウィンドウハンドルの獲得

ps_get_window (ByVal file As Long, opt As Any) As Long

論理アテンション追加登録処理

ps_register_attention (ByVal file As Long, ByVal Atten As Long) As Long

アテンションの有効/無効指定

ps_enable_attention (ByVal file As Long, ByVal MOde As Integer, ByVal NUM As Integer, MASK As Any) As Long

メディア項目の消去

ps_clear_media (ByVal file As Long, ByVal MOde As Integer, ByVal sgroup As String, record As Any, opt As Any) As Integer

入力の中断

ps_cancel_read (ByVal whndl As Long, opt As Any) As Integer

印刷制御

プリンタ装置の制御

ps_control_printer (ByVal file As Long, ByVal MOde As Integer, ByVal DETAIL As Integer, Opt As Any) As Long

オーバレイパターンの変更

ps_set_overlay (ByVal file As Long, ByVal i As Integer, ovdn As Any) As Long

その他の関数

数字データ変換関数

ps_dectolong (ByVal MOde As Integer, ByVal indata As String, ByVal length As Integer) As Long

ps_dectodouble (ByVal MOde As Integer, ByVal indata As String, ByVal length As Integer, ByVal frac As Integer) As Double

ps_longtodec (ByVal indata As Long, ByVal MOde As Integer, ByVal outdata As String, ByVal length As Integer) As Integer

ps_doubletodec (ByVal indata As Double, ByVal MOde As Integer, ByVal outdata As String, ByVal length As Integer, ByVal frac As Integer) As Integer

アプリケーションの起動

ps_exec (ByVal pCmdLine As String, opt As Any) As Integer

項目制御部の設定記述例

  Mid(HELPMED.HBODY(i).UNAME_CTRL, 4, 1) = PS_STATUS_SELECTED
  Mid(DENPYOUD.DBODY(cnt).UNAME_CTRL, 5, 1) = PS_CURSOR_SETCURSOR

注意

  • Visual Basicのアプリケーションで英数字日本語混在項目を使用する場合は有効データ長なしでデータを扱ってください。帳票定義体ならば「有効データ長なし」を指定してください。ウィンドウ情報ファイルのMIXLENG(英数字日本語混在項目のデータ長の有無)およびプリンタ情報ファイルのMIXLENG(英数字日本語混在項目のデータ長の有無) の指定には「データ長を付加しない」を指定してください。

  • Visual Basicのアプリケーションで項目制御部を使用する場合、FORMで画面帳票定義体を作成するときに項目制御部を「共有しない」(5バイト)で定義してください。