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

1 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 23:03:01 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 577 名前：デフォルトの名無しさん [2008/07/01(火) 10:40:07 ] fncくらいでイラつく理由がわからない。 あーこの人はこういう書き方するのねって思うだけだけど。 578 名前：デフォルトの名無しさん mailto:sage [2008/07/01(火) 11:04:07 ] intを返すIsなんちゃらの乱立よりはマシｗｗ 579 名前：デフォルトの名無しさん mailto:sage [2008/07/01(火) 16:31:36 ] >>578 Integerを返すIsﾅﾝﾀﾗで真なら 0 / 偽なら -1 を返す、 Booleanを知らない奴が作った関数なら知ってる。 頭のコメントに「備考」と称して、 「VBにもBOOL型があればいいのに」 って書いてあって、最初見たとき素で笑ってしまったｗ 580 名前：デフォルトの名無しさん mailto:sage [2008/07/02(水) 22:37:07 ] >>577 別にイラつく、とまでは書いてないけどね。 しかし、まあVBスレでこんなこと書くのもなんだが、 過去の自分含めて他人の「アホな」作法を見てイラつくような性格じゃないとしたら その人はプログラマの適正を欠いている、と個人的には思うよ。 581 名前：デフォルトの名無しさん mailto:sage [2008/07/02(水) 23:34:56 ] お前はそんな性格だから禿げるんだよ 582 名前：デフォルトの名無しさん mailto:sage [2008/07/02(水) 23:45:56 ] >>580 583 名前：デフォルトの名無しさん mailto:sage [2008/07/03(木) 14:27:15 ] WORKGROUP 584 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 11:07:02 ] >>580 お前は人としての適正を欠いてるわ、と個人的には思うよ。 585 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 15:18:05 ] >>584 正直あまり笑えない。 586 名前：デフォルトの名無しさん mailto:sage [2008/07/04(金) 17:02:21 ] うちはVBとVB.NETでコーディング規約を替えてる うはややこい 587 名前：デフォルトの名無しさん mailto:sage [2008/07/07(月) 22:42:06 ] OS：XP SP2/Vista SP1 VB6 SP6で開発してます。 XPとVistaでインストーラを分ける必要ありますか？ ちなみにVisual　Studio　Installerを使ってます。 588 名前：デフォルトの名無しさん mailto:sage [2008/07/09(水) 23:25:26 ] びす太の夏休み 589 名前：デフォルトの名無しさん [2008/07/16(水) 01:26:17 ] ＶＢ６でDeleteキーを効かなくしたくて、 KeyDownイベントハンドル内に KeyCode=0 と入力したのですが キーが効いてしまいます。 .NETではこのように書くように載っていたのですが 6.0では違う書き方なのでしょうか？ それか、Deleteキーをきかなくするのに、 keydownイベントを用いること自体が違うのでしょうか。 590 名前：デフォルトの名無しさん mailto:sage [2008/07/16(水) 16:28:01 ] >>589 「効かなく」とは、どういう事なのか、もう少し具体的に書かないと… 591 名前：デフォルトの名無しさん [2008/07/16(水) 21:11:17 ] デバイスの有効、無効を切り替えたいのですが、どのようなコードを書けばよろしいでしょうか デバイスはUSB接続のゲームコントローラです 592 名前：デフォルトの名無しさん [2008/07/16(水) 23:48:28 ] >>590 確かに分かりにくいですね… キー操作を無効にしたいです。 KeyPressイベントハンドル内での KeyAscii=0 と同じ操作をKeyDownイベントハンドル内で 行わせるにはどのように書けばいいのでしょうか。 よろしくお願いします。 593 名前：デフォルトの名無しさん mailto:sage [2008/07/17(木) 14:30:52 ] >>592 KeyCode=0で間違ってないと思ますよ。 もし、フォームでイベントを拾おうとしているならば、KeyPreviewプロパティに注意するくらいかな。 594 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 14:41:18 ] VBScriptで、 IEの右クリックから呼び出した場合と、 2chブラウザ（IEコンポーネントブラウザ）の右クリックから呼び出した場合を、 見分ける方法について教えて下さい。 navigator.appnameやnavigator.useragentは、 2chブラウザから呼び出した場合でも、ＩＥそのものに成ってしまって、区別出来ないので、、、 どうぞよろしくお願い致します。 if 2chブラウザなら then     window.open(TargetURL) else     Call external.menuArguments.open(TargetURL, "_blank") end if という様に、2chブラウザからならＩＥを立ち上げて、 ＩＥからなら別タブに表示させたいのです。 595 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 20:53:06 ] >>594 スレタイ１００回読み直せ。 596 名前：デフォルトの名無しさん mailto:sage [2008/07/19(土) 21:56:54 ] スレタイを読み直してどうしろと言うのか 597 名前：デフォルトの名無しさん mailto:sage [2008/07/20(日) 00:15:45 ] >>595 >>1に >二．VBScript、インストーラーなどはこのスレでＯＫ。  598 名前：デフォルトの名無しさん mailto:sage [2008/07/20(日) 15:14:53 ] マルチ ttp://www.happy2-island.com/bbs/bbs.cgi?#1002 599 名前：デフォルトの名無しさん [2008/07/20(日) 23:08:11 ] >>596=598=粘着乙ｗ 600 名前：デフォルトの名無しさん [2008/07/21(月) 01:28:44 ] VBだけでコールバック関数を実現したいんですが、無理でしょうか？ ちなみにcallptrというDLLを使って実装はできるのですが、 なるべくVBだけでできる方法はないかなと模索中です。 601 名前：600 [2008/07/21(月) 02:23:04 ] ちなみにこれで実現は可能ですが、 CallPtrの方はDLLしかもソースが公開されていないのでいまいち。 VBで関数ポインタによる関数の実行はかなりいいのですが、コールバック関数の 中でMsgBoxなどのメソッドは呼べないし、引数使うと落ちたりと不安定です。 CallPtr.DLL www.softcircuits.com/dl/tools/callptr.zip VBで関数ポインタによる関数の実行 nienie.com/~masapico/doc_FuncPtr.html こんな風にVBでコールバックできます。でも引数渡すと落ちます。 Private Sub Command2_Click() CallFuncPtr AddressOf testproc, "test message" End Sub Public Function testproc(srcmsg As String) As Long Debug.Print "a" testproc = 0 End Function 602 名前：デフォルトの名無しさん mailto:sage [2008/07/21(月) 09:19:36 ] callbyname 603 名前：デフォルトの名無しさん [2008/07/22(火) 00:25:51 ] 質問なのですがVB6で両替させるにはどうすればようのでしょうか？ ttp://quote.yahoo.co.jp/m3?u　←このレート計算みたいな感じです。 ［　］［combo1］を ［Text1］に ［Command1］　［　　］ 数字　　ドル　　　　　円　　　　　換算　　　　　結果 　　　　ポンド 　　 　ユーロ お願いします 　 604 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:29:30 ] >>603 コードを書けつってるの？ どのようにってifかselectで判定させるだけなんだけど 605 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:33:50 ] レートをどこから持ってくるつもりだ 606 名前：デフォルトの名無しさん [2008/07/22(火) 00:33:53 ] そうなんですコードを知りたいんです 607 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:36:51 ] レートは固定でドル107・ポンド213・ユーロ169です 申し訳ありません 608 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:40:22 ] 難しくないからがんばれよ 609 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:42:33 ] 自力でがんばってみます 短い間でしたがありがとうございました。 610 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 00:53:38 ] >>609 あと数分待て 611 名前：デフォルトの名無しさん [2008/07/22(火) 01:05:12 ] フィードパス使え 612 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 01:06:57 ] コードだけ貼れないから直接見ろ www.uploda.org/uporg1558257.zip 613 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 01:13:08 ] 本当にありがとうございました 助かります 614 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 01:55:27 ] なぜドル・ポンド・ユーロが2つずつあるのでしょうか？ あと「うんこ」の部分を「換算」に変えたいのですがどこをいじればいいのですか？ 615 名前：600 mailto:sage [2008/07/22(火) 02:06:09 ] こんな糞コード弄らないで１から書けよ 616 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 05:02:59 ] >>612 614にコメントしたことはさきほど変えられました。 ありがとうございました 617 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 09:56:53 ] すみません。フォームをunload meで閉じたあとに そのフォームがフォームのkeyupイベントを拾ってしまって 勝手にloadされてしまうのですが このようなことってあるのでしょうか？ フォームはkeypreviewがonになっています。 618 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 10:53:09 ] 質問します Option Explicit Sub zzz() Dim hoge(3) As Variant Dim hogehoge As Byte Dim z As Byte For z = 1 To 3 For hogehoge = 1 To 3 hoge(z) = Range("A" & hogehoge).Value Next hogehoge Next z End Sub 上のようなコードで、zとhogehogeを同時に インクリメントすることは可能でしょうか？ 619 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 11:31:42 ] いやそのかんがえかたはおかしい 620 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 12:24:11 ] 自己解決しました 621 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 19:25:55 ] すんませんが・・・教えてください。 VB6から使えるコントロールで、msinet.dll を使わないで、独立してHTTP通信を カプセルするものって無いでしょうか？Grapecity さんのは内部でmsinet使っている らしくて・・・ 有償ものでかまいません。出来れば日本語版がいいけど・・ 622 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 21:24:18 ] WinHTTPとかどうよ 「Microsoft WinHttpRequest Component」を参照追加して Dim WinHttpReq As New WinHttp.WinHttpRequest WinHttpReq.Open "GET", "www.microsoft.com/", FALSE WinHttpReq.Send Dim d() As Byte d() = WinHttpReq.ResponseBody だってさ。 623 名前：デフォルトの名無しさん mailto:sage [2008/07/22(火) 21:43:01 ] 読むだけならopenだけでできなかったっけ？ 624 名前：621 mailto:sage [2008/07/23(水) 03:41:39 ] WinHTTP・・・調べてみます。xmlhttp ではなくって？ しばらく考えて・・・結局、NICを直接使うDLLなんかまず無いだろうから、 WinINet.dllを使っているレベルで妥協するしかないのかなと・・・ openURL のバグがたまに起きるのが面倒なのと、アップロード時（POST）に途中でちょん切れる PCがたま〜にあるんですよね。古いPC相手にするのは面倒っす 625 名前：デフォルトの名無しさん [2008/07/23(水) 09:17:50 ] スレ違いな気もするのですが、VB6ならなんとか組めるので ここで質問させていただきます。よろしくお願いします。 現在PCにLANで接続されたプリンタが約５０台程登録されています。 プリンタはプロパティ＞印刷設定＞給紙で、印刷先のトレイを設定しています。 今回このPCを新しくする事になり、旧PCの設定が正しく新PCへ引き継がれているという資料を 提出しなければいけなくなりました。 この５０台のプリンタ（物理的には２０台）の印刷先トレイの設定情報を textでも印刷設定画面の画像でも、なんでもいいので一覧で出力したいのですが 良い方法がありますでしょうか？ rundll32 printui.dll,PrintUIEntry /e /n "PrinterName" で印刷設定画面までは表示できたのですが、給紙のタブへ切り替えたりする方法がわかりません。 rundll32 printui.dll,PrintUIEntry /? で出てきた内容を見ていくつか試してみたのですが、目的とする物は出力できませんでした。 アドバイスよろしくお願いいたします。 626 名前：625 [2008/07/23(水) 09:21:04 ] 環境を書くのを忘れていました。 OS:Win2000(SP3) プリンタ:CANON LBPシリーズ VB:VB6(SP6) 627 名前：デフォルトの名無しさん mailto:sage [2008/07/23(水) 11:42:58 ] 給紙のタブに切り替えるのはSendKeyとかでCtrl+Tab送ってあげればいいんじゃない？ 悩んでるぐらいならハードコピーとって切り貼りした方が絶対早く終わると思うけど。 628 名前：デフォルトの名無しさん mailto:sage [2008/07/23(水) 22:42:33 ] どーせレジストリに格納されてるんだろうから、 regmonあたりで格納場所を決定して、あとは リモートレジストリ経由で取ってまわったら終わりじゃないの。 629 名前：デフォルトの名無しさん mailto:sage [2008/07/24(木) 22:10:33 ] >>624 低水準なものが欲しいなら、Winsock使ったら？

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef