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

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

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

2007/02/04(日) 12:49:02

だからそんなものに誰も合意した覚えはないってw

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

2007/02/04(日) 13:13:11

合意は関係無い
1は心得であり守るルールだ
従え

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

2007/02/04(日) 13:20:31

別にお前さんが勝手に従うことまで止めはしない。
だが俺はやなこった

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

2007/02/04(日) 14:00:09

そんなもん守る義理はないが、>51はどれにも当てはまらん。
単なるサジェスチョンでしょ？ちなみに>48については
お手軽な方法はない、自分で地道に実装するしかない、が回答。

005748

2007/02/04(日) 14:13:34

ありがとうございます

9999万以上の数字を左から桁数とって億単位の場所に移すという形にしました。

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

2007/02/04(日) 15:14:40

1兆を10000億と表示しそうだ。

0059ＩＩＳがありません

2007/02/04(日) 16:38:31

ａｓｐを使おうと思って、ＩＩＳをインストールしようと思ったんですが、
おいらの「windows xp professional 再インストール用cd service pack 1a同封」というやつには、
ｉｉｓが入っていません。
professionalなのにホントに入っていないんでしょうかね？それともおいらの探しかたがおかしいのでしょうか？
.net frameworkというのははいっています。
どなたか教えてくださいませ！！！

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

2007/02/04(日) 16:42:47

激しくスレ違いだが、コントロールパネルのプログラムの追加と削除の
Windowsコンポーネントの追加と削除にIISの選択肢がある。

0061ＩＩＳがありません

2007/02/04(日) 16:47:41

いや、、、
それが、選択肢に無いんですよ。。。
なんで？？？？？
再インストールｃｄだから？
ちなみにＯＳインストール済みのデルパソコンを買ったんですが。。。
激しくすれ違いなんですが、どこのスレに行けばいいのかもわからなくて。。。

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

2007/02/04(日) 17:12:04

[コントロールパネル]→[プログラムの追加と削除]→[Windowsコンポーネントの追加と削除]→
[Windowsコンポーネントウィザード]のアクセサリとユーティリティの次にない？
あとマルチいくない。

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

2007/02/04(日) 18:23:11

インストールされているのがProfessionalならデルに言えばどうか

0064ＩＩＳがありません

2007/02/04(日) 19:35:39

なんや、きみら、ぜんぜん役たたんなぁ。

>62
だからないっちゅってるやろ!!

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

2007/02/04(日) 20:24:11

俺のプチ予言
>>52みたいな奴に限って、>>64みたいの絡みだす自分棚上げ野郎ぶりを発揮するんだよねw

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

2007/02/04(日) 20:53:28

ひんと
　つ　メアド

006762

2007/02/05(月) 00:02:17

ただのマルチ野郎だと思う。少なくとも人に質問する態度ではないわな。
>64
デルのサポートに電凸が最善。向こうのスレでも同じ反応でしょ？

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

2007/02/05(月) 10:53:53

質問です
テキストやラベルなどものすごい数がある場合
オブジェクト名ってどうされてますか？

すべて手直しして分かりやすいように変えてます？

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

2007/02/05(月) 11:18:04

>>59
>>ttp://www.cisco.com/japanese/warp/public/3/jp/service/tac/788/AVVID/oem-guided-instal-util-j.html

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

2007/02/05(月) 11:20:31

>>68
配列

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

2007/02/05(月) 16:37:57

VBとは無料で手に入るものなのですか？

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

2007/02/05(月) 16:38:41

>>70
ありがとうございます
勉強しなおしてできました

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

2007/02/05(月) 16:44:54

>>71
君をひよっこマスターに認定。

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

2007/02/05(月) 16:49:27

今、ものすごくほしいんです！
探して見つけては、なんどもDLしてるんですが・・
インストールがうまくいかなかったり・・とりあいず教えてください。！

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

2007/02/05(月) 16:56:15

>>74
ダウンロード元のサイトに問い合わせてください