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/ ※「まず自分で調べる」クセを身につけよう。 231 名前：デフォルトの名無しさん [2010/01/25(月) 03:27:54 ] エラーが発生しました。 232 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 11:11:19 ] エラーは見なかったことにしました。 233 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 11:30:57 ] 魔法の言葉 on error resume next 234 名前：デフォルトの名無しさん [2010/01/25(月) 12:47:29 ] 無視した結果 Windowsが強制終了しました。 235 名前：デフォルトの名無しさん mailto:sage [2010/01/25(月) 23:07:31 ] それはOSが悪い 236 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 00:46:25 ] VB6で.NETのクラスを使うにはどうすれば 237 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 00:50:30 ] regasmでCOMとして登録するとVB6から使える。 238 名前：デフォルトの名無しさん [2010/01/26(火) 00:56:56 ] VB6のラーニングエディションからWinSockコントロール使ったりする方法ってある？ 239 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 01:19:34 ] >>236 CreateObjectでいくつか使える たとえばStringBuilderとか Set sb = CreateObject("System.Text.StringBuilder") sb.Append_3 "hogehoge" sHoge = sb.ToString() 240 名前：デフォルトの名無しさん mailto:sage [2010/01/26(火) 06:30:08 ] >>237 >>239 �d 241 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 10:48:25 ] VB6.0で任意のプログラムがタスクバーに表示されているかを確認できますか？ タスクマネージャのプロセスで実行中かはAPIを使えば判断できそうですが、 タスクバーの状態を確認するAPIが見つからず質問に至りました。 よろしくお願いします。 242 名前：デフォルトの名無しさん mailto:sage [2010/01/27(水) 23:18:47 ] ITaskbarList を使えばできる。 243 名前：デフォルトの名無しさん mailto:sage [2010/01/28(木) 00:41:23 ] Win32API質問箱 Build85 pc12.2ch.net/test/read.cgi/tech/1262430441/ 244 名前：デフォルトの名無しさん [2010/02/02(火) 22:35:52 ] マイクロソフトのHPにあるVB6.0SP6ランタイムでcomdlg.ocxを使用するツールは動作しますか？ www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=7b9ba261-7a9c-43e7-9117-f673077ffb3c 245 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 22:38:46 ] 無理。 246 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 22:43:13 ] 早速の回答有難うございます。 では、Vectorでダウンロードできるランタイムセットでは comdlg32.ocxは動きますでしょうか？ 247 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 22:52:05 ] うん。"全部入り" みたいのがあるから、そっち使ってね。 248 名前：デフォルトの名無しさん mailto:sage [2010/02/02(火) 22:59:28 ] 素早い有難うございます！ 調べてみてもマイクロソフトじゃなくVectorからしか書いていないわけがわかりました。 早速ダウンロードしてみます。 249 名前：デフォルトの名無しさん [2010/02/03(水) 00:02:55 ] VB6.0でpng画像をimageに表示したいんですが、どうすればいいのでしょうか？ 250 名前：デフォルトの名無しさん mailto:sage [2010/02/03(水) 00:04:50 ] ＶＢプログラマをバカにするスレはここでしょうか？ 君たちメシ食えてるの？？？ 251 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 13:13:31 ] まぁネタにマジレスもあれだが ほんとVB６使ってるだけで馬鹿にするやつまだいるんだな ほんとに無知でVBたたいてるやつもいるんだろうな 252 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 13:15:56 ] 所詮は全角厨だしな 253 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 18:51:13 ] ドロップされたテキストファイルの内容からThunderbirdでメールを作成するスクリプトを作っているのですが いくつか詰まっている点があるので質問させてください。 Thunderbirdスレとマルチになって申し訳ありません。 ==VBSファイル記述開始== Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments strDroppedFileFullPath = objArgs(0) On Error Resume Next Set objFile = objFSO.OpenTextFile(strDroppedFileFullPath) ====略===== '本文 strBody = objFile.ReadAll Dim objWShell Set objWShell = CreateObject("WScript.Shell") 'Thunderbirdのメール作成画面の起動 objWShell.Run """C:\Program Files\Mozilla Thunderbird\thunderbird.exe""-compose to='" & strTo & "',cc='" & strCc &"',bcc='" & strBcc &"',subject=" & strSubject & ",body='" & strBody & "'" ,vbNormalFocus, False Set objWShell = Nothing ==VBSファイル記述ここまで== Thunderbirdが起動している状態で、このスクリプトを実行するとテキストの改行が反映されず困っています。 解決策があれば教えてください。 また、コマンドラインからの起動で送信アカウントを指定する方法があればこれもあわせて教えてください。 254 名前：デフォルトの名無しさん mailto:sage [2010/02/05(金) 21:54:40 ] ちょっとスレ違いな気がするけど、 本文を一回トレースして、改行コードを %0d%0aにしないとダメなんじゃない？ 送信アカウントの件はわからない 255 名前：デフォルトの名無しさん [2010/02/09(火) 22:47:41 ] VB6って、ソースを難読化するツールってあるのでしょうか？ 256 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 22:56:13 ] 何のためにソースを難読化なんてするんだよw ドトネトの難読化ツールが何のために存在してるのか分かってる？ 257 名前：デフォルトの名無しさん [2010/02/09(火) 23:02:30 ] えーと、デコンパイルが容易だからだと思います VB6は、デコンパイルが難しいため、難読化ツールが WEB上に見当たらないのですが、存在するか、しないのか、 ちょっと理由があって、知りたいのです。 知ってます？ 258 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 23:09:37 ] その理由を言ったほうが答えやすいだろ 259 名前：デフォルトの名無しさん [2010/02/09(火) 23:13:05 ] いえ、ちょっと理由あって。。。 2chも誰が見てるかわかんないし。 すみません。 教えてくれませんか？ 260 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 23:15:07 ] 胡散臭い奴だな 261 名前：デフォルトの名無しさん [2010/02/09(火) 23:19:22 ] しゅみません・・・ 胡散臭いですよね・・・ 最近、用心深くなってしまって。 失礼しました 262 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 23:26:10 ] VB6のバイナリには、COM関連以外はメソッド名もプロパティ名も変数名も入ってないんじゃないの？ 一体全体何を難読化するんだ？ しかもソースを難読化とか言ってるし。 訳がわからん。 263 名前：デフォルトの名無しさん [2010/02/09(火) 23:28:23 ] 訳わかんないでよね。。 もう忘れてください。。 264 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 23:35:10 ] VB6用の逆汗ツールはあるけどね。 265 名前：デフォルトの名無しさん [2010/02/10(水) 00:27:36 ] パスワード付ZIPで保存すればおｋ 266 名前：デフォルトの名無しさん mailto:sage [2010/02/10(水) 00:31:11 ] publicな変数は入ってるな。 267 名前：デフォルトの名無しさん mailto:sage [2010/02/10(水) 08:19:46 ] VB6でもPコードだとソースに戻せるの？ 268 名前：デフォルトの名無しさん mailto:sage [2010/02/10(水) 12:51:52 ] DataGridViewを使っています。 フォームロード時にセルの高さをColumnHeaderの高さと同じにしたいと考えています。 ColumnHeader.Heightの値は'16'に設定しているのですが、 ShownイベントハンドラからColumnHeader.Heightを見ると'23'になっています。 さらにShownイベントハンドラ内で Me.DataGridView.ColumnHeadersHeight = 18 としても値が変わりません。 これはなぜなんでしょうか。 269 名前：デフォルトの名無しさん mailto:sage [2010/02/10(水) 18:03:15 ] すみません、スレ違いでした それでは 270 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 16:46:08 ] ドライブリストボックスからドライブを指定したときに フロッピーのＡドライブとかＣＤ−ＲＯＭドライブとかを指定するとエラーはきます フロッピーやＣＤが入ってない状態で指定したときにフリーズしないようにしたいです 何でもよいのでコメください。 ヘルプではこんなのでた↓ ＞例外のトラブルシューティング : System.IO.IOException ＞IOException は、ファイルの読み取りまたは書き込みに失敗した場合など、 ＞I/O エラーが発生するとスローされます。 271 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 16:52:56 ] > 何でもよいのでコメください。 スレ違い。 272 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 18:41:02 ] ほんまやゴメン(´･ω･｀) 273 名前：デフォルトの名無しさん mailto:sage [2010/02/11(木) 20:43:37 ] しかも他のスレで答えを貰ってるのに 274 名前：デフォルトの名無しさん [2010/02/11(木) 23:52:17 ] 応用力が低い人がプログラミングすべきじゃないね 275 名前：デフォルトの名無しさん mailto:sage [2010/02/12(金) 12:56:13 ] 応用していくのが楽しいのにね 276 名前：デフォルトの名無しさん mailto:sage [2010/02/12(金) 19:00:44 ] おうよ！ 277 名前：デフォルトの名無しさん [2010/02/19(金) 12:06:39 ] 久々にVB6でコーディングしたら、FormイベントのQueryUnloadとUnloadの違いがわからない人間になってましたorz 両者の使い分けを詳しく教えて頂けますか。 QueryはUnloadをキャンセルできるのかと思ったけどUnloadでもキャンセル出来ますし。 正直Unloadイベントはいらない子という事なんでしょーか？(下位互換性のために残ってるとか) あるいはQueryUnloadとUnloadの間に何か他の事が起こりうるって事でしょうか？ 私のググり能力が低いようで、探しても言及してる内容が見つけられませんでした。 MSDNの説明読んでも禅問答みたいな内容で・・・アハァ。 278 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 13:20:06 ] QueryUnload イベント フォームまたはアプリケーションが閉じられる直前に発生します。 MDIForm オブジェクトが閉じられる場合は、QueryUnload イベントはまずそのMDI フォームに対して発生し、次にすべてのMDI 子フォームに対して発生します。 QueryUnload イベントをキャンセルするフォームがなければ、Unload イベントがまず MDI フォーム以外のすべてのフォームに対して発生し、 次に MDI フォームに対して発生します。 子フォームまたは Form オブジェクトが閉じられる場合は、そのフォームに対して、QueryUnload イベント、Unload イベントの順にイベントが発生します。 通常、QueryUnload イベント プロシージャは、各フォームでのすべての処理を、アプリケーションが閉じられる前に確実に完了するために使用します。 たとえば、フォームに入力された新しいデータをユーザーがまだ保存していない場合、そのデータを保存するかどうかをユーザーに確認することができます。 アプリケーションが閉じられるときに、QueryUnload イベント プロシージャまたは Unload イベント プロシージャ内で Cancel プロパティを真 (True) に設定すると、 アプリケーションを閉じる処理を中止することができます。 QueryUnload イベントはすべてのフォームに対して、それらのフォームのアンロード処理が始まる前に発生します。 一方、Unload イベントは各フォームがアンロードされるたびに発生します。 MSDNライブラリより引用 279 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 13:21:33 ] Unload イベント フォームが画面から消去 (アンロード) されるときに発生します。アンロードされたフォームを再ロードすると、そのフォーム上にあるコントロールの内容はすべて初期化されます。 Unload イベントは、ユーザーがコントロール メニューの [閉じる] をクリックするか、Unload ステートメントが実行されると発生します。 引数 cancel に 0 以外の値を設定すると、フォームはアンロードされませんが、Microsoft Windows を終了するというような、ほかのイベントを停止することはありません。 Windows の終了を停止するためには、QueryUnload イベントを使います。 Unload イベント プロシージャは、フォームを閉じるときの確認処理を行ったり、フォームを閉じるときに実行する処理を記述するときに便利です。 フォームを閉じるときや、フォームのデータを保存するときの各フォーム単位での確認処理も、Unload イベント プロシージャの中で実行できます。 Unload イベントは、QueryUnload イベントが発生した後に発生します。Unload イベントの後に Terminate イベントが発生します。 次に、Unload イベントが発生する具体的な状況を示します。 　Unload ステートメントが実行されたとき。 　ユーザーが、フォームのコントロール メニューの [閉じる] をクリックしたとき。 　Windows の [アプリケーションの切り替え] ウィンドウで [アプリケーションの終了] がクリックされ、アプリケーションが閉じられたとき。 　現在のフォームが子フォームの場合に、その親であるMDI フォームが閉じられたとき。 　アプリケーションの実行中に、Windows が終了したとき。 MSDNライブラリより引用 280 名前：デフォルトの名無しさん [2010/02/19(金) 13:22:49 ] >>277 >>278-279 281 名前：デフォルトの名無しさん [2010/02/19(金) 13:26:12 ] >>277 >>278-279から抜粋 以下が特徴だろ。 QueryUnload イベント MDIForm オブジェクトが閉じられる場合は、 QueryUnload イベントはまずそのMDI フォームに対して発生し、 次にすべてのMDI 子フォームに対して発生します。 QueryUnload イベントをキャンセルするフォームがなければ、 Unload イベントがまず MDI フォーム以外のすべてのフォームに対して発生し、 次に MDI フォームに対して発生します。 Unloadイベント 引数 cancel に 0 以外の値を設定すると、フォームはアンロードされませんが、 Microsoft Windows を終了するというような、ほかのイベントを停止することはありません。 Windows の終了を停止するためには、QueryUnload イベントを使います。 282 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 13:33:20 ] たとえばMDIFormを閉じようとしたとき 子フォームのどれかでもQueryUnloadでCancelするとMDIFormのアンロード自体がキャンセルになるけど 子フォームのどれでもUnloadでCancelしてもMDIFormのアンロードをキャンセルすることが出来ないってことだろ Windows終了の話もこれと同じだな。 283 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 14:06:13 ] VB6LEでSysInfoコントロールやWinsockコントロールを使う方法ってありますか？ 284 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 14:06:56 ] エラーがでてコントロールを配置できないんです 285 名前：277 mailto:sage [2010/02/19(金) 17:22:51 ] >>278-282 超ありがとうございました！ >>279のMSDNは見つけてなくて助かりました。(>>278だけ読んで首ひねってました) >>281-282の要約や具体例おかげで話がよく見えました。 あとは実際に試して体感的に確かめようと思います。 どうもありがとうございました。 286 名前：デフォルトの名無しさん mailto:sage [2010/02/19(金) 18:22:04 ] 実際に試すのが先だろ！ 287 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 01:32:47 ] >>270 魔法の言葉 On Error Resume Next 288 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 01:35:03 ] >>257 リストラされそうなんですね わかります 289 名前：デフォルトの名無しさん [2010/02/20(土) 17:12:47 ] Select CaseのCaseのって数値だけ指定できるのかと思ってた。式も指定できたんだね 290 名前：デフォルトの名無しさん [2010/02/20(土) 17:16:19 ] Select CaseのIsって使ったことある人いる？ 分岐ってSelect CaseとIf,ElseIfで内部の処理的にはどう違う？ 処理の早さとかプログラムサイズ とか 291 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:19:09 ] たとえば if k<5 then elseif k>=5 and k<10 then else end if select case k case is<5 case 5 to 10 and is<10 case else end select とか 292 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:26:59 ] 確かめたことはないが高機能のCASE文をサポートしている言語は、 if - else if -　else if - else - 型の実装になってることが多い。 制限の多いCやC#のCASE文はジャンプテーブル式。 293 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:31:42 ] なるほど >>291のselect文あれじゃ動かないね select case k case is<5 case 5 to 10 and k10 case else end select 294 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:36:42 ] ForNext文のNextって変数省略してる？ 295 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:39:11 ] 省略してる。その代わり、Next I, J は絶対やらない。 296 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 17:56:02 ] 定回数ループにはやっぱForNext使うの? DoLoopとかWhileWendのほうが処理早かったりする？ 297 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 18:04:02 ] その二つに差があるとして、10の何乗回ループしたら人間にわかるような差になるのかねw っていうか、既に終わってるVB6が全盛期だった時代ですら終わってる考え方だわそれ。 32bitのCPUがGHzで動いてる時代に、いい加減そういう80年代のインタプリターのBASIC脳の 発想止めたら？w 298 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 18:07:59 ] >>297 そんなに大差ないってことっすね GosubReturnって使ってる人いる？ 299 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 20:41:26 ] 化石すぎる・・・ 300 名前：デフォルトの名無しさん mailto:sage [2010/02/20(土) 22:24:44 ] >>290 ollydbgで見ると selectはジャンプテーブルで処理 elseif　は順に判断してる コード容量はselect＞elseif 速度はselect＜elseif 今のハードだと気にすることではないけどな 301 名前：デフォルトの名無しさん mailto:sage [2010/02/21(日) 00:54:50 ] ありがとうございます 302 名前：デフォルトの名無しさん [2010/02/22(月) 01:58:34 ] Windows95が未だ現役のうちは化石ってことか・・ 303 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 22:55:26 ] >>302 企業ならまだありだなぁ・・・ うちも95,98やNT4.0初期のやつとかあるし 昔のPCはムダに物もちがいいから困るｗ 304 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 23:18:47 ] 生産現場ではMS-DOSがナウい 305 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 23:20:56 ] FC-98？ 306 名前：デフォルトの名無しさん mailto:sage [2010/02/23(火) 00:11:09 ] うちで最古で動くＰＣは PC9821Cx、CDドライブいかれちまったのでWindows3.1が再セットアップできん ずっとMSDOSのまま。まぁN88BASICしか使わんから別に気にしてないけどな 307 名前：デフォルトの名無しさん mailto:sage [2010/02/24(水) 11:09:32 ] うちのラインでは PC-9801UVがあってMS-DOSにQuickBasicで作られていて Cバスのボード使ってGPIB機器を動かしています 元気すぎて置き換えとか言い出せない 308 名前：デフォルトの名無しさん [2010/02/25(木) 00:57:38 ] VB6でゲーム作ってる人いる？ カードゲームみたいな静止ゲーじゃなくて、ブロック崩しとかみたいな動きのあるやつ。 そういうゲームでのメインループとかどうしてる？ やっぱCやJAVAみたいにwhileみたいなループ内で処理してる？ 俺Timerコントロールでループの代わりさせてんだけど VB6で作るのでもやっぱDoLoopとかでメインループ処理したほうがいいの？ その場合、やっぱループ内にDoEventsとかいれるの？ 309 名前：デフォルトの名無しさん [2010/02/25(木) 00:58:35 ] メインループはやっぱりForm_Loadメソッド内に置くの？ それとも標準モジュールでmainメソッド内に置くの？ 310 名前：fasasdfa mailto:afsdf [2010/02/25(木) 01:24:26 ] afdadfad 311 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 02:29:32 ] MyYahooの表示コンテンツをマウスのドラッグでグラフィカルに位置替えできるけど あれみたいな感じに たとえばフォームに大量に配置したラベルコントロールとかを ユーザーがドラッグでグラフィカルに配置換えするみたいなことって どうすれば実現できる？ 312 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 09:12:01 ] ドラッグアンドドロップでコントロールのロケーションいじったらええだけちゃいますのん？ 313 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 11:14:14 ] ロケーション？ 314 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 15:26:27 ] 表示位置のことじゃないかと思う 315 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 15:34:40 ] >>311 mousemoveイベントがあるよ 316 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 16:53:25 ] >>308 Windowsなんだから常時ループとか N88みたいなワンパスソフト作るなよ もしかしてformloadで Timer.Enabled=TRUE DO 　if Timer.Enabled=FALSE then 　　処理 　　Timer.Enabled=TRUE 　endif LOOP こんな風にして Timerで Timer.Enabled=FALE とかやってるのか？ 無駄にCPU負荷かけるな つかインターバルどれ位にするかでも組み方変わるからなんとも言えない １ｍS単位が欲しいならTimeSetEventのAPI １００ｍＳ単位ならタイマーコントロール 317 名前：308 [2010/02/26(金) 03:24:50 ] >>316 前半のその例のタイマーの使い方さっぱり理解できない・・・ 俺はｃやjavaでwhileループ内で処理することをTimerコントロールのTimerイベント内で処理してる その方法が普通なのかあまりよくない方法なのか知りたかったから質問したのさ なるほど、cやjavaみたいにループ回すみたいなことはVBではしないってことか・・・ インターバルの長さによって使い分けるのね・・・なるなる 318 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 09:06:06 ] あれだな　やっぱCやJAVAできるやつがレベル高井ってわけじゃねぇなｗ 319 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 09:22:44 ] ゲームならタイマーイベントとかじゃなく CやJavaみたくゲームループ作って DoEventsだけいれといてあとは 時間はかってwait入れるんじゃないの いや、ゲーム作ったことないから知らないけどｗ 320 名前：316 mailto:sage [2010/02/26(金) 11:15:37 ] >>317 >>319 負荷考えずにループで回しておいてやるなら参考に簡単なサンプル書いてみた Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Command1_Click() Dim l_starttime As Long '開始時間を現在の基準時間としてセット（ｍＳ単位） Dim l_endtime As Long '終了時間を現在としてセット（ｍＳ単位） Dim l_loopcount As Integer For l_loopcount = 1 To 3 '３回やってみる l_starttime = GetTickCount '現在時間を基準時間にする MsgBox ("今止めてるよ") l_endtime = GetTickCount 'ＯＫ押された後の時間を取得 MsgBox (l_endtime - l_starttime) '何ｍＳ停止したか表示 DoEvents 'ＯＳに制御を戻す Next l_loopcount End Sub フォームにコマンドボタン1個作って動かすとわかると思う ３回メッセージで止めていた時間をｍＳ単位で表示される 時間でポーリングしたいならループ内でl_endtime - l_starttimeを時間で条件判断 >>318 適材適所じゃないけど用途によって扱いやすい言語があるから レベルって言語の種類でなく経験じゃないかな IO直接叩きたければVBよりCのビットフィールドのが楽だし テーブル扱うならCOBOLのDATA DIVISIONが・・・(ry 最近だと CREATE TABLE php_session ( sess_id text,sess_name text, sess_data text); こっちのが楽かｗｗｗ 321 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 16:24:19 ] >>312　ごめん。ドラッグドロップよくわかんない >>315 ↓こんな感じ？一応動いた。ありがとう。これ何かまずい処理とかある？ Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Static x1, y1 If Button = vbLeftButton Then With Label1(Index) .Left = .Left + X - x1 .Top = .Top + Y - y1 End With Else x1 = X y1 = Y End If End Sub 322 名前：デフォルトの名無しさん mailto:age [2010/02/26(金) 19:23:37 ] 練習用にどうぞ ☆Visual Basic Version 5.0(ActiveXコントロールの開発可能) Visual Basic Version 5.0 Control Creation Edition SP2 日本語版 download.microsoft.com/download/vbcc/SP/05.00.4319/W9XNT4/JA/VB5CCEIN.EXE Visual Basic 5.0 Control Creation Edition: SP2 ヘルプ ファイル www.microsoft.com/downloads/details.aspx?FamilyID=b4394931-d7ab-4d38-a3f5-511fd3165b7f&DisplayLang=ja download.microsoft.com/download/vbcc/Help/4.71.0121.0/W9XNT4/JA/CCEHELP.EXE Visual Basic Version 5.0 Control Creation Edition: レジストリ修正モジュール www.microsoft.com/downloads/details.aspx?FamilyID=e91b767c-30d6-407d-b0f3-fd93faebb592&DisplayLang=ja download.microsoft.com/download/vbcc/Patch/1.00/W9XNT4/JA/REGFIX.EXE Visual Basic 5.0: RecentFiles ツール www.microsoft.com/downloads/details.aspx?familyid=C95613D6-D8D2-4A85-9139-3992B601D08A&displaylang=ja download.microsoft.com/download/vb50ent/Patch/1.00/W9XNT4/JA/recents.exe 323 名前：デフォルトの名無しさん [2010/02/26(金) 23:33:34 ] VB5っていつ時代のものなの？ 324 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 23:35:19 ] 97年。 325 名前：デフォルトの名無しさん mailto:sage [2010/02/26(金) 23:38:50 ] 13年前か・・・古いね 326 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:07:44 ] その13年前から進歩してない人がいるんですよ そこのお前、そうだよな？手をあげろ 327 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:10:22 ] VB6は何年物？ 328 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:12:03 ] VB6は98年。 329 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:14:07 ] VB6とかで２ｃｈ専用ブラウザって作れる？ もちろん既存の２ｃｈブラウザと遜色ないレベルのもの。 古いVBではサポートされてない機能とかあるとかで無理ぽい？どう？ VBでしかプログラム組めないってこと前提でﾖﾛ 330 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:15:18 ] たった1年でVB5は不要になったわけか VB5に入れ替えた企業とか涙目だな 331 名前：デフォルトの名無しさん mailto:sage [2010/02/27(土) 00:16:15 ] >>329 これVB６じゃなかったか？ www8.plala.or.jp/uro/live2ch/

---

---

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

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