VBプログラマ質問スレ（Ver.6.0 まで） part57

1 名前：デフォルトの名無しさん mailto:sage [2011/04/30(土) 01:50:27.76 ] ここは 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/ ※「まず自分で調べる」クセを身につけよう。 148 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 22:01:47.41 ] ここでいいんかな・・・？ imdate(inputManのやつ)で日付を取ってそれに+1日したいんだが どうしたらいいんでしょうか。 Date　+　1に出来たらいいかなと思ったんだが imdate.Numberで数字で取得するからなんともいかんのかな？ 149 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:24:54.45 ] VBのバージョンを言え 150 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:25:57.17 ] inputManだったらinputManのヘルプみればいいんじゃないか？ 151 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:27:30.00 ] ｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘ ｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘ InputMan 152 名前：148 mailto:sage [2011/06/09(木) 23:35:56.07 ] すいません6.0です。 153 名前：デフォルトの名無しさん [2011/06/11(土) 00:08:05.03 ] 偉そうにVBのバージョンを言え！ だって VBのバージョンなんか関係ないのに その１行しか言えないレベルの奴なんだ 154 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 09:44:32.95 ] ４行も内容のないこと書いてるやつよりましじゃね？ 155 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 14:01:36.47 ] で、バージョン聞いといてそれで終わり？ 大抵関係ない情報聞くやつは 使いものにならないんだよねｗ 156 名前：デフォルトの名無しさん [2011/06/11(土) 17:48:24.37 ] 俺だったら「VBのバージョンは？」って優しく聞く それを「VBのバージョンを言え」と字数多くしてまで乱暴に言うのは まさに超初心者ならではの頭の悪さ で、imdate.Numberが日付型ならDateAdd、文字ならCDateしてから 157 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 19:38:30.77 ] > 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 > 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 というのがルールなんだから､質問内容がバージョン関係有る無しに関わらず まずは郷に入っては郷に従えってだけのことだろ 158 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 19:55:06.35 ] もう黙れば？ 159 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 21:31:12.16 ] .NETの質問の可能性もあるやろ 160 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:13:06.76 ] まあ、スレタイちゃんと読んでりゃ .NET はないはずだが、 バージョンも書かないような奴は >>1 もろくろく読んでな いような奴だから、スレタイも読んでない可能性高いかもね。 て言うか、質問者は後出しながらバージョン答えてるし、 >>153 は一体なにと戦ってるんだ？ 161 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:17:29.22 ] 命令口調ｸﾝ 162 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:23:01.63 ] ところで>>149は必要だったのかい？ いらないよね。赤っ恥かかされたからって、必死こいて戦うことないよね。 163 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:31:29.55 ] .NETの質問の可能性もあるやろ！（ｷﾘｯ 164 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 05:18:06.48 ] >>162 顔真っ赤にして､そんなに悔しかったの？ 165 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 09:48:19.38 ] >>164 敗北宣言乙 166 名前：デフォルトの名無しさん [2011/06/12(日) 09:49:17.07 ] ウェブサイト作成協力して頂けませんか？ jpcity.lolipop.jp/phpBBq/viewtopic.php?f=29&t=957#p1595 167 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:03:10.15 ] >>165 一人相撲で勝利宣言？ 168 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:41:59.64 ] 　発　者　同　　　　　　　　 .　｡_　　 ____　　　　　　　　　　 争 　生　同　.じ　　　　 .　　　　/´ |　 (ゝ___)　　　　　　　　　　い 　.し　士　.レ　　　　　　.__／'r-┴<ゝi,,ノ　 　ro､　　　　　　は、 　.な　で　.ベ　　　 　 ∠ゝ　(ゝ.／/｀　　 ./｀|　 }⌒j　　　　　 　.い　し　.ル　　　　　 　　} ⌒ ／｀ヽ､_∠l,ノ　・ヽ´ 　.! !　か　の　　　　　　 /　　´..:.} ＞､､___,　 .r､ ｿ､｀＼ 　　　　　　　　　　　　　/　　　..:.:.}　　　/　　　|∨　｀￣ 　　　　　　　　　　　 ／　　　..:.:./　　　 |　　　丶 　　　　　　　　　　 /　＿､　..:.:.:.{　　　 .{.:.:.　　　＼ 　　　　　　　　　　{　　　..:Y　　.ゝ､　　 {.:.:.:.:.　　　 ヽ 　　　　　　　　　　|､　　..:/　丿　.:〉　　 >.- ⌒ 　. 　ヽ 　　　　　　　　　 / {.　..:./　ｿ　..:./　 .(　　　　..:.:.:｀ 　..:} 　　　　　　　　 ./..:.:}.:.:./ ヘ､ ..:./　　 .＼　..:.:r＿,ノ､.:.:} 　　　　　　　　./..:.:/|.:/　　 {.:./　　　　　X.:.:}.}　　 X X 　　　　　　　 /..:.:/ .}.:| 　　 }:/ 　　　　　　.Y丶ヽ　　Y.:Y 　　.　＿＿／.:／　{　}　　《.〈､　　　　 ＿,,__>.:》丶 　 Y.:＼ 　　／.:.:.:.:.::／　　 !.:.:ゝ　　ゝ.:.￣ヾ　´:.:.:.:.:.:.:.:.:ヾゝ　 　＼.:￣＞ 169 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:46:29.27 ] いや争ってる (と思ってる) のは、１人だから (w 170 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:52:23.61 ] 争いにもなってないよな まったく関係のないバージョンの話なんて聞くような馬鹿だしｗｗｗ 171 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:02:12.26 ] ルールは守ろうねって言われたことが余程気に入らなかったようだな 反抗期なのかもしれないが､そんなんじゃ社会に出てから困ることになるぞ 172 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:10:17.42 ] なぜバージョンを聞いたんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？ 社会人としてのルールとして、そこの所を答えてくれないか？ 173 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:18:56.10 ] 　 　 　　　＿＿＿_ 　 　　　／⌒　　⌒＼ 　　　／（ ●） 　（●）＼ 　 ／::::::⌒（__人__）⌒::::: ＼ 　 |　　　　　|r┬-|　　　　　| 　 ＼ 　　 　 `ー'´ 　 　 ／　このスレ香ばしいNE！ 　　 /｀ ‐-　＿_　- ‐‐ ´ ＼ 　 / .l　　　　　　　　_,,ヽ ___ 〉､ 　 |　l　　　　　　　/ ,' 3　`ヽｰっ 　 ヒﾄ- ＿　　　　l　　 ⊃　⌒_つ .　　 !__　　￣,￣ `'ｰ-┬‐'''''" 　　　L ￣７┘l-─┬┘ 　 　 ﾉ ￣/　　.!￣ ヽ 　　└‐ '´　　　｀　-┘ 174 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:53:03.08 ] >>172 なぜ理由を聞いてるんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？ 175 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:06:46.28 ] そこまで追い詰めるつもりはなかったんだが 鸚鵡返しするような状態になっちゃお終いですね こんな人が社会に出てからとか言ってんだからお笑いです 176 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:34:17.84 ] 一体誰を追い詰めた気になってるんだろう… まあ、本人満足してるみたいだからいいか (w 177 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:38:25.19 ] 総理大臣のようだNE！ 178 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:40:40.77 ] 道化を装う総理ならいいが 近年の人は愚かにしか見えない 179 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 18:39:16.06 ] スレ伸びてると思ったら 質問があったとかそれに対する返事だとかそういうのじゃないので伸びてたのか 残念だ 180 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 18:55:49.70 ] 気づけばもう3日前からずっとこの流れなんだなｗ 181 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 19:10:39.68 ] >>179 同じく。 そもそも、このスレでバージョンは○○ですって書いてる人あんま見ないけどな。 ところで、COM使った開発とか新規でまだやってたりする？ この間.NETじゃないただのASPで動かさなきゃいけない案件があって、 バッチでも使う共通処理があったから、COMで作る事にしたんだが、VB.NET でも簡単にCOM作れるのな。 中身はマネージドだから、VB6.0で作った方が動作は早かったかな。 182 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 19:18:18.05 ] 終わった言語なんだし、ひっそりしていたほうが健全なんだ。 183 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 17:10:31.72 ] 未だに終わった言語で開発させられている俺に謝れｗ 184 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 17:41:27.35 ] フヒヒ 185 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 20:30:45.05 ] なんかwordにＶＢエディタが入ってるんだけど まさかこれってコンパイラＤＬしなくでもＶＢできる？ ＶＢはじめようと思ってんだけど 誰かコレについて教えてくれ 186 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 20:51:09.21 ] それは別物です 187 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 23:10:28.61 ] >>185 まあ VB と似たようなもんだけど、Word がないと動作しないよ。 まずは word vba あたりでググレ。 188 名前：デフォルトの名無しさん mailto:sage [2011/06/14(火) 06:26:34.17 ] みんなツンデレだなぁｗ助かってるけど＾＾ 言い方きっついレスポンスは幼馴染みが 照れ隠しで怒っている感じに変換して 読んでる 189 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 10:20:39.97 ] 質問です。 Set xlBook = xlApp.Workbooks.Open(xlTestFile)で開いた場合 Arrayって使えますか？ 読込んだTextを文字列か標準かを指定してデータをExcelに挿入したいのですが・・ 190 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 11:00:48.32 ] VB6言語すらまともに使えない奴には 日本語での質問もまともに出来ない奴が多い件 191 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 11:19:07.01 ] VB6言語？ 192 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 12:23:24.38 ] WinXP､VB6､SP6です｡ Controls.Addで動的に作成したTextBoxのMultiLineプロパティをTrueにする方法を教えてください｡ 普通にコードで設定しようとすると「値の取得のみ可能なﾌﾟﾛﾊﾟﾃｨに値を設定することはできません。」というエラーが出ます｡ デザイン時にMultiLine=TrueにしたTextBoxをコントロール配列にしてLoadすれば､ MultiLine=TrueのTextBoxを動的に作ること自体は出来るのですが､都合によりコントロール配列ではダメなので｡ 最悪､デフォでMultiLine=TrueなTextBoxをユーザーコントロールとして作って､それをControls.Addで動的に作成するという 手法も考えてますが､もっと簡単な方法があればご教示ください｡ 193 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 14:40:03.68 ] VB6LEじゃActiveX作れんからプラグイン作れないんだな…orz 194 名前：デフォルトの名無しさん [2011/06/17(金) 00:34:45.03 ] >>183 うらやましい 次の言語はなんですか 195 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 03:39:58.92 ] VB6のランタイムライブラリってぶっ壊れることあるんだな 家族の誰かが何かインストールしたらしくその際にVB6ランタイムが上書きされたかで VB6およびVB6製アプリが正常動作しなくなった ベクターにあったVB6ランタイムをインストールしたら直ったけど ウィルス感染かと思ったわ 196 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 08:37:41.49 ] >>195 それは壊れるとは言わない。 古いライブラリに入れ替わっただけ。 そんなのはVB関係ないし、OSだって関係なく 起こり得る話。 197 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 13:07:36.93 ] どうせインストーラ型のVB6製アプリ入れる時にシステムに既に同じのあるけど上書きする？って聞かれて、 「なにこれわかんない。とりあえずはいでいいよね」って選択していったんだろ 198 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 15:32:50.01 ] spの古いランタイムに変わるとVB起動時およびVB製アプリ動作時にmsiとか起動するもんなの？ 199 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:00:17.40 ] 3文字ごとに[,]を打つのに作った↓コレが不具合の原因で OutputBox.Text = Format(CDec(OutputBox.Text), "#,###.##############") '[2.0]で持ってくると 'CDecで文字列を数値にしているので 'ただの[2]として認識されて[2]だけが出力される '[2.03]だとそのまま[2.03]で認識してくれる 別の書き方ってあります？ 200 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:30:29.57 ] OutputBox.Text = FormatNumber(OutputBox.Text) 201 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:33:52.00 ] Oh…小数第二位までしか表示されないけどこんな方法が。 ありがとうございます 202 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:42:38.47 ] MSDN 数値表示書式指定文字 (Format 関数) 数値を表すその他の書式 (Format 関数) 定義済み数値書式 (Format 関数) の項目でも読め 203 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:44:47.98 ] FormatNumberの仕様読んでから使えよ 204 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:47:38.21 ] そもそも質問が意味不明 何を知りたいのかよく分からん 205 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:50:27.71 ] 落ち着いてすぐ質問レスするのではなく 一度文章をメモ帖か何かで整理してから 投稿したほうがよい 206 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 22:02:15.12 ] ここは俺のメモ帳だ 207 名前：デフォルトの名無しさん [2011/06/18(土) 07:13:23.83 ] メモ : 乱数系列を繰り返すには、数値を指定して Randomize ステートメントを 実行する直前に、負の引数を指定して Rnd 関数を呼び出します。 Number に同じ値を指定して Randomize ステートメントを使用しても、 前の乱数系列を繰り返すことはできません。 Rnd -1 Randomize 1234 208 名前：デフォルトの名無しさん mailto:sage [2011/06/18(土) 15:42:55.71 ] >>207　言っている意味がよくわからんちん 'Rnd -1 Randomize 1234 Dim i Debug.Print "Start" For i = 1 To 10 Debug.Print i, Rnd Next i Debug.Print "End" 209 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 09:25:09.86 ] VB6SP6で､ある文字列値がCBoolで変換できる値か否かを調べる関数とかって無いの？ "0"､"1"､"false"とかならTrueを返し ""､"a"､"t"とかならFalseを返すみたいな 今はOn Error Resume NextでCBoolに掛けちゃってるけど､もっと良い方法ある？ 210 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 12:11:39.83 ] 俺様しか使わないような機能が実装されるはずだとかかもしれんとか思うのは軽い病気だと思う。 っていうか、関数の一覧見れば分かるだろ。 VBってもう死亡宣告されて10年経過してる言語だぞ 211 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 12:39:11.53 ] ないなら作ればいいじゃない 212 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 12:59:22.41 ] >>210 >>209 の書き込みから、「実装されるはずだとかかもしれんとか思う」と 読み取れちゃうのはちょっと重い病気だと思う。 適切な病院に行くか、小学校からやり直すべき。 >>209 なんでそんなことする必要があるのか気になるが、「CBool() で変換でき ること」が絶対条件なら On Error にするしかないと思う。 213 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 13:25:14.89 ] >212 馬鹿だろお前。 214 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 13:43:07.32 ] >>212 の書き込みに対して「馬鹿」としか言えない >>213 が ちょっとかわいそうだ。 早い目に、小学校からやり直せよ。(w 215 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 13:46:09.83 ] （お前が）言われなきゃ分からない、の間違いじゃないのかしら。 逆に聞くが、存在するはずが無いと思ってる機能が存在するかどうか人に聞く馬鹿がいるのか。 あるはずとかあるかもしれないと思ってるから聞くんだろうが。 本当馬鹿だろお前。 216 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 14:08:32.40 ] >>215 ないと思ってても、だめ元で聞いてみる奴はいくらでもいるだろ。 小学校に行って、勉強はもとより友達と会話するところからやり直してこい。 217 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 14:15:46.08 ] [だめ元] ⊆ [あるかもしれない] 人に手取り足取り一から十まで全部説明されないと理解できないのは馬鹿の特徴か。 218 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 14:28:58.25 ] >>217 >> 存在するはずが (*無いと思って*) る機能が存在するかどうか人に聞く馬鹿がいるのか。 > ないと思ってても、だめ元で聞いてみる奴はいくらでもいるだろ。 自分の書いたことには責任を持ちましょう。(w 219 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 14:33:26.21 ] 意味不明。 高校の数Iでやるような論理学が理解できないのも馬鹿の特徴の一つだな 220 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 16:06:27.63 ] >>219 日本語が理解できてないクズよりましだけどな。 221 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 16:46:23.41 ] >俺様しか使わないような機能が実装されるはずだとかかもしれんとか思うのは軽い病気 非常に解りにくい日本語なのですが 実装されるはずだと思う、あるいは、実装されてるかもしれんと思う だと解釈しよう 俺が使いたい機能なんだから絶対に実装されてるはずだ、と思うのは病気かもしれんが こんな機能があったらいいな、すでに実装されてないかな？と思うのは病気でもなんでもないと思うが 222 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 16:55:44.86 ] アスペルガーの人は病識がない。 自分を客観的に見られないという自覚が一切ない。 どう考えても一般性がない（そんな機能お前以外誰が必用とするんだってこと） 機能を、普通の人は「すでに実装されてないかな？」なんて思わないんだよ。 絶対に。 そう思うのは病気だから。 まあ病識がない人に自覚しろって言っても無理だろうけどねえ 223 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 17:26:57.93 ] >>222 >アスペルガーの人は病識がない。 >自分を客観的に見られないという自覚が一切ない。 自己紹介乙。 224 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 17:46:17.47 ] つか、>222は ある変数がほかの型に変換可能かどうかチェックする機能 は一般性がないと思うのか 225 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 18:01:11.11 ] 変数って何だよ。 それを言うなら"値"じゃないのか。 そもそも>>209のいうような機能の需要が一般的かどうかの話をしているのであって、 「ある変数がほかの型に変換可能かどうかチェックする機能」の話なんかしてない。 馬鹿じゃないのか。 226 名前：デフォルトの名無しさん [2011/06/19(日) 18:56:17.63 ] >>208 やっぱり分かり難いでしょ Randomizeのヘルプの文章なんだけど ×Number に同じ値を指定して Randomize ステートメントを使用しても、 　前の乱数系列を繰り返すことはできません。 ○Number に同じ値を指定して Randomize ステートメントを使用しただけでは、 　前の乱数系列を繰り返すことはできません。 昔のBASIC知ってる人には何でRandomizeだけで乱数系列初期化してくれないの？と思ってしまう ヘルプも分かり難いけどVBの仕様も変 227 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 18:57:57.97 ] あのね、二人とも。 そんなに喧嘩する程のものでは無いと思うんだ。 CBoolで変換出来るものを判定すればいいだけでしょ？ それってIsNumericでいいんじゃないかと思うんだ。 たしかCboolで変換出来るものって数値型で、0ならFalse、0以外ならTrueだったんじゃないかと思うんだけど。 もっとも、厳密にTrueやFalseを判定したいなら0か-1と言う条件を付け加えることになるけど、 今回はそうじゃなさそうだし。 違ってたらごめんね。 みんな仲良くやるわさ。 228 名前：デフォルトの名無しさん [2011/06/19(日) 19:00:55.40 ] >>208 あ、毎回同じ乱数を発生させたい場合ね 例えばプロシージャ中で３回乱数を使ったとして そのプロシージャを何回実行させても、いつも同じ乱数値を使いたい場合 229 名前：デフォルトの名無しさん [2011/06/19(日) 19:09:41.30 ] >>209 Option Compare Text private function is_bool(byval q$) as boolean Select Case q$ 　　Case "1","0","false","true": is_bool = True 　　Case else: is_bool = False end select end function 230 名前：デフォルトの名無しさん [2011/06/19(日) 19:12:16.34 ] Select Case q$ 　　Case "1","0","false","true": is_bool = True end select 231 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 19:22:02.49 ] Select Case ucase(q$) 　　Case "false","true": is_bool = True 　　Case else: is_bool = IsNumeric(q$) end select 232 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 19:31:44.23 ] あら、TrueやFalseは文字列にするとIsNumericに反応しなくなるのね。 じゃ多分>>231の人が言ってるUCaseのをLCaseにしたのがFAだわさ。 233 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 19:58:20.77 ] >>225 もうそろそろ引っ込んだら？ どう見ても哀れだよ、君。 234 名前：デフォルトの名無しさん mailto:sage [2011/06/19(日) 20:06:36.54 ] またスレが伸びてるから言い争いしてると予想したが、裏切ってくれなかったか。 毎回同じ人が煽ってんのかな。 235 名前：デフォルトの名無しさん mailto:sage [2011/06/20(月) 00:52:07.32 ] >>226,228 もしかしてVB6より前のVB？ >>208のコードをCommand1_Clickにいれて何度か押したけど Rnd -1のある場合の１０個の数字と、ない場合の１０個の数字は違うけれど Rnd -1のあるなし関わらずコマンド何度クリックしても同じ１０個の数字しか出なかった（Randomizeで初期化されてる）けど 236 名前：デフォルトの名無しさん mailto:sage [2011/06/20(月) 09:21:33.52 ] 下記サイトを参考に任意の日付までのシリアル値の計算はできたのですが、 逆にシリアル値からyyyy/mm/dd hh:mm:ssというように変換するにはどのように すればよいのでしょうか？ VB6を使用しています。 よろしくお願いします。 www.happy2-island.com/access/gogo03/capter01001.shtml '---------------------------------------------------------------------- '任意の日時までのシリアル値を求める '---------------------------------------------------------------------- Public Function getTimeB(pNow As Date) As Currency Dim lngTime As Currency 'pNowまでの経過秒数を求める lngTime = DateDiff("s" _ , "1970/1/1 9:0:0" _ , pNow) '1/1000秒部分を求める ':元の値を1000倍する lngTime = lngTime * 1000 ':Timer関数で求めた1/1000秒部分を加える lngTime = lngTime + Fix((CDbl(Timer) - Fix(CDbl(Timer))) * 1000) getTimeB = lngTime End Function 237 名前：デフォルトの名無しさん mailto:sage [2011/06/20(月) 19:58:50.60 ] >>236 MSDNの説明ではDate型の実体はDoubleだとあるから、 ある意味Date型そのものが既にシリアル値であるといえる。 自前でシリアル値に変換する意味がわからない。 238 名前：デフォルトの名無しさん mailto:sage [2011/06/20(月) 22:25:52.66 ] Debug.Print CDbl(Now) Debug.Print CSng(Now) Debug.Print CDec(Now) Debug.Print CLng(Now) Dim v v = Now Debug.Print v Debug.Print CDec(v) 239 名前：デフォルトの名無しさん [2011/06/20(月) 23:33:02.67 ] >>235 VB6だけど何で違うんだろ〜 Private Sub Command1_Click() Dim i% 　　Debug.Print "---" 　　Randomize 123 　　For i% = 1 To 3： Debug.Print Rnd： Next End Sub --- 0.7545646 0.5271199 0.3011898 --- 0.1030034 0.2489544 0.3967338 -Rndしないと毎回違うパターンがでる 240 名前：236 mailto:sage [2011/06/21(火) 01:31:17.21 ] >>237 レスありがとうございます。 私がやりたいのはシリアル値に変換するのではなくて、 シリアル値からyyyy/mm/dd hh:mm:ssというように変換したいのです。 241 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 02:22:59.69 ] Win32APIとかでそういうの扱えるの無かったっけ？よく覚えてないけど 242 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 02:24:20.96 ] SystemTimeToFileTime FileTimeToSystemTime あたり？ 243 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 02:45:14.26 ] >>236の逆変換をやるの？ dt = DataAdd("s", lngTime \ 1000, "1970/1/1 9:0:0") これでいい？ 244 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 02:47:55.34 ] ＞ngTime = lngTime + Fix((CDbl(Timer) - Fix(CDbl(Timer))) * 1000) これTimer２回呼び出してるけど問題ないの？ 245 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 02:57:11.65 ] >>239 もう一度やってみたら貴公の言うとおり再現した でも>>235のレスしたときは>>235のとおりだった。>>235のレスしたときコメントアウトし忘れてたのかもしれない 疑ってすまなかった 246 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 03:00:03.19 ] あれ、でもコメントアウトの問題なら表示される数字はどちらの試行でも同じはずなのに違ってたな。なんでだろう 247 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 03:04:06.73 ] あ、原因判明したかも。コメントアウトの問題じゃなくてイミディエイトのカーソル位置の問題だ。おそらく。 カーソルが一番下じゃなく一回分の試行の手前あたりにあったんだなきっと 248 名前：デフォルトの名無しさん mailto:sage [2011/06/21(火) 11:47:09.85 ] あれはカーソル位置から書き始めるから困る

---

---

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

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