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/ ※「まず自分で調べる」クセを身につけよう。 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