BmpBmpビットマップボタンの動きを表示したプログラムです
ボタンをクリックするたび画像表示が変わります
上図のようにマウスでをクリックするたびにビットマップボタンの形状が変化します
これはクリックされるたびに其のビットマプボタン用に作成されたbmpファイルを表示しなおすからです。
このサンプルプログラムはbmpbutton.lzh 35.1ｋｂよりインストールできます
尚コードの詳細はワードファイルbmpbuttonw.lzh 31.9kbでインストールできます。
Btrieveサンプルプログラム注意書きによると
1. はじめに Btrieve は Btrieve Technologies,Inc. から発売されている、キー値によるレコードの検索、挿入、更新、削除などのファイルアクセスを提供するデータベース管理システムです。このサンプルプログラムは Btrieve v6.15 を使用したデータ管理・検索プログラムです。以下の注意をよく読んでお使いください。
2. サンプルプログラムについて 会社従業員の従業員Noと名前、住所を管理するプログラムです。
従業員のデータをレコードとして追加、修正（更新）、削除、検索をおこないます。
サンプルプログラムに関する簡単な質問は富士通でお答えしますが、Btrieve
に関する質問にはお答えできません。Btrieveに関する質問については［4. Btrieve
の購入およびサポートについて］を参照してください。
3. モジュールの再配布の禁止 次のモジュールは、Btrieve を利用するにあたり必ず必要となるファイルですが再配布できません。再配布するためには、Btrieve
を別途購入していただく必要があります。購入に関する質問については［4. Btrieve
の購入およびサポートについて］を参照してください。
W32MKDE.EXE
W32MKRC.DLL
WBTRV32.DLL
| とありました、ということは |
 |
この3つのファイルの配布が禁止されているようです コードの最初に |
'************************************************************************
'* Btrieve 6.15 Sample Program *
'* COPYRIGHT FUJITSU LIMITED 1995-1999 *
'************************************************************************
'
declare function BTRCALL lib "WBTRV32.DLL" ALIAS "BTRCALL"
( byval OP%, byval WORK$, rec as any, BUFLEN&, byval KYVAL$, byval
kEYLEN%, byval KYNO% ) as integer
で解るようにdeclare function BTRCALL lib[他言語で作られた]"WBTRV32.DLL"
ALIAS "BTRCALL"をlibとして使っております（BASIC以外の言語で記述されたプロシージャの参照を宣言し、パラメータの型を指定します。）のでDLLファイルがないと動きませんですから解析は断念しておきますが
起動しますと次のような画面が表示されます、これによると 1-5のキーを入力してそれぞれの仕事をするようにプログラミングされているようです、DLLファイルを使わないでもできると思いますが、ここではあえて使っているようです。
Buttonサンプルプログラム
コマンドボタンのサンプルです。ボタンを押すと、文字を表示します。まずフォームのコントロールを確認します
 |
ここでコントロールのプロパティでテキストにF-BASIC for Windowsとかかれているのが確認できます |
 |
その下のボタンはコントロールのプロパティでテキストに終了と記入されていることが確認できます。以上がMAINFORMに配置されたコントロールです |
 |
Button.exeボタンをクリックするとプログラムが実行されます、"MAINFORMが表示されます。
|
 |
 |
実行されたMAINFORMですがHPに載せる関係で大きさを
SETWINDOWSIZE 1200,400に変更しております |
終了ボタンをクリックするとメッセージボックスが表示されます |
メッセージボックスのOK・キャンセル によって次の動きが決まることになります。
このサンプルプログラムはButton.lzh 23.1ｋｂよりインストールできます
尚コードの詳細はワードファイルButtonw.lzh 6.74kbでインストールできます。
私のホームページへ戻る
