| カチュミ さんこんにちは
ご自分で手続きやイベントが作れないと仕事が
はかどらないと思います。
まずリンクのONnojiさんのトップ↓から
http://www.geocities.jp/siliconvalley_bay_7565/
このページの定義画面の設定の仕方をよみ詳細プロパティ
http://www.geocities.jp/siliconvalley_bay_7565/Question_and_Answer.htm#q002
が表示できるように以下の画面を参考に↓桐の設定をします。
http://www.geocities.jp/siliconvalley_bay_7565/navi.htm
次に以下の講座の画面で↓イベントファイルを作ります。
http://www.geocities.jp/siliconvalley_bay_7565/guide01.htm#kev
イベント処理(.kev)を作成する
順序としては
1)で再定義に入り書式(S)からオブジェクトの属性を表示します。
2)オブジェクトの属性の左上に押しピンがあるのでそれを
立てたままにします。(11.の下に立てた画像があります。)
3)オブジェクトの属性の3番目にイベントタブがありますから
そこにページの3.に書いてあるようにイベントファイル名を
書き込みます。
4)ページの2.に書いてあるように書式(S)からイベントの定義を
選びます。(12.の画面が出ますが下の手続きは表示されていません)
5)12.の画面の左上にあるように鉛筆付便箋アイコンと便箋だけのアイコン
があるので便箋だけのアイコンが押されている事がイベントファイルを
編集する時の必須条件です。
6)以下の手続きをマウスでコピーして貼り付けます。
7)コマンドボタン_1からコマンドボタン_10迄の2行目の貼り付けを
3行目に移動します。
8)2行目の機能名をその他の上の「手続き実行」を選びます。
9)2行目のパラメータリストを「貼付管理」に書き換えます。
10)4行目の機能名を訂正のままであれば何も記述しないで
表示モードにしたいのであれば編集の中の「表示」を選び
パラメータを左クリックし「確定する」を選びます。
11)最後に×を選び保存終了すればイベントファイルのできあがりです。
手続き定義開始 貼付管理()
var Str{&S日誌路線名,&S道路管理路線名,&S項目名,&Sfocus}\
,整数{&Iend,&I更新モード}
method @フォーム.フォーカスオブジェクト取得(&Sfocus)
method @フォーム.更新モード取得(&I更新モード)
if (&I更新モード<>0) /* メインフォームが更新中は */
method @フォーム.更新モード設定( 0 ) /* 表示モードに変更 */
end /* サブフォームのデータを取得する事は出来ない */
method @サブフォーム_178.@t路線名.ソース値取得(&S道路管理路線名,0)
メソッド呼び出し &Sfocus.ソース値取得(&S日誌路線名,0)
&S項目名=#項目属性(#項目番号(#u),1) /* 代入 のコマンドは省略可 */
if (.not #EOF) /* 終端行の場合「1」になるがその反対なので */
method @フォーム.更新モード設定( 2 ) /* 訂正モードにします。 */
else /* ↓は終端行では訂正できないので追加モードにします。 */
method @フォーム.更新モード設定( 6 )
method 戻り値 = &Iend,&Sfocus.フォーカス設定検査()
if (&Iend=1) /* ↓フォーカスが追加モードの場合最初の項目に */
method &Sfocus.フォーカス設定() /* 移動するので */
else /* 訂正したい最初に取得したオブジェクトに移動します。 */
確認 "定義画面でフォーカスを変更して下さい。"
end /* これ↑はあり得ないので必要ありませんが参考のために記入 */
end
if (&S日誌路線名) /* 日誌に文字が記入済の場合 */
確認 &S日誌路線名+":を:"+&S道路管理路線名+"に変更しますか",&Iend
if (&Iend = 1) /* ↑の確認で変更する場合はEnter:OK */
クリップボード 設定,&S道路管理路線名 /* サブフォームの値を設定 */
else /* Esc:キャンセルが押された場合最初に記入されていた値を設定 */
クリップボード 設定,&S日誌路線名
end /* 3行目の貼付でクリップボードの値が貼り付けられるの下準備 */
項目値代入 &S項目名="" /* として現在の項目値を未定義値に変更する */
else /* 文字の記入がない場合↓のサブフォームの値を書き込みます。 */
クリップボード 設定,&S道路管理路線名
end /* if else endはケースで書く事も出来ます。 */
end /* 手続きの終了の別名表記です。 */
|