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

1 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:33:37 ] ここは 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/ ※「まず自分で調べる」クセを身につけよう。 2 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:34:50 ] 過去ログ 　　Part 1 piza2.2ch.net/tech/kako/968/968328471.html 　　Part 2 piza2.2ch.net/tech/kako/990/990793224.html 　　Part 3 piza2.2ch.net/tech/kako/1000/10005/1000523122.html 　　Part 4 pc.2ch.net/tech/kako/1006/10069/1006922992.html 　　Part 5 pc.2ch.net/tech/kako/1010/10106/1010624646.html 　　Part 6 pc.2ch.net/tech/kako/1013/10138/1013844542.html 　　Part 7 pc.2ch.net/tech/kako/1015/10158/1015836357.html 　　Part 8 pc.2ch.net/tech/kako/1018/10187/1018794901.html 　　Part 9 pc.2ch.net/tech/kako/1020/10208/1020830472.html 　　Part10 pc.2ch.net/tech/kako/1022/10221/1022127528.html 　　Part11 pc.2ch.net/tech/kako/1024/10243/1024380249.html 　　Part12 pc3.2ch.net/tech/kako/1026/10266/1026642565.html 　　Part13 pc3.2ch.net/tech/kako/1029/10292/1029241786.html 　　Part14 pc3.2ch.net/tech/kako/1030/10309/1030947162.html 　　Part15 pc3.2ch.net/tech/kako/1032/10327/1032706491.html 3 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:37:29 ] 　　Part16 pc3.2ch.net/tech/kako/1034/10343/1034302532.html 　　Part17 pc3.2ch.net/tech/kako/1036/10361/1036154952.html 　　Part18 pc3.2ch.net/tech/kako/1038/10381/1038103769.html 　　Part19 pc3.2ch.net/tech/kako/1039/10398/1039859691.html 　　Part20 pc5.2ch.net/tech/kako/1041/10418/1041879465.html 　　Part21 pc5.2ch.net/tech/kako/1044/10440/1044028945.html 　　Part22 pc5.2ch.net/tech/kako/1046/10463/1046354784.html 　　Part23 pc5.2ch.net/tech/kako/1047/10477/1047743187.html 　　Part24 pc5.2ch.net/tech/kako/1050/10501/1050151126.html 　　Part25 pc5.2ch.net/tech/kako/1052/10526/1052627913.html 　　Part26 pc5.2ch.net/tech/kako/1055/10551/1055145106.html 　　Part27 pc5.2ch.net/tech/kako/1058/10586/1058674927.html 　　Part28 pc5.2ch.net/tech/kako/1061/10612/1061296197.html 　　Part29 pc5.2ch.net/tech/kako/1065/10654/1065446334.html 　　Part30 pc5.2ch.net/test/read.cgi/tech/1069160036/ 4 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:38:36 ] 　　Part31 pc5.2ch.net/test/read.cgi/tech/1073732636/ 　　Part32 pc5.2ch.net/test/read.cgi/tech/1077216109/ 　　Part33 pc5.2ch.net/test/read.cgi/tech/1080606445/ 　　Part34 pc5.2ch.net/test/read.cgi/tech/1084544243/ 　　Part35 pc5.2ch.net/test/read.cgi/tech/1087519251/ 　　Part36 pc5.2ch.net/test/read.cgi/tech/1092906058/ 　　Part37 pc5.2ch.net/test/read.cgi/tech/1090286450/ 　　Part38 pc5.2ch.net/test/read.cgi/tech/1095673000/ 　　Part39 pc5.2ch.net/test/read.cgi/tech/1099737063/ 　　Part40 pc5.2ch.net/test/read.cgi/tech/1106748775/ 　　Part41 pc8.2ch.net/test/read.cgi/tech/1112414085/ 　　Part42 pc8.2ch.net/test/read.cgi/tech/1116924129/ 　　Part43 pc8.2ch.net/test/read.cgi/tech/1123952677/ 　　Part44 pc8.2ch.net/test/read.cgi/tech/1130231657/ 　　Part45 pc8.2ch.net/test/read.cgi/tech/1133977286/ 5 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:39:21 ] 　　Part46 pc8.2ch.net/test/read.cgi/tech/1138975113/ 　　Part47 pc8.2ch.net/test/read.cgi/tech/1141320612/ 　　Part48 pc8.2ch.net/test/read.cgi/tech/1146678926/ 　　Part49 pc8.2ch.net/test/read.cgi/tech/1152667953/ 　　Part50 pc10.2ch.net/test/read.cgi/tech/1161517193/ 　　Part51 pc11.2ch.net/test/read.cgi/tech/1169949451/ 6 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:46:14 ] オマンコ！！！！ 7 名前：デフォルトの名無しさん [2007/05/19(土) 18:44:21 ] フレキシブルグリッドでセルを結合したときなのですが、 セルを列で結合して表示したときにクリックイベントを取ると、 クリックした場所によってインデックス番号が変わってしまいます。 結合している列の一番上のインデックスを常に取得したいのですが どうすればよいでしょうか？ ＿　　　　　___ 1 1 これが　1 __ ___ わかりにくい図で申し訳ありませんが、よろしくお願い致します。 8 名前：デフォルトの名無しさん [2007/05/19(土) 21:08:02 ] 以下のようなツールを作成してます。 �@Linux上のgz形式で圧縮されたファイルをWindowsPCにDL �ADLしたファイルをTAR32で解凍 �B解凍したファイル（カンマ区切りの.csv）から条件に合う行をテキストファイル（.txt）に保存 �Aまではできたのですが�Bで悩み中です。 ・解凍したファイルがUTF-8のため文字化けする ・OpenしてLine inputで読み込むと全行（約2万行）を読み込んでしまい処理が重い。 コード変換すればいいと思うのですが、 その書き方がわからないので教えていただきたいです。 宜しくお願いします。 9 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 03:13:00 ] >>前スレ983 無事うまく取得することができました。 ActiveCodePane から分割や上下を区別する方法が全く思いつきませんでした。 正直、なぜ取得できているのか理解しきれていないのですが、テストした限り 問題ありませんでした。 1点だけ、コードウィンドウを1つも開いていない場合は ActiveCodePane が Nothing となるので、VBE_CODEPAIN にコードウィンドウを1つも開いていない意味の CODEPAIN_NOTHING を追加しました。 本当にもうほとんど諦めだったので、感謝です。ありがとうございました。 10 名前：デフォルトの名無しさん mailto:sage [2007/05/20(日) 06:55:09 ] >>9 CodePanes コレクションの並び順が常に Top → Bottom の順で格納されてるんじゃないかと期待して書いてみただけｗ 同じコードウィンドウに属するCodePainの判定は、親が同じ VBComponent かどうかを見れば出来ると考えた あとは CodePanes の中から ActiveCodePain が見つかるのが先か、VBComponent だけが同じものが見つかるのが先かを試せばいいってわけ 11 名前：デフォルトの名無しさん [2007/05/21(月) 10:03:42 ] 環境：ＶＢ４．０ １６ビット ＯＳ：ＷＩＮＸＰ ＤＩＲ関数にロングファイル名を使うとエラー７５になるんだけど、正常終了するようにできませんか？ もしくは８．３形式に変換する方法とか… 12 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 12:10:45 ] XPって16ビットの動作ってできたっけ？ 互換モードで動く？ XPでVB4の開発はしないほうが良いと思う 関数の先頭に on error goto xxx 関数の最後に xxx: を作って何か処理入れれば良いと思う 脳内VB6なんで動くかどうかわからんけど 13 名前：11 mailto:sage [2007/05/21(月) 13:17:18 ] >>12 一応動いてます。巨大なシステムの一部なんで変えるわけにもいきません。 エラートラップで回避しても本来そのパスは正しいので…。 もう対応不可にしたほうがよさげな気がしてきました 14 名前：デフォルトの名無しさん [2007/05/21(月) 13:59:40 ] ショートファイル名に変換して扱う事は出来ないのかい？ 15 名前：11 [2007/05/21(月) 14:04:52 ] ショートファイル名にどうやって変換できますか？ karnel32は使えませんし… 16 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 15:16:05 ] >>15 VBで出来るかどうかは知らないが、サンクというものがある。 www.google.co.jp/search?hl=ja&q=%E3%82%B5%E3%83%B3%E3%82%AF+16bit%E3%81%8B%E3%82%8932bit&lr= 17 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 15:16:17 ] >>15 つ【GetShortPathNameA】 #kernel32が使えないXPってどんなのだよ 18 名前：デフォルトの名無しさん [2007/05/21(月) 15:17:40 ] GetShortPathName って16BIT時代になかったっけか？ 19 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 15:30:44 ] FileSystemObjectが使えるだろ？ 20 名前：11 mailto:sage [2007/05/21(月) 16:27:23 ] GetShortPathNameをVB4(16bit)で使用できないんです。 Thunk使えばできそうな気がしますがすごく大変そうです… FileSystemObjectはクライアントのＯＳが95だったりするんで使いたいけど使えないんです こんなシステムぶっこわしてぇ… 21 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 16:38:25 ] 面倒ならショートファイル名を返すだけの32bitプログラムでも使えば 遅そうだが 22 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 16:51:59 ] 長ったらしいが、死ぬほど大変そうには思えない。 ttp://jet.breeze.jp/program/win16/thunk.htm 23 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 18:06:49 ] >>8 つADODB.Stream 24 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 19:57:07 ] 前スレでVBには構造体は無いと言ったのに、相変わらず構造体 と言ってたな。 VBプログラマは学習能力が無いのか。 25 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 20:25:30 ] 本当に下らない質問なのだろうと予想していますが、どうか教えてください。 普段2005で学習しているのですが、6.0環境でESCを押した時に [ Textbox1.text = ""　]この動作をさせたいのですが どのように記述したらいいのでしょうか？ キーを押した時 if エスケープキーだったら then [ Text1.text = ""　]　 end if ではどうにもならず。 26 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 20:51:45 ] >>24 ここは雑談スレではないのに相変わらずスレ違いのカキコするんだな VBプログラマは知らんが、少なくとも24は学習能力が無いのは確かだｗ >>25 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then Text1.Text = "" End If End Sub ただし、同じフォーム上にCancelプロパティがTrueのCommandButtonがあるとイベントが発生しない 27 名前：25 mailto:sage [2007/05/21(月) 20:57:14 ] >>26 Cancelプロパティについて読んできました。 ESCキーはこんなところでも使われていたのですね。勉強になりました。 質問する前に別のキーに割り当てて試して見ればお手を煩わせなかったのかと思うと 赤面する思いです。 ありがとうございました。 28 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 21:01:52 ] >>26 VBに無い構造体を語るのがスレ違いのカキコだ。 そんなこともわからないお前は学習能力無しだな。 29 名前：デフォルトの名無しさん mailto:sage [2007/05/21(月) 21:33:06 ] >>20 >クライアントのＯＳが95 あなた>>11で「ＯＳ：ＷＩＮＸＰ」って書いてるでしょ 回答してくれてる人に失礼よ？ >>28 はいはい。良かったね。もう帰っていいよ。 30 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 00:22:30 ] >>20 jet.breeze.jp/program/tips/comp_lfn.htm 31 名前：デフォルトの名無しさん mailto:sage [2007/05/22(火) 18:30:54 ] 開発環境がXPで 動作環境が95で アプリがVB4の16ビットなんだよね？ それでXPで開発してて（XPで）パスが取得できない ってこと？ XPではパス取得できないけど95では取得できるのでは？ それは試した？ 32 名前：デフォルトの名無しさん [2007/05/22(火) 22:33:57 ] VB6.0 SP6の環境で、レコードセットで、postgresのDBテーブルのbool型を取得した時に、 同じレコードのカラムにアクセスしているにもかかわらず、返ってくる値が1だったり0だったりまちまちです plsqlでレコード確認すると'f'か't'かできちんと格納されています。 VBで取得するときは、なにか加工が必要なのでしょうか？ スレ違いかもしれませんが、よろしくお願い致します。 33 名前：デフォルトの名無しさん [2007/05/23(水) 09:12:35 ] むしろそれをBooleanに格納してどうなっているんだ？ 毎回Bool型に格納して結果が違うのか？ １とか０とかではんだんしないほうがいい 34 名前：32 [2007/05/23(水) 22:41:39 ] 初回取得時にmovefirstしてたのが原因でした 原因はわかりましたが、理由は不明です 35 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 12:26:46 ] >>34 ODBCドライバの不具合かもしれません。 ポスグレスレで聞いた方がいいでしょう。 あちらで聞くときはちゃんと環境を書いてね。 36 名前：デフォルトの名無しさん [2007/05/24(木) 16:20:44 ] [ファイルを開く]ダイアログ・ボックスを表示するプログラムはどうすればいいんでしょうか？ コモン・ダイアログ・コントロールを使わずにプログラムだけで処理をしたいのですが、 解説がされてるＨＰでもあれば教えてください。 37 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 16:34:33 ] >>36 速攻出てきたけど。 もっとググレカス ttp://www.bcap.co.jp/hanafusa/VBHLP/Fileopen.htm 38 名前：デフォルトの名無しさん [2007/05/24(木) 16:37:19 ] >>37 すんません ありがとうございます 39 名前：yo1 [2007/05/24(木) 16:40:48 ] RS232CのDS信号を制御したいのですが、可能でしょうか。 可能ならば、その方法を教えて頂けないでしょうか。 よろしくおねがいします。 40 名前：yo1 [2007/05/24(木) 16:44:13 ] SD信号の間違いでした。 よろしくおねがいします。 41 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 16:59:54 ] 自在にON/OFFはできませんよ 42 名前：yo1 [2007/05/24(木) 17:19:47 ] >>41 そうですか残念です。 ありがとうございました。 43 名前：デフォルトの名無しさん [2007/05/24(木) 18:33:15 ] 810から805を 810-805と表記してある文があります。 810-805を 810.809.808.807.806.805に分けるには どのような構文が考えられますか？ 44 名前：デフォルトの名無しさん [2007/05/24(木) 18:47:06 ] 続けてすみません 先ほどの追加になるのですが 部屋番号が815.812.810-805.801のように入力されていた場合 部屋の数を数える方法があれば教えてください。 45 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 19:35:06 ] エレベーターで8階に上がって一部屋づつ数えればいいと思うよ 46 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 19:55:26 ] >>44 815.812.810-805.801 これで部屋数いくつなの？ っていうのが頭でわかればそれをプログラムにするだけだと思うヨ 47 名前：デフォルトの名無しさん [2007/05/24(木) 20:01:50 ] >>43 色々方法はあるし、どういう感じなのかは分からないけど、 815.812.810-805.801がText1に入ってるとするね。 Dim str As String Dim s() As String str=Text1.Text s=split(str,".") これで配列Sには(815)(812)(810-805)(801)が入る。 それで配列を一つずつ"-"が入ってないかを調べて、入っていたら、 "-"で文を分解して…あとは考えて。 これが分からないと…VBはまだ早いのでは？ 48 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 22:26:41 ] >>37 おまえツンデレさんだろ？ｗ 49 名前：デフォルトの名無しさん mailto:sage [2007/05/24(木) 22:29:07 ] 810-805 これは同じ階だけだと仮定すっと 810-805 +1 だわなぁ・・・ しかしなんという素人作成部屋管理システム・・・ 50 名前：43 [2007/05/24(木) 22:57:12 ] ありがとうございました 51 名前：37 mailto:sage [2007/05/25(金) 00:57:02 ] >>48 何よ、簡単に見つかるじゃない もっとちゃんと調べなさいよ ありがとうって、な…なによっ あんたのためなんかじゃないんだからね！ 52 名前：デフォルトの名無しさん [2007/05/25(金) 18:49:42 ] エクセルの項目をＶＢに取り込みたいのですが 参考程度になるHPはありますでしょうか？ 53 名前：デフォルトの名無しさん [2007/05/25(金) 18:58:21 ] ググれば相当見つかる 54 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 09:29:55 ] エクセルがインストールされていない環境でも使えるようにするのは面倒だがね 55 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 11:59:06 ] >>54 俺その方法知らないんで良かったら・・・・ 56 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 13:30:20 ] Excelを買ってもらえるよう説得する これが面倒 57 名前：デフォルトの名無しさん [2007/05/26(土) 22:43:59 ] DTPickerを二つ使って入力した日付の大小を比較したいのですが、 VBで日付の大小を比較するにはどうすればよいのでしょうか？ If DateValue(DTPicker(0).Value) > DateValue(DTPicker(1).Value) Then のように比較しても値が上手く判定できません。 よろしくお願いします。 58 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 23:20:08 ] いったん1970年からの秒数に直して比較。 ただし2038年を過ぎるとバグる。 59 名前：デフォルトの名無しさん mailto:sage [2007/05/26(土) 23:28:08 ] タイムシリアル化、といいたいんだろうけど そんな小細工しなくても、ベタにやったって大した労力でもないだろう。 年、月、日（必要ならさらに時間、分、秒）と順に比較するだけじゃないか。 60 名前：デフォルトの名無しさん mailto:sage [2007/05/27(日) 01:29:13 ] 今現在日本はクリックで世界と戦っています。 日本は現在１位ですが、２位のハンガリーに詰められています。 どうやらハンガリーにはとてつもない、日本の技術の先を行くツールがあるのかもしれない。 　 そこで日本も新兵器を作ろうと思っています。 それには、皆さんの力が必要不可欠です。期限は２日、今月の３０日にゲームは終了します。 　 皆さん、お願いします。 　 【日本VSハンガリー】一番クリックした国が優勝click80【超接戦】 wwwww.2ch.net/test/read.cgi/news4vip/1180180150/ ひたすらクリック www.clickclickclick.com/default.asp まとめサイト www33.atwiki.jp/clickvip/ 61 名前：デフォルトの名無しさん mailto:sage [2007/05/27(日) 01:39:52 ] コピペ君って馬鹿だな、まで読んだ。 62 名前：デフォルトの名無しさん mailto:sage [2007/05/27(日) 10:29:29 ] >>57 format$(Time1, "yyyymmddhhnnss")>format$(Time2, "yyyymmddhhnnss") 63 名前：デフォルトの名無しさん [2007/05/28(月) 10:58:21 ] ファイル名の取得に関する質問です strFileName = Left$(tOpenFileName.lpstrFile, InStr(tOpenFileName.lpstrFile, vbNullChar) - 1) これでファイルの全体の名前は取得できますが、 ファイル名のみを取得する場合はどうしたらよいででしょうか？ 64 名前：デフォルトの名無しさん [2007/05/28(月) 11:41:44 ] 素直にFilesystemObjectつかったほうがらくだと思うぞ？ ファイル名を取りたいなら一番右にあるパス区切り文字から右の文字取ればいいだけだろ VB6ならInStrのリバースつかって最初にパス区切り文字が見付けられるし 65 名前：デフォルトの名無しさん mailto:sage [2007/05/28(月) 16:24:21 ] コントロール配列の要素への参照をWithEventsに格納できない不具合に今更はまった ドキュメントに記載されない糞仕様が他にもどれだけある事やら 66 名前：デフォルトの名無しさん [2007/05/30(水) 07:17:35 ] capicomっていう暗号化のdllについて質問です。 VBSで使おうと思っています。 暗号方式AES128bitを指定して、パスワードを指定することができる ことは確認しました。 ブロックモードをCBCにしてIVを指定したいのですが、マニュアルにそれらしき プロパティが見つかりません。 設定方法ご存知でしたら教えてください。 67 名前：デフォルトの名無しさん [2007/05/30(水) 18:43:59 ] ExcelのデータをFlexGridに読込みたいのですが、 Excelのデータは毎回変わり、何件あるのかは不定です。 Excelのデータの数に合わせて、グリッドの数も増やしたいのですが、 一度Excelのデータを全て読込み→ データの数を数える→ グリッドの数を調整する→ データを読込み→ Excelからグリッドへデータ入力 といった形しかないのでしょうか？ できれば Excelのデータを1件読み→ グリッドを1件増やしデータ入力→ 繰り返し といった形にしたいのですが不可能でしょうか？ 68 名前：デフォルトの名無しさん [2007/05/30(水) 19:08:03 ] >>67 後者では行列を変更する回数が増えるのでパフォーマンスが悪くなると思う 前者の方法で大方いいと思うけど × 一度Excelのデータを全て読込み→ データの数を数える→ グリッドの数を調整する→ データを読込み→ Excelからグリッドへデータ入力 ○ 一度Excelのデータを全て読込み、変数や、配列・コレクションに保持→ データの数を数える→ グリッドの数を調整する→ 保持したデータからグリッドへデータ入力 これではダメかな？ 69 名前：デフォルトの名無しさん [2007/05/30(水) 23:05:19 ] >>65 クラスが書けない糞プログラマー乙。 70 名前：デフォルトの名無しさん [2007/05/31(木) 00:21:00 ] VB6 SP6のＭＳフレキシブルグリッドで、ドラッグアンドドロップで セルの内容を移動させたいのですが、実現方法がわかりません。 どうすればよいか、ご教授お願い致します。 71 名前：デフォルトの名無しさん [2007/05/31(木) 00:31:46 ] >>69 循環参照になるのが気持ち悪いけど デコレータクラスにコントロールの参照を持たせたて フォームから冗長なコードを省きたかったんだが ユーザーコントロールで似たような事ができるけど異なるプロジェクト間でのカット&ペーストに無駄手間がかかるから避けたい 72 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 06:58:05 ] VB5.0でサーバーが複数のクライアントから接続要求された時新たなWinsockを生成する方法がわかりません 1.管理テーブルから未接続の場所を探す 2.→未接続の場所をiに設定 Load Winsock2(i) Winsock2(i).Accept rewuestID 3.管理テーブルの接続の場所にtrueを入れる 1　2　3　教えてください 73 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 07:12:42 ] >>72 とりあえずwinsockコントロールのバグな support.microsoft.com/kb/171843/ja で、質問(?)の方だけど 教えるも何も自分で納得してる日本語だと思うんだが、何か疑問に思うところがあるのか？ 74 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 07:17:57 ] >>73 すいません1.2.3.の言葉をどうプログラムにすればいいかわからないんです 75 名前：デフォルトの名無しさん [2007/05/31(木) 08:59:42 ] >>68 ありがとうございます 76 名前：デフォルトの名無しさん mailto:sage [2007/05/31(木) 09:34:51 ] >>73 こんなバグあったんかー！！ どおりで・・・。orz 77 名前：デフォルトの名無しさん [2007/05/31(木) 11:01:39 ] >>74 全部じゃねーかwwwwww ところで　それを管理テーブル抜きにして固定の２つ，３つほどのクライアントとのやり取りで実装は出来るの？ まずはそこから攻めていかなきゃいけないと思うんだけど 78 名前：nobodyさん [2007/06/01(金) 13:12:26 ] 久しぶりにVBでプログラムを組んでるのですが DATAGridに標準でソート機能ってありませんでしたっけ？ HSHFLEXでしたっけ？ みなさんどうやってソート機能つけてます？ ご存知のかたいたらご教授願います。 79 名前：デフォルトの名無しさん mailto:sage [2007/06/01(金) 14:20:34 ] ソートはな無いんじゃね？ 連結元のrecordsetでソートしてやりゃおｋ 80 名前：nobodyさん [2007/06/01(金) 15:58:06 ] 昇降ボタン(Command)をつけてそこから、、DataGridいじるしかないですかね。 要するに、各列ごとにデータをソートしたいだけなんです。 webでいうとヤフーオークションみたいなイメージ。 81 名前：デフォルトの名無しさん [2007/06/01(金) 16:29:13 ] ヘタにVBでソートするよりDBから指定されたカラムでソートしなおしたものをRSに取り込むのが早そうだな・・・ いや、ケースバイケースだけど　大量のデータならその方が早そうなきがする と横槍 82 名前：nobodyさん [2007/06/01(金) 18:09:16 ] 結局▲▼のコマンドボタンつけてDBからソートしてもってきて GRID表示させました。 どうもありがとん！ 83 名前：デフォルトの名無しさん [2007/06/02(土) 16:29:35 ] 6.0にてマルチディスプレイ環境の 片方のディスプレイを使用不可にしたい （画面のプロパティ→設定→windowsデスクトップをこのモニタ上で移動できるようにする（チェックをはずす）の操作） のですが、可能でしょうか？ 84 名前：デフォルトの名無しさん mailto:sage [2007/06/03(日) 11:51:56 ] APIでそんなのあったっけ？ APIにあればいけるさ 85 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 21:54:06 ] ちょっと調べ物があって、古い参考書開いたら、 ランダムファイル処理のサンプル画面で、 「ZARD 永遠 5:13」 って出てきた。 歌手・曲名・演奏時間を１レコードとして扱う例だった。 少しせつなくなった。 86 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:21:21 ] visual basic 6.0でリストボックスに表示されている数値をクリックして選択したものだけの最大値を調べるプログラムを作りたいのですが全く方法がわかりません。 誰か教えて下さい。 87 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:37:35 ] >>86 リストボックスの1つだけを選択してその値をとることができるようにしてみよう まずはそれからだ 88 名前：８６ mailto:sage [2007/06/04(月) 22:51:21 ] Private Sub List1_Click() Dim i As Double 　　List2.Clear For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) End If Next i End Sub こんな感じでList2に加えていく事はできるんですけど、何か別の配列みたいなのに格納していきたいのですが… 89 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 22:54:24 ] 86に便乗する形で質問したいのですがよろしいでしょうか？ 86と似たようなプログラムを作っているのですが、listboxの要素を関数に渡す方法がわかりません。 選択した物を合計する等は作れたのですが、これを関数を用いて作れとお達しを受けまして。 とりあえずAverage(1,2,3)で２が出てくるような関数は作れたのですが、どうすればlistboxの中の不定数の要素を関数に引き渡すのかがわかりません。 このような質問の仕方で伝わるものかとも思いますが、先輩方の御知恵を拝借したく… どうぞよろしくおねがいします。 90 名前：８６ mailto:sage [2007/06/04(月) 22:57:04 ] >>89 ああ私もそんな感じの物が作りたいんです。要素数が不定だからできないんですよね。 91 名前：89 mailto:sage [2007/06/04(月) 23:01:03 ] >>90 配列変数を宣言してlistboxの値をloopで回して格納していって、それを直接関数に渡せばいけるんじゃ？ とかも考えましたがうまく動かず。 それ以前に配列に要素を足す方法すら合ってるのかが謎で。 私ごときにはお手上げです。 92 名前：８６ mailto:sage [2007/06/04(月) 23:44:43 ] >>91 > 配列変数を宣言してlistboxの値をloopで回して格納していって、それを直接関数に渡せばいけるんじゃ？ > とかも考えましたがうまく動かず。 ちなみにそれはどんな文ですか？ 93 名前：デフォルトの名無しさん [2007/06/05(火) 00:33:11 ] 94 名前：デフォルトの名無しさん [2007/06/05(火) 01:02:26 ] VB6はあまり配列が上手でないというか、使いやすいものではないと聞いたけど…。 選択した数値を文字列に変換して、カンマで区切って、最後にSplit関数で 配列にして、その関数に配列を渡して計算させるとか？ 95 名前：デフォルトの名無しさん [2007/06/05(火) 01:15:20 ] Collectionを使えばいいと思うけど…。 リストボックスの中は数値で、選択したものを配列（コレクション）に入れて 例えば、合計とかさせればいいんでしょ？ 96 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 01:26:21 ] 94と95は、どっちが86、89なんだ？ 97 名前：８６ [2007/06/05(火) 06:16:22 ] どっちも私ではありません 98 名前：８６ mailto:sage [2007/06/05(火) 06:46:27 ] というか6.0ではCollectionどうやってつかうのかいまいち分からないんですけど 99 名前：デフォルトの名無しさん [2007/06/05(火) 08:48:32 ] >>88 動的配列変数を宣言して、 ループの直前かもしくは中でReDim使って要素数足してけばおｋ 100 名前：デフォルトの名無しさん [2007/06/05(火) 09:38:09 ] リストの選択要素の合計を求めるのだったらこんな感じかな？ 横槍だけど。 Private Sub Command2_Click() Dim a As Integer　 Dim b() As Integer　'配列 Dim c As Integer　　'要素数 Dim sum As Integer　 For a = 0 To List1.ListCount - 1 　If List1.Selected(a) = True Then 　ReDim Preserve b(c) 　b(c) = List1.List(a) 　c = c + 1 　End If Next sum = SumCalc(b)　’配列を渡して要素数の合計を返す End Sub Private Function SumCalc(ByRef b() As Integer) As Integer Dim f As Integer Dim sum As Integer For f = 0 To UBound(b) 　sum = sum + b(f) Next SumCalc = sum End Function

---

---

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

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