くだすれVB6.0以前（超初心者向け）

1 名前：d mailto:age [2008/03/30(日) 09:01:59 ] このスレッドはVBについて、 他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 VB使いが優しくコメントを返しますが、 お礼はVBの布教はしなくてよいので、初心者の救済をお願いします 前スレ くだすれVB6.0以前（超初心者向け） pc11.2ch.net/test/read.cgi/tech/1165574205/ 511 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 01:10:59 ] 基本的には使う直前に定義すべきだと俺は思うけどね。 「嵌る」というのはループ内の定義箇所で変数の値がデフォルト値に初期化されると （誤って）期待した場合だと思うけど、それはむしろきちんと明示的に初期化しない ことの方に問題がある。 あとVB6だと見た目ブロック内スコープに見えても実際のスコープは関数内、 っていうのも仕様としてはいやらしいけど、あまり問題にならんと思う。 512 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 06:58:10 ] >>509 こういう頭の固い奴たまに見るけど、何言語出身なの？ 513 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 07:44:10 ] K&R CかCOBOLだろ 514 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 08:06:27 ] goto使う奴は、とか しまった、VBはBASICか 515 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 10:49:54 ] gotoは使わざるえないだろｗ 516 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 11:40:26 ] >>511 が全部書いているが、 同じ理由で関数/サブルーチン内の一番外側のブロックでDimすることにしてる。 やらん方がいいのはブロックの中の宣言したものを外で使うこと。 If ... Then    Dim x as ... End If print x ブロックの中で配列の宣言やDim x As New ,,, でオブジェクト宣言はしないこと。 前者はVB.NETでコンパイルエラーになるが、後者はコンパイルは通るが動作が異なる。 517 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 16:34:27 ] VB5とVB6の違いは大きいですか？　中古で5の入門書のほうが安かったので。 518 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 16:49:37 ] 5でも6でも80過ぎの借金だらけのババアと結婚するようなもんだ 519 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 17:10:44 ] VB6を持っているならMSDN LibraryにVB6の新機能といった項目がある 一番大きい違いはDB(DAO->ADO)関係かな 520 名前：デフォルトの名無しさん mailto:sage [2009/01/23(金) 17:52:44 ] 入門するならﾀｰｹﾞｯﾄに出来るだけ近いものがいい 書いてあることと同じ結果が出ないと無駄な時間を費やすことに　なったりならなかったり 521 名前：デフォルトの名無しさん [2009/01/24(土) 00:21:20 ] >>515 お前エラートラップ限定で使わざるを得ないっていってんだよな？ そうだよな？そうだと言えよ！！！ 522 名前：515 mailto:sage [2009/01/24(土) 00:46:30 ] >>521 それ以外になにがあるｗ 523 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 00:53:47 ] N-88BASIC 524 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 04:24:35 ] MS-DOS版N88日本語BASIC(86) 525 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 12:24:07 ] VBってなんでエラートラップでon goto にしたんだろうな？ あれさえなければ 526 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 16:34:01 ] vb6.0を使用しています。 1つのformに、数値が入力されたtextboxとlabelを複数配置してｔｘｔまたはcsvに保存するものを作っています。 そこで値の入っていないboxを飛ばして保存したいのですが可能ですか？ よろしければヒントお願いします。 527 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 16:41:00 ] >>526 そういう風に作ればいいでない？ やりたいことが伝わってこないな。 528 名前：526 mailto:sage [2009/01/24(土) 17:38:48 ] 言葉足らずで申し訳ないです。 取得してきた数値を表示させるtextboxとlabelのセットが、縦横５×６ぐらいで並んでおり、 フォームデザイン上、表示させる順番が飛び空白ができてしまいます。 そのため保存したものが 　　　　　　　"123","00","","","567","00","",""・・・・ のように間延びするので、どうにかできないかと思い聞きました。 529 名前：デフォルトの名無しさん [2009/01/24(土) 17:57:29 ] >>526 Option Explisit Dim iFileNo As Integer Private Sub Command1_Click()'保存ボタン Dim i As Integer iFileNo= FreeFile Open CurDir & "\test.csv" For Append As #iFileNo For i = 0 To 10 'テキストボックスのコントロール配列が増減の場合は10の値を変更 call check_Hozon(i) Next i Close #iFileNo End Sub Private Sub check_Hozon(ctlIndex As Integer)’入力チェックと出力 If Text1(ctlIndex),text <> "" Then ’空白の場合は書き込み Print #iFileNo,Label1(ctlIndex).Caption & "," & Text1(ctlIndex),text End if End sub 530 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 19:23:53 ] >>529 ありがとうございます。 勉強し直してきます。 531 名前：デフォルトの名無しさん [2009/01/24(土) 20:03:17 ] あ誤字訂正 ×Option Explisit ○Option Explicit ×空白の場合は書き込み ○空白じゃない場合は書き込み 似たようなコントロールが並ぶ場合は コントロール配列を応用してインデックスで関数化する 改行要らなくて横にずーっと列挙するんであれば Printする前に空白判定してstring型の変数かなんかにくっつける 532 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 23:50:55 ] VB6でドットインパクトプリンタで納品書を印字するような用途の場合、 レポート印字につかうActiveXコンポーネントで定番と呼べるものはなんでしょうか？ 533 名前：デフォルトの名無しさん mailto:sage [2009/01/24(土) 23:53:35 ] くりりぽ、ActiveReports あたり 534 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 14:35:17 ] 何でVB6はいつもIntegerで、LongやVbMsgBoxResultなどを使わないソースが蔓延してるのか？ 535 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 14:50:33 ] >>534 なに？integerだとまずいのか？ コントロール配列で上限超えるような事ないから integerにしたまでだけど 536 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 15:18:14 ] まあそれだったらByteでいいだろうな。 537 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 15:20:26 ] .netや他の言語ならIntegerでいいけど。 538 名前：デフォルトの名無しさん [2009/01/25(日) 16:35:37 ] VB６．０詳しい人に質問 form内でのみ（project内ではない）グローバル変数を使いたい場合どうすればいいですか？ 539 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 16:41:24 ] Cはint型ＯＳに依存するからlong使えって昔習った気がするが 540 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 16:43:10 ] >>538 フォームのソースコード1番上にDim 〜って宣言すりゃいいんじゃね？ 541 名前：デフォルトの名無しさん [2009/01/25(日) 16:46:23 ] >>540 さんくす 542 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 17:03:36 ] >>539 それはchar系以外全部同じ。longだって、ところによっては8バイトのものもある。 必要ならint32_tのような型を使う。 543 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 17:17:20 ] >int型ＯＳ 意味するところが不明 544 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 18:08:26 ] Integerを使う＝VBを理解していない 545 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 18:40:36 ] 16bitと32bitのOSでintは2バイトと4バイト、longは両方4バイトなのがあったからそれじゃない？ 546 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 18:43:32 ] 64bit CPUの普及で状況は混沌としてきた 547 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 19:53:21 ] 違う。もっと簡単なことだ。 Longを返すものをIntegerで受け取ってるものが多い。 それはあまり推奨できないということだ。 548 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 20:01:22 ] 今、CとVBが混在してない？ 549 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 20:37:47 ] >>542 なるほどな思わぬところで勉強になったわサンクスコ 550 名前：デフォルトの名無しさん mailto:sage [2009/01/25(日) 22:01:15 ] 本当はchar型の大きさも環境に依存するけどな 551 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 00:05:11 ] >>533 ありがとう。その二つをチェックしてみる。 552 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 07:35:09 ] >>547 確かに 呼び出し時の参照渡しでは型が違うとエラーになるが 戻り値の代入では型が違っても自動変換されるから 気付いてないっぽいのを結構見かけるね 553 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 12:32:18 ] 俺は変数の最初に型名を入れるように習った グローバルならPublicのPをつけるように（今思うとPrivateもPだから紛らわしいが） 554 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 12:59:00 ] ポーランド記法は今や嫌われるようになってしまった 555 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 12:59:51 ] ハンガリアン記法だった。すまそ 556 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 13:01:31 ] >>555 モンゴリアンチョップは今でも俺の必殺技！ 557 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 14:42:08 ] ハンガリー記法って今は嫌われてたんだ 558 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 22:04:23 ] >>553 そういう記法でのグローバルはgだろ というか批判されてるのはシステムハンガリアンだけだよ アプリケーションハンガリアンは特別には批判されても嫌われてもいない もちろん否定的意見は存在するが、それはどの記法にも見られるレベルのもの しかし型付けが弱いVB6や型付けが無いVBSでは システムハンガリアンだってそれなりに利点があるんだよな 頭の悪い奴は、批判されてる理由も正しく理解しないうちから 周りに載せられて全て一緒くたにして批判するが、 システムハンガリアンも全く利点のない記法ではないからな 559 名前：デフォルトの名無しさん mailto:sage [2009/01/26(月) 23:18:30 ] >538 遅レスだがDimはやめてPrivateにしなされ 560 名前：デフォルトの名無しさん [2009/01/27(火) 19:01:52 ] VisualBasic.5.0　で実行できたプログラムが突然実行できなくなり、実行すると以下のようなエラーメッセージ が表示されてしまいます。 ”0x77fcc7a8"の命令が”0x317e4ebb"のメモリを参照しました。メモリが”written”になることはできませんでした。 プログラムを終了するには[OK]をクリックしてください。 プログラムをデバックするには[キャンセル]をクリックしてください。 と表示されます。 これを改善するにはどのようにすればよいのでしょうか？？ 561 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 19:20:28 ] >>560 他のPCで試してみて、動かなかったら作った奴に聞けばいい 562 名前：デフォルトの名無しさん [2009/01/27(火) 20:09:42 ] すみません、VBとDLLのインタフェースについて教えてくださいませ。 対象のDLL側の実装は、こんな感じです。 int functionA(unsigned long param1 , int* param2) param1 は、param2 に指定した int 配列の数をあらわし、関数を動かすと、 param2 で指定したところに数字の配列を入れてくれるようになってます。 んで、VBから、こんな風に定義したんですけど・・・ declare function functionA lib "hogehoge.dll" _ ( param1 as long , param2() as long) as long 実行時に「DLLが正しく呼び出せません」でエラーになってしまいます。 DLLのファイル名と、関数のExport名は dumpbin で調べたので合ってるかと。 declare function functionA lib "hogehoge.dll" _ ( param1 as long , param2 as long) as long dim param1 as long dim param2(10) as long dim ret as long param1 = 10 ret = functionA(param1 , varptr(param2(0))) なんてやっても同じエラーでした。 なんか根本的なところで勘違いしているような気もします。 ご親切な方いましたら教えてくださいませ。 環境は、VB5.0、VB6.0でしか使えない機能が必要ならVB6.0も入れてみようと思って待つ。 563 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 20:33:34 ] (BYVAL param1 as long , param2() as long) as long   ~~~~~~~ じゃね？ 564 名前：デフォルトの名無しさん [2009/01/27(火) 20:47:49 ] すみません、説明不足でした（＞＜） declare function functionA lib "hogehoge.dll" _ (byval param1 as long , byref param2() as long) as long というのと、 declare function functionA lib "hogehoge.dll" _ (byval param1 as long ,byval param2 as long) as long というのを試して両方とも同じく「DLLが正しく呼び出せません」 というエラーメッセージでした。 565 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 20:48:05 ] defファイルでexportしてるか？ 566 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:09:51 ] dumpbinで調べてどう？VB5, 6だと正確にあってないとだめだぞ。 これだと前ハイフンも@8も必要になる。  1    0 00001000 _functionA@8 567 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:10:06 ] export 名は、dumpbin ､Dependency walker で確認してますし、 同じDLLの他の関数は使えているので、問題ないとおもいます。 568 名前：562 mailto:sage [2009/01/27(火) 21:11:23 ] そういえばここ、書き込みIDないんですね。 564、567は俺の書き込みです 569 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:14:46 ] VB6だとDLLが見つからないのと、エントリが見つからないのは それと分かるメッセージになるのだが、VB5でその辺の切り分けはできますか？ 両方とも当てはまらないなら、 DLLがさらに別のDLLを必要としていてそれがないということもありえる。 570 名前：565 mailto:sage [2009/01/27(火) 21:17:32 ] 無視されちった 571 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:19:48 ] 違うdll見てるんだろ、どうせ 572 名前：デフォルトの名無しさん [2009/01/27(火) 21:19:51 ] >>570 それは問題ないです（＞＜）すみません >>569 そう思って、出鱈目な関数名を alias で指定 したのですが、その場合は「ｴﾝﾄﾘ hoge がDLLファイル C:\hoge.dll 内に見つかりません。」というエラー になるので、ｴﾝﾄﾘまでは問題ないかと思います。 573 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:26:10 ] ＞ret = functionA(param1 , varptr(param2(0))) 普通にこれでよくね？ ret = functionA(param1 , param2) 574 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:27:27 ] __stdcallにしてるだろうな？ 575 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:37:50 ] >>560 COMやVBXの登録がおかしくなってる。 互換のないdllに置き換わってしまった。 などなどのdll Hellの症状が見受けられます。 再インストールがんばって。 576 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 21:53:35 ] PATHが通ってないとか hogehoge.dllをsystem32に置いてみて 577 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 22:17:56 ] pathが通ってなかったらdllが見つからんってエラーになるはず 578 名前：デフォルトの名無しさん mailto:sage [2009/01/27(火) 23:20:25 ] >>534 VB2のサンプルソースをコピペして使うからですよ。 VBMsgBoxResult といえば、プロシージャの成功失敗を vbOKとvbCabcelで返してるコードも見たことがあります。 みんな意味も分からずカッチョイイから使ってるだけ。 Longなら安心だけどIntegerでもたぶん平気、ちゃんと入力の有効範囲を 意識して型を使い分ける俺って渋いじゃん？ｗみたいな人もいるかもしれません。 そういう人に限って、「500件のレコード処理の進捗率を表示」するのに、 進捗率 = 完了件数 * 100 / 総件数　みたいな阿呆な式を書くんですよ。 もちろん全部最大500だからIntegerで宣言。 せめて割ってからかけろと・・・ 579 名前：562 [2009/01/27(火) 23:25:01 ] みなさん、ありがとうございます！ __stdcall していなかったのが原因でした（＞＜） VB.net を導入したところ、当たり前のように動きました。 vb5でのテストで、他の関数で処理が通ったのは、引数 がない関数で試したからのようです。引数のある関数は vb5 ではダメでしたが、vb.net では動きました。 お騒がせしました。ありがとうございます！ 580 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 00:58:48 ] まあVB.NETならcdeclでも受け付けるだろうし、間違っていてもある程度何とかしてくれそうだなし。 581 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 22:53:57 ] VB6でIE7+activeXのソフトを作成しました IE側にボタンを設置し、そのボタンを押されたらraiseイベントで 別のhoge.ASPなどを呼び出したりしたいのですが、 OCXをダウンロードした１回目に限りraiseイベントが起こらない （2回目以降というかC:\WINDOWS\Downloaded Program Filesにファイルがダウンロード済なら問題なし） 様のですがIEの仕様なのでしょうか？ 582 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 22:58:21 ] なんか KB でそんなんを見た気がする・・・ 583 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 23:26:44 ] 引数や戻り値の型を合わせるためでもなく、オーバーフローの心配が無くても 原則Longがいいだろう。リテラルには&付けることだな。 584 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 23:29:59 ] えええ？ 585 名前：デフォルトの名無しさん mailto:sage [2009/01/28(水) 23:34:58 ] >>525 MS-BASIC(N-BASIC)時代の名残。何げに30年の歴史がある。 でもON GOSUBに相当する機能ってVBにはないよね？Tryは微妙に違うし。 586 名前：デフォルトの名無しさん mailto:sage [2009/01/31(土) 14:28:18 ] VB6の本には、なぜMS-DOSプロンプトの代わりにDebug.Printでプログラム技術を 教える本が無いのか。 587 名前：デフォルトの名無しさん mailto:sage [2009/01/31(土) 18:22:01 ] 意味がわかりません 588 名前：デフォルトの名無しさん mailto:sage [2009/01/31(土) 18:34:26 ] 前提（Debug.Printでプログラム技術を教える本が無い）が間違ってるので意味が伝わらない 589 名前：デフォルトの名無しさん mailto:sage [2009/01/31(土) 19:29:57 ] VB6とコマンドプロンプトとプログラム技術の関連性がまったくわからない。 590 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 15:57:03 ] エスパー頼む 591 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 16:13:57 ] ハードディスクが壊れたので、俺が２年前に作った数キロバイトのコードを 思い出す方法を誰か教えてください。 ネット上のサーバー履歴も、机の上のパソコンの中の履歴も、ちょうど同じ 日に消えてしまいました。 592 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 16:19:31 ] 面白いと思って書いてるのか知らんが、まったくつまらないから。 もっと他にやることないのかよ惨めな奴だな 593 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 20:54:02 ] スレで信頼できるヤツを探して、逆汗してもらうこった つまり、そんなヤツを探す方法に、この問題は行き着くわけだが そうすると、VB6の問題じゃないなこれは 594 名前：デフォルトの名無しさん mailto:sage [2009/02/01(日) 20:57:29 ] ハードディスクの内容を復元してくれる業者に頼め。 595 名前：デフォルトの名無しさん [2009/02/02(月) 02:03:56 ] >>593 逆汗って何か分かって言ってんのか？ 意味もよく分かってないくせに使うんじゃねえよ 596 名前：デフォルトの名無しさん mailto:sage [2009/02/02(月) 07:35:02 ] ん。exeは残ってるけど、ソースないよ。って話ちがうんか。まあいいか 597 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 10:38:05 ] VB6+Microsoft SoapToolkit 3.0でプログラムをしているんだが、 処理中に実行時エラーが発生してしまうんだが、どうしたら出なくなるのか知ってる奴いない？ 　実行時エラー '-2147221504(80040000)': 　Connector:Connection time out. 一応、ConnectorProperty("Timeout")は設定している。 598 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 14:30:47 ] エラーが出る場合は、再現する最小限のコードを貼れ 話はそれからだ 599 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 15:09:19 ] ｿｰｽ編集のｳｨﾝﾄﾞｳでﾏｳｽのｽｸﾛｰﾙをしても画面が動かないのはなぜ？ 600 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 15:17:53 ] 仕様。 601 名前：597 mailto:sage [2009/02/03(火) 15:31:09 ] >>598 最低限のコードか・・・ 結構長くなりそうだけどいい？ 602 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 16:24:31 ] >>599 エレコムのマウスユーティリティ（エレコムマウスじゃなくても使える） をインスコするとVB6のソース画面もスクロールできる これ豆ｒｙ 603 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 17:11:37 ] >>599 >>602でもできるのかもしれないけどこれでも出来る Visual Basic 6.0 IDE でマウス ホイール イベントが機能しない support.microsoft.com/default.aspx?scid=kb;ja;837910 604 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 17:47:10 ] >>603 ﾄﾝｸｽです 605 名前：デフォルトの名無しさん mailto:sage [2009/02/03(火) 21:08:18 ] >>603 うおースクロール出来るー、嬉しい ^^ ありがとさんです 606 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 00:48:14 ] >>585 ON...GOSUBは6.0まで残されてたね。あくまでレガシー活用目的で、 Select Case に書き換えろ、ってQuickBASICの頃から言われてます。 N(N88)-BASICの頃はON ERROR GOTO のほかにもON KEY(n) GOSUB やON STOP GOSUB やらがあって、それぞれ3単語で1ステートメント扱いでリファレンスにも載ってた。 QBで数が増えすぎてON EVENT GOSUBと一緒くたに説明されるようになった。 どうしてON ERROR GOSUBにしなかったかというと、GOSUBはRETURNでもどるが ご存じの通りエラーの時はRESUMEで戻るから「GOSUB」を使いたくなかった。 On Error Resume NextができたのはVBから。以前は10 ON ERROR GOTO 60000 60000 RESUME NEXTと書くしかなかった。 考えたら、あの当時にはエラー処理用ステートメントが用意されていたのは 進んでいたのかもしれない。 607 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 00:55:14 ] ちなみに蛇足しておくと ON KEY(n) GOSUB はファンクションキーn番が押されたらGOSUB ON STOP GOSUB はPC-9800等過去のPCに付いていたSTOPキーが押されたらGOSUB Stopステートメントとは無関係ですよ。今ならDoEvents+KeyDownイベントに近いのかなあ。 ほかにも音楽演奏バッファが空いてきたらGOSUBする ON PLAY GOSUBとか いろいろあった。 608 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 00:58:43 ] >>591 大型のハンマーで頭を後ろから思いっきりたたく。 目から壁にソースコードが映写されますよ。 609 名前：デフォルトの名無しさん [2009/02/06(金) 01:38:31 ] 自然科学系の出版社勤務ですが、次のアマゾンのレヴューがさっぱり解読できません。 どなたか教えてください。 www.amazon.co.jp/%E8%8B%B1%E6%96%87%E9%80%9F%E8%AA%ADTRY-AGAIN-%E6%9C%AC-%E6%AD%A3%E5%BC%98/dp/4875685920/ref=sr_1_1?ie=UTF8&s=books&qid=1233763565&sr=8-1 610 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 08:04:22 ] www.amazon.co.jp/dp/4875685920/ 宣伝乙。と思ったら、なんかおもしろそうな文字化けしてるなｗ でも、VB6はたぶん関係ﾅｶｯﾀ 611 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 08:15:27 ] >>601 ナイス回答がある保証はないが、本気なら、うｐすればいいｗ 612 名前：デフォルトの名無しさん mailto:sage [2009/02/06(金) 23:47:21 ] >>601 とりあえずファンクション単位でもいいから 貼れや 613 名前：デフォルトの名無しさん mailto:sage [2009/02/07(土) 03:01:22 ] そこらじゅうにDebug.Print入れて変数の値を調べろ 614 名前：デフォルトの名無しさん mailto:sage [2009/02/07(土) 08:26:04 ] >>597 これ？ www-01.ibm.com/support/docview.wss?uid=swg21343350 615 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 03:22:44 ] >>587-590 たとえばCならprintf、C#ならConsole.WriteLineやDebug.WriteLineで コンソールやデバッグに出力するところから基礎を始めることがあるけど、 VBではテキストボックスに出すようなのが多い。それだとコントロール周りの 余計な（そのときの本題と関係ない）知識が必要だし、実業務でも デバッグをMsgBoxでやっちゃってフォーカスがらみのコード追跡ができないと 嘆くような駄目プログラマが育ってしまう。Debug.PrintやPrint#を使う 習慣を身につけさせるべきだ。 と言いたいんじゃないかと思う。 616 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 10:17:15 ] そもそもVB6じゃ標準出力に何か出力できたっけ？ 617 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 14:04:09 ] デバッグモードで起動すればコンソールに出せるだろ・・・ 618 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 14:44:41 ] FSOのGetStandardStream使ってもできるし、ほかにも 619 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 17:05:59 ] 初出の、教えるという観点なら、WScriptオブジェクトとかもいいかもしれん つかできるかな、できるはずだけど あとでやってみよ 620 名前：デフォルトの名無しさん mailto:sage [2009/02/08(日) 18:47:17 ] editbin /subsystem:console hoge.exe とりあえず野望への一歩。 621 名前：デフォルトの名無しさん [2009/02/09(月) 17:54:24 ] 質問です。 ADOとMs標準のDataGridで一覧表を作ってるんですが、 どうしても分割ペイン追加出来ないように出来ないんです。 MSDNには.SplitsのAllowReSizeにfalseセットすれば追加出来なくなる みたいに書いてあるんですが、サイズ調整が出来ないだけで、 追加されてしまいます。 何か良い方法をご存じの方いらっしゃいませんか？ 622 名前：621 mailto:sage [2009/02/09(月) 18:22:41 ] 自己解決しました・・・ AllowSizingだけじゃなく、SizeModeの設定も必要なんですね・・・ 623 名前：デフォルトの名無しさん mailto:sage [2009/02/09(月) 19:55:39 ] 乙 624 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 00:16:22 ] >>617 具体的な方法を教えてください。 625 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 02:46:33 ] 参照設定 Windows Script Host Object Model (wshom.ocx) Dim fso As New FileSystemObject Dim txtstm As TextStream Set txtstm = fso.GetStandardStream(StdOut) txtstm.WriteLine "helloあいうえお" txtstm.Close editbin /subsystem:console vbxxx.exe 626 名前：624 mailto:sage [2009/02/10(火) 10:06:24 ] >>625 すみません、その方法ではなく>>617の方法が知りたいのです。 627 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 12:14:19 ] Debug.PrintはOutputDebugStringとは異なる仕掛けなのでデバッガには出ない。 さらにEXEにする段階でDebug.PrintとDebug.Assertは取り除かれる。 知ったかもあれだが粘着もそれだ、 >>617 は単純にVB6のIDEで動かせばいいといってるだけかもしれんよ。 628 名前：624 mailto:sage [2009/02/10(火) 12:51:10 ] つまり、デバッグモードではコンソールに出力できないということでしょうか。 629 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 13:03:18 ] VB6のアプリやIDEはコンソールを持ってないから普通は出来ない。 普通じゃなければAPIつかって、AllocConsole/GetStdHandle/WriteConsoleの 流れでできるっちゃできる。 630 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 20:31:04 ] VBではやったことないが、AllocConsole,GetStdHandle(API)すごい便利だよ 思ったより簡潔に書ける いっぺんつかってみるべき 631 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 20:35:23 ] いい加減、うぜーぞ 632 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 21:34:43 ] >>631 >>617さん、ごきげんよう 633 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 21:45:34 ] コンソールが何かわかってなかった馬鹿 634 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 21:49:57 ] 617涙目 635 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 22:23:54 ] コンソールに出すくらいなら、ファイルに落とすわ 636 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 22:26:08 ] 今更になって「printfデバッグってすげーな」と声高に主張しているようで恥ずかしい。 637 名前：デフォルトの名無しさん mailto:sage [2009/02/10(火) 22:29:40 ] 実際に適してるかどうかってのは今回あまり関係ない 技術的に可能かどうかって話だから 638 名前：615 mailto:sage [2009/02/12(木) 00:25:11 ] すまん、俺がエスパーだったばかりに・・・ 639 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 07:54:34 ] は？お前のレスなど糞の役にも立ってないわ 640 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 15:37:44 ] TextWidthを使ってぴったりに文字幅設定するのって難しいんですかね？ どうしても表示幅が狭くなってしまいます （とりあえずダミーの空白とか入れてごまかしてはいますが…） 641 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 19:06:45 ] >>638 後半は認める 642 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 22:15:13 ] 質問です 複数のテキストボックスに入力した内容を ひとつのファイルに入出力させようと思っているのですが どのような方法でやればいいのか見当付きません ご教授願います 643 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 22:33:37 ] 入力と出力を決めないとこっちも困る 644 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 22:45:39 ] >>643 すみません… ええと複数のテキストボックスに入力した内容をひとつのファイルに出力させて その後そのファイルを読み込んだら複数のテキストボックスが出力した前と同じ内容になるプログラムでした 645 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 22:53:13 ] そんなことはわかってる もう面倒だからXMLにしちゃえよ 646 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 23:00:50 ] テキストボックスの内容を後で識別できるように区切り記号(例えばTabとかCrLfとか)を付けて一つの変数にぶち込む その変数をファイルに書き込む ファイルを開いて全て一つの変数にぶち込む 変数の最初から区切り記号の一つ前までをテキストボックスにぶち込む 変数の内容を最初の区切り記号+1にして変数が空っぽになるまでループ ちゃんとやらないと無限ループするから他の方法の方がいいかもしれないが目的は達するからこれでいいんじゃね？ もしかしてコードがほしかった？ 647 名前：デフォルトの名無しさん mailto:sage [2009/02/12(木) 23:03:53 ] >>645 >>646 参考になりました。ありがとうございます 648 名前：デフォルトの名無しさん [2009/02/13(金) 14:57:17 ] >>642 複数のテキストボックスへ入力された内容を、 String型変数に入れて文字列編集すればいいと思う。 例えば、 dim strA as string strA = myform.textbox1.text & vbcrlf & myform.textbox2.text とか。んで strA の内容をファイル化すればいい。 649 名前：デフォルトの名無しさん [2009/02/13(金) 14:58:17 ] 644みなかった。スマンw 俺はそういうときは、tab 区切りにしてる 650 名前：test [2009/02/13(金) 16:45:13 ] 暗号化プログラム作ったんですが unicodeで貼り付けると 。」〄「〖　こんな感じでうまく貼り付けることができません これをansiに変換しても 䊁皁脿㽵　となりうまく貼り付けられません 良い方法あったら教えてくださいm(__)m 651 名前：test [2009/02/13(金) 16:46:55 ] あれここだとうまく貼り付けられてる 他のスレでうまくいかなかったんだけどなぜ？ 652 名前：デフォルトの名無しさん mailto:sage [2009/02/13(金) 17:55:38 ] 板の設定次第 ttp://pc11.2ch.net/tech/SETTING.TXT 653 名前：651 mailto:sage [2009/02/13(金) 20:10:28 ] なるほどこの部分ですね BBS_UNICODE=pass ありがとうございます 654 名前：デフォルトの名無しさん [2009/02/15(日) 21:29:07 BE:1043968493-2BP(0)] >>2のVB５をダウンロードしたけどシステムの設定が 不正なため、ｖｂを起動できないって出てきたけど どうすればいいかおしえて 655 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 21:53:12 ] OSのインストールからやりなおすのが言語を入れる鉄則 656 名前：デフォルトの名無しさん mailto:sage [2009/02/15(日) 22:04:21 ] Windowsの互換モード設定は試した？ 657 名前：デフォルトの名無しさん [2009/02/16(月) 19:18:02 BE:695979263-2BP(0)] >>656 　互換モード設定してもできない 658 名前：デフォルトの名無しさん mailto:sage [2009/02/16(月) 19:31:02 ] 環境は何だよ？VirtualPCで開発環境作ったほうがよくないか。 659 名前：デフォルトの名無しさん mailto:sage [2009/02/17(火) 17:35:25 ] vmware serverがいいお 660 名前：デフォルトの名無しさん mailto:sage [2009/02/19(木) 08:29:05 ] VB5.0でとあるexeを起動して終了を待機しているのですが そのexeの戻り値を取得する必要が出てきました。 exeの戻り値はどのようにして取得したらよいでしょうか？ 下記が現在のコードです。 Dim IDProcess As Long Dim hProcess As Long Dim ret As Long IDProcess = Shell(strCommandLine, vbMinimizedNoFocus) hProcess = OpenProcess(SYNCHRONIZE, 1, IDProcess) ret = WaitForSingleObject(hProcess, INFINITE) ret = CloseHandle(hProcess) 661 名前：デフォルトの名無しさん mailto:sage [2009/02/19(木) 09:02:10 ] exeは関数じゃないので戻り値なんて無いよ もしかして終了コードのことを言ってるのか？ それともActiveX.exeなのか？ ActiveX.exeならexe自体ではなくexeが持つ関数に戻り値があるけど 662 名前：デフォルトの名無しさん mailto:sage [2009/02/19(木) 09:16:40 ] >>661 すみません。戻り値じゃなくて終了コードですね。 失礼いたしました。 ぐぐりながらやってみているのですが なぜかhProcessが0です。 なぜいままで動いていたのだろうorz Dim IDProcess As Long Dim hProcess As Long Dim ret As Long Dim lExitCode As Long IDProcess = Shell(strCommandLine, vbMinimizedNoFocus) hProcess = OpenProcess(SYNCHRONIZE Or PROCESS_QUERY_INFORMATION, True, IDProcess) If hProcess <> 0 Then MsgBox hProcess ret = WaitForSingleObject(hProcess, INFINITE) ret = GetExitCodeProcess(hProcess, lExitCode) ret = CloseHandle(hProcess) End If 663 名前：デフォルトの名無しさん mailto:sage [2009/02/19(木) 09:25:19 ] うぅ。 すみません。 CreateProcessを使ったら終了コードが取得できました。 お騒がせしました。 664 名前：デフォルトの名無しさん mailto:sage [2009/02/20(金) 00:52:53 ] ところでみなさん WshShell.Run や Exec を活用してますか？ 665 名前：デフォルトの名無しさん mailto:sage [2009/02/20(金) 01:09:32 ] あまり活用してない というかその二つに限れば、VBで使えば活用(活かした利用)にはならない もっといいものがいっぱいあるから 666 名前：デフォルトの名無しさん mailto:sage [2009/02/20(金) 13:36:42 ] なるほど ありがとうございました 667 名前：デフォルトの名無しさん [2009/02/21(土) 20:32:43 BE:2165268487-2BP(0)] >>658使い方がわからん 668 名前：デフォルトの名無しさん [2009/02/21(土) 20:35:59 ] VB6.0ってまだ需要ありますか？ ラーニングエディション持ってるんで、 ちょっと勉強してみようか・・・と思ってるんですが。 669 名前：デフォルトの名無しさん mailto:sage [2009/02/21(土) 20:39:25 ] こういう取り残された人たちには需要があります。 ＞422 名前： デフォルトの名無しさん 投稿日： 2009/02/11(水) 17:01:01  ＞そもそも、.NETはお金を頂くソフトウェア作るには不向き  ＞・遅い  ＞・ソース丸見え  ＞・フレームワークインストール必須  ＞・FAでは絶対に無理  ＞ ＞枚挙に暇がない  670 名前：デフォルトの名無しさん [2009/02/21(土) 20:41:47 ] >>669 どうもです。サンクス。 671 名前：デフォルトの名無しさん mailto:sage [2009/02/21(土) 22:37:44 ] >>667 簡単だからネットで使い方調べれ。動作確認にはおすすめ。 672 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 16:09:59 ] なるほど ありがとうございました 673 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 19:05:00 ] >>669 俺おもいっきり取り残されてるな…。 …だからこのスレにいるのかｗｗｗ 674 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 01:08:24 ] なるほど 675 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 02:02:25 ] Javaでのstatic変数はVBではどんな宣言になるんですか？ やりたいこと １．インスタンスを生成せずにその変数にアクセスしたい ２．異なるクラス間で同じ値を共有したい ３．javaのように簡単に実現したい の三本です 676 名前：デフォルトの名無しさん [2009/02/26(木) 02:15:51 ] すいません。訂正です。 >２．異なるクラス間で同じ値を共有したい →　２．異なるクラス間で同じ変数を共有したい 677 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 02:23:15 ] >>675 Shared 678 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 02:29:33 ] お、すまんVB6だったか。共通モジュールに宣言しかないかな。 Static Property とかいった手もあった記憶があるがめんどくさいはず。 679 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 03:33:15 ] つーかさ、ある言語の仕様が 他の言語でも、そのまま簡単に実現できると思ってるのってどうよ？ 680 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 11:02:13 ] 変数共有ならモジュールでグローバル変数の宣言だけで良いんじゃね？ VB6だとそれで十分だと思うが 681 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 19:29:12 ] >>675 VBのクラスはクラスメンバを持てない。 VBにはクラスのほかに標準モジュールというのがあるけど、 こっちはC#でいうstaticクラスに似ていて、インスタンスメンバを持てない。 （インスタンス化できない） まあ、javaよりずっと前からある言語だから多少かかなりかウンコ仕様なのは仕方がないねw 682 名前：デフォルトの名無しさん [2009/02/27(金) 00:49:52 ] >>681 ハァ？ クラスメンバ変数は Public で作れる 683 名前：デフォルトの名無しさん [2009/02/27(金) 00:57:34 ] VBのクラスもメンバ持てるぞ。 だが、>>675 を実現するにはちょっと細工が必要。 ActiveX DLL に１つクラスを設けて、そいつの Instancing を GlobaMultiUse に すればいい。 そいつに Public 変数を置けば、いわゆるグローバル変数扱いになる。もちろんクラス。 ただ、利用側で Option Explicit とした場合、アーリーバインディングでないと エラーになった気がする。 それと常識だと思うが、プロセスが異なれば参照先も異なる。 クラスである必要があるならこうするしかないが、 どう考えても標準モジュールで十分な希ガス。 684 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 17:07:49 ] イベント処理での質問です。 vb2008 webページの作成をしています。 コンボボックスから、氏名を選択したら、別のテキストにIDを表示するのですが。 コンボボックスから選択しただけじゃイベント処理は発生しませんか？ SelectedIndexChangedとかTextChangedとか試してるのですが上手くいきません。 685 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 17:30:06 ] >>684 スレ違いです。 686 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 19:47:20 ] >>682 持てません。 クラスメンバの意味わかって言ってる？w 687 名前：デフォルトの名無しさん mailto:sage [2009/03/02(月) 14:53:22 ] vbのwinsockコントロールで、メッセージを送ってきた相手のIPアドレスって取得できますか？ 最低でもLANかWANかだけでもわからないでしょうか？ 688 名前：デフォルトの名無しさん mailto:sage [2009/03/02(月) 14:57:30 ] もうすこし詳しく書かないと、やりたい事が伝わってこないぞ 689 名前：デフォルトの名無しさん mailto:sage [2009/03/02(月) 15:02:48 ] 詳しく書くと、たとえば TCPでlistenしてるところにconnectしてきた相手のIPアドレスを取得したいんです。 IPアドレスがわからなくても、最低限、そのconnectメッセージがLAN経由かWAN経由かの接続だけでも取得したいのです。 690 名前：デフォルトの名無しさん mailto:sage [2009/03/02(月) 15:10:47 ] ぜんぜん詳しくなってないが、相手のIPはわかるから一度プログラム作ってみなよ 691 名前：デフォルトの名無しさん mailto:sage [2009/03/02(月) 15:32:21 ] >>690 見直してみたら、てっきりRemoteHostしかないと思ったらRemoteHostIPの存在に気づきました。 すいません、お手数をおかけしました。 692 名前：デフォルトの名無しさん mailto:sage [2009/03/04(水) 10:41:06 ] 質問ですが、標準のデータグリッドでマウスホイール回転時にスクロールさせる方法って 何が考えられますか？ 693 名前：デフォルトの名無しさん mailto:sage [2009/03/04(水) 11:20:11 ] ホイールスクロールを受け取って自力で動かす 694 名前：デフォルトの名無しさん mailto:sage [2009/03/04(水) 11:26:17 ] support.microsoft.com/kb/179398/ja こんな感じで 695 名前：デフォルトの名無しさん [2009/03/05(木) 01:50:23 ] アクセス操作について教えてください。 エクセルのCellsみたいに列、行指定はできませんか？ 696 名前：デフォルトの名無しさん mailto:sage [2009/03/05(木) 02:09:37 ] もしかして: VBA? 697 名前：デフォルトの名無しさん mailto:sage [2009/03/05(木) 02:20:33 ] つーか、DBってものを解ってないな 利口ならDBについて3日勉強して出直せ 馬鹿ならDBについて3年勉強して出直せ 698 名前：692 mailto:sage [2009/03/05(木) 11:31:12 ] ありがとうございます。 ホイールイベント時の処理でスクロールさせるしかないということですね。 イベントの受け取り方などもう少し調べてみようと思います。 699 名前：デフォルトの名無しさん mailto:sage [2009/03/05(木) 19:57:12 ] >695 ADOならRecordsetオブジェクトとか調べて見るといいかも 700 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 17:35:54 ] VB5.0で作成されたアプリってVistaでも動く？ 701 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 18:03:33 ] 答えになってないが VB6は何とか動いたけどODBC関連がだめだめだったね 使い物にならないぐらい遅い Win7では動かなくなるソフト続出だとおもう 702 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 18:04:59 ] VB5 アプリはものによっては動く 703 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:06:49 ] リストボックスをマウスホイールでスクロールさせた時に リアルタイムでリストボックスのTopIndexを取得したいのですが リストボックスのScrollイベントが動かないので私のスキルでは 八方塞がりです。方法をご教授頂けないでしょうか？ 704 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:10:51 ] >>703 サブクラス化 ググればいくらでもサンプルは出てくる それでも解らなかったら諦めるよろし 705 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:15:50 ] C#やVB.NETなどで作れという神託だよ 706 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 22:38:24 ] >>704 ありがとうございます。 私の探し方が悪いんでしょう。 なかなか見つけられなくてココに来た次第です 諦めるわけには行かないので調べなおします。 >>705 業務で使うのでVB6を使うしかありません。 10年以上稼動する機器なんてざらにあるので・・・ こちらがリファクタリングしたくても 機能も仕様も変わらないのにお金出すところなんてありませんから 707 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:30:07 ] 自力で動かすと、ちょっと上でも方法込みで出てるし。 708 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:32:36 ] 業務で使うのに、サポート切れてるツールを使おう、ってのがわからん。 不具合があったって、MS は知らん顔だよ？ 709 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:34:13 ] MSのサポートなんか受けたことないよ 710 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:38:51 ] >>706 厳密にTopIndexが一つ変化するごとに確実にイベントが欲しい、 とかで無ければタイマ使ってポーリングしたら？ こんな感じのクラスを作って検証してみたが、悪くないように思うけど。 [ListBoxWatcher Class] Private WithEvents mListBox As ListBox Private WithEvents mTimer As Timer Private mTopIndex As Integer Public Event TopIndexChanged() Public Property Set ListBox(lb As ListBox) Set mListBox = lb Dim frm As Form Set frm = mListBox.Parent If mTimer Is Nothing Then Set mTimer = frm.Controls.Add("VB.Timer", "pollingTimer") mTimer.Interval = 200 End If If frm.ActiveControl Is mListBox Then StartPolling End If End Property 711 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:40:35 ] Private Sub StartPolling() 　　mTimer.Enabled = True 　　mTopIndex = mListBox.topIndex End Sub Private Sub mListBox_GotFocus() 　　StartPolling End Sub Private Sub mListBox_LostFocus() 　　mTimer.Enabled = False End Sub Private Sub mTimer_Timer() 　　Dim currentTop As Integer 　　currentTop = mListBox.topIndex 　　If currentTop <> mTopIndex Then 　　　　mTopIndex = currentTop 　　　　RaiseEvent TopIndexChanged 　　End If End Sub しかし、なんでそんなイベントでそんな値が必要なんだろう 712 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:44:28 ] VB6のサブクラス化って初めて見た 横から勉強になります 713 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:48:29 ] 「VB6 のサブクラス化」は、違う意味を指すもんだけどな。 714 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:55:46 ] 「ホイールで動かしたけりゃこのドライバ入れるかあのソフト入れろ」と言える俺は趣味グラマ 715 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 00:03:30 ] 趣味グラマ以前にバカすぎ 動かしたいって話ではなく 動かすのは出来てる上で そのイベントを取りたいって話なのに 716 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 15:06:15 ] FlexGridライクなグリッドツールで 使いやすくてフリーか安価な物ってありますか？ 717 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:16:19 ] ttp://www.grapecity.com/japan/support/database/p1_223.htm 718 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:17:29 ] Windows7でもランタイム入ってるのか あと5年はイけそうだぬ 719 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:25:32 ] >>718 ところが動かないソフト続出ｗ 720 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 18:44:50 ] >>716 俺はMSHFlexGridを自作のクラスと組み合わせて使いやすくしてる プログラマなら他人が作ったものを使うことばかり考えてないで 少しは自力で便利にしようって気になろうよ 721 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 19:10:59 ] DataGridView 722 名前：デフォルトの名無しさん mailto:sage [2009/03/09(月) 00:37:17 ] DataGridViewって.NETのコントロールじゃないの？ VB6でも使えるのか？ 723 名前：716 mailto:sage [2009/03/09(月) 00:46:37 ] 自分で実装しても良いんですけど 自作にかかる費用と購入する費用を考えたときに 購入する方が安上がりかと思いまして 後、うちの会社レベルが低すぎてクラスの概念理解できる人がいないんです… やっぱグレープシティ買って貰うのが一番手っ取り早いですかね 1週間分の人件費で買えますし… 724 名前：デフォルトの名無しさん [2009/03/10(火) 22:18:45 ] 何でもかんでも自分で作ろうとする奴は馬鹿なのか？ 費用対効果とか生産性で一番効率品質ともに良いほうを選ぶだけのこと。 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 再発明した低レベルの車輪を見せびらかすな。 725 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:25:08 ] たいていは、上の人が買ってくれないから、って理由じゃない？＞自前で作る 726 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:33:08 ] FlexGridProの品質の悪さは異常 727 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:25:40 ] > 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 そもそも最初の質問で仕事で使うとは一言も書いてない件について 個人で使うことを想定した回答を、後出しの仕事で使うという情報を理由に叩く奴は馬鹿なのか？ 728 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:40:34 ] >>724の回答もどうかと思うが、 君のそれも話が噛み合ってないんじゃないの？ >>725の言うように724は勤め人にありがちな境遇がわかってない、 ってのなら同意するんだが。。 まあ、くだらんことで熱くなってもしょうがないだろ。 729 名前：デフォルトの名無しさん mailto:sage [2009/03/11(水) 23:33:39 ] でも車輪の再発明って楽しいよな。 730 名前：デフォルトの名無しさん mailto:sage [2009/03/12(木) 00:15:49 ] 再発明ではなく 新発明に出来る可能性を秘めてるからな 再発明にすら届かない可能性も孕んではいるが 731 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:12:26 ] 再発明ってやつは、意識して取り組めば、何らか得るものがあるが、 いかんせん時間効率がよくない。と思う 車輪の再発明は学生のうちにしとけ。とはよくいったもの 世の中そううまくいかん(実りある再発明行為が、学生のうちにできるわきゃない)わけだが 732 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:21:25 ] 時間効率が重視される仕事に置いてまで 再開発でも自作しろなんて言ってる奴は皆無である件について 733 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:28:14 ] コスト計算できない上司が部品買ってくれないってのは、自作しろって事じゃないの？ 734 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:43:24 ] それは上司の主張であって、このスレの住人の主張ではないだろ 735 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:45:13 ] なんで上司の主張は除外されるわけ？ 736 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 02:50:12 ] ここが会社ではなく2chのスレだから 737 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 03:19:15 ] 2chのスレだったら会社の話をしちゃいかんのか？ 738 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 05:24:15 ] 別にいいんじゃないの？ ただ会社の場合は「会社では」って付けてね 何も付けないと、名前空間上「このスレでは」って意味になるから 739 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:41:56 ] 上司の話をするのに、いちいち会社の上司はと付けなければいけないのか？ いつからそんなルールになったんだ？ 740 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:48:00 ] いや、そもそも「このスレの住人の（合意された）主張」なんてものが存在しません。 741 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 17:43:28 ] ★印の ”A7” とこを Cells(ｙ, x) とすると 「Rangeメソッドは失敗しました」 と文句言われますが、どうすればいいのでしょう！？ Range("A7:R120").Select Application.CutCopyMode = False Selection.Sort _ Key1:=Range("A7"), _　　　★ Order1:=xlDescending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin 742 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 18:37:57 ] おしえてくだせえ。 frmMain 実行中に、フォームの右端をドラッグして大きさかえると、Resizeイベントが発生するまではいいんだが、 その後 frmMain.ScaleWidth や、frmMain.Width などを取得してみると大きさ変更前の値しか出てこないんだよ。 なにか足りない部分があるのでしょうか？ 743 名前：742 mailto:sage [2009/03/21(土) 18:45:53 ] すんません。事故解決です。 VBのウイザードからある程度メニューやツールボックスが揃ったプロジェクトではじめていたので、 Set fMainForm = New frmMain と標準モジュールからフォームオブジェクトが開かれてました。 初心者に意地悪なつくりでした。

---

---

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

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