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

1 名前：デフォルトの名無しさん [2009/07/13(月) 21:12:36 ] ここは 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/ ※「まず自分で調べる」クセを身につけよう。 638 名前：デフォルトの名無しさん mailto:sage [2010/04/15(木) 22:17:28 ] >>636 そういう意味ではなくて、[F8] を連打しろ、という意味だ。 639 名前：デフォルトの名無しさん mailto:sage [2010/04/15(木) 23:23:53 ] >>638 うん、そういう認識です。 実際やってみたら割と思うように進んで納得しました。呼び出し元と呼び出し先、またそこが呼び出し元になって、さらに戻って〜みたいな流れで最終的にはメインの最後で終わる感じですね。 あとはクラスモジュールやＡＰＩの使用なんかは少し難しい感じがしますが、頑張ってみます。 640 名前：デフォルトの名無しさん mailto:sage [2010/04/17(土) 15:20:50 ] >>585 ちなみに、IE8のMSHTML.DLLはそのまま使うとIE7互換モードになることに注意。 blogs.msdn.com/ie/archive/2009/03/10/more-ie8-extensibility-improvements.aspx 641 名前：デフォルトの名無しさん mailto:sage [2010/04/17(土) 15:50:42 ] >>640 そうでしたか。 ﾄﾝ 642 名前：デフォルトの名無しさん mailto:sage [2010/04/21(水) 18:12:28 ] ＶＢ６で質問です。 ListViewで上の要素をクリックするととりあえず降順にソートしてくれるけども、もう一回クリックで昇順とかは .NETなら見つかるんだけんども、ＶＢ６は無理なんでしょか？ 643 名前：デフォルトの名無しさん mailto:sage [2010/04/21(水) 19:43:27 ] >>642 できるよ。 644 名前：デフォルトの名無しさん mailto:sage [2010/04/21(水) 22:51:36 ] >>642じゃないけど、ListViewで安定ソート出来ないもんかしら？ やっぱソートを全部自前でやるしかない？ 645 名前：デフォルトの名無しさん mailto:sage [2010/04/21(水) 23:35:21 ] >>644 そもそもGUI部品にソート機能を持たせよう、 って発想が間違ってることにいい加減気がつこうよ。 646 名前：デフォルトの名無しさん mailto:sage [2010/04/21(水) 23:58:33 ] 表示の降順・昇順ソートは普通じゃないの？　Explorerとかの日付ソートとか。 まあともかく… できなくはないけど安定しない、思想がよろしくない。で、いいのかしら？ 647 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:17:04 ] ソート？エクセルにデータ渡してソートしてもらって再取得とかじゃダメなの？ 648 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:18:14 ] は？ 649 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:32:42 ] >>646 ソート機能を否定してるんじゃなくて、 ソート機能をGUI部品に担わせるのが間違ってるといってるんだよ。 650 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:36:29 ] どう違うんだ？ 651 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:40:03 ] 打っても響かないところがVBスレらしいところだなw >>650 ソートする責任はListViewに表示しているアイテムを集約してるオブジェクトに 持たせるべき、ということ。 652 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 00:43:37 ] それって否定だろ？ 653 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 01:00:29 ] これがVB脳の恐怖か.... 654 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 01:08:15 ] ＬｉｓｔＶｉｅｗは数字でのソートが・・・上位桁に０埋めて桁合わせないと数字の大きさ順にソートしてくれなかった 655 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 01:09:28 ] >>653 おまえは鳩山か？ 656 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 07:08:37 ] バブルソートでおｋ 657 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 10:38:20 ] >>652 「ListViewソート機能の否定」ならわかるんだが 単に「ソート機能の否定」ってと「ソートすんな」だよね？ ListViewじゃなくてオブジェクトで「ソートしよう」って言ってるのに、なんで「ソートすんな」なんだ？ 658 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 16:05:16 ] >>651 しかし見た目を掌るListViewが見た目のソートを持たないというのも微妙な気が。 データそのものやその扱い自体のソートなら内部で持つべきだと思うけど。 ともかく。 ふつうにはやりにくい、でいいのかしら？ >>642のひとの手法が知りたい…使い物になるのかはさておいて。 659 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 16:14:21 ] ListViewの昇順降順くらい Private Sub ListView1_ColumnClick (ByVal ColumnHeader as ColumnHeader) Let ListView1.SortKey = ColumnHeader.Index-1 Let ListView1.SortOrder = lvwAscending :Rem 昇順。降順ならlvwDescending Let ListView1.Sorted = True End Sub 660 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 17:28:33 ] すると、クリック毎に入れ替えると ListView1.SortKey = ColumnHeader.Index - 1 If ListView1.SortOrder = lvwAscending Then ListView1.SortOrder = lvwDescending Else ListView1.SortOrder = lvwAscending End If ListView1.Sorted = True かな 661 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 17:53:22 ] lvwAscendingとlvwDescendingの値は１と０だから ListView1.SortOrder=1-ListView1.SortOrder でおｋ 662 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 17:55:01 ] Withくらい使えよ・・ 663 名前：デフォルトの名無しさん mailto:sage [2010/04/22(木) 18:13:32 ] Withとかきめぇ 664 名前：デフォルトの名無しさん mailto:sage [2010/04/23(金) 17:57:51 ] >>594 やってみた RichTextBoxでjavaファイルをTeraPad風に色とボールドしてみた ファイルを読み込んだ時だけ色・ボールドするので 中身編集すると・・・めちゃくちゃにはなる やり方が悪いのかもしれんがファイル大きいと結構時間かかる 結論：RichTextBoxでやるのは無理がある 665 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 07:09:38 ] >>594 >>664 こんなんどう？ 非表示でIEやリッチテキストに描画させて、それをPicture内に再描画して提供。 右クリックやドラッグなどの処理は透過的に処理する。 まぁ面倒くさい事に変わりはないな。 666 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 07:25:57 ] それだと文字位置などの管理が無理だな すべて自分で描画したほうがラクだろ 667 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 08:11:32 ] >>666 そうかね？ クリックも全部裏のコントロールに渡せばカーソル位置や文字の選択もそっちが勝手にやってくれるんじゃない？ 実際に試して話してるわけじゃないけど。 668 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 08:22:24 ] 実際試してみろよ そもそもそんな使い方ならピクチャに再描画する意味なんてないだろ 669 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 08:36:17 ] >>668 意味は、うーんあんまないかもなｗ 描画エンジンを自前で作りたくないし、リッチテキストの処理は非常にめんどくさいのでパスしたいのさ。 俺がやるなら内部にIE一匹飼ってHTMLで表示を作る。CSS使って自由度高いし。 で、入力はフックしてHTMLに変換して制御とか。 670 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 09:05:00 ] 入力部（カーソルなど）が問題だってのになにいってんの 671 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 09:18:24 ] >>603がすばらしいじゃん 672 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 09:23:00 ] 笑えない冗談だ 673 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 09:26:10 ] www7a.biglobe.ne.jp/~sigotnin/delphi.htm これ使えない？ 674 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 09:29:08 ] まあ>>603にはかなわないか 675 名前：デフォルトの名無しさん [2010/04/24(土) 20:56:25 ] >>603みたいなやり方だと 日本語入力とか出来ないよね？ KeyDownやKeyPressイベントじゃIMEとかの日本語入力使えないよね？ 676 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 21:29:22 ] え?どこに入力が? 677 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 21:33:29 ] IMEの制御くらいAPIでいくらでもできますよ 678 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 23:26:26 ] >>594のってエディタ作るんでしょ？>>603のってエディタになってなくね？ 679 名前：デフォルトの名無しさん mailto:sage [2010/04/24(土) 23:48:22 ] だからみんな相手してないんじゃん 680 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 00:54:56 ] まあRitchTextBoxを使うのが一番簡単だとは思う。 入力した文字にシンタックスカラーがリアルタイムで適用されるような 応答性の高いものは難しいと思うけど、以下の方針で作ればそれなりに 実用的なものはできるんじゃないか。 - テキストの解析とシンタックスカラーの適用は、タイマーを使って一定時間ごとに一行ずつ行う。 - 上記タイマーは、Changeイベントで起動し、全行の解析が完了時点で停止する。 - 行の解析は、タイマー起動時の現在行か、またはその1行上の行から開始する。 - 行番号表示は、左側にもう一つ別の行番号専用のRitchTextBoxを置いて実現する。 681 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 00:59:51 ] VB厨はコントロールに頼りすぎる 682 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 01:22:40 ] >>680 そんなアホな事をする位だったら自作したほうがラクだろ？ 683 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 01:34:19 ] >>682（あと>>681) またそういう寝ぼけた事を言う。 そう思うならやってみたら？ まあやってみなきゃ大変さが分からない時点で君がダメグラマなのは確実だな。 エディタの類はVBじゃなくても一から実装するのは難しい部類に入るプログラムなのに、 低レベルのコーディングにまったく向いてないVBでやったら気が狂うこと確実だわ。 しかし、エディタを書けるかって質問して舐めたこというかどうかで ダメな奴を見分けられそうだよなw 684 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 01:43:30 ] 寝ぼけた事を言ってるのは>>680（あと>>683)だが 685 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 01:46:04 ] 682だけど、 以前やってみたから言ってんだよ。 686 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:37:31 ] やってるわけがない。 やってたら>>682みたいな戯言が言えるはずがない。 だからVB厨って言われる連中はダメなんだ。 687 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:42:33 ] ではお前が作ったRutchTextBoxを使ったエディタを見せてくれないか？ 俺はリアルタイムの色変更とスクロール、文字位置制御で挫折したんだ えらそうに言うくらいだから、できたんだろうな？ 688 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:44:34 ] >>680 些細なことだけど ×RitchTextBox ○RichTextBox 689 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:44:38 ] 技術的な難易度を指摘してるだけなのに、いつのまに俺がRutchTextBox（笑） を使ったエディタを作ったことになってるんだろう。 訳がわからん。 690 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:45:22 ] >>687 些細なことだけど ×RutchTextBox ○RichTextBox 691 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:46:30 ] >>689 てめえが難癖つけてきたんじゃねえか糞野郎！！！！！ 692 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:47:09 ] >>680 行番号表示って、編集してるほうのカーソル位置とかスクロールに合わせてスクロールさせるんだよね？ RitchTextBoxのスクロール量の取得・設定てどうやるの？ 693 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:52:34 ] VB6のIDEだと編集中の行は色づけが解除されるよね 694 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:53:12 ] >>692 ↓の454のサンプルの方法で可能なはずだと思った。 もう長いことVB6使ってないんで記憶が確かなら、だけど。 web.archive.org/web/20030110071501/www.vbvbvb.com/jp/gtips/index0451.html 695 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 02:53:44 ] 解除されるのでもいいから、リッチテキストでやってみろよ 696 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 03:07:47 ] >>692 ごめん、君の文章を少し読み間違えてたようだ。 でも>>694のサンプルにはそれも一応載ってるな 697 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 04:06:19 ] OS、Windows2000じゃないんですけど 698 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 04:07:02 ] めちゃくちゃ重いサイトだな 699 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 04:33:29 ] >>692 API 700 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 07:27:25 ] GWはテキストエディタつくろーっと 701 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 23:25:04 ] 別にあなたが何しようとどうでもいんですけど・・・＾＾； 702 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 23:30:53 ] 気になるくせにーｗ 703 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 23:44:19 ] 反応早すぎだろうｗ 気にしてるのがどっちか丸分かりじゃねーかｗ 704 名前：デフォルトの名無しさん mailto:sage [2010/04/25(日) 23:52:19 ] 一日中２ちゃんしてるからｗ 705 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 14:15:51 ] VB6でデータベースの列を追加する方法か、その内容をひっかけられるMSDNの語句を教えていただけないでしょうか。 .NETやC#ならすんなり当たるのに…世の中つらい。 706 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 14:17:14 ] alter tableするだけじゃねーの？ 707 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 14:31:02 ] 扱いは追加じゃなくて変更なのか…�d。 ググるとそこそこあたるので探ってみる。 708 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 17:31:07 ] つうか、SQLの知識のほうじゃねぇか… 709 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 20:55:03 ] >>708 ああ、そうか…　って、VBでSQLなスレ見つけたけど、中身がわりと残念な進行してるねえ。 むこうで聞いて大丈夫だろうか？ 710 名前：デフォルトの名無しさん mailto:sage [2010/04/26(月) 21:29:41 ] DBはDB板へ 711 名前：デフォルトの名無しさん mailto:sage [2010/04/27(火) 02:33:05 ] >>705 まずどうやってデータベースに接続してるのか？ まあ、DAO.TableDefかADOXを調べてみろ つかここ見れば解決 msdn.microsoft.com/ja-jp/library/cc948693(v=msdn.10).aspx 712 名前：デフォルトの名無しさん mailto:sage [2010/04/27(火) 18:50:25 ] VB6付属のMSDNライブラリのVBのLogの項目で Static Function Log10(X) Log10 = Log(X) / Log(10#) End Function ってあったんだけど、これってStaticつけられてるけど何か意味があるの？ 713 名前：デフォルトの名無しさん mailto:sage [2010/04/28(水) 12:07:17 ] 実行速度が遅くなる以外は違いがない気がするな 714 名前：デフォルトの名無しさん mailto:sage [2010/04/28(水) 13:22:42 ] インスタンス無くてもアクセスできる 715 名前：デフォルトの名無しさん mailto:sage [2010/04/28(水) 14:01:46 ] なぜインスタンスが？ 716 名前：デフォルトの名無しさん mailto:sage [2010/04/28(水) 14:16:03 ] C++とは意味が違う 717 名前：デフォルトの名無しさん [2010/04/28(水) 19:20:06 ] Property Let　とか Property Set は斬新だった 718 名前：デフォルトの名無しさん mailto:sage [2010/04/29(木) 09:35:43 ] b() = Inet1.OpenURL(strURL, icByteArray) でバイト配列にデータを格納したら そのあとは どんなプログラムを書けばハードディスクに記憶できるのか 719 名前：デフォルトの名無しさん mailto:sage [2010/04/29(木) 10:30:15 ] ファイルを作って書き込めばいい。 720 名前：デフォルトの名無しさん [2010/04/29(木) 11:18:24 ] >>718 b = Inet1.OpenURL(strURL, icByteArray) fn=FreeFile() Open "File.txt" For Binary As #fn Put #fn, , b Close #fn 721 名前：デフォルトの名無しさん mailto:sage [2010/04/29(木) 11:32:29 ] ｻﾝｸｽ 722 名前：デフォルトの名無しさん mailto:sage [2010/04/30(金) 01:06:10 ] またVB厨か el.jibun.atmarkit.co.jp/minagawa/2010/04/post-ebc4.html 723 名前：デフォルトの名無しさん [2010/04/30(金) 02:19:34 ] >>720 この方法のヤバさと言ったら File.txtが既に存在していて 書き込むbのサイズよりファイルサイズが大きい場合だよね 超ヤバイ 724 名前：デフォルトの名無しさん mailto:sage [2010/04/30(金) 05:57:50 ] なにが? 725 名前：デフォルトの名無しさん mailto:sage [2010/04/30(金) 09:58:29 ] 引き出したい言葉を普通に質問すればいいのに 726 名前：デフォルトの名無しさん mailto:sage [2010/04/30(金) 15:25:44 ] >>723 サンプルにエラー処理の事でつっこむとかバカなの？ 727 名前：デフォルトの名無しさん mailto:sage [2010/04/30(金) 15:27:14 ] >>722 60年代前半生まれだしな つうかSAPて言語・・・なのか？ｗ 728 名前：デフォルトの名無しさん [2010/04/30(金) 17:33:14 ] >>726 エラー？ 729 名前：デフォルトの名無しさん [2010/05/04(火) 00:24:00 ] つい最近、Trueの値が-1である理由に気づいた。 もう１０年以上（まぁかなりの素人ではあるけれど）プログラミングに触れてきてるのにね。 ２の補数のビットで表現してたって本当つい３日前に気づいた Falseがビットが全部０に対してTrueはビットが全部１ ビットが全部１だと２の補数だと-1になるという・・・ ずっと昔から、何で1じゃなく-1なんだろうと思ってた・・・その疑問がやっと解決した・・・ 730 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 00:39:23 ] 全部0とそれ以外 それだけだと思うんだ 731 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 00:43:18 ] Debug.Print "True="; CInt(True) ' -1 Debug.Print "False="; CInt(False) '0 732 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 00:44:56 ] CBool(1)　さて・・・どっち？ 733 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 00:46:46 ] 誰もそんな話してないけどな。 734 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 00:46:47 ] Dim a,b a=10 b=20 Debug.Print CInt(a < b) 735 名前：デフォルトの名無しさん mailto:sage [2010/05/04(火) 12:02:02 ] 宇宙線の影響を考えると１ビット反転でコンピュータ障害がおきかねないな 736 名前：デフォルトの名無しさん [2010/05/04(火) 23:28:37 ] 原因不明のエラーはWindowsMeのせいじゃなくて、宇宙線のせいだったんだな。それなら仕方ないな。 737 名前：デフォルトの名無しさん mailto:sage [2010/05/05(水) 00:40:56 ] ageてまで言うような事なのか? 738 名前：デフォルトの名無しさん mailto:sage [2010/05/05(水) 01:01:06 ] そこはスルーしとけ

---

---

[ 続きを読む ] / [ 携帯版 ]

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