過去のQ＆A

これを使用するためには、ＶＢのメニューの[プロジェクト]−[参照]、または[プロジェクト]−[コンポーネント]で、該当するものを探してみて下さい。もし "Direct ----" と書かれた項目があれば、それをチェックします。

コンポーネントから指定した場合はツールボックスに新しいアイコンが表示されているはずですので、これを使ってコントロールをフォームに貼り付けられます。

参照で指定した場合は、オブジェクトブラウザの該当する項目を開いて、公開されているオブジェクトや、そのプロパティ、メソッドなどを調べて、それをコードとして記述することで使用できます。

たとえば、DirectKats というオブジェクトに KatsStart というメソッドがあったとすると、以下のように記述します。

---------------------------

Dim MyObject As New DirectKats

MyObject.KatsStart

---------------------------

具体的なメソッドやプロパティの動作や仕様については、オブジェクトブラウザの説明を読むか、テストプログラムで試行錯誤するしかないかも知れません。

＜続報＞ VB6 で DirectX7.0a を利用できる Dx7vb.dll というDll があります。
工学社刊「I/O別冊 Visual Basic による DirectX7活用術」に DirectX7.0a SDK と詳しい解説が載っています。

さて、考えられる原因その１は、ＤＬＬのバージョンです。

ＶＢ５が使用しているＯＣＸ（ＡｃｔｉｖｅＸコントロール）の中には、コモンダイアログ・コントロールのように、他のＷｉｎｄｏｗｓアプリケーションからも参照されるものがあります。

ＩＥ５．０をインストールすることにより、ＶＢ５が使用していたＯＣＸの新しいバージョンが上書きされて、ＶＢ５から使用できなくなった可能性があります。

その場合、ＶＢ５を再インストールすることでＷｉｎｄｏｗｓ９８の標準ＯＣＸが旧バージョンで上書きされてしまうために、２．の症状が出たものと思われます。

解決方法ですが、おそらく次の方法が有効と思います。

１．ＶＢ５をアンインストールする。
２．ＩＥ５．０をインストールする
３．ＶＢ５を再インストールする。
４．ＶＢ５のサービスパックであるＳＰ３をインストールする。

ただし、これは未検証の方法ですので、確実に有効である保証はありません。

できるかぎり、Ｍｉｃｒｏｓｏｆｔ社の技術情報を参照するようにしてください。

メニューの編集のとこに元に戻すってつけたいんだけどどうすればいいの？教えてください！

2．名前をつけて保存っていうのは作れたんだけど上書き保存が作れません（；＿；）ファイルネームをどうこうするんだとは思うんだけど・・・どうすればいいのでしょうか？

3．Q1でも言ったけどテキストエディタ（メモ帳みたいなの）をとりあえず作ったのはいいんだけど、exeファイルにドラックドロップしてテキストファイルを開くにはどうしたらいいのでしょうか？教えてください（＾＾）

以上の点について教えてください（＾＾；　（キッキさん[99/03/29]）

１．まず、そのテキストエディタのすべての機能について、実行する前にある関数をコールするようにします。

その関数では、現在のテキストの状態をテンポラリに書き出す処理を記述します。これはＷｉｎｄｏｗｓＡＰＩを使用してテンポラリフォルダのパスを取得してもよいですし、アプリと同じ場所（Ａｐｐ．ｐａｔｈ）でもいいでしょう。

複数回のＵｎｄｏを有効にしたいなら、ファイル名の末尾に通し番号をつけて、たとえば ＭｙＥｄｉｔ０１．ｔｍｐのようにして、変数で番号を管理すれば大丈夫ですね。

もちろん、アプリの起動時か終了時にこれらのテンポラリファイルは削除しましょう。

そして、Ｕｎｄｏが選ばれたときに、このテンポラリファイルを編集中のファイルに上書きしてやれば、いかにもＵｎｄｏしたように見えるわけです。

複数回Ｕｎｄｏなら、インデックスを処理してずらすことを忘れずに！

ちょっと動作が遅くなってしまいますが、一番簡単な方法はこれでしょうね。

２．まず、ファイルを開いたときと、名前をつけて保存したときに、開いたまたは保存したファイル名を文字列変数に保持しておきます。

ファイルをセーブするときにどのメソッドあるいはステートメントを使用しているかにもよりますが、そのファイル名で保存するようにすればだいじょうぶなはずです。

３．これはＣｏｍｍａｎｄ関数を使うことで、そのＥｘｅが起動されたときのコマンドライン引数を参照すれば簡単にできます。

ＭＳ−ＤＯＳの時代の、 Ｃ：￥ＭｙＡｐｐ.ｅｘｅ ／Ｐ：２００ みたいなのがわかれば、コマンドライン引数という意味がぴんとくるでしょう。

ＶＢのＣｏｍｍａｎｄの場合は、Ｅｘｅやショートカットにドロップされたファイル名を与えます。これを文字列変数に代入してやれば送られたファイルを知ることができます。

注意したいのは、複数を同時にドロップできるようにするかどうかです。複数のファイルを同時にドロップすると、Ｃｏｍｍａｎｄの値はスペースまたはタブで区切られたファイル名の羅列になります。これをうまく切り出すようにコードを書かなければいけません。

ちなみに、この機能を組み込めば、Ｗｉｎｄｏｗｓ の Ｓｅｎｄｔｏ フォルダにショートカットを作ることで、右クリックメニューの「送る」で使用できるようになりますよ。

HTMLファイルはinetコントロールで保存することが出来ますが、画像は一体どうやって取ればいいのでしょう……。（かなさん[99/04/04]）

ですが、たぶんこれでいいだろうと思われる方法をご紹介します。

目的のページのHTMLのテキストを取得して、InStr関数などで img src タグを検索し、画像のURLを取得します。これを文字列変数の配列に格納して、ダウンロードのターゲットにすればよいのではないでしょうか？

いちおう、成功例のソースを下に示しますね。

Dim Da() As Byte

Da() = Inet1.OpenURL("http://www.domain.com/folder/file.jpg", icByteArray)

Open "C:\Windows\Temp\file.jpg" For Binary Access Write As #1
Put #1, , Da()
Close #1

現象：印刷ボタン押下時に、印刷コモンダイアログを表示しているが、 印刷コモンダイアログが画面上に表示されない場合がある。

        よく見ると、タスクバーには「印刷」のタスクがあり、選択すると 印刷コモンダイアログが表示される。 表示される様子を見るとどうも小アイコン化されているようです。

        この現象は、発生するときとしないときがあります。

        コモンダイアログは、モーダルで表示されており小アイコン化 などしないと思っていましたが、実際どうなんでしょうか。（森一生さん[99/07/23]）

ヘルプにもそのような記述はありませんし、わたしも一度も見たことがありません。

可能性としては、コンソール（キー入力優先受付）を持ったウィンドウがすでに開いており、開かれたコモンダイアログのウィンドウがアクティブウィンドウにならなかったため、アクティブウィンドウの裏側（表示順下位）に表示されているケースです。

このような現象は見たことがあります。

コモンダイアログのオープン中にキー入力やマウス入力により他のウィンドウがアクティブになった場合などもそういう現象が起きることがあります。

ご質問の内容だけでは断定はできませんが、おそらく最小化ではなく、裏画面ではないか、というのは可能性が高いと思います。

方法が分からないのファイルサイズを合計していますが、処理時間がかかるため使いものになりません。（Koji Yamasakiさん[99/08/20]）

わたしも実験してみたのですが、他の原因でうまくいかないらしく、ファイルを指定してもフォルダを指定してもエラーになってしまっているので、検証未済ではありますが（＾＾；

ただ、GetFileAttribute などでフォルダもファイルの一つであるかのような扱いをしているようですし、特にフォルダに限定　してサイズを取得する関数が用意されていないことを見ても、おそらくファイルサイズ取得用関数にフォルダ名を指定することで可能なのではないでしょうか？

一点気になるのは、エクスプローラの右クリックでフォルダのプロパティを見たとき、ファイルのサイズを合計する処理が行われているらしいことです（サイズ欄が少しずつ増える現象が確認できます）。

VBでファイルを検索して合計するよりは多少速くなるでしょうが、劇的な速度向上が望めないかも知れませんね。

Ａ８： そういえば英語版のソフトを作ることはできても、セットアップ自体を英語表記にするのは標準のディストリビューション・ウィザードではできませんよね。

わたしの場合、フリーウェアやシェアウェアのセットアップツールを利用しています。まだ未確認ですが、こういったツールの中に、セットアップ実行時のメッセージを指定できるものがあるかも知れません。

あるいは英語版のセットアップ作成ソフトを利用されれば、確実な解決になろうかと思いますが、その場合は英語版Windowsでしか動作確認されていない、などの問題に留意しなければならないでしょう。

Install Shield などはわりと広く利用されているソフトですね。試用版を使ってみたこがありますが、かなり細かい部分まで指定が可能で、利用価値は高いと思いますが、そのぶん価格もそうとうなものです。

ともあれ、Web でいろいろ探してみられることをお勧めいたします。

うーん、どうなんでしょう？

まず、スクリーンセーバーも基本的にはWindows用EXEファイルです。試しに適当なEXEファイルを作り、コマンドラインが/Sのときに実行するよう作って拡張子をSCRにすれば、最低限セーバーとして動作します。

ということは、okaさんのご利用のセーバーのプログラムに、たとえば通信状態を監視して遮断するとか、そういうアルゴリズムが実装されている可能性が考えられます。

どのセーバーでも同じ現象が起きるとすれば、アイドル時間を感知してセーバーを実行するWindowsの制御のほうに原因があると考えられます。

なんですが・・・すみません　m(_ _)m　これから先はわたしもちょっとわかりません。

もう少し勉強してみます。何かわかったらここに情報を追加させていただきます。

SSTABってAutoRedrawプロパティってありましたっけ？　もしあるようでしたらそれで解決できるかも知れません。

それがない、あるいはあっても効果がない、そのときは・・・

かなり高度なことになってしまいますが、APIとか市販のコントロールでWindowsメッセージをフックして、画面のプロパティ変更がされたときに強制的にRefreshをかける、とか、どうでしょう？

あるいはタイマーで一定時間ごとにRefreshをかけてやるとか・・・なんか画面がちかちかしてしまいそうですね（−−；

むー、そこまでして色を変えるべきかどうか、難しいところではありますが・・・

方法としてはそんな方法が考えられますが、どうでしょう？

プログラムで自動的に行うには少々手間がかかります。・・・そうです、APIを使います（＾＾；

まず FindWindow 関数でウィンドウタイトルを元にウィンドウのハンドルを取得します。さらに GetWindowDC 関数にそのハンドルを渡して、フォーム全体に対するデバイスコンテキストのハンドルを取得します。

もし可能であればピクチャボックスだけ持つウィンドウを用意します。このウィンドウを最大化させ、取得したフォームのデバイスコンテキストハンドルからこのピクチャボックスのhDCプロパティあてに BitBlt 関数を使ってイメージをコピーし、最後にこのピクチャボックスのイメージを VBの SavePicture でファイルに保存すれば、できあがりです。

むむ、かなりややっこしいですねぇ（＾＾；　もっといい方法がありそうな気もするのですが、今はこのくらいしか考えられません。ごめんなさい　m(_ _)m

失礼　m(_ _)m

いろいろ試してみたのですが、どれもうまくいきません。これはたぶん機能として実装されていませんね。

それではどうするか。やはりWindowsメッセージのフックをするしかなさそうです。そして、バッチファイル実行ウィンドウに送られるWM_CLOSEメッセージを検出するまでプログラムを待機させる（ループするとか）しかなさそうです。

メッセージをフックするコントロールは市販のものにありますし、確か（＝不確か）オンラインソフトにもあったような気が・・・

よかったら探してみてください。

ずいぶん難しいことをなさってるんですね。

さて、わたしはＩＢＭのＶｉａＶｏｉｃｅのエンジンについてはよく存じ上げませんので、一般論を申し上げますね。

ＶＢで他のアプリケーションのコンポーネントを利用するときにはおよそ以下の二通りの方法があります。

１．ActiveXコントロールで提供されている場合はプロジェクトにコントロールを追加して使用する。

２．DLLなどの外部ライブラリで提供されている場合はプロジェクトに参照を設定してAPIのように関数をコールして使用する。

１．のほうはコモンコントロールなどでおなじみでしょうから、あえて説明不要でしょうか。

メニューの「プロジェクト」−「コンポーネント」でコントロールを追加し、ツールボックスからフォームに貼りつけるだけです。

あとはテキストボックスのような標準コントロールと同じようにプロパティやメソッド、イベントを操作することでカスタマイズして使用できます。

２．のほうは、少々ややこしいですが、Win３２APIをお使いになったことがあればほぼ同じようにできます。

つまり標準モジュールの宣言部で Declare Function でDLL内の関数への参照を作成し、あたかもプロジェクト内部で宣言された関数であるかのようにコールするだけです。

このDeclare Function の定義法についてはVBのヘルプやアドインの「APIビューワ」などを参照してみてください。

（例） Declare Function GetVoiceInput Lib "vvoice.dll" Alias "vvGetVoiceInput" (ByVal pWait as Long, ByVal buff as String ) As Long

ご参考になるかどうかわかりませんが、ぜひがんばってよいソフトを完成させてくださいね　(^-^)

さて、ご質問の件ですが、こちらでも検証してみました。

まず文字化けの件ですが、これはinetコントロールが Internet Explorer のエンジンを使用していることが原因で、特にCGIだからというわけではなさそうです（Yahoo!Japanは文字化けしやすいサイトの代表です ＾＾； ）。

これを解決するには、IEのように、ユーザがエンコードを選択できるようにするほかないでしょうね。

それから、最後まで取得できないのも、エンコードの問題のようです。たとえばS-JISでEOFになるコードを含むEUCのサイトなどを取得するときなどに起きるようです。

サイトのほうでMETAタグなどでエンコードを明示しない限り、１００％正確にエンコードを取得する方法が今のところなく、最終的にはユーザに選択してもらうしかないでしょうね、残念ながら…。

ええっと、AccessはOracleなどと異なり、どちらかというと小規模データベース用に設計されているような印象があります。

わたしも以前仕事でAccess1.1のアプリを触ったことがありますが、もとのテーブルが2200件のときに２〜３分で終了するクエリーが、テーブルが2300件になった途端に１時間以上かかるようになる、といったような現象を経験しました。

テンポラリファイルはご存知のようにWindowsフォルダのTempフォルダ内に作成され、アプリケーションの終了などのタイミングで削除される、文字通り「一時的」ファイルです。

データが27万件とのことですから、ざっと見積もっても１００MBくらいのMDBファイルになっていませんか？

それがさらに作業用のテンポラリファイルを次々に作成していくと、当然ディスク領域の不足が発生するものと考えられます。

一つ便利な方法は（ご存知かも知れませんが）、Accessのメニューの「データベース」−「ツール」−「最適化」を実行すると、速度向上のために展開されたインデックスなどを削除することで、多少ファイルサイズを抑えることができますので、これをお試しになられることをお勧めします。

また、テーブル構成や設計を見直して、結果テーブルの件数が少なくてすむようであれば、それもお試しになられるとよいかもしれません。

ただ、根本的に巨大なデータベースを扱うのにAccessは向いていないこともご留意されたほうがよろしいかと思います。

確かにわかりにくいんですよね、あれって…(笑)。

ところで、このソースにある main5.gif のところは、エラーになりませんか？

ファイル名はダブルクォーテーションで括ってるんですよね、おそらく。

で…実はわたしはExecuteは使ったことがありません（−−；

というのも、ご指摘のとおりGetChunkがどうとか、いまいちヘルプの説明じゃわけがわかんないからです。

なのでこの先は想像で書いておりますので（無責任）、どうぞご了承くださいませ　m(_ _)m

おそらく GET というのは、FTPによってファイルを取得するコマンドではないでしょうか？

であれば、HTTPダウンロード用のコマンドが別にあることになりますが、ありますかね？

…う、やっぱだめだ、想像じゃわかんない…

ちょっと宿題ってことで、もうちょっと調べてみます、すみません　m(_ _)m

Ｑ１７：ＡＣＣＥＳＳ２０００でデータベースを作成し、クリスタルレポートにＯＤＢＣ経由で、印刷さしたいのですが、 ＡＣＣＥＳＳ２０００側だと思うんですが、トランザクションをウエートで発行しても、恐らくまだ、物理的にデータベースに データが、書き込まれないうちに書き込み済みのステータスだけが、先に帰りレポートのアクションを起こします。
その結果クリスタルレポートの項目に何も編集されず、枠のみ印刷されます。
その為トランザクション完了直後にウエート命令を置いたところＭＤＢの情報を取り込みデータベースの内容が、 ちゃんと編集されました。
なにか、完全にＡＣＣＥＳＳ２０００にデータが書き込まれたことをトランザクション以外に確認する方法は、ないでしょうか？ よろしくお願い致します。  （ティー・アイ・シーさん[99/10/28]）

まず、なぜ書き込み済みが早く戻るかというと、それはAccessがデータベースのアクセスにキャッシュを使っているからなんですね。

つまり、メモリ上のエリアにデータを格納した時点で「書きこみ完了」とみなしているわけで、メモリのデータをディスク上の実データに書き出すタイミングとは異なってしまうんですね。

では明示的に実データの更新を確定するにはどうするかというと、すでにご確認のようにトランザクションを使うのが通常です。

トランザクションの利点はデータの最新性の保証や、排他処理による「戻り」発生の防止、予想外のエラーによるプログラムの中止などのときに変更を反映させずに終わる、などがありますが、このようなデータ更新の確定にも有用なわけです。

もしトランザクションを利用しないようにしたいのであれば、ＶＢなどでＤＡＯとクリスタルレポートコントロールを利用されてみてはいかがでしょうか。

データの受け取りにどういう方法を使っているか、によって違ってくるとは思うんですが、このご質問から最初に考えたのはタイマーを使う方法です。

タイマーでポートから受け取ったデータを見るプロシージャを呼び出して、InStr関数などで特定のバイトを探す方法はいかがでしょうか？

たとえば

Private Sub Timer1_Timer()

　　Dim RcvdData as String　　　' ポートから受信するデータ

　　RcvdData = GetPortData()　' ポートからデータを受け取る関数をコール

　　If InStr(0, RcvdData, Chr(Val("&HA5"))) > 0 Then Beep

End Sub

というふうにしたらできると思います。

あるいは文字列でなく ByteArray で受け取る場合には、For Next ループでインデックスをインクリメントしながら探していくことになるでしょうね。

まず、フォーム（非表示でもよい）にピクチャボックスを貼り、AutoSize プロパティを True にしておきます。

このピクチャボックスに対象となるJPEGファイルを LoadPicture 関数でロードします。

そうです、実はJPEGだろうとGIFだろうと、VB4 以後のピクチャボックスはビットマップとしてロードできてしまうんです。

で、AutoSize プロパティが働いてサイズが自動的に対象のファイルのサイズと同じになります。

そこでピクチャボックスの Width プロパティと Height プロパティを取得すればＯＫですね。

ピクセル単位に直したいときは Screen.TwipsPerPixelX と Screen.TwipsPerPixcelY でそれぞれ割ってやるだけです。

ランタイムやＤＬＬ等はクライアントにもないと実行はできないような気がします．．．

本当は、クライアントにはなにも置かずにサーバーのＥＸＥだけを実行したいのですが、それは無理なのでしょうか？

仮に、クライアントにランタイムやＤＬＬ等をコピーするとしたら、サーバーにセットアップした後で、サーバーにあるクライアントセットアップＥＸＥを実行するとクライアントにコピーされるという方法がとれるのでしょうか？

ＶＢのヘルプとかを探したつもりなんですが、わかりませんでした。 （K.Mさん[00/01/19]）

VB5以降から追加されたプロジェクト形式に ActiveXドキュメントＥＸＥ というのがありますが、それを使用すればセットアップなしでサーバにある実行ファイルを利用できます。

ただし、実際にはバックグラウンドで実行ファイルやランタイムをローカルにコピーしているので、正確には「セットアップをユーザが意識することなく使用できる」ということになります。

やり方としては、新規プロジェクトで ActiveXドキュメントＥＸＥ を作成し、ユーザードキュメントにコマンドボタンを配置します。
さらにそのプロジェクトに実行させたいアプリのフォームやらモジュールをプロジェクトに追加します。
そしてユーザードキュメントのコマンドボタンのクリックイベントに、そのアプリのスタートになるステートメント、たとえば
Form1.Show とか Call Main などを記述してやればOKです。

この ActiveXドキュメントEXE のプロジェクトをセットアップウィザードで開き、「インターネットセットアップ」を選択すると、必要なファイルをまとめて圧縮したCABファイルと、ユーザドキュメントから生成されるVBDファイル、そしてHTMLファイルの３つが作られます。

この３つをサーバに配置して、クライアントからHTMLファイルにブラウザでアクセスすると、ユーザドキュメントでデザインした画面がブラウザに表示されます。
そこでコマンドボタンをクリックすると、ファイルのコピーをバックグラウンドで行いつつ、アプリがクライアント側で起動します。

この場合にいくつか注意すべき点があって、まずブラウザのセキュリティ設定が「低」でないと実行できないこと、またパブリック変数をモジュールをまたいで利用するときにはユーザドキュメントにプロパティを記述しなければならないこと、など、通常のプロジェクトとは異なる部分があります。

ActiveXドキュメントEXE のネットワークでの使用については　Visual Basic Books Online に詳細に（わかりにくいですが）記述されていますのでご参考になさってみてください。

VBに標準で用意されているテキストボックスコントロールやリッチテキストコントロールは、MouseDown イベントでマウスの押下位置を取得することはできても、その下にあるテキストまでは取得できませんね。

わたしもいろんな方法を考えてみましたが、どんな方法でもどこかにかならずネックがあり、簡単には実現できそうにありません。

まだ未確認ですが、インターネット関連コントロールの中に、HTML形式をサポートしたものがあったかも知れません。

あるいはそれを使用すれば可能かも、と思うのですが。

もう少し引き続いて調べてみますね。

Ａ２２：方法はいくつかあります。

１．セットアッププログラムを自作する。あるいはバッチファイルなどを利用する。

２．ＬＨＡ形式の自己解凍形式書庫を作成するとき、「自動実行」をチェックする。
　　こうすると、書庫ファイルを実行すると同時に指定のフォルダに解凍します。

ただし、これらの方法はあまりおすすめできません。

というのも、ユーザそれぞれに使用環境が異なるため、どんなユーザにも対応できるフォルダの指定ができないからです。

たとえば、DOS/V機のHDDドライブはCが第一ドライブですが、NECのPC-98シリーズの古いシリーズなどではAが第一ドライブです。
もし、インストールフォルダに C:\Program Files\MyApp のように指定すると、PC-98シリーズの場合にはFDDになってしまい、ソフトを利用できなくなります。

また、DOS/V機ユーザでも、パーティションを切ってCドライブは Windows などのシステム用、アプリやデータはDドライブ、というように分けている方も多いので、勝手にCドライブにインストールされては困る、ということになります。

通常、フォルダの概念がわからない方は、そのままOKボタンを押すと思われますので、あえて指定できなくする必然性はないと思われますが、いかがでしょう？

Ｑ２３：ＮＴ4.0　ＶＢ6.0にて先物取引のグラフを自動生成する プログラムを 作成しています。
ｗｅｂ上でグラフを表示できるよう、ｇｉｆファイルに出力したい のですが、 やり方がわかりません。
只今の手順としてはChartFXというアプリケーションのコンポ−ネントを使用して グラフを作成し、 それをクリップボードに貼り付け、GetData()関数を使用して、ピクチャーボックス に読み込み、 SavePictureにて、ｂｉｔｍａｐとして出力しています。
ネット上のフリーのＤＬＬ を使用させていただいて jpegファイルにはうまく出力できているのですが、ファイルサイズの割には画像がに じんで きれいに表示できません。（Maedaさん[00/02/25]）

Ａ２３：まず、GIFという画像形式は特許技術なので、その変換をサポートするアプリは特許料を支払わなくてはならないのです。

そのため、オンラインソフトなどでも、かつては Susie という画像ビューワのプラグインなどで GIF 変換できるものがあったのですが、公開を中止しているようです。

あるいは市販の ActiveX コントロールなどでは、ちゃんと特許料を支払ったものがあるかもしれません。
ただ、お仕事とのことですから、客先に配布するにはライセンス料を取られることになるでしょうね。

アプリケーションの設計段階での検討であれば、グラフの作り方から見直せば、いろんな方法があるのですが、とりあえずすでにビットマップにグラフが出力された状態での解決法ということで考えます。

それには、ActiveXドキュメントを使用する方法があります。

あまりスマートな方法ではないのですが、ピクチャーボックスのみを持つフォームをActiveXドキュメントEXE のプロジェクトに追加して、そのピクチャーボックスにビットマップを表示させれば、ブラウザでもビットマップを表示できる、ということですね。

VB Books Online などに ActiveXドキュメントについて解説が載っていますので（わかりにくいですが）、そちらをご参考になさってみてください。

Ｑ２４：ＶＢ６でフォーム上に例えば
１．「MSchart1」と「Command1」とを配置します
２．MSchart1のプロパティーページでチャートの種類を棒にします。
そして以下のコードを実行しコマンドボタン１をおすと 棒グラフが表示されます。

Private Sub Command1_Click()
　　Dim d(10)
　　For i = 1 To 10
　　　　d(i) = i
　　Next i
　　MSChart1.ChartData = d
End Sub

ここまでは理解しました。
ただ、チャートの種類を散布図(XYグラフ)にした場合、 チャートへのデータの渡し方が分かりません。
例えばX値の系列が１列あり、 これに対してY値の系列が複数列ある場合の データの渡し方を教えてください。 （小川琢司さん[00/03/03]）

Ａ２４：検証はしていないのですが、VB Books Online によると、二次元配列でデータを与えることが可能なようです。
つまり、

　　Dim d(10,10)
　　For i = 1 To 10
　　　　For j = 1 To 10
　　　　　　d(i, j) = i * j
　　　　Next j
　　Next i
　　MSChart1.ChartData = d

このようにして行・列などを持つグラフでもデータを渡すことができるようです。

たぶん、３次元配列以上でも同じように可能と思われます。

Ａ２５：まず、ActiveX DLLまたは ActiveX EXE のプロジェクトに新規フォームを作成して、そこに MSComm コントロールを貼りつけます。
そしてクラスモジュールに、MSComm のプロパティやメソッド、イベントなどをラップするプロシージャを記述します。
その場合には、たとえば Form1.MSComm1.xxxx のように記述することで、クラスモジュール内でコントロールを利用できます。

プロパティなら Property Get と Property Let のプロパティ関数コンビを作ります。
メソッドなら Public Sub または Public Function で記述します。
イベントは宣言部で Public Event として宣言しておいて、発生させる場所で RaiseEvent MyEvent のように記述します。

これらは、ご自分で利用されるものだけ用意してやればいいでしょう。

ちなみに、ActiveX DLL や ActiveX EXE を使用するより、ActiveX コントロールにしたほうが、本家のプロジェクトにコントロールを貼りつけるだけで済みますので、かなり簡単になりますよ。

Ｑ２６：Inet1コントロールを使用しようとしたら、ライセンスがありませんと表示されます。
どのように対応すれば使用できるうのでしょうか？わかる方がいれば教えてください。
vbのバージョンは、vb5 proです。（はらぴーさん[00/03/11]）

Ａ２６：ActiveXコントロールには、２種類のライセンスがあります。

ひとつは使用時ライセンスで、そのコントロールをプログラムから呼び出して実行することができるライセンスです。

もうひとつは開発時ライセンスで、そのコントロールを自分のプログラムに使用して、プログラムといっしょに配布することができるライセンスです。

さて、ご質問のケースですが、Inetコントロールが何らかの原因で開発ライセンスを与えられていないようです。
考えられる原因は以下のようなものです。

１．VBのインストール時にコントロールをインストールしていない
２．VBをインストールした後で、IEなどをバージョンアップしたため、新しいコントロールで上書きされた
３．Inet コントロールを使用するオンラインソフトをインストールしたとき、新しいコントロールで上書きされた

まず１．のケースですが、VBのインストールのときにオプションでインストールするコントロールを選択できるようになっていて、標準インストールではインストールされないコントロールがあったりします。

また、２．や３．のケースでは、他のソフトが使用するコントロールのほうがバージョンが新しいときには、その新しいバージョンのコントロールで上書きされてしまい、開発時ライセンスを失ってしまうことがあります。

解決法としては、VBのCD-ROMから再度 Inet コントロールを追加インストールすればよいはずです。

ただし２．や３．の場合には、新しいバージョンを使用しているアプリケーションが正常に動作しなくなる可能性もあります。

ですので、念のため先に VB のサービスパックを Microsoft のサイトからダウンロードしてインストールされておくことをおすすめします。
これは、たとえば VB付属のコントロールが ver.6.00 だったとして、他のアプリケーションの使用するコントロールが ver.6.01だったような場合、サービスパックをあてることで、コントロールが ver.6.00 から ver.6.01 にアップグレードされる可能性があるからです。
そうすればバージョンの競合は避けることができます。

Ａ２７：そのものずばり、の機能はないんですが、コードをうまく書くことで似たような動作をさせることは可能です。

まず、表示させたい画像を Autosize プロパティを True に設定した非表示のピクチャボックスに読みこみ、そのピクチャボックスの Width プロパティと Height プロパティから幅と高さを取得します。

つぎに、Form_Load イベントと Form_Resize イベントで、フォームのクライアント領域の幅と高さを取得し、それぞれをピクチャボックスの幅と高さで割ることで、縦横いくつずつ表示させればよいかを計算します。

そしてその回数で二重のループを作り、Ｘ座標とＹ座標にその幅と高さを加算しながら、ピクチャボックスのデバイスコンテキスト（hDCプロパティ）からフォームのデバイスコンテキストへ API の BitBlt 関数でイメージを転送してやればOKです。

コードを書いてみるとこんな感じですね。

Private Sub Form_Resize()

　　Dim wWd As Single　　　　' ウィンドウの幅
　　Dim wHt As Single　　　　' ウィンドウの高さ
　　Dim pWd As Single　　　　' ピクチャの幅（ Twips ）
　　Dim pHt As Single　　　　' ピクチャの高さ（ Twips ）
　　Dim pWd_L As Long　　　' ピクチャの幅（ Pixel ）
　　Dim pHt_L As Long 　　　' ピクチャの高さ（ Pixel ）

　　Dim idx1 As Integer　　　　' ループカウンタ
　　Dim idx2 As Integer　　　　' ループカウンタ

　　Dim xCnt As Integer　　　' 横方向のピクチャ数
　　Dim yCnt As Integer　　　' 縦方向のピクチャ数
　　Dim LocX As Long　　　　' 描画するX座標位置
　　Dim LocY As Long　　　　' 描画するY座標位置

　　' ウィンドウサイズの取得
　　wWd = Me.Width
　　wHt = Me.Height

　　' ピクチャサイズの取得
　　pWd = Picture1.Width
　　pHt = Picture1.Height

　　' ピクチャサイズのピクセル数変換
　　pWd_L = CLng(pWd / Screen.TwipsPerPixelX)
　　pHt_L = CLng(pHt / Screen.TwipsPerPixelY)

　　' 縦横のピクチャ数計算
　　xCnt = CInt(wWd \pWd)
　　yCnt = CInt(wHt \pHt)

　　' ループ
　　For idx1 = 0 to yCnt - 1
　　　　' 描画位置Y
　　　　LocY = pHt_L * idx1
　　　　For idx2 = 0 to xCnt - 1
　　　　　　' 描画位置X
　　　　　　LocX = pWd_L * idx2
　　　　　　' ビットマップ転送
　　　　　　BitBlt GetDC(Me.hwnd), LocX, LoxY, pWd_L, pHt_L, Picture1.hDC, 0, 0, SRCCOPY
　　　　Next idx2
　　Next idx1

End Sub

Ａ２８：ディストリビューションウィザードは、デフォルトでは一つのCABファイルを作成する設定になっていて、FDD配布を選択した場合には複数に分割されるものと思います。

さて、WindowsもVBも同じバージョンでありながらセットアップの作成ができる場合とできない場合があるとすれば、考えられる原因は以下のようなことです。

１．VBのインストールオプションやエディションが違う
　　つまり、「標準インストール」「フルインストール」「最小インストール」などの選択により、ActiveXコントロールやコンポーネントが 省略されてしまうと、そのアプリで使用されているコンポーネントが見つからないためにセットアップを作成できません。
　　また、Professional Edition と Enterprise Edition では使用できるコンポーネントの種類が異なっていますので、同じようなことが起きる可能性があります。

２． VB以外のコンポーネントのインストール状況が違う
　　DAOやODBCドライバのような、VB以外の環境に依存するコンポーネントをアプリケーションで使用している場合、それらがインストールされていない環境ではセットアップを作成できません。

次に、サーバからインストールする方法ですが、LAN環境であれば、サーバの共有フォルダにセットアップを配置し、クライアントが「ネットワークコンピュータ」アイコンからアクセスしてSetup.exe を実行するだけでセットアップできます。
インターネット環境での場合の方法は、Ｑ２０を参照してください。

Ａ２９：通常、変数の型を意識してデータを読み込むためには、ランダムアクセスモードでデータを書き込むことによって、「記述子」も同時に書き込んでおき、ランダムアクセスモードで開くことで、書き込んだときと同じ型でデータを取得できます。

バイナリーで開く場合、記述子が保存されていないので、型を判別できません。

その場合、バイトデータとして値を取得し、Single型のフォーマットに従って解析・変換をする必要があります。
フォーマットの仕様については公開されていないので、テストプログラムをいくつか作成して解析するしかないでしょう。

Ｑ３０：NT4.0で構築されたLAN環境でVB5を使用して開発しています。
管理上、共有ファイルの使用状況が分かればと思い、 「対象のファイルが開かれているかどうか」を取得したいのですが、 現状ではその方法が分かりません。
実際、使用中のファイルをデリート、または名前を変更しようとすると 「編集できない」とWindowsで警告メッセージがでるので、 なんかしら方法が有ると思っているのですが・・・。
APIとかで可能なのでしょうか？よろしくお願いします。
あと、NTのLAN環境ということで、使用ユーザー名が分かれば更に理想なのですが。（さん[00/04/17]）

Ａ３０：いろいろ調べてみたのですが、特定のファイルが開かれているかどうかを得る方法というのはなさそうです。
これはネットワーク上、ローカルを問わず、です。

Windows が警告を出すのは、ファイルそのものに情報が設定されているのではなく、カーネルかシステム（おそらく常駐しているExplorer.exe あたりでしょう）が情報を保持しているものと思われます。

ひとつの方法として、Windowsのメッセージをフックする、という方法があり、ネットウォッチャーなどはどうもそれを利用しているように見えるのですが、残念なことにそのＡＰＩはＶＢからは使えないのです。

とういのも、ＶＢではＡＰＩ関数からコールバックされるメッセージを受け取ることができないからです。

そういうことで、ＶＢではお尋ねの機能を実装するのは不可能ではないかと思われます（VC++なら可能かも）。

Ａ３１：ぶっちゃけた話、たいした違いはありません（笑）。

基本的には内部的にシステムがどうDBとVBアプリの橋渡しをするか、が違うだけで、インタフェースなどが若干異なる以外、あまり意識する必要がない違いがほとんどです。

ただ、RDO経由でODBC接続をする場合、セットアップに組みこまなければいけないISAMドライバやDLLなどがかなり多くなるようです。

わたし個人としてはDAOでMDBを使用するのが一番簡単な気がします。

Ａ３２：自分自身が起動している状態では、その実行ファイルそのものをアップデート（上書き）することはできません。
ウイルスバスターや翻訳ソフトの「Babylon」 などでも、プログラムのアップデートを行うときはいったん本体を終了させています。

考えられる方法としては、アップデートプログラムをアプリに同梱しておきます。
アップデートを実行するときは、 テンポラリフォルダに新バージョンの実行ファイルをダウンロードさせます。
その後、アップデートプログラムを Shell 関数などで起動し、すぐに自分自身を終了させます。
アップデートプログラムのほうでは、「本体が終了したらＯＫを押してください」などと表示させ、ＯＫが押されたら、テンポラリフォルダにある新バージョンのファイルを旧バージョンをインストールしたフォルダ（アップデートプログラムから見た App.Path ）にコピーさせます。
コピーが終了したらメッセージを表示し、ＯＫを押したら本体を起動した後、自分自身を終了させます。

カップルで、お互い相手が寝ている間に寝言を録音するようなものでしょうか（笑）。

Ｑ３３：VB6.0でActiveXを作成し、 ActiveXコントロールインターフェースウィザードで使用するプロパティを決め、 プロパティページウィザードでプロパティの実装をしました。
ディストリビューションウィザードでインターネットパッケージを作成し、 IE５．０でインターネットオプションのセキュリティレベルを低に設定参照して OBJECTタグの埋め込まれたHTMLを読みこむと、 CABファイルのダウンロードが始まり、ActiveXコントロールが表示されたが、 ページの再読み込みをすると以下のメッセージが現れました。

「このページのソフトウエア（ActiveXコントロール）のいくつかは安全でない可能 性があります。
実行しないことをお勧めします。実行を許可しますか？」

ベリサインなどの会社の認証はとっていないので、メッセージがでたのだと考えられ ますが、 PARAMタグの記述をすべて削除するとメッセージでないことがわかりました。
もし、VBで作ったActiveXをIEで表示する際に、上記メッセージがでないようにする 方法をご存知でしたら教えて頂けませんか？（鈴木さん[00/04/28]）

Ａ３３：う〜ん、これが問題なのですよね、ActiveX認証問題・・・

なんせ、Microsoftのサイトから Windows のアップデートを Activeセットアップしようとしても、
「このActiveXコンポーネントには署名がありません」と警告されるくらいですから（笑）。

ヘルプやVB Book Online などを見ますと、ディストリビューションウィザードで署名を入れることができるかのように書いてあるのですが、実際やってみるとそうはなりません。

所詮、個人が作るソフトなど、安全でない可能性があってあたりまえなのですが（いきなりシステムを破壊するプログラムだってほんの数行で書けますし）、どうしても「危険なもの」と思われたくなければ、どうにかしてメッセージが出ないようにしたいのですよね。

わたしとしてはまだこれについてはいい方法を知りません。
もう少し勉強してみて、なにかわかりましたら、すぐにお知らせいたします。

Ｑ３４：すごく、単純なことで申し訳ないのですが、 何をどう頑張ってやっても、Enabledの値が変更できません。
わたしの使ってるVBがおかしいのですかねぇ。
ちなみにバージョンは6.0です。
サンプルのコードを下に書きます。

Private Sub cmdStart_Click()

frmMain.cmdExit.Enabled = False
frmMain.cmdHelp.Enabled = False
frmMain.cmdMelt.Enabled = False
frmMain.cmdNewsPaperPrint.Enabled = False
frmMain.cmdSyutubahyou.Enabled = False
frmMain.cmdWARS.Enabled = False
frmMain.cmdYosou.Enabled = False

　　　…

End Sub

ってな感じです。
助けてください。（MSさん[00/05/01]）

Ａ３４：む〜、不思議な現象ですねぇ。

ひょっとして、と思っていろんなパターンを試してみたのですが、変更できないことはありませんでした。
考えられるのは、なんらかのイベントプロシージャに、同じコントロール群の Enabled プロパティを True にするコードが書かれていないか、とういことです。

たとえば Timer イベントであったり、LostFocus イベントであったりすると、他のプロシージャの実行中でもジャンプしてしまう可能性もありますから。

あるいは、Enabled プロパティを False に設定する直前になんらかのイベントが発生し、そちらに制御が移ったまま戻ってこない場合もあり得るでしょう。

デバッグモードのステップ実行で一行一行、Ｆ８キーで経過を見ながら実行してみてください。
.Enabled = False の実行直後でなおコントロールが有効で、かつエラーメッセージも出ないようであれば、何かがおかしいか壊れている可能性があります。

あと、Windowsカラーなどを変更した場合で、256色環境などの場合、有効と無効が外見的に区別できないこともあるかも知れません（まずないと思いますが）。
これについては、実際にコントロールが使用できるかどうかで確認するしかないですね。

Ａ３５：ええっと、ちょっと話がややこしいのですが、ActiveXコントロールをプログラムで使用するには、そのプログラムが実行される環境に ActiveXコントロールがセットアップされている必要があります。

たとえば、クライアントからサーバにあるプログラムを実行する場合、クライアントにそのコントロールがセットアップされていなければいけません。

これはなぜかというと、クライアントのメモリにプログラムがロードされ、クライアントで実行されるので、そのプログラムはクライアントにコントロールのインスタンスを要求するからです。

簡単にうまくいく方法としては、プログラム本体のセットアップを作成すれば、それに使用されているコントロール（自作も含めて）のセットアップも同時に取りこんでくれるので、確実に動作可能な環境を作ることができます。

作成した環境でプログラムが正常に動作しているのなら、それで間違いないはずです。
もし作成した環境でも正しく動作しないのであれば、OCXの作り方を間違えたか、プログラムのほうの呼び出し方に誤りがある可能性もあります。

Ｑ３６：シリアルポートを利用して外部機器（テスター）からデータを受け取ってそれを表示させたいんですが、 どうもシリアルポートの設定などがわかりません。
いろいろな参考文献を調べているんですがどれも詳しく載っていません。是非教えてください。（タクターさん[00/05/11]）

Ａ３６：シリアルポートを利用したデータ通信は、VBの標準パッケージではサポートされていません（と思います・・・）。

技術的にはおそらくシステムがシリアルポートと通信するときに使用しているドライバから情報を受け取るような形になるのではないでしょうか。
これは推測ですが、CやC++でこの機能を実装する場合には、Windowsからのメッセージを取得することでデータを受け取れるのだと思います。ですが、VBにはWindowsのメッセージをフックしたりコールバック関数に引き渡す機能がありません。

いちばん簡単な解決方法は、市販のActiveXコントロールを利用することです。
こういったVBで実現の難しい機能は、ひととおりサードパーティ製のActiveXコントロールが揃っています。

Ａ３８：まず先に、外部プロセスを終了させる方法を説明します。
APIのFindWindow関数で、クラス名やウィンドウキャプションから目的のウィンドウのハンドルを取得し、そのハンドルを利用してPostMessage関数で WM_DESTROY メッセージを送ってやれば、強制的にそのウィンドウを閉じることができるはずです。

問題は応答なしかどうかを取得する方法ですが、他の質問・回答でも触れているように、VBではWindowsの任意のメッセージを受け取ることができません。
その相手プロセスが、自分でVBで作成した（または作成する）アプリであれば、 一定時間ごとに WM_MBUTTONDOWNメッセージ（マウスの中央ボタンが押された、の意）を送り、それを Form_MouseDownイベントで取得してやることで、生存確認ができますが、そうでないアプリの場合にはそれができません。

Ａ３９：一つの項目だけにデータラベルをつけるには、以下のようにします。

MSChart1.RowLabelIndex = 4
MSChart1.RowLabel = "このデータに注目！"

この例では、４つめの項目のみにデータラベルを設定しています。
要するに RowLabelIndex プロパティを設定したあと、その位置のラベルを設定する、というコードですね。

Ａ４０：ピクチャボックスではなく、イメージボックスを使えば簡単にできます。
イメージボックスは、StretchプロパティをTrueに設定しておくと読みこんだ画像を自動的にボックスのサイズに合わせて拡大・縮小して表示してくれます。
縦横の比率を変えたくないときは、一度VisibleプロパティをFalse、AutoSizeプロパティをTrueに設定したピクチャボックスに読みこんでやって、そのピクチャボックスのWidthプロパティとHeightプロパティを調べると画像の縦横のサイズがわかりますので、それをもとに計算して（たとえば0.5をかけてやる、など）、イメージボックスのサイズを変更しておいてから画像を読みこめばいいわけです。

表示は以上の方法で可能ですが、縮小されたイメージを保存するには別の方法が必要です。
簡単なのはAPIのStretchBlt関数を使って画像を縮小してもうひとつのピクチャボックスにコピーし、ImageプロパティをPictureプロパティに代入してからSavePicture関数で保存してやればＯＫです。
ただし、この方法ではWindows標準の拡縮アルゴリズムが適用されるので、あまり画質的にはよくないです。

Ｑ４１：今、ＶＢ６でAcviteドキュメントを作成しています。 作成は、通常のEXEを変換させて結構簡単にできてしまいました。
しかし、ディストリビューションウィザードでｗｗｗサーバーに、設定することができません。 手順は、 「パッケージ」-->画面従う。 「配置」-->画面従う。
としたのですが、「配置」の最後の「完了」ボタンをクリック すると、 「予期せぬエラーC0042116が発生しました。パラメーターが正しくありません。」
と、なってしまいます。 開発は、Ｗｉｎ９８ＳＰ１、ｗｗｗサーバーは、ＮＴ４．０ＳＰ６＋ＶＳ６．０の サーバー...をセットアップして有ります。
「パラメーターが正しくありません」といわれてもウィザードがやってるんだから．．．よくわかりません？ ウィザードの途中の指定がいけないのか？
この位の状況説明でわかるでしょうか？ Acviteドキュメント関連は書籍でもさらっとしか記載がなく、 ディストリビューションウィザードのインターネットの方も
あまり乗っていません。 この手の、情報って皆さんはどうやって仕入れてるんでしょう？ ちなみにxxx.vbdをCopyして、関連ＤＬＬ等がクライアントに
あれば、ＩＥで動作はできてます。（Hopeさん[00/05/24]）

自己レスです。 ディストリビューションウィザードで「配置」のなかで、 urlを、「http://192.158.1.1/aaa」としていたを、
「http://192.158.1.1/aaa/」と、最後に"/"を入れたらＷＷＷサーバーに配置できました。
しかし、そこに配置したxxx.vbdをＩＥで見ると、関連のActivexがDownloadされない様で、開くアプリケーションを 聞いてきます。
これではウィザードを使わずにｆｔｐでコピーしたのと同じだ！！！ ウィザードが、その辺をうまくやってくれるんじゃないの？
一歩進んですぐ止まった。この辺のこと何かご存知ですか？（Hopeさん[00/05/25]）

Ａ４１：まず、ActiveXドキュメントに関する資料ですが、Visual Basic Books Online が最も詳しく説明しているかと思います。
VBのインストール時にオプションでインストールできます。
ただ、詳しいと言っても、簡単な手順の解説と例が載っているだけで、それ以上のトラブルシューティング的なものは期待できませんのであしからず。

それから、vbdファイルにアクセスしたときのＩＥの動作なのですが、どうにも不思議なことに、環境によって動作が異なります。
なぜ？と聞かれたらまったくお手上げで、Microsoft の技術担当者にでも聞かないとわからないかも知れません・・・。

考えられる原因としてはサーバがActiveXをサポートしているかどうか（Webサーバの大半はLinuxなのであまり期待できないが、奇特なWindowsNTサーバであれば可能かも）がカギかも知れません。

このへんの情報はさらに詳しく調査をすすめますので、解り次第改めてお答えしたいと思います。

Ａ４２：これだけでは状況がよくわからないのですが、考えられる問題としては「変数の型変換をしていない」ということです。
オブジェクト変数にダイナセットを読みこみ、フィールドにアクセスする場合、フィールドの値はすべてVariant型になっているはずです。
これをLong型にするには CLng関数で変換をしてやる必要があります。
これが抜けていると、「型が一致しない」というエラーになります。

Ａ４３：う〜ん、これは技術うんぬんより、Accessのバグの可能性のほうが高いですね・・・。
VBというよりVBAなわけですが、VBAで End ステートメントって有効に使用できるんでしたっけ？

ちょっとイマイチこれはわからないです。ごめんなさい　m(_ _)m

Ａ４４：実行はできるわけですね？
となると、RDOのオブジェクトを参照するところがエラーになっているわけですから、参照ができない状態になっているのではないかと思います。
NTの場合はDLLの実行や更新などにユーザごとの権限が設定できると思いますが、もしかするとAdministrator権限でないと許されないようにできているのでしょうか？そんなことあるかな？ん〜〜
他の環境で問題がない、ということですから、NTの特性に関係ありそうな気がするのですが。

Administratorで実行して試してみるとよいかも知れません。
また、VBアプリのEXE作成はやはりWindows9Xで行ったほうが無難かも知れません。

Ａ４５：ん〜、Access2000使ったことないんですよね〜。
今までに聞いた話では、従来のAccessとの互換性はあまり期待できないらしいんですが。

わたしが未知の参照オブジェクトをVBで使うときによく使う手は、オブジェクトブラウザでプロパティやイベント、メソッドを解析することです。
説明は不十分なことが多いですが、とりあえず呼び出し形式や返値の型などはわかりますので、あとは名前による類推と試行錯誤 でなんとか方法を覚えていくわけです。

あくまで想像ですが、基本はたぶん今までの方法と大差はないはずです。
一番簡単なのは.ExecuteSQLでSQL文を発行し、返値のオブジェクト変数でレコードセットを取得し、それぞれの値にアクセスする方法です。
SQLはDBの基本操作一式を使うことができますし、同じ方法で異なるDB機能が使えるのでラクです。

配列変数 a(1 to 10)の中に入っている値を小さい順(又は大きい順)ランク付けしていって、配列変数 Rank(1 to 10) の中に、そのランクを代入したいのです。

何か、良い例題などありましたら、ご指導のほど、よろしくお願い致します。（MSさん[00/06/03]）

Ａ４６：ずばり、そういう機能を持った関数、というのはありません。残念ですが。
いわゆる「ソート」というやつですが、N-BASICの時代からプログラマが苦心していろんな方法を考え、使用してきました。
プログラミングの世界では初歩的なアルゴリズム研究の第一歩という感じです。

実際にどうやるかですが、たとえば上記の例でいくと、以下のようになります。

◆最初にRank() のすべての要素を、0（配列aがすべて正の場合）で初期化しておく
◆n=1〜10までのループの中で以下の処理を繰り返す
　１．a(n)をRank(n-1)からRank(1)へと逆順に比較していく
　２．初めてa(n)より小さい値が現れた位置がmの場合
　　(1) s=2〜mのループ内で以下の処理
　　　　・Rank(s)の値をRank(s-1)にコピーする
　　(2) Rank(m)にa(n)の値をコピーする

この方法でRank(1〜10）は小さい順に並んだ値となるはずです。
一度お試しになってみてください。

デスクトップなどウィンドウと違う個所を何度かクリックすると「コンポーネントを使用を使用できません」をダイアログボックス「切り替え」「再試行」「キャンセル」のボタンが表示
モーダル表示で常に出力して欲しいのですがどのようにすれば良いのでしょうか？（みよさん[00/06/06]）

Ａ４７：frmZsituChg.Show vbModal の部分で、親フォームの指定が抜けていますよね？
親となるフォームを省略した場合、ハンドル０、つまりデスクトップを指定したことになるのではないかと疑われます。

まず、 vbModal, Me あるいは vbModal, frmMain のように明確に親フォームを指定して試してみてください。

らしいです。　しかしよく分からなくて出来ないでいます。
掲示板で調査中となっていたので、この方法で試してみてほしいのですが・・・（成田広昭さん[00/06/07]）

Ａ４８：え〜〜っと・・・ActiveX SDKというのが手元にないもので、試すことができません。
しかし、この方法が正しいとすれば、ActiveX認証問題でお悩みの方には朗報だと思います。

わたしもいずれ機会があれば試してみたいと思います。
ただ、ActiveXドキュメントやActiveXを利用したWebアプリケーションは、あまり作りたくないというのも本音ですが（苦笑）。

Ｑ４９：当方は、最近VB6.0のIISアプリというのを使ってwebアプリをつくっています。
従来、ASP+VBScriptをテキストエディタで記述していたので、デバッグが大変でした。
この、VB6.0のIISアプリ+ASP dllを使うと、従来のVBアプリ作成と同様の環境になり重宝しています。

質問というのは、VB+IISアプリ+ASP dll + ADO dllのことで、webアプリで動的なページを作成するにはデータベース導入が不可欠です。

それでADOを使う場合、ConnectionオブジェクトとRecordsetオブジェクトを多用するのですが、このConnectionオブジェクトの変数スコープがうまくいきません。

従来のASP + ADOなら、　あるASPファイルの先頭行あたりに
dim cn
set cn = Server.CrieateObject("ADODB.CONNECTION")
cn.Open ,"database;pass....."

のようにConnectionオブジェクトをモジュール変数にて生成しておけば、以下のプロシージャーからは、接続済みのConnectionオブジェクトをcnという変数名にて使用できますが、VBのIISアプリでつくった場合、ASPファイルというのは、VBが勝手につくって、作者がここに手を加えるようなものでないし、また、VBのモジュール内にモジュール変数としてConnectionオブジェクトをつくって、WebClassスタートイベントにて、Connectionオブジェクトを作成しても、webページを移動すると、作成したConnectionオブジェクトの参照ができなくなります。（参照ができないというより、OpenしたはずのConnectionオブジェクトがOpenされていない、といわれます）

ですので、解決策として、dbアクセスをするプロシージャごとにConnectionオブジェクトを宣言し、その中で逐一接続します。
webアプリの動作の中で反応スピードに影響するのは、この接続に要する時間です。
現状だと、その都度、接続時間を要していますから、とても無駄に思います。
なんとか、WebClass内で接続を継続させておく手だてはないものなのでしょうか？

苦し紛れに、標準モジュールを追加し、そのなかでPublic 変数でConnectionオブジェクトを定義しましたが、ローカルマシン上ではうまくいくようですが、サーバーにアップするとどうもうまくいきません。

使用環境
web Server : WinNT 4.0 IIS4.0

（平山さん[00/06/08]）

Ａ４９：ん〜、だいたい問題の本質はわかった気がするのですが・・・。

これはやっぱりそういう仕様なんじゃないでしょうか？
つまり、ブラウザで特定のページにアクセスしている間は明確なサーバとクライアントのコネクションが成立しているので、データベースとのコネクションに問題はなさそうですが、他のページに移動した場合には、サーバとクライアントの接続が保証されないため、データベースとの接続を継承するわけにいかないのではないかと思うわけです。

そうしないと、何をもって、どのタイミングで接続を閉じるのかといった問題が逆に発生するわけですよね？

で、この場合、サーバアプリケーションなので、データベースのレコードセットなどはサーバのメモリ上に展開されるのですから、セキュリティ上もそういう設計にせざるを得なかったのではないかと推測されます。

Ｑ５０：ＶＢ６でLabelのCaptionにワードなど文章作成ソフトで作ったテキストをコピーして張り付けると、一部のＰＣで文字化けが起こってしまいます。
ちなみに相手は皆Windows９８です。 対策として以下のコードを書いてみたのですが、エラー１３が表示されてしまいます。 どうしたらよいでしょう。 （ペルシャさん[00/06/08]）

Private Sub Label1_Click()
　　Dim a As String
　　Dim StrUnicode As String

　　 a = Label2.Caption
　　ReDim bytSJISArray(80)
　　bytSJISArray = StrConv(a, vbFromUnicode)
　　StrUnicode = StrConv(bytSJISArray, vbUnicode)
End Sub

Ａ５０：このコードではUnicodeをShiftJISに変換しているようですが、おそらく文字化けの原因はそれではないと思います。

MSWordで作成する文章は、いわゆる「書式つきテキスト」というやつで、たとえばHTMLであるとか、リッチテキストのようなものなわけです。
これには文字サイズや文字色、フォントなどが含まれており、普通のプレーンテキストとは異なっています。
リッチテキストファイル（rtf）をテキストエディタで開くとわかりますが、何やらタグのようなものでそれを表現しているようですね。

クリップボードのデータ形式にも RTF（リッチテキスト形式）と TEXT（プレーンテキスト形式）がありますので、単純にWordからコピーすると、クリップボードのデータは RTF になります。

これを回避するには、ClipboardオブジェクトのGetTextメソッドで形式に vbCFTextを指定してやれば、RTF形式のデータであっても、書式を取り除いたプレーンテキストとして読み出すことができます。

strMyString = Clipboard.GetText(vbCFText)

こんな感じですね。

Ａ５１：VBからExcelやAccessなどのデータを利用するには、VBに付属しているデータドライバが必要です。

VB6の発売開始当時、Office2000は発売されていませんでしたので、VB6のパッケージには当然Excel2000に対応したドライバが含まれていないはずです。
おそらく、Microsoftのサイトで対応ドライバのダウンロードが可能ではないかと思いますので、探してみてください。

メッセージは：
　　　プロパティが不正です。
　　　予期せぬエラーが発生しました。
とでます。
何か考えられる原因等がおわかりでしたら
ご教授いただけませんか？（E.Dannoさん[00/06/16]）

VB5.0（SP3)・Windows９８

Ａ５２：VBからの実行はできるのですよね？
何か自作のActiveXコントロールが含まれていたりしますか？
それにしても「プロパティが不正」というメッセージは解せませんね・・・。

可能性としては、フォームやモジュールの名前が、それ自体に記録されているものとvbpファイルのものとで食い違っているとか、名前が長すぎる、あるいは日本語の名前をつけている、などということも考えられますが・・・。

何かお心当たりありますか？

Ｑ５３：さっそく質問なんですが、VBでの印刷についてです。
環境は、下記の通りです。

===================== 　WindowsNT4.0 WS SP3 　IE 4.0 　VB5.0 SP3 =====================
===================== 　Windows2000 Pro 　IE 5.0 　VB6.0 SP3 =====================

VB5.0でPrinterオブジェクトを使用してネットワークプリンタから印刷を行うとき、用紙サイズの変更が行えません。MSのサイトをみると「NT4.0では印刷ダイアログで設定した値は有効にならない．．とか、VB5/VB6のPrinterオブジェクトでいろいろ問題がある．．．とか．．．書かれています。」
http://www.microsoft.com/JAPAN/support/kb/articles/J041/4/03.htm
http://www.microsoft.com/JAPAN/support/kb/articles/J045/7/77.htm
http://www.microsoft.com/JAPAN/support/kb/articles/J042/9/59.htm
上記URLを参照して下さい．．． そこで、本題ですが上記URLを参照するとVB6においては全てAPIで印刷しなければならないというような事が書かれています。私のレベルではもうお手上げです．．．（o_o;
VBで全てAPIより設定、印刷する方法をご教授下さい。参考になるサイトや、書籍、及びサンプルコードなどがあればぜひ！よろしくお願い致します。（まことさん[00/06/16]）

Ａ５３：そうですねぇ、通常の印刷なら Printer オブジェクトでもほぼ問題なくできます。
ただ、確かに用紙サイズの変更とか、プリンタの設定にアクセスするのはVBでは限界があります。

これは、プリンタの機種ごとの機能の違いや、ドライバがサードパーティ製であったりすることに起因しているようです。

APIで印刷するとなると、プリンタのデバイスコンテキストを取得し、そこにイメージを転写するような処理が必要かと思います。
DOS時代にC言語でやっていたようなことをやるわけですが・・・これはけっこう難儀だと思います。

やはり多少難があっても、Printerオブジェクトを利用して印刷するようにして、問題のある部分は他のことで対処するしかないかも知れません。
ちなみに、わたしも仕事でVBから印刷する部分でつまったとき、VC++で印刷用モジュールを作ってもらったことがあります。（＾-＾；

Ａ５４：まず、対象はテキストボックスであるという仮定で説明します。

テキストボックスにD&Dされたテキストを取得して表示させるには、まずOLEDropModeプロパティの設定を「１−手動」にします。
そして、 OLEDragDropイベントにドロップされたときの処理を記述します。
このイベントの引数にあるDataというオブジェクト変数に、ドロップされたデータの内容が格納されています。
まず GetFormat メソッドでデータの形式がテキストであるかどうかを判別します。

If Data.GetFormat(vbCFText) <> 0 Then Exit Sub

↑これはテキストでないときは処理を抜ける、という意味ですね。
あとはGetTextメソッドで実際のデータを受け取り、テキストボックスのTextプロパティに入れてやるだけです。

テキストボックスから他のアプリにD&Dした場合には、OLESetDataイベントが発生します。
このイベントの引数にある Data というオブジェクト変数にデータをコピーして、DataFormatに形式を表す定数 vbCFTextを入れてやれば、相手アプリにデータが送信されます。
テキストボックスの内容すべてをコピーするときはTextプロパティの値を直接入れればOKですが、選択範囲だけをコピーしたときには次のようにします。

Data.SetText txtEdit.SelText

SelTextプロパティは、選択されて反転している部分の内容を示します。

Ａ５５：これだけでは実際にどういう処理をしたいのかがよくわからないのですが、実行中にリアルタイムで月の変わり目を知りたいのであれば、次のような方法があります。

・タイマーを配置する
・タイマーイベントで次のように現在の月を取得する
　CurrMnth = CInt(Val(Format(Now, "m")))
・取得したら、前回取得して別の変数に保存しておいた内容と比較して、変化していれば月が変わったことになるので、目的の処理を実行する。

あるいは、アプリの起動ごとにチェックしたいのであれば、Form_Load または Sub Main でレジストリに前回保存した情報と、上記のようにして今回取得した内容を比較すればＯＫです。

Ａ５６：Ｑ４４にもあるように、どうもDB関係のモジュールとNTとは相性が悪そうですね・・・。
で、DLLのバージョンの確認ですが、クリスタルレポート関係のものより、DAOやODBC関連のものをチェックしたほうがいいかもしれないですね。Jet関係もアヤシイ場合がありますし。

具体的な詳しいことはわかりません。ごめんなさい　m(_ _)m

Ａ５７：これはロングファイルネームに絡んだ問題です。
このケースに限らず、たとえば MDIコマンドの呼出しでのファイル指定でも同じ問題が起きます。

答えは簡単です。ファイル名の前後に「”」ダブルクォーテーションをつけるだけです。

コマンドラインでは、スペースはファイル名や引数の切れ目として認識されるため、スペースを含むパスを指定するときにはダブルクォーテーションで囲む、という規則があるのです。
DOS時代にはスペースを含むパスは存在し得なかったので、問題がなかったわけですね。

「ファイル名を指定して実行」のときにも関係しますので注意しましょう。

Ａ５８：「バックグラウンドで」の部分の意味がちょっとわからないのですが、こちらで解釈した意味で説明します。

１．マウスカーソルを非表示にする
　スクリーンセーバなど、全画面を占拠するアプリの場合なら、フォームのMousePointerプロパティを「99-ユーザ定義」にして、MouseIconプロパティに透明色だけで塗りつぶしたアイコンファイル（.curではなく.ico）を読みこんでやればＯＫです。
アイコンはアイコンエディタなどで作成します。

２．マウスポインタを任意の位置に移動する
　APIのSetCursorPos関数で、スクリーン座標（デスクトップの座標系）の任意の位置にマウスポインタを移動させることができます。

１．の方法は拙作のスクリーンセーバなどで実際に使用しています。

Ａ６０：これは検証したわけではないので何とも言えないのですが、まず同じページの複数のActiveXコントロールの場合、おそらく互いのプロパティにアクセスすることはできないと考えられます。
同じドキュメントに複数のフォームやコントロールが配置されていて、そのドキュメントがWebページに配置されているのであれば可能かもしれません。

また、別ウィンドウについてはほぼ間違いなくできないものと思います。

　１．「キャンセル」ボタンが効かない
　２．フレームリレーを介したネットワークドライブへのファイルコピー中にロックする

１．については、早速自社で調査したところ、どうやら Shell32.dll のバージョンの問題のようです。
Shell32.dll を Ver4.0 から Ver4.72.3110.6　に差し替えると解消しました。
２．については、自社に環境がないこともあって、Shell32.dll を差し替えての調査はできていません。

そこで教えていただきたいのですが、Shell32.dll　は、バージョンによってはバグがあるのでしょうか？
また、上記の現象について、何か他に考えられる原因が分かれば教えてください。（太田垣さん[00/06/30]）

Ａ６１：バグ、というよりは設計ミス、仕様ミスかも知れませんね。
Shell32.dll は、基本的にOSそのもののバージョンと並行してバージョンアップしています。
NTの場合だと、サービスパックでバージョンアップしていることもあると思いますし、Windows9XでもWindowsUpdateの修正モジュールなどを導入するとバージョンが上がっていることがあります。

Microsoftは常に最新のモジュールを使用することを推奨していますが、それはつまりいつまでたってもバグがある、ということを言っているのと同じことです（決して認めようとはしないでしょうが＾＾；）。

ネットワークがらみの不具合のほうは、それだけが原因とは断定できないかもしれません。
LANボード（カード）やドライバの問題、ネットワーク設定の問題など、チェックすべき点はたくさんありますね。

Ａ６２：最初に結論から言うと、ありません。
できることは、たとえば以下のようなことです。

１．セットアップ先にVB６ランタイムが既に入っているか、あるいは別に入れるようにしてもかまわない場合、下記のファイルをセットアップから除外できます。
　AsycFilt.dll
　Comcat.dll
　Msvbvm60.dll
　Msvcrt40.dll
　OleAut32.dll
　OlePro32.dll
　VB6jp.dll

２．コモンダイアログコントロールや Windows Common Controls などを使用している場合、面倒でも標準コントロールの組み合わせで同機能のものを作ることで、Ocx と dll をセットアップから除外することができます。

この２つを実行しても、おそらく２〜３MBくらいしか減らすことができません。
どうしても大き過ぎて話にならない、ということであれば、他のDBを利用することをお勧めしますが・・・。
いずれにせよ、DBを利用するアプリが巨大化するのは避けられない宿命のようです。

Ａ６３：Access2000とVBのトラブルは他の質問にもありましたね。
経験がないので何とも言えないんですよ。
ただ、VBにしろクリスタルレポートにしろ、Access2000より先に存在していたものですから、整合性が取れないのもありえない話ではないわけで、もともと期待通りの動作をするものではないのかも知れません。

このへんは宿題ということで、さらにいろいろ調べるつもりではいますが、いかんせん実環境が手元にない・・・とほほ