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/ ※「まず自分で調べる」クセを身につけよう。 508 名前：466 mailto:sage [2008/06/17(火) 14:55:58 ] > 501 是非是非教えて下さい!お願い致します。 509 名前：466 mailto:sage [2008/06/17(火) 15:01:51 ] 追記：11を入れた後に参照してるのは Crystal ActiveX Report Viewer Library 11.0 Crystal ActiveX Report Viewer Export Library 11.0 Crystal ActiveX Report Viewer Web Report Source Library 11.0 の3つです。 510 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:04:08 ] >>508 以前、同じ問題に遭遇した事がある。そのときAGTechからもらった CRPEAutoコンポーネント整合性修復ツールがあったと思うので探してみるよ。 ちょっと待ってて。 511 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:06:02 ] 環境が無いから、なんともいえないけど、コンパイルエラーが出るオブジェクト または、メソッドについて、どもようなえらーが出るかで、対応は変わると思います。 エラーの内容（大事だよね）も必要かと。 512 名前：511 mailto:sage [2008/06/17(火) 15:08:31 ] 「どもような」？orz まあ、そんな感じです。 513 名前：466 mailto:sage [2008/06/17(火) 15:09:09 ] Oｂｊｅｃｔ =に関してはｸﾘｽﾀﾙﾚﾎﾟｰﾄ関連は参照していないと思います。 システム固有のocxも入ってますので晒すとまずそうなんですが・・・ ﾏｲｸﾛｿﾌﾄ系が2つ、ｽﾌﾟﾚｯﾄﾞｼｰﾄ用が1つ、後はシステム固有が2つという状況です。 514 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:10:15 ] セクションとかじゃなくアプリケーション、たとえば Dim app1 As CRPEAuto.Application　 の段階でエラーが出ると理解してるが？違ったりして・・・ 515 名前：466 mailto:sage [2008/06/17(火) 15:13:21 ] 失礼しました。 ｴﾗｰ内容は以下です。 ｺﾝﾊﾟｲﾙｴﾗｰ: ﾕｰｻﾞ定義型は定義されていません。 516 名前：466 mailto:sage [2008/06/17(火) 15:17:10 ] 514の方の理解で合ってると思います。 ｿｰｽ内の Dim XXX As New CRPEAuto.Application 上記部分がｴﾗｰﾒｯｾｰｼﾞが表示された時に青くﾏｰｷﾝｸﾞされます。 VBももうちょっと触っとけば良かったorz 517 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:17:20 ] >>515 エラー発生行の内容（コード）は？ 518 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:17:25 ] 参照設定、コンポーネント、または、バージョン不一致だな。 DLLだけ持ってきてﾎﾆｬﾎﾆｬしたなら別だが… 519 名前：466 mailto:sage [2008/06/17(火) 15:24:42 ] > 517 515で記述したﾒｯｾｰｼﾞ以外は表示されていません。 ｴﾗｰ発生行のｺｰﾄﾞは516に記述している通りです。 どの参照をチェックすれば良いのか分からず ｸﾘﾚﾎﾟ関係の参照を全部チェックしてみたり、 ｺﾝﾎﾟｰﾈﾝﾄを全部チェックしてみたりしたのですが駄目でした。 どっか根本的な所で勘違いしているのかもしれません。 520 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:32:21 ] まさかとは思うが CRPEAuto.dll がレジストされていないんじゃないのか？ regsvr32 CRPEAuto.dll はやってみた？それでエラーにならない？ 521 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:39:13 ] クリーンな環境でCR11をインストして、Dim XXX As New CRPEAuto.Applicationが正常に 実行できる環境を作って、下のツールを使って CRPEAuto.dllとコンポーネントとの依存性を 確認してみたら？ www.programmersheaven.com/download/20851/download.aspx それを現在の環境とで比較すれば、原因がわかるはず。 522 名前：466 mailto:sage [2008/06/17(火) 15:40:19 ] > 520 regsvr32 CRPEAuto.dllはやっていません。 CRPEAuto.dllというdllファイルがないのですが、 こちらはCRPEAuto.dllというファイル名のファイルが存在しなくても実行可能ですか？ 523 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:45:16 ] >>522 お前は何を言っているんだ 524 名前：466 mailto:sage [2008/06/17(火) 15:47:12 ] 貰ったdllはｸﾘｽﾀﾙﾚﾎﾟｰﾄ11の \Common Files\Business Objects\3.0\crystalreportviewers11内にある ActiveXControlsをフォルダ事上書きしてくれと言われたので上書きました。 フォルダ内にはcab、dep、dll、oca、ocxが入ってました。 525 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:52:25 ] >>524 上書きしただけでレジストしてないのか？ レジスト内容は9の当該コンポーネントのままだったり？ JAVAとは違うんだぞｦｲ 526 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:53:27 ] >>522 ＞CRPEAuto.dllというdllファイルがないのですが、 もしかして壮大な釣りだったの？ 527 名前：466 mailto:sage [2008/06/17(火) 15:54:06 ] > 523 ごめん、俺自身良く分かっていない。 ttp://home.att.ne.jp/banana/akatsuki/doc/other/windows01/ ↑を見て regsvr32 CRPEAuto.dllをコマンドプロンプトで実行してみた。 指定したﾓｼﾞｭｰﾙが見つかりませんと出てきた。 > 521 いまいち理解出来ていないが頑張ってみる。 俺テンパってるな・・・orz もしかして、VBの場合のdllのファイル名が CRPEAuto.Application ↑のここと一致するのか？ Javaのクラス名とファイル名を一緒にするとかとちょっと似たようなもの？ 528 名前：466 mailto:sage [2008/06/17(火) 15:58:29 ] > 526 すまんが釣りのつもりはない! VB素人でいきなり放り込まれて本当に訳が分かっていない。 Javaで例えてもらえると助かる。 Javaで言うと現在の状況はimport文の対象先が見当たらないから ｺﾝﾊﾟｲﾙできないと怒られていて import文の対象さえ見つかればどうにかなるんじゃないかな？ という認識だけど根本的に間違ってる？ 529 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 15:58:52 ] >>527 Javaのアプレットは登録しなくても良いだろうが OCXとか DLLはregsvr32で登録しないと参照できないんだよ。 君の環境ではCR9は登録されているのは間違いないが CRPEAutoの構成こんぽーねんとはコピーされただけで登録されていない。 登録された位置に参照DLLが存在しないとレジスト自体ができないはず。 VB6は簡単だと思ったかも知れないが、一歩踏み込めばOLEオートメーション という地獄が口をあけて待ってるのさ。君はその口の中にどっぷり入ってしまったわけよ。 おめでとうWWWW 530 名前：529 mailto:sage [2008/06/17(火) 16:00:11 ] 単にDLLと言ったがActiveX DLLな。 もしかしてDLLが二種類あるのも知らないだろ？ 531 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 16:11:12 ] >>466 お前が偉そうな態度で物を言ってたから少しはデキル奴だと思っていた。 今、それが大きな間違いであった事に気付いたｗ 532 名前：466 mailto:sage [2008/06/17(火) 16:15:21 ] > 529 えっと・・・やっぱりCR9をｲﾝｽﾄｰﾙしないといけなくて、 その後でCR9にあるCRPEAuto.dllというファイル名のファイルをregsvr32で登録しましょう という理解であってますか？ CR9をｱﾝｲﾝｽﾄｰﾙしてCR11を入れてWindowsのファイル検索で「CRPEAuto.dll」を検索したけど出てこなかった。 DLLが2種類あるのは遠い昔に勉強した気がするが最近は一切触ってないので覚えていませんでした。 533 名前：466 mailto:sage [2008/06/17(火) 16:21:51 ] > 531 偉そうだったか・・・すんません!! とりあえずVB素人なのは確定でお願いします。 プログラムを組んだのもこの業界に飛び込んでからで専門的に教えてもらった事もないorz 2chで技術的な質問をきちんとしたのは今回始めてで、 今まではググったり、自分で調べればどうにかなったのだが 今回は本当に何がなんだか訳分かっていないで準備期間も用意出来なかった。 534 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 16:26:13 ] >すんません などとふざけた態度とる奴に、お前はどう接する？ 535 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 16:29:20 ] >>466 お前の技量と目前にしている問題の大きさとがつりあわない。 困ったね。と、他人事だから軽く言うｗ でも自分の問題だとしたらかなりやっかいだね。 正常に動いている時の状態があればまだしも これじゃ複雑なパズルを解くようなもんだよ。 536 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 19:56:13 ] VB6 において _DragDrop() について、対象オブジェクト上での発生時 およびそれ以外での発生時ごとの処理が行いたいのですが、 どうやら一括しての「それ以外」処理は行えない様子 それではと言うことで _MouseUp() 時に処理を行えばいいかと 思ったのですが、DragDropを「0 - 手動」にしたうえで _MouseDown() 内で .Drag を発生させると その後マウスを放しても _MouseUp() が生じません なぜかダブルクリックを行うと2回目の放したタイミングで _MouseUp() が発生します これはどのようにすれば対応可能でしょうか 537 名前：デフォルトの名無しさん mailto:sage [2008/06/17(火) 19:57:12 ] 過去「VB初心者質問スレ Part4」において同じ悩みであろう 657 名前： デフォルトの名無しさん 投稿日： 01/12/27 16:22 Drag&Drop後のMouseUpイベントを取得する方法について教えて下さい。 具体的には．．． DragModeを手動にし、MouseDows時にDragメソッド（引数 1）で Drag&Dropを行うのですが、Drag&Drop後のMouseUpイベントが 取得できません。 フォーム外にDragされた場合に、イベントを取得できないので、 MouseUpであれば、フォーム外でもイベント取得できるので、 どうにかMouseUpを取得できれば良いのですが と言うのがありましたがレスがなかったようでした 538 名前：466 mailto:sage [2008/06/17(火) 21:21:45 ] 失礼しました、少し頭を冷やしてきます。 お騒がして申し訳ございません。 539 名前：デフォルトの名無しさん [2008/06/18(水) 23:24:52 ] xpとvb5.0を使ってます バイナリアクセスでファイルを読み書きしたいのですが・・・ レコード位置の指定方法がわかりません。 構造体に値を入れてから putで入れてるのですが そのときにレコードの位置をセットする方法がわかりません。 2番目のレコードを取得するにはどうすればいいのですか？ ここのやり方でほぼそのまま作ったのですが support.microsoft.com/kb/151335/ja seek(#1)とやるとエラーがでました あと if EOF(#1)=true thenも 記述エラーが出ました Seekでビット位置を取得しようと思ったのですが他にやり方があるのでしょうか？ また 持ってる本には PRecord.FName = String(StrSize," ")が String＄ StrSize = Len(PRecord.FName)が LenBだったのですが それぞれの違いがわかりません 540 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 16:06:38 ] すみません。ピクチャーボックスを回転させるには どうしたらいいでしょうか？ 541 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 16:29:35 ] そんなものはないから相応のコード書け 542 名前：デフォルトの名無しさん mailto:sage [2008/06/19(木) 16:51:48 ] PlgBltというAPIがありました。 543 名前：デフォルトの名無しさん mailto:sage [2008/06/20(金) 00:35:54 ] >>539 なんだかよくわからない質問だけど、 seek(#1)　→ Seek(1) EOF(#1)　→　EOF(1) 関数の「$」有無は、引数がNULL値の場合にNULLを戻すとか、エラーにするとか。 Lenは文字数、LenBはバイト数。 全部ヘルプに書いてある希ガス。 544 名前：デフォルトの名無しさん mailto:sage [2008/06/20(金) 17:24:49 ] >466がかわいそうだ 今後こういうパターン増えていくんだろうな 545 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 12:28:59 ] >>543 >>539は自分で晒したKBの内容すら読めてない 日本語できない子だから英語で教えてあげて もしくはスルー推奨 546 名前：デフォルトの名無しさん [2008/06/21(土) 16:33:11 ] VB6ってもう手に入らないんですか？ 547 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 16:33:39 ] 日本語出来ない以前にバイナリアクセスで次のレコードって… 548 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 16:51:38 ] >>547 クマーーー 549 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 17:23:01 ] >546 MSDN契約しな 550 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 17:25:16 ] おいくら？ 551 名前：デフォルトの名無しさん mailto:sage [2008/06/21(土) 21:48:21 ] ttp://direct.ips.co.jp/pc/ihtml/msdn_chart/ ここによれば単体で160,800円、Open Business2年で67,157円x2=134,314円になる。 552 名前：デフォルトの名無しさん mailto:sage [2008/06/23(月) 02:08:39 ] VB6の値段としては高いな 553 名前：デフォルトの名無しさん mailto:sage [2008/06/23(月) 02:18:04 ] VB6などはMSDNから外されてなかったっけ？ 持ってるから興味ないけどさ 554 名前：デフォルトの名無しさん mailto:sage [2008/06/23(月) 02:22:41 ] JAVAを外してVB6.0だけ復帰してたはず 555 名前：日立バキバキ高野くん祭り [2008/06/23(月) 19:50:18 ] 1．日立製作所社員の高野くん（高野光弘）が会社を誹謗中傷して機密も漏洩 2．日立のユーザーにも「キチガイ」との障害者差別発言 3．日立製作所の企業イメージをバキバキにする 4．自身のサイトの『32nd diary』に掲載 5．日立製作所に通報される 6．あせって似顔絵削除 7．火に油を注ぐだけで所属する日本UNIXユーザ会にも通報祭り勃発 8．「給料泥棒」と説教される 9．「殺します」と殺人予告をして警察に事情を聞かれる←イマココ 高野光弘の行動 現在は、過去の記事を閲覧できなくして、「本日の日記はツッコミ数の制限を越えています」としています。 まずは、不愉快な思いをされた方々に謝罪するべきなのではないでしょうか。 高野光弘の発言 「まぁ、どこの団体もそんなにヤワじゃないので、平気なんですけども。 日本UNIXユーザ会が一番対応に慣れてる感じ。」 日本UNIXユーザ会が対応に慣れているか、みなさん確認してみてください。 連絡先 www.net.intap.or.jp/oiia/cont2/p0402.html%7B0recid=10168.html 556 名前：デフォルトの名無しさん mailto:sage [2008/06/23(月) 21:26:58 ] 536です 上記の件についておわかりになる方、いらっしゃいませんでしょうか 557 名前：デフォルトの名無しさん mailto:sage [2008/06/24(火) 00:23:11 ] >>556 VBだけだと、無理なような気がします。 APIでドラッグ中オブジェクトのシステムメッセージを取ってみると、きちんと マウスイベントは通知されているようです。 SetWindowLong、CallWindowProc などを調べてみてください。 上記のAPIを使う上での注意点としては、システムからVBの関数にコールバックさせるので、 後始末をきちんとしないと、動作が不安定になることがあります。 558 名前：デフォルトの名無しさん mailto:sage [2008/06/24(火) 12:59:05 ] >557 参考になりました APIを使わずに回避したかったのですが 仕様ならやむ無しです ありがとうございました 559 名前：デフォルトの名無しさん [2008/06/29(日) 16:04:13 ] VBScriptで質問があります。 HTMLのselectタグの中のoptionタグをボタンで押すことで、 消したり追加したりしたいんですが、innerHTML以下のようにしたのですが、 駄目でした。どこが悪いのでしょうか？お力を。 ちなみにサーバサイドはASPです。 Sub changeRadio(strFlg) Dim strAti Dim strNvidia <% Dim strA Dim strB Dim intCounter For intCounter = 0 to rs.recordcount-1 if left(rsGPU.fields.Item("vchGPUName"),1)="A" then strA= strA & "<option value=""""" & rs.fields.Item("intA") & """"">" & rs.fields.Item("vchA") & "</option>" else strN= strB & "<option value=""""" & rs.fields.Item("intB") & """"">" & rs.fields.Item("vchB") & "</option>" end if rs.movenext Next %> strAA="<%=strA%>" strBB="<%=strN%>" if strFlg="A" then document.formA.SelA.innerHTML=strAA 'SelAがselectタグです else document.formA.SelA.innerHTML=strBB end if End Sub 560 名前：559 mailto:sage [2008/06/29(日) 16:09:26 ] すいません、2行目訂正ですorz >HTMLのselectタグの中のoptionタグをボタンで押すことで、 HTMLのselectタグをボタンで押すことでselectタグ内のoptionタグ でした。 561 名前：559 mailto:sage [2008/06/29(日) 16:12:03 ] ああ、また訂正です。。。。駄目だorz NG >Dim strAti >Dim strNvidia OK Dim strA Dim strB ... 562 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 17:18:29 ] クライアントサイドはJavaScriptにした方がいいよ 563 名前：デフォルトの名無しさん [2008/06/29(日) 17:38:53 ] VB(笑) おまえらもう用なしだよｗ 564 名前：559 mailto:sage [2008/06/29(日) 17:51:36 ] selectタグでは駄目なようなので、もう一段階上の階層に対して InnerHTMLを使うことにしました。 お騒がせしました。 565 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 19:48:16 ] treeviewですべてのノードを展開した状態で、上から何番目ってのを取得できるのでしょうか？ 親を追加→子を複数追加→孫を複数追加〜みたいにノードを追加していくと、 ノードのindexって追加した順番に付いていき、上からの絶対敵な位置にならないので困ってます。 プロパティとか、色々見てみたんですが、なかなか思うようなものがなく。。。 おたすけくださいー。 566 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 22:50:04 ] こんな感じの関数を作ればいいんじゃないかと。 Private Function fncGetNodeLine(twCtrl As TreeView, targetNode As Node) As Long 　On Error GoTo err_proc 　　Const C_TREEDEPTH_MAX As Long = 10 　　Dim lngCnt　As Long 　　Dim lngDpth As Long 　　Dim nd(1 To C_TREEDEPTH_MAX) As Node 　　fncGetNodeLine = 0 　　lngCnt = 0 　　If twCtrl.Nodes.Count > 0 Then 567 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 22:50:29 ] --- 続き --- 　　　　lngDpth = 1 　　　　Set nd(lngDpth) = twCtrl.Nodes(1).Root.FirstSibling '先頭ノード 　　　　Do 　　　　　　lngCnt = lngCnt + 1 　　　　　　If nd(lngDpth) Is targetNode Then 　　　　　　　　fncGetNodeLine = lngCnt 　　　　　　　　lngDpth = 0 '対象ノード発見時終了 　　　　　　ElseIf nd(lngDpth).Children Then 　　　　　　　　Set nd(lngDpth + 1) = nd(lngDpth).Child '子ノード 　　　　　　　　lngDpth = lngDpth + 1 　　　　　　Else 　　　　　　　　Do 　　　　　　　　　　If Not nd(lngDpth) Is nd(lngDpth).LastSibling Then 　　　　　　　　　　　　Set nd(lngDpth) = nd(lngDpth).Next '次ノード 　　　　　　　　　　　　Exit Do 　　　　　　　　　　End If 　　　　　　　　　　lngDpth = lngDpth - 1 '一つ上のノードに戻る 　　　　　　　　Loop While lngDpth > 0 　　　　　　End If 　　　　Loop While lngDpth > 0 　　End If 568 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 22:50:57 ] --- 続き --- exit_proc: 　On Error Resume Next 　　For lngDpth = 1 To C_TREEDEPTH_MAX 　　　　Set nd(lngDpth) = Nothing 　　Next lngDpth 　　Exit Function err_proc: 　　MsgBox Err.Description, vbCritical, "Error" 　　fncGetNodeLine = -Err.Number 　　Resume exit_proc End Function 569 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 22:59:52 ] 関数にfncなんてプリフィクス付ける人初めて見たよ。 よく見る'obj'以上に無意味だと思うんだけどね。 いや、コードを読む人間をいらつかせる機能を狙ってるのなら そういう意味はあるけど。 570 名前：デフォルトの名無しさん mailto:sage [2008/06/29(日) 23:20:12 ] >>569 そうか？ VBでのプロジェクトのコーディング規約で、たまに見るけどねｗ 意味は無さそうだけど、「関数の戻り値に代入している」という事が判別しやすい。 という、ＶＢ特有の意味はあるかもしれないかもしれないかも………。 571 名前：デフォルトの名無しさん [2008/06/30(月) 00:23:17 ] >>569 コーディング規約に噛み付いてどうする。 fncもsubもよく見かけるし、そもそも規約なんてそのプロジェクトにとって意味があるかどうかだろ。 あなたがどんなプロジェクトに関わってきたのか知らないけど、 正常orエラーを返す関数をcallで呼んで戻り値評価しない奴がいたり、 オブジェクトの開放処理をしない奴って結構多いよ。 特に人の入れ替わりが激しいとこや新人率が高いとこなんて、 一人が規約を無視してそのコピーが疑問なしに次々と乱立することも少なくない。 関数にはfncをつける→fncはそこでは不要でも必ず戻り値の評価をする、とか 参照型はobjをつける→Exitする際に必ず開放する といった決め事にした方が、品質の高いプログラムを作りやすいことも多い。 572 名前：デフォルトの名無しさん mailto:sage [2008/06/30(月) 01:33:06 ] VB6は誤ったハンガリアン記法の品評会だったからしょうがない 一応正しいハンガリアン記法というのもあって 変数が言語のもつ型以外の意味をもつ場合につけるプレフィックス 例えば整数じゃなくてこれはハンドルだという場合にｈをつけるのは正しい 573 名前：デフォルトの名無しさん [2008/06/30(月) 01:39:03 ] 日本語でおｋ 574 名前：デフォルトの名無しさん mailto:sage [2008/06/30(月) 01:58:48 ] 解放、な。 575 名前：デフォルトの名無しさん mailto:sage [2008/06/30(月) 23:39:56 ] >>571 こういう場所に質問に答える形でコピペしてるコードに「コーディング規約」って 意味不明だろうw 別にそんな訳のわからない理屈振り回さなくても素直に「俺の趣味だ」でいいじゃん。 まあ個人的には愚かな趣味にしか思えないけどね。 576 名前：デフォルトの名無しさん mailto:sage [2008/07/01(火) 00:28:25 ] 「fncXXX」に噛み付いてみた → 「初めて見た」に噛み付いてみた → 「コーディング規約」に噛み付いてみた 次は何かな？ 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