VBプログラマ質問スレ（6.0以前） Part51

0001デフォルトの名無しさん

2007/01/28(日) 10:57:31

ここは Visual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。

VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。

○ 質問者の心得
　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
　二．VBScript、インストーラーなどはこのスレでＯＫ。
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
　四．荒らしは相手しない。

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。
　四．荒らしは相手しない。
　五．VB情報募集中。
　六．回答は質問者が理解できるよう具体的に。

MSDN Online Japan ホーム
　http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
　http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
　http://www.google.co.jp/

※「まず自分で調べる」クセを身につけよう。

0002デフォルトの名無しさん

2007/01/28(日) 10:58:14

0003デフォルトの名無しさん

2007/01/28(日) 10:58:54

0004デフォルトの名無しさん

2007/01/28(日) 10:59:34

0005デフォルトの名無しさん

2007/01/28(日) 11:00:27

　　Part46 http://pc8.2ch.net/test/read.cgi/tech/1138975113/
　　Part47 http://pc8.2ch.net/test/read.cgi/tech/1141320612/
　　Part48 http://pc8.2ch.net/test/read.cgi/tech/1146678926/
　　Part49 http://pc8.2ch.net/test/read.cgi/tech/1152667953/
　　Part50 http://pc10.2ch.net/test/read.cgi/tech/1161517193/

0006デフォルトの名無しさん

2007/01/28(日) 11:42:12

モジュールからデータベースを登録しようとしていますが登録できません
以下プログラムに間違いがありましたら教えてください。
＠アクセスを開こうとすると「安全でない式がブロックされます」とでるのですが
マクロセキュリティを低にする以外にメッセージを出なくする方法はないのでしょうか？

VB:6.0SP6
DB:Access2003

' 概　要：テーブル追加
Private Sub pMakeTableMstABC()
Dim wrstwrk As Recordset
Dim wstrsql As String

On Error Resume Next
wstrsql = "SELECT * FROM MSTABC"
Set wrstwrk = gConnDB.OpenRecordset(wstrsql, dbOpenDynaset)
If Err.Number <> 0 Then
wstrsql = ""
wstrsql = wstrsql & "CREATE TABLE MSTABC ("
wstrsql = wstrsql & "NUMBER INTEGER NOT NULL,"
wstrsql = wstrsql & "NAME TEXT(60),"
wstrsql = wstrsql & "BIKOU TEXT(100))"

gConnDB.Execute wstrsql

0007デフォルトの名無しさん

2007/01/28(日) 11:43:37

'主キー設定
wstrsql = ""
wstrsql = wstrsql & "ALTER TABLE MSTSENSYU ADD "
wstrsql = wstrsql & "CONSTRAINT PKEY_MSTABC PRIMARY KEY (NUMBER)"
gConnDB.Execute wstrsql
End If
wrstwrk.Close
' 概　要：データベースを開く
gOpenDatabase = False
Set gConnDB = OpenDatabase(App.Path & "\AAA.mdb")
gOpenDatabase = True
Exit Function
End Sub

0008デフォルトの名無しさん

2007/01/29(月) 04:20:24

exeから引数渡しをしたいのですが

aaa.exe bbb ccc

の様なVB6.0で出来るのでしょうか？
あるのなら、やり方のってるホームページ等を紹介して欲しいのですが

00098

2007/01/29(月) 07:04:23

command　関数使えば良いことがわかりました
初心者の質問ですみません

0010デフォルトの名無しさん

2007/01/29(月) 17:19:44

MS VB6.0（SP5）使ってるのですが、ヘルプのバージョン情報で見れる項目についての質問です。

複数VB6が入ってるPCがあります。その中の１台だけバージョン情報のウィンドウで一番下に出ている
virsion：8988　　VBA： Retail 6.0.8964　は他のPCと同じなんですが
Forms3：のみ他のPCと異なっています。１台だけ2.01と表示され他のPCは11.0.58XXとなっています。
全てXP ProにSP5を同じように適用しているのですが・・・
Forms3の項目は一体何でしょうか？インストールされているofficeによって違ってきてる気もします。
また、これが違うとフォームでのキーイベントの挙動が他と異なることはありますか？

0011デフォルトの名無しさん

2007/01/29(月) 21:01:54

>>10
答は自分で分かってるじゃん。

0012デフォルトの名無しさん

2007/01/30(火) 09:11:00

VB6.0からVB.NETでつくったWEBサービスを呼び出したいのですが
何かコンポーネントとかCOMとかありますでしょうか？

0013デフォルトの名無しさん

2007/01/30(火) 10:42:52

>>12
VB.NETでWEBサービスを呼び出すクラスを書きそれをCOMとして登録する。
それをVB6から呼び出す。

0014デフォルトの名無しさん

2007/01/30(火) 10:48:34

XMLHTTPを使うことにしますた。

0015デフォルトの名無しさん

2007/01/30(火) 22:04:13

1000x1000のbmp画像の任意の座標のRGB色を調べたいのですが、
画像そのものを表示しないで行う方法はあるでしょうか。

非表示のPictureBoxにこの画像を読み込んで
Pointメソッドで取得しようとしても、Pointは非表示だと-1しか返さないし、
目立たないくらい小さく表示しても、表示してる部分の領域以外は-1を
返すので使い物になりません。

0016デフォルトの名無しさん

2007/01/30(火) 23:04:15

>>15
オートリドローだかなんだかのプロパティで表示しなくてもできた気がするがしばらく触ってないからなあ
まあなんいじればうごくよ
BMPならファイル操作でも難しくないけどさ

0017デフォルトの名無しさん

2007/01/31(水) 00:44:35

六角形を書いてその内部を塗りつぶすプログラムを作っているのですが・・・
前スレの>>372-373か>>381-386が
使いたいのですが、どうすれば使えるようになりますか？
教えてください。

0018デフォルトの名無しさん

2007/01/31(水) 05:17:39

すいません、分らないことがあるので教えてください。

オプションボタンを何個か配置して、その一つを選んでからコマンドボタンを押すと
リストボックスにテキストファイルが表示されるようなプログラムを作ったのですが、
そのリストボックスに表示されているテキストファイルを、
ダブルクリックしてテキストボックスに中身を表示させたいのですが、
どうすればいいでしょうか？

0019デフォルトの名無しさん

2007/01/31(水) 08:29:19

>>18
プログラムの仕様を書いてるだけじゃない、どこがわからないんだい？

0020デフォルトの名無しさん

2007/01/31(水) 10:46:54

コマンドボタン押した時点でもうリストボックスに表示してるじゃんか

0021デフォルトの名無しさん

2007/01/31(水) 11:54:53

つ[DblClick]

ダブルクリックしたファイル名の取得とか
そのファイルのオープンからテキストＢＯＸへの展開とかの話じゃないやね？

0022デフォルトの名無しさん

2007/01/31(水) 12:06:29

ちょっと教えて下さい。えっと、、VBでp-codeコンパイルされた実行ファイルが
あるんですが、、実行すると、、色んなDLLをロードしてるようです。。
実行ファイルの.idataセクションを見ると実行ファイル自体は、VBのランタイムDLL
しかロードしてないようなのですが、他のDLLはVBのランタイムDLLからロードしている
という解釈でいいでしょうか？
VBの実行環境についての資料を色々探しているのですが、見つからないのです、、、

0023デフォルトの名無しさん

2007/01/31(水) 20:57:07

>>22
ランタイム以外から呼び出すDLLがあるかはプログラムによる。
Declareは確か実行時に参照したはずだし、
LoadLibraryやら使って参照するような事もあるだろうし。

つまり作った奴に聞いたほうが早いということです。

002422

2007/02/01(木) 11:59:40

>>23
作った人辞めちゃったんですよね、、ソースも当然無いと、、、
だから困ってるわけです。参照してるDLLのバージョンが古くて動かないので何とか
ならないものかと四苦八苦してるわけです。

0025デフォルトの名無しさん

2007/02/01(木) 12:06:55

ソース無いものはどうしようもない。
会社として土下座するかばっくれるか決めるのが普通。

0026デフォルトの名無しさん

2007/02/01(木) 12:22:10

会社にソースが無いっておかしいだろ

0027デフォルトの名無しさん

2007/02/01(木) 12:49:32

>>26
世の中おかしい会社は一杯アル。

0028デフォルトの名無しさん

2007/02/01(木) 12:51:44

VB6.0でCで作ったLibを利用することってできますか？

0029デフォルトの名無しさん

2007/02/01(木) 12:53:56

Libは厳しいな
DLLにしてくれ

0030デフォルトの名無しさん

2007/02/01(木) 13:46:20

リンカオプションかリンカに突っ込めばできないかな？

0031デフォルトの名無しさん

2007/02/01(木) 13:50:37

できない。
ネイティブコンパイルにしてもリンクはいじれないし。

0032デフォルトの名無しさん

2007/02/01(木) 13:54:11

がーん

0033デフォルトの名無しさん

2007/02/01(木) 13:59:33

あー、なんか出来そうだな
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vccore/html/_core_linker_reference.asp

VB6のlink.exeも同じだろ、きっと

0034デフォルトの名無しさん

2007/02/01(木) 14:03:44

わからん・・・。具体的に教えてください＞＜

0035デフォルトの名無しさん

2007/02/01(木) 14:06:03

nmakeでVBのソースメークしろってことだろ？
そんなするぐらいならそのLIBをラップするDLLを書くほうが30分作業。

0036デフォルトの名無しさん

2007/02/01(木) 17:05:54

リンクさせるだけならVBAEXE6.libを置き換えれば簡単だね

0037デフォルトの名無しさん

2007/02/01(木) 17:26:46

デバッグがめんどくせえぞ

0038デフォルトの名無しさん

2007/02/02(金) 11:34:30

よく、バージョン情報などのところに、ホームページのアドレスが書いてあって、
そこをクリックするとブラウザが立ち上がり、そのURLのページが表示されると
いう機能がありますが、ブラウザを立ち上げ、URLを指定するのはどのように
すればよいのでしょうか。
イベントは、ボタンのクリックでもよいのですが、利用者が使用しているブラウザ
を立ち上げる方法が…。
どなたかご存じありませんか？

0039デフォルトの名無しさん

2007/02/02(金) 12:14:43

ShellExecuteだお

0040デフォルトの名無しさん

2007/02/02(金) 12:33:34

>>39
どうも、ありがとうございます。

実は、

Dim Ret As Long
Ret = ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "http://www.yahoo.co.jp/";, " ", SW_SHOW)

とかやってみたんですが、これだとIE限定になってしまうので困っていたんです。
IE以外でも立ち上がる方法を検索してみます。

0041デフォルトの名無しさん

2007/02/02(金) 12:41:31

先に言えよ馬鹿限定してるから限定になってんだろ馬鹿

0042デフォルトの名無しさん

2007/02/02(金) 12:58:45

つ「ByVal 0&」

0043デフォルトの名無しさん

2007/02/02(金) 13:22:05

call shellexecute(me.hwnd, "open", "http://www.yahoo.co.jp/";, vbNullString, vbNullString, 0)

0044デフォルトの名無しさん

2007/02/03(土) 03:12:17

皆さん。

遅くなってすみません。
ありがとうございます。

41、42さんありがとうございます。皆さん、プロの方でしょうか。それとも学生さんでしょうか。
いろいろ、試してみることが大切ですね。

また、43　さんの、そのままをプログラムに入れましたら起動しました。
とても、有り難く、また恐縮します。

出来たら、私も人の役に立てるように、TIPSみたいな形で残せれば…と思いますが、
だた、私のスキルではないのでつらいところです。

これから、また、前進します。

ありがとうございました。

0045デフォルトの名無しさん

2007/02/03(土) 03:20:07

いまさら6.0なんて覚えてどうするんだ
進む道を間違えてる

0046デフォルトの名無しさん

2007/02/03(土) 09:17:33

>>44
そのTIPSはきっちりMSDNに載っているし、あらゆるリファレンスに
載っている話だからお前はそんな心配せんでもいい。

0047デフォルトの名無しさん

2007/02/04(日) 05:29:38

６．０と２００５ってかなり変わってるな
これならＣ＃に切り替えた方がいいかな・・・

0048デフォルトの名無しさん

2007/02/04(日) 10:08:04

100,000,000円を　1億1000万円と表示させるのにいい方法ってありますか？

0049デフォルトの名無しさん

2007/02/04(日) 10:08:41

すんません
110,000,000円でした

0050デフォルトの名無しさん

2007/02/04(日) 11:15:56

フォーマット関数でどうにかなんね？

0051デフォルトの名無しさん

2007/02/04(日) 12:39:15

何に使うかわからんが
金額を表示するものは、３桁毎に，打ったスタンダードの表示方法の方が
後々良いと思うがな

0052デフォルトの名無しさん

2007/02/04(日) 12:42:34

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。