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

VBプログラマ質問スレ ..

2:デフォルトの名無しさん
09/07/13 21:18:47
しかし会社のソースの保守くらいしか使ってる人いないんだろうな
新人で6を覚えなきゃいけない人っているの？

3:デフォルトの名無しさん
09/07/13 21:52:21
半年前から使い始めた。苦痛だった。
もうつかわんけど。

4:デフォルトの名無しさん
09/07/13 22:07:39
もったいない

5:デフォルトの名無しさん
09/07/13 23:15:18
厨房の時に英単語を覚えるためのプログラムとか作って遊んでたよ。
なつかしい。

6:デフォルトの名無しさん
09/07/13 23:46:53
行番号もしらない若造がなにお

7:デフォルトの名無しさん
09/07/13 23:49:29
VB6ってたしか行番号つけられるんだっけ
RENUMなどは無かった気がするけど

8:デフォルトの名無しさん
09/07/14 13:49:32
Z

9:デフォルトの名無しさん
09/07/14 22:25:50
いまだに.NET以降のよさがわからない

10:デフォルトの名無しさん
09/07/14 22:28:41
時代が変わっただけだ。
都合で他言語と統合しただけで良いとこなんてねぇよ。

11:デフォルトの名無しさん
09/07/15 21:09:10
VB.NETは失敗作
過去にしがみついた奴らのせいだ

12:デフォルトの名無しさん
09/07/15 21:46:36
ＶＢ６に変わるものってアルの？
ってかＶＢ６使わないとしたら何を使えばいいの？swing?

13:デフォルトの名無しさん
09/07/15 21:51:25
ABかC#だろJK

14:デフォルトの名無しさん
09/07/15 21:55:04
ＡＢってなにあぼーん？

15:デフォルトの名無しさん
09/07/15 22:15:43
ActiveBasicだろJK

16:デフォルトの名無しさん
09/07/15 22:29:21
ABも終わった言語・・・

17:デフォルトの名無しさん
09/07/15 23:17:11
始まってすらいないが

18:デフォルトの名無しさん
09/07/20 00:37:44
VBスレも終わってしまいそうです・・・

19:デフォルトの名無しさん
09/07/21 17:01:14
>>9
ADO.NET はよくね？

20:デフォルトの名無しさん
09/07/21 18:40:07
VBScriptで質問があります。指定されたフォルダの中にある指定された拡張子のファイルのパスを取得する（１ファイル）処理を行いたいのですが、
==VBSファイル記述開始==
（略）
TSSearchFolder = "D:\"
（略）
FileList = Fso.GetFolder(TSSearchFolder)
For Each strFile In FileList.Files
strName = strFile.Name
outLogFile.WriteLine(Date&" "&Time&" "&strName&" をチェックしています")
If UCase(Right(strName, 3)) = ".TS" Then
SearchedTS = TSSearchFolder&strName
outLogFile.WriteLine(Date&" "&Time&" フォルダ検索によりtsを捕捉しますた（・∀・）")
outLogFile.WriteLine(Date&" "&Time&" 　→　"&SearchedTS)
End If
Next
If SearchedTS = Nothing then
outLogFile.WriteLine(Date&" "&Time&" tsを捕捉できなかったお・・・（´；ω；｀）ブワッ")
outLogFile.WriteLine(Date&" "&Time&" プログラム終了")
outLogFile.WriteLine("　")
outLogFile.Close()
WScript.Quit
End If
（略）
==VBSファイル記述終了==
この作業でログファイルに書き込まれたのは、
2009/07/20 16:13:22 をチェックしています
2009/07/20 16:13:22 tsを捕捉できなかったお・・・（´；ω；｀）ブワッ
2009/07/20 16:13:22 プログラム終了
のみ・・・orz
URLﾘﾝｸ(blog.livedoor.jp)　のページやその他サイトをぐぐっても見あたらず
FileList = SearchFolder(TSSearchFolder)　 For Each strFile In FileList　としても同じ結果でしたorz
どなたか解決策ご教授お願い致します・・・orz

21:デフォルトの名無しさん
09/07/21 20:26:20
>>20　適当にレス。

突っ込み1　&strName&" をチェックしています"
　→「strName&」は間違いかも(変数接辞や数値接辞の&はLong型の暗黙の宣言子)。正しくは「strName &」

突っ込み2　SearchedTS = Nothing then
　→上で文字列を代入しているか何も入っていないのでObject型にはならないと思う。(期待する値も文字列型でしょうからそもそも間違い)
　そのため比較式の答えは常にFalseになるでしょう。正しくは「SearchedTS = "" then」または「SearchedTS = vbNullString then」

突っ込み3　FileList = Fso.GetFolder(TSSearchFolder)
　→先頭にSetが抜けてます。これだとデフォルトのプロパティであるNameの値つまり文字列型の"D:\"が入る気がする。

突っ込み4 ひとつ見つかればいいなら見つかったあとループを中断すべき。
　→Exit For を追加。

22:20
09/07/22 18:30:28
>>21
ありがとうございます！！
的確な即レス、痛み入ります。

ご指摘の通りでした。おかげで無事、人生初のプログラムが組むことがました。
初歩的な欠陥にもアドバイスいただけて感謝です。

23:デフォルトの名無しさん
09/07/22 20:35:11
いえいえ。

つか初のプログラムだったの？ｗ
ならレスの説明はちょっと省略しすぎてわかりにくかったね。
ごめんな。

24:デフォルトの名無しさん
09/08/08 14:03:06
酒井法子ファンの酒井法雄氏はどうしてるんでしょうか

25:デフォルトの名無しさん
09/08/09 13:19:35
VBで質問なのですが、
文字コードの変換ツールをVB作成しているのですが。
その文字が改行コードであるかどうか、という判定文を作りたいのですが、
どのようにすればよろしいのでしょうか。
よろしくお願いします。

26:デフォルトの名無しさん
09/08/09 14:08:45
元のファイルの仕様によるけど、CRLFかCRかLFであれば改行コードでいいんじゃない？
アスキーモードで開けばCRLFとCRは自動で処理してくれるしLFの時だけバラせばOKかな

27:デフォルトの名無しさん
09/08/09 16:16:20
>>25
何をどうしたいのかよくわからん。
対象の文字コードは何で、どこから持ってきてどうしたいんだ。
相手はファイルなのか？どっかから得たデータなのか？
>>26のレスで満足ならいいけど。

28:デフォルトの名無しさん
09/08/13 19:31:30
非アクティブの無題のメモ帳にコピーしたものを貼り付けるだけのスクリプト。

Set objWshShell = CreateObject("WScript.Shell")
objWshShell.AppActivate "無題"
objWshShell.SendKeys "^{V}",True
objWshShell.SendKeys "{ENTER}",True

たまに(5回に1回くらい)コピーされないことがあるんですが、
なんでかわかりますか？

ご教授願いますm(__)m

29:デフォルトの名無しさん
09/08/13 20:24:32
貼り付けタイミング間に合わないことある
なんとかウエイトを入れて試すよろし

30:28
09/08/13 22:05:07
>>29

レスサンクス！

Sleep 10

をAppActivateとSendKeysの間に入れたら直りました！

AppActivateの検索が間に合ってなかったのかな？
ありがとうございましたm(__)m

31:デフォルトの名無しさん
09/08/14 13:12:08
vb6でmicrosoft tablet dialog control 6.0を導入したいのですがどうすれば良いでしょうか？
SP6をインストールしたができませんでした

32:デフォルトの名無しさん
09/08/16 01:39:57
全部ここに書いてあるんじゃないのか？
URLﾘﾝｸ(msdn.microsoft.com)

33:デフォルトの名無しさん
09/08/16 01:41:02
あとこのように書いてあるぞ。

＞　注 Visual Basic 6 で PenInputPanel を参照して使用するには、
＞　Microsoft Windows XP Tablet PC Edition がインストールされたコンピュータで開発を行う必要があります。

34:デフォルトの名無しさん
09/10/13 01:38:08
ネタがねえなあ

35:デフォルトの名無しさん
09/10/13 10:46:43
フォームの大きさをデスクトップのフォントサイズの倍率を変えても固定にするにはどうしたら良いんですか？

36:デフォルトの名無しさん
09/10/13 13:20:05
>>35
>デスクトップのフォントサイズの倍率を変えても
ディスプレイの解像度を変えてもという事ですか？

なら元のフォームサイズ(最小の)に、
スクリーン毎の倍率を掛けたら良いと思います。

37:デフォルトの名無しさん
09/10/13 15:01:36
デスクトップのフォントサイズの倍率は、ディスプレイの解像度とは別ですよ

38:デフォルトの名無しさん
09/10/13 15:11:57
１倍時のサイズをコードに数値として埋め込んでおき、ForcCreate時にイメージを除く可視コントロール全てに倍率を掛ける。
forかwhileで可視コントロール総当たりでリサイズ。

で良いのかな。
本当はFormCreate部が勝手にリサイズするところをキャンセルさせるんだろうけど。

コードはよく判らない。

39:デフォルトの名無しさん
09/10/13 20:06:18
普通にScaleModeをpixelにしてデザインしたらダメだっけ？
まあそれでも自動スケーリングが働くなら、ScaleModeをpixelにしてさえいれば
Formのサイズの単位はピクセルではあるはずだから、コードでサイズを強制すれば
いいだけのはずだと思うが。

もうVB触らなくなって久しいから自信ないけど。

40:デフォルトの名無しさん
09/10/14 11:15:42
ScaleModeを変えても設計の単位が変わるだけみたいですね

41:デフォルトの名無しさん
09/10/22 20:28:33
ちょっくらVBの勉強を始めようかと思い立ち本屋を数軒回ったんだけど
以前は結構置いてあったはずのVB関係の書籍期がほとんど消えていた。
代わりにC++の本が増えていた。

もしかしてVBって無くなるとか？これから勉強してもムダになる？

42:デフォルトの名無しさん
09/10/22 20:33:34
VB6はいまさら覚えるものではない
やるんだったらC#かVB.NET

43:デフォルトの名無しさん
09/10/22 20:40:44
これを買おうかと思ってたんだけど、上の理由でちょっと？と思って帰ってきた。
URLﾘﾝｸ(ec.nikkeibp.co.jp)

代わりにC++の本が増えていた。→C#？

>C#かVB.NET
入門から実用レベルまで勉強できそうなお勧めの参考書があれば教えてください。

44:デフォルトの名無しさん
09/10/22 20:44:05
VB6って　Visual Basic 6.0のこと？
Visual Basic 2008はVB.NETでいいのかな？

ASP.NETをちょこっとかじったので、Visual Basic 2008をきっちり勉強しようかと思って居るんだけど
C# 3.0をやった方が役に立つのかな？

45:デフォルトの名無しさん
09/10/22 21:20:03
VB6だったら古本屋をあたったほうが早い

46:デフォルトの名無しさん
09/10/22 21:47:59
VB6ではなくて、Visual Basic 2008の勉強と言ってるのですが。
それで本屋さんを当たったら参考書が激減していたので、何か事情があるのかな？
と思ったわけですが・・・

47:デフォルトの名無しさん
09/10/22 21:53:21
Visual　Basic　2008ならスレタイを良く見直そう。

48:デフォルトの名無しさん
09/10/22 21:57:42
>>46
バカじゃねーの？

49:デフォルトの名無しさん
09/10/22 22:00:21
6.0以前ガ━━(　ﾟдﾟ；)━━ン

50:デフォルトの名無しさん
09/10/23 01:11:42
URLﾘﾝｸ(msdn.microsoft.com)

Windows7でも一応VB6をサポートするんだな
まぁ、VBAが繁殖し過ぎてしまって切るに切れないのかねぇ

51:デフォルトの名無しさん
09/10/23 15:08:41
初心者スレから、移動してきました。

リストビューのカラムヘッダの区切り部分を
ダブルクリックすると、オートフィットしますが、
これをプログラムから行うにはどうすればいいのでしょうか？

HDN_ITEMDBLCLICK というのをを使うようですが、
それがなんなのか良くわかりません・・・。

52:デフォルトの名無しさん
09/10/23 18:09:23
くだすれ

>>991
>>994
ありがとうございます。
ようやく挙動の違いなどが理解できました。

53:デフォルトの名無しさん
09/10/23 23:10:17
>51
つ LVM_SETCOLUMNWIDTH、LVSCW_AUTOSIZE

54:デフォルトの名無しさん
09/10/27 21:21:51
Win7 pro 64bit版をインストールして色々VB6で作ったアプリを試していたのですが、

アプリAで「d:\test\」フォルダに大きいファイルを書き出し中に
アプリBで一定間隔で「d:\test\」フォルダのサイズをfilesystemobjectまたはfilelenで
取得しようとしたところ、最新の正しいファイルサイズが取得できず困ってます。

アプリA・B実行中に「d:\test\」をエクスプローラで開き、F5を押すとその時だけ
ファイルサイズが取得できました。
それとXPでは大丈夫でした。

何かいい方法ないでしょうか？

55:デフォルトの名無しさん
09/10/27 21:36:34
>>54
質問するときは情報は正確に書くのが基本。
問題が起こってるのは本当に"d:\test" ？
違うでしょ？

56:54
09/10/27 21:49:04
>>55
「d:\test」以外のフォルダ、ドライブでも同様の現象がおきます。

57:デフォルトの名無しさん
09/11/04 15:30:29
質問です。知恵を貸していただきたいです。

visual basic 6.0で作られているプログラムを海外でも使用する事になり
その際に日本語と外国語、両方表示できるように改修する事になったのですが
visual basic 6.0の標準のオブジェクトでは外国を表示できないという事がわかり
microsoft forms 2.0 object libraryのコンポーネントを使用して外国語を表示する事になりました。
そこで実際に上記のコンポーネントを使用してラベルを貼り付けてAutoSizeをTrue、WordWrapをTrueにして
外国語を表示させてみたのですが、表示は出来るのですが元のラベルの大きさからはみ出る文字数を表示させようとした
場合に表示がおかしく(文字を縮小して全体を表示させている？)なってしまいます。

これをなんとかVB6標準のラベルと同じような動きにする方法はないでしょうか？
（はみ出る文字数が入力された場合は自動で横幅が増える）

58:デフォルトの名無しさん
09/11/12 16:27:44
質問です

Commandボタンを押すとある作業を永遠にループするプログラムを
作ったのですがそのループをとめる方法が分かりません。

あるキー入力をする（例えばESCキー）を押すと作業を止めるように設定したいのですが
思いついたやり方がループの記述内にいくつもGETASYNCKEYSTATEで確認するという
あまりにも汚いやり方だったので、別のやり方があるならば是非教えてください。
もちろんデバッグ中であればctrl+breakで止まりますがそれだとプログラムとしては全く
使い物にならないのでどなたかご教授お願いします。

59:デフォルトの名無しさん
09/11/13 02:32:29
doeventを適当なところにはさんでおいて、cancelボタンが押されたかどうか調べる。

60:デフォルトの名無しさん
09/11/14 18:58:30
>>59
ループが結構長いのですがそうするとかなり重くなってしまいませんか？
timerinterval1に設定してキー入力を確認させたりするよりはマシだとは思いますが

61:デフォルトの名無しさん
09/11/14 22:08:45
58ですが新たな問題が出ました
フォームのkeydownでQuitChk = 1となるようにして
ループのWait内にQuitChk = 1ならループを終了させるようにしたいのですが
プロシージャーをまたいでEndSubに送る方法ってあるのでしょうか？

通常ならループ内に
If QuitChk = 1 then
goto End1
.......
End1:
End Sub
でいいはずなのですが、Ifをループ内のあちこちに大量に記述するのが気がひけるので
すでに大量にあるWaitの中にループからEnd Subに飛ばすイベントを作ろうと
思ったのですがやり方がわかりません

62:デフォルトの名無しさん
09/11/14 22:15:32
あるわけねーだろﾊｹﾞ

63:デフォルトの名無しさん
09/11/14 23:56:02
LabviewをVBに変換するソフトなどありませんか？

64:デフォルトの名無しさん
09/11/16 00:54:23
キー入力をフォームがアクティブウィンドウではないときでもフォームが
受け取ってくれるようにするにはどのように記述すればいいのでしょうか？

65:デフォルトの名無しさん
09/11/16 00:58:57
DXとかタイマー＆APIとかサブクラスとか

66:デフォルトの名無しさん
09/11/16 01:28:42
ローレベルフック。って、VB6 でも使えたよな。

67:デフォルトの名無しさん
09/11/19 02:37:56
>>65-66
分かりました
調べてみます

68:デフォルトの名無しさん
09/11/20 00:45:17
WebBrowserでVB側からActiveXやスプリクトの実行を止めるの
はやはり無理ですか。Webで検索しても成功例もなさそうですし。
もし可能ならヒントだけでもお願いします。

69:デフォルトの名無しさん
09/11/20 01:34:15
にちゃんねるブラウザのように
htmlを取ってくる->htmlを加工していらないとこは削除->WBで表示
って感じでできるんじゃない？
めんどくさそうだしやったことないけど

70:デフォルトの名無しさん
09/11/20 01:48:26
Donut系のIEコンポブラウザは任意にスクリプトやActiveXコントロールの実行のオンオフを切り替える機能を持っている。
そいつらはC++製だけど、WebBrowserのインタフェースはC++にできてVBでできないことはないはずだから、可能だろうとは思う。

71:68
09/11/20 03:13:05
>>69 >>70
VB6で遊んでるだけの素人には難しすぎるようですが、
参考にさせていただきます。ちなみにVB.NETでは
URLﾘﾝｸ(codezine.jp)
というのがありました。

72:デフォルトの名無しさん
09/11/25 00:01:40
質問をお願いします。

Setup.Lstの中で
[.tlb]ファイルに対する操作として

＞$(TLBRegister)

とありますが、これを手動で行う場合
どうすればいいんでしょうか？

配置先に配置して、レジストリに登録すればよい？
その場合、どのようなレジストリになるのでしょうか。

どなたかご教示願います。

73:デフォルトの名無しさん
09/11/28 23:30:41
インストーラー相談室
ｽﾚﾘﾝｸ(tech板)

74:デフォルトの名無しさん
09/11/29 11:22:35
regsvr32 tlbファイル名

75:デフォルトの名無しさん
09/11/30 01:17:27
PCをWindows7に新調したんだがVB6（SP6）入れたら不可解な現象が。
コードエディタで特定のカタカナ入れると、勝手に削られる。

例
「フリガナ」→「フリガ」
「ナナナナ」→「ナナ」

なんだろう？
一応、互換モードは全部試してみたが症状同じ。
新規のプロジェクトでも起こる。
他のアプリでは発生しない。

76:デフォルトの名無しさん
09/11/30 01:22:59
XPモード使えよwww

77:デフォルトの名無しさん
09/11/30 01:26:01
IDEはすでにサポート終わってるし。

78:デフォルトの名無しさん
09/11/30 01:27:59
さすがに7までサポートしろと言うのは気が引ける

79:75
09/11/30 03:17:16
互換性のトラシューいじくり倒したらなんか直った
これでまた戦える･･･

80:デフォルトの名無しさん
09/11/30 08:20:59
vmware使えよ

81:デフォルトの名無しさん
09/11/30 09:11:13
>>79
明確な原因と対処法が分かってないのにそのまま進めると後で痛い目を見るから怖いと思うんだが…

82:デフォルトの名無しさん
09/12/01 23:20:49
VBってどこから開始するの？main()みたいな意味で。

自分が渡されたのってBASファイルしかないのです。
でも、インポートでDLL（画面らしい）を入れているので、
もしかするとそのDLLの画面の方にｴﾝﾄﾘﾎﾟｲﾝﾄがあって、そこからコールバックされる
部分のソースをわたされてるだけかしらん？
そんな事ってありえますか？？
んなわけないか。。EXEにしているはずだし。。
？？？わからん、たすけて～

83:デフォルトの名無しさん
09/12/01 23:22:09
設定があるでしょ？スタートの

84:デフォルトの名無しさん
09/12/01 23:34:39
>>83
そうだったのかーーー
ありがとうございます！！見てみますm(_ _)m

85:デフォルトの名無しさん
09/12/02 09:29:43
VB6.0のWinSockコントロールでIISにアクセスしているのですが
統合Windows認証のためが返ってきます。
HTTP/1.1 401 Unauthorized
Content-Length: 1600
Content-Type: text/html
Server: Microsoft-IIS/6.0
WWW-Authenticate: Negotiate
WWW-Authenticate: NTLM

そこで、Authorizationヘッダをつけたいのですが
Authorization: Negotiate <Base64 encoded SPNEGO token>

<Base64 encoded SPNEGO token>の部分はどうやって
生成すればよいでしょうか？

よろしくお願いいたします。

86:デフォルトの名無しさん
09/12/02 22:02:41
あきらめろよ。

WebBrowser 使え。

87:デフォルトの名無しさん
09/12/02 22:28:32
あきらめて.net使います

88:デフォルトの名無しさん
09/12/04 16:16:12
質問です。

CreateObjectでIEのオブジェクトを作成して使用しているのですが、
IE6だったころは問題無く何年も動いていたソフトが、
先日IE8にしたところ、入れ替えの数日後から「オートメーションエラーです。」と
エラーが発生するようになってしまいました。
IE6とIE8では何か使用方法が異なるのでしょうか？

ご存知の方が居られましたらご教示願います。

89:デフォルトの名無しさん
09/12/04 16:37:44
テストはしたのかね

90:デフォルトの名無しさん
09/12/04 20:29:05
セキュリティ関連でいろいろ違う。

91:デフォルトの名無しさん
09/12/05 14:56:27
すいません
マクロ初心者です。
ここの質問スレでいいいんでしょうか？
九九のマクロを組んだのですが、
バグがあるみたいです。
どこがおかしいのか教えていただけませんでしょうか？
.Cells ～writeCol+1の間にバグがあるそうなのですが（汗）　

Sub macro1()
Dim writeRow As Long: writeRow = 1
Dim writeCol As Long: writeCol = 1

With Worksheets("Sheet1")

For writeRow = 1 To 9

writeCol = 1

Do While writeCol <= 9
.Cells(writeRow, writewCol).Value = writeRow * writeCol
writeCol = writeCol + 1
Loop

Next writeRow
End With

End Sub

92:デフォルトの名無しさん
09/12/05 17:13:47
バグがあるみたいです、じゃなくて、どうなるのか書けよ。

93:デフォルトの名無しさん
09/12/05 17:43:53
単に、
.Cells(writeRow, writewCol).Value
の2つ目の引数が打ち間違ってるだけじゃねえか

94:デフォルトの名無しさん
09/12/05 20:39:25
>>93
気付かなかった
あいがとうございました
解決しました＞＜

95:デフォルトの名無しさん
09/12/05 21:05:07
option explicitをつけましょう

96:デフォルトの名無しさん
09/12/07 10:08:06
>>88です。
>>89-90　レスありがとうございます。
私自身が管理しているものではないので詳しくはわからないのですが、
おそらくテストなしで入れ替えたのではと思います。

セキュリティ関連も含め、実機での再現試験を行いたいと思います。

ありがとうございました。

97:デフォルトの名無しさん
09/12/08 03:04:28
VB6でAPIのMoveMemoryとCopyMemoryを使ったとき
引数で渡した変数をどう扱ってるのかさっぱりわからん
コピー元の変数は中身をデータとして渡すのか中身のデータをコピーデータアドレスとして渡してるのか
コピー先の変数の中身に直接データを書き込むのかコピーしたデータのアドレスを書き込むのか
さっぱりわからん

98:デフォルトの名無しさん
09/12/08 06:02:29
void CopyMemory(
__in PVOID Destination,
__in const VOID* Source,
__in SIZE_T Length
);

なんだから、アドレスにデータを書き込むんだろ？

99:デフォルトの名無しさん
09/12/08 12:52:38
つまり
Dim a as Integer
Dim b as Integer
b=20
CopyMemory a,b,2
ってすると
aに20がコピーされるの？

100:デフォルトの名無しさん
09/12/08 13:12:14
APIビューワそのままだとAnyだから使いにくいな。
Private　Declare　Sub　CopyMemory　Lib　"kernel32"　Alias　"RtlMoveMemory"
　　(Destination　As　Any,　Source　As　Any,　ByVal　Length　As　Long)

Integerの例ならこう書き換えると動く。
Private　Declare　Sub　CopyMemory　Lib　"kernel32"　Alias　"RtlMoveMemory"
　　(ByRef　Destination　As　Integer,　ByRef　Source　As　Integer,　ByVal　Length　As　Long)

...
CopyMemory　a,b,2

101:デフォルトの名無しさん
09/12/08 15:09:41
なるほど。ありがとう

102:デフォルトの名無しさん
09/12/08 15:15:40
例えば
Dim a(1) as Byte
Dim b as Integer
b=&H1234
CopyMemory a, b,2
ってしたら
a(0)は&h12
a(1)は&h34
というふうにできたりする？
逆に
CopyMemory b,a,2として
逆bにコピーできたりするの？

103:デフォルトの名無しさん
09/12/08 15:18:35
できるよ～
ただし、X86はリトルエンディアンなので
バイトの並びは逆になるけどね～

104:デフォルトの名無しさん
09/12/08 16:26:52
なるほど。ありがとうございます。勉強になります

105:デフォルトの名無しさん
09/12/08 16:40:27
シフト演算ってどうやるの？
論理右シフトとか論理左シフトとか

106:デフォルトの名無しさん
09/12/08 17:49:25
シフトは2倍、1/2倍、DLL呼び出しで代用すればOK

107:デフォルトの名無しさん
09/12/08 17:58:58
2倍、1/2倍だと符号ビットが計算できないっす
DLL呼び出しって？シフト演算用のDLLがあるの？

108:デフォルトの名無しさん
09/12/08 18:05:49
昔作った記憶もあるし、速度を考えなければ符号ビットを別計算してもいい

109:デフォルトの名無しさん
09/12/08 21:07:56
>>100
書き換えずに、ByVal で渡せばいいんだよ。

CopyMemory ByVal a, ByVal b, 2

110:デフォルトの名無しさん
09/12/08 21:08:43
違った。ByVal で渡すときは、VarPtr() だな。

111:デフォルトの名無しさん
09/12/08 23:46:40
>>108
速度は欲しいです
CRCというのとかALDER32というのを計算したいんですが

なんでVBはIntegerもLongも符号付オンリーなんでしょ
いろんなアルゴリズム試してみたいのに
シフト演算できないし、APIビューアに無いAPIの宣言わからないし
APIをVBで使う際に気をつけなきゃならんこともわからないし
付属のMSDNのＣＤは欲しい情報の大半が英語
といってももう10年近くVB6しかやってないし.NETとか全然違ってわからんし
C言語系は入門書ばっかで未だに理解できんし
N88BASICのほうが楽しかった

112:デフォルトの名無しさん
09/12/08 23:48:03
やはりVB6にシフト演算の処理は存在しないのですね・・・・
残念すぎますよ・・・

113:デフォルトの名無しさん
09/12/09 00:05:25
public function hidarisifuto(src as integer, sifuto as integer) as integer
on error resume next
hidarisifuto=src
for i=1 to sifuto
hidarisifuto=hidarisifuto*2
next i
end function

こんな感じで組めばいいよ

114:デフォルトの名無しさん
09/12/09 00:15:36
CRCなどなら尚更CでDLL作って呼べばいいだろ
無理してVB使う必要はまったくない

115:デフォルトの名無しさん
09/12/09 00:28:38
扱える言語がVB6とQBasicとN88BASICだけで
VB6も10年近く使ってますが、プログラミングは小趣味でやってるだけでして未だに初心者レベルです・・orz
どれもベーマガ読んだけで専門書とかまともに読んだことないですし
Cは数年前にトライしてみましたが(LSI-C86だったかな？)古いC入門書でしたが途中で挫折
CへのトライはAPIを使いたいという感じで取り組んだのですが・・・
ちなみにVB6はラーニングエディっションでして機能制限が多くてAPIビューアも付属してないです（フリーソフトのAPIビューア使ってます）
winsockコントロールも使えないのでAPIでwinsock使おうとして挫折。さっぱりわからんとです
ですがもういいです。VBではシフト演算が絶望的ということがわかりましたので
あきらめます

116:デフォルトの名無しさん
09/12/09 00:30:01
みなさんに色々とお答え頂きまことにありがとうございました。
シフト演算は諦めます。ご迷惑おかけしました。

117:デフォルトの名無しさん
09/12/09 01:41:13
ドケチで頭の固い馬鹿ジジイだな

118:デフォルトの名無しさん
09/12/09 01:43:17
warota

119:デフォルトの名無しさん
09/12/11 11:45:43
LSI-C86でWindowsのプログラムを組むのは九州から歩いて東京に行くようなものだよ
せめてVisual C++ Express Editionとか

120:デフォルトの名無しさん
09/12/11 11:46:24
歩きが自転車くらいには成る

121:デフォルトの名無しさん
09/12/11 22:07:08
TimeofDayの書式で時間と分だけ出す方法を教えてください
秒はいらないです

122:デフォルトの名無しさん
09/12/11 23:37:48
TimeOfDayって何？

123:デフォルトの名無しさん
09/12/12 06:53:42
フォームにビットマップ画像を直接描画したいのですが
どのような関数があるでしょうか？
WINAPIでやる必要があるのでしょうか？

124:デフォルトの名無しさん
09/12/12 12:59:41
ゲーム作ったとき思ったんだが
PaintPictureメソッド使うよりBitBltを使ったほうが描写処理が早いってことが分かった

125:デフォルトの名無しさん
09/12/12 13:17:20
何を今さら。

126:デフォルトの名無しさん
09/12/12 13:19:47
>>123
.NET以前のバージョンは絶望的だよ！
ビットマップファイルの構造を把握して
１バイトずつ読み込んで処理して１ドットずつ描いていくしかない！
.NETでビットマップファイルを扱える関数が出たときにはVBの大革命だ！って騒がれたんだぜ！？

127:デフォルトの名無しさん
09/12/12 13:21:10
DirectXコントロール

128:デフォルトの名無しさん
09/12/12 14:02:42
もう遅レスだろうがVBシフト演算できるだろ

129:デフォルトの名無しさん
09/12/12 14:07:09
Dim suuji as Long
Dim suuji2 as Long
suuji = 2
suuji2 = suuji << 3

130:デフォルトの名無しさん
09/12/12 14:09:48
Visual Basic における算術演算子
URLﾘﾝｸ(msdn.microsoft.com)(VS.80).aspx

msdnにもしっかり記述されている

131:デフォルトの名無しさん
09/12/12 14:11:53
へー。VB6 でそんなの使えるんだ。すごいね。

132:デフォルトの名無しさん
09/12/12 14:14:45
DirectXコントロールの使い方分かる人いる？

133:デフォルトの名無しさん
09/12/12 14:18:10
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方が分からない

134:デフォルトの名無しさん
09/12/12 14:19:59
昔持ってた本がこれ使わないで普通にAPIで記述してたからさ

135:デフォルトの名無しさん
09/12/12 15:23:41
最近、始めたんだけど
上司にボタンを押してocxの画面を出してと言われたのだが
ocxって、フォームに貼り付けて使うんじゃないの？
出す方法があるなら、誰か教えて；；

136:デフォルトの名無しさん
09/12/12 15:44:35
VBのヴァージョンは？

137:デフォルトの名無しさん
09/12/12 16:14:55
ocx?
OLEコントロールのことか？

138:デフォルトの名無しさん
09/12/12 16:16:41
ボタン押すたびにVisibleを変更すればよくね

139:デフォルトの名無しさん
09/12/12 16:19:23
やり方を上司に何故訊かないの？

140:デフォルトの名無しさん
09/12/12 16:22:17
ActiveXコントロール

141:デフォルトの名無しさん
09/12/12 16:29:04
135です
バージョンは、6.0です
ocxファイルを作成して
ボタンをクリックしたら、その画面が出る様にしてよと言われて
ocxを読み込む関数があるのかと思って調べたけど出てこない
別フォームに貼り付けて、単純にそのフォームを出せば良かったのだろうか？

>139
確かに聞けば良いのだが
その上司が軽く馬鹿にしてくるので
意地になってしまったんですよね^^;A

142:デフォルトの名無しさん
09/12/12 16:46:42
訊くは一時の端、訊かぬは一生の端ってね
まぁ訊くタイミングの逃してしまったのなら仕方ないよね
オイラもVB始めたばかりでわからんから
そういうの分かるベテランの人が来るのを待つしかないね

143:デフォルトの名無しさん
09/12/12 18:48:44
OCX内でフォームのインスタンスを作成してShowするメソッドを作成し、
作ったOCXをフォームに配置し、そのメソッドを呼び出せばいいだけではないのか？

144:デフォルトの名無しさん
09/12/14 16:44:20
>>141
あんたの日本語だと、馬鹿にされるのも無理ないと思う。

145:デフォルトの名無しさん
09/12/15 00:30:22
>>129
コピペしたらエラーが出た

146:デフォルトの名無しさん
09/12/15 17:14:13
スレチで誘導されてきました。　よろしくお願いします。

質問概要：
　英語版VB6.0で、Shift_jis混じりのファイルを読み、表示させる手段について

環境：
　Win2K～Win7(NT系のみ。98系は考慮しない)の「英語版」。
　Visual Basic6.0も「英語版」。

現状：
　英語環境で日本語表示させる事は問題無いけれども、shift_jisで作成した
テキストファイルを読み込ませると、文字が化けて認識される。
（日本語入力可能なグリッドに表示させると文字化けしている）

　VB6全盛の頃に、こんなときどうするというのが紹介されていた覚えがあるのだけど、
今になってググってみても全然ヒットしなくて困ってる。
　作業自体は英語圏の人が行うため英語の技術文書でも全く問題ないので、
問題解決に資する資料を教えてください。

147:デフォルトの名無しさん
09/12/15 17:25:56
コードページをインストールする。

148:デフォルトの名無しさん
09/12/16 14:36:19
英語版VBのIDE上でShiftJISのファイル開きたいのか
そのVBで作ったプログラム上でShiftJISのファイル開きたいのか
どっちなんだ
後者ならShiftJISの仕様調べて自分で実装すりゃあええや

149:デフォルトの名無しさん
09/12/16 15:06:56
？

150:デフォルトの名無しさん
09/12/17 04:08:36
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方が分からない

151:デフォルトの名無しさん
09/12/17 06:25:23
あきらめろよ。

152:デフォルトの名無しさん
09/12/17 11:14:47
ＶＢ６って内部はunicodeじゃなかったっけ？
そもそも英語版のＯＳに日本語のフォント入ってるのか？

153:デフォルトの名無しさん
09/12/17 11:21:49
すくなくともXP以降には入ってたな

154:デフォルトの名無しさん
09/12/17 14:33:09
NTや 98はどうだったか覚えてないが
2000以降なら、日本語 IME入れれば一緒に入る

155:デフォルトの名無しさん
09/12/18 14:55:42
URLﾘﾝｸ(iup.2ch-library.com)
左の画像の(x,*)に何本の黒い線が通っているかというプログラムを作りたいと思ってます。
(右の画像の赤線が通る場所)

そこで、ネットで調べてまずは色判別のプログラムを組んでみたのですが、

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()

Dim Color As Long

Color = GetPixel(Form1.Picture1.hdc, 30, 30)
'試しに30,30のR値を出力するプログラムｊ

Dim R As Long
'色分解
R = Color Mod 256
Color = Color / 256

Text1.Text = R
End Sub

Text1.Textに0が出力されてしまうのですがどこか間違っているか教えていただけませんか

156:デフォルトの名無しさん
09/12/18 16:24:26
別にPictureBoxのPointメソッドでもよさそうなのに何故にＡＰＩ？

157:デフォルトの名無しさん
09/12/18 16:26:17
>>155
＞Color = GetPixel(Form1.Picture1.hdc, 30, 30)
　　　　　　　　　　　　　　　　　　　　　　　　~~~~~~~
これだと常に(30,30)の位置の情報だけ調べることになるけど、これはどういうこと？

158:デフォルトの名無しさん
09/12/18 16:27:03
つまり(30,30)の位置に赤の色は無いってことだろＪＫ

159:デフォルトの名無しさん
09/12/18 17:02:47
実はモノクロだったんじゃないか？

160:デフォルトの名無しさん
09/12/18 17:04:14
黒→　Ｒ＝０
白→　Ｒ＝２５５

161:デフォルトの名無しさん
09/12/19 03:22:35
>>156
Pointメソッドのほうが簡略化できたりするんですかね

>>157
すみません。
とりあえず、色判別ができているかどうかというプログラムを確認ために30.30という座標に指定してました。
本来は(x,30)などにしてFOR文などのループででxを0から端っこまでまわすつもりです。

162:デフォルトの名無しさん
09/12/19 12:12:01
Color=GetPixel(Form1.Picture1.hdc, 30, 30)
Color=Picture1.Point(30,30)

同じようなものだから、API使わなくておｋ。使ってもまあ問題はないが。
座標値を30,30近辺で変えて、どこかで255になればおｋ

163:デフォルトの名無しさん
09/12/22 17:01:53
VB6です。
URLﾘﾝｸ(www.happy2-island.com)
上記を見て、既に起動しているIE8に新しいタブを開いて、
指定したURLを開くことが出来たのですが
同じことを、FireFox3.5.6でも実行したいと思うのですが
やり方がさっぱりわかりません。
ぐぐってみたのですが、どうもやり方等を見つけることができませんでした。
方法やヒントになるwebなどあれば教えてください。

164:デフォルトの名無しさん
09/12/22 17:12:22
>firefox.exe URLﾘﾝｸ(www.google.co.jp)

165:デフォルトの名無しさん
09/12/22 17:25:01
>>155
（３０，３０）の位置の色がわからんと、Ｒの値が正しいか分からないじゃないか
常にＲが０とのことだが（３０，３０）の位置の色は赤の成分が無いのじゃないのか？

166:デフォルトの名無しさん
09/12/24 20:49:55
VB6.0でADSIを使いLDAP接続しています

SSL接続でかつ匿名接続を指定したいんですが
これは出来るんでしょうか？

LDAPサーバー：2003Server & OpenLDAP

参考にしているサイト
URLﾘﾝｸ(msdn.microsoft.com)

167:デフォルトの名無しさん
09/12/27 01:40:43
VB6やMS-Accessでmdbファイルのテーブルに、レコードの追加や削除や更新を
する処理を、全部SQLステートメントで実行してたけど、本を見ると、Field
オブジェクトに値を代入して、RecordsetオブジェクトにInsertやUpdateメソ
ッドで追加や更新したり、Deleteメソッドで削除したりする方法があるのを
今更になって知った。
Oracleも同様に全部SQLで処理してたけど、同様のメソッドも用意されてるん
だろうか。
何でもかんでもSQLで処理するものだとしか思い付かなかった俺は、恥か？

168:デフォルトの名無しさん
09/12/27 01:43:50
あっ、確かInsertではなくAddNewだったかな。

169:デフォルトの名無しさん
09/12/27 01:44:31
Oracleにもある。まぁ、気づかなかったのは仕方ないだろ。

170:デフォルトの名無しさん
09/12/27 02:06:40
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方教えて欲しいっす

171:デフォルトの名無しさん
09/12/27 02:08:27
いまさらそんなゴミを覚えてどうするの

172:デフォルトの名無しさん
09/12/27 02:27:41
せっかくあるんだから使いたいじゃん

173:デフォルトの名無しさん
09/12/27 11:50:38
せっかく新しく覚えるなら最新のものを学べよ
考古学者じゃあるまいし

174:デフォルトの名無しさん
09/12/27 11:52:55
133 名前：デフォルトの名無しさん[sage] 投稿日：2009/12/12(土) 14:18:10
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方が分からない

150 名前：デフォルトの名無しさん[] 投稿日：2009/12/17(木) 04:08:36
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方が分からない

170 名前：デフォルトの名無しさん[] 投稿日：2009/12/27(日) 02:06:40
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
とかあるんだけど
使い方教えて欲しいっす

ヘルプ読めよ・・・。

175:デフォルトの名無しさん
09/12/28 01:25:06
ヘルプに書いてないから訊いてるんじゃん。
ヘルプにあるのはAPIとしてのDirectXの使い方しかなくって
DirectX 7 for Visual Basic Type Library ( dx7vb.dll)
DirectX 8 for Visual Basic Type Library ( dx8vb.dll)
の使い方は書いてない

もしかしてヘルプって付属CDのMSDNライブラリとは別物？
だったらヘルプってのが何を指すのか俺には検討つかん・・・

176:デフォルトの名無しさん
09/12/29 11:47:10
Visual Basic 開発者用ドキュメントだろJK

177:デフォルトの名無しさん
09/12/30 01:06:15
>>176
ありが㌧クス
「Visual Basic 開発者用ドキュメント」でググったらトップに出てきた。
ダウンロードして読んでみるわ。感謝っす

178:デフォルトの名無しさん
10/01/01 19:13:37
VBScriptについての質問です
ドライブの空き容量を取得するにはGetDriveを使えばできますが
ドライブレターを割り当てずにフォルダにマウントしただけのパーティションの
空き容量を取得する方法はないでしょうか？

179:デフォルトの名無しさん
10/01/02 01:46:57
VBScriptについて必死に話し合うスレ
ｽﾚﾘﾝｸ(tech板)

180:デフォルトの名無しさん
10/01/02 01:48:48
○ 質問者の心得
　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
　二．VBScript、インストーラーなどはこのスレでＯＫ。　　←←←←←←★
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
　四．荒らしは相手しない。

181:デフォルトの名無しさん
10/01/02 01:53:48
無理じゃないかな。GetDiskFreeSpaceEx() とかでいけそうだけど。

182:178
10/01/04 23:00:01
>>181
ありがとうございます。
結論から言うと GetDiskFreeSpaceEx に、ドライブレターを割り当てていない
パーティションをマウントしたフォルダ名を渡すことで、
そのパーティションの空き容量を取得できました。

VBScript ではそのままでは Windows API を呼び出せないようなので、
VB で確認しようと VB2008 をインストールしたのですが、
昔使った VB6 と変わっていて、DLLImport を使って宣言すればいいことに
辿り着くまで時間がかかってしまいました。

VBScript で API を呼び出すには、
SFC mini, DynamicWrapper, DynamicWrapperX などをインストールすればできるようですが、
DynamicWrapper を使って下のスクリプトを実行しても
表示されるメッセージはヌル文字列だけでした。
多分64bit整数値の受け渡しがうまくいってないんだと思うのですが
どう対処すべきかアドバイスいただけないでしょうか？

Set dw = CreateObject("DynamicWrapper")
dw.Register "kernel32.dll", "GetDiskFreeSpaceEx", "i=slll", "f=s", "r=l"
dw.GetDiskFreeSpaceEx "C:\\", x, y, z
WScript.Echo x
WScript.Echo y
WScript.Echo z

183:デフォルトの名無しさん
10/01/05 06:19:50
ByRef で 8バイト数値でしょ？無理じゃない？
DynamicWrapper のサイト見たけど、VT_REFは使えないとか書いてあるし。

184:デフォルトの名無しさん
10/01/09 19:03:22
質問です。
パスの通った実行ファイルなどをShellなどで呼び出した場合パスの指定無しで呼び出せますが、
このとき実際に実行されるファイルのフルパスを取得することは可能ですか？
できれば実行前に取得したいです。

185:デフォルトの名無しさん
10/01/09 19:09:31
そのEXE名と環境変数PATHがわかってんだから、自分でも探せるでしょう

186:デフォルトの名無しさん
10/01/09 19:33:21
回答ありがとうございます。
それはそうですが、簡便に取得できないかと思いまして。
例えば、iexpror.exeのフルパスなどを決め打ち以外の方法で探したいのです。

187:デフォルトの名無しさん
10/01/09 20:18:46
最悪でも1時間もあれば作れるでしょう？
質問をはじめて1時間ほどたったけど、君はなにをしてたの？

188:デフォルトの名無しさん
10/01/09 20:23:07
関連づけられたファイルから実行ファイル名を取得する API はあるけど、
PATHのどこかを探すようなのはないんじゃないかな。

あんまり意味ないわけだし。

189:デフォルトの名無しさん
10/01/10 01:26:36
何がしたいんだろうね

190:デフォルトの名無しさん
10/01/10 11:42:17
実行するexe名を引数とした、環境変数PATHからフルパスを生成して確認する関数でも作れば？

191:デフォルトの名無しさん
10/01/10 12:19:40
しつこいんだよクソ野郎。

192:デフォルトの名無しさん
10/01/10 17:07:14
VB6.0とVB.NETのプログラム実行速度って違うんですか？

193:デフォルトの名無しさん
10/01/10 17:11:57
VB6.0のが速い

194:デフォルトの名無しさん
10/01/10 17:14:51
vb6の方が早いのはformの表示だけだってw
そもそもvb6じゃどうがんばっても最適化できない処理とか、
そもそも記述ができない処理がいっぱいあるのに比較になるか

195:デフォルトの名無しさん
10/01/10 17:23:34
決め付け良くない

196:デフォルトの名無しさん
10/01/10 17:33:20
実にしょぼいソフトなのに起動時間だけは一人前X3ぐらい
やたら長～いんだよなnet　ぶん投げたくなるなｗ

197:デフォルトの名無しさん
10/01/10 18:20:09
その昔VB4からひとつとばしてVB6に変えたら、
めっっちゃ重くて、こんなの使えるかぁといってたのを思い出した。

198:デフォルトの名無しさん
10/01/10 19:02:51
IDEが重いって話だよね

199:デフォルトの名無しさん
10/01/11 11:16:26
C#がVB.NETの2倍くらい早いっていうからC#って遅いんだなと思った
それとも.NETが遅いのかな

200:デフォルトの名無しさん
10/01/11 11:17:21
C#がVB.NETの2倍くらい早いっていうからC#って遅いんだなと思った
それとも.NETが遅いのかな

201:デフォルトの名無しさん
10/01/11 11:32:20
なぜ二回いうたし
なぜ二回いうたし

202:デフォルトの名無しさん
10/01/11 13:20:43
2回言う＝大事なこと

203:デフォルトの名無しさん
10/01/11 13:55:21
2回言う＝ふかわ

∴
ふかわ＝大事

204:デフォルトの名無しさん
10/01/11 15:52:46
ただのむしろ痴呆症に近い。
ボケ老人とか見てみろ一日中繰言ばっかり言ってるから。

205:蝶蝶初心者
10/01/18 00:57:48
蝶蝶初心者です。
６．０で画面に12個×４段＝48個の色文字を規則的な配列にランダムな並びで呈示し体のですが・・・
テキストボックスを使えばいいのか、ラベルなのかさえまったくわかりません。。
ちなみに文字色は赤、青、緑、黄の４色です。これもランダムに色分けしたいのです。
だれかどう書けばいいのか教えてください。おねがいします！！

206:デフォルトの名無しさん
10/01/18 01:00:00
その文字表示して何したいの？どんなアプリなのそれ？

207:蝶蝶初心者
10/01/18 01:03:54
認知心理の実験プログラムです。
このあともＲＴ計測とかあるんですが、ひとつずつ理解しようと思って。
おねがいします。。。

208:デフォルトの名無しさん
10/01/18 01:05:19
初心者なら、VB6なんてやめて他の言語にしなさい

209:蝶蝶初心者
10/01/18 01:09:40
残念ながらＶＢ６で指定されてて。
困ってます

210:デフォルトの名無しさん
10/01/18 01:15:38
さよか・・・では、条件があまり指定されていないので、色数が平均すると仮定して
・48個の配列を作り、0～11は赤、12～23は青・・・と入れていく
・その配列をランダムにシャッフルする
・LABELを配置し色を変えながら文字を書く
おわり

211:蝶蝶初心者
10/01/18 01:18:30
ラベルは４８個配置する必要があるんですね。
ありがとうございます！やってみます！
また戻るのでお暇ならよろしくです。

212:蝶蝶初心者
10/01/18 01:20:05
てか・・・・配列って何ですか？

213:デフォルトの名無しさん
10/01/18 01:25:51
そんな事まで教えてたらきりがないんだよ

214:蝶蝶初心者
10/01/18 01:28:26
っですよね・・

不躾ですが書いてもらったりできます？

215:デフォルトの名無しさん
10/01/18 01:29:01
ことわる

216:蝶蝶初心者
10/01/18 01:31:19
何とかしてみます。
ありがとうございました。

217:おねがいちゃん
10/01/22 01:28:22
スリープというかウエイト処理を行いたいのですが、うまくいきません。
Sleep(500)の類はうまくいきません、例を載せてみます。

例)
作業Ａ
System.Threading.Thread.Sleep(500)
作業Ｂ
System.Threading.Thread.Sleep(500)

が結果

System.Threading.Thread.Sleep(500)
System.Threading.Thread.Sleep(500)
作業Ａ
作業Ｂ

となってしまいます、具体的な作業は例えばシリアルからのデーター送信などでデーター送信とデーター送信の間などに使ってみたいです。

解りやすいデストとしてはブラウザ読み込み作業などの間に設置して
テストしてみたいです(ブラウザ読み込み完了を待つは使用しないで)

どうか宜しくお願いします。

218:デフォルトの名無しさん
10/01/22 01:30:11
まず君は、スレタイや>>1から読み直してもらおうか

219:おねがいちゃん
10/01/22 01:43:04
そんなこといわずに、わかってる範囲でいいので教えてください。

ほんとにお願いします。

220:デフォルトの名無しさん
10/01/22 01:53:44
スレタイや>>1から読み直してもらおうか

221:デフォルトの名無しさん
10/01/22 02:50:55
わたし、VB6しか分からない。それ以外の言語知らない。

222:デフォルトの名無しさん
10/01/22 08:15:06
>>217
作業Aと作業Bがスレッド起こして実行してるからだよ

223:デフォルトの名無しさん
10/01/22 13:27:45
>>217
こうですか？わからないです＞＜
URLﾘﾝｸ(www.age2.tv)

224:デフォルトの名無しさん
10/01/22 15:49:06
マ板でもさっき投稿見たぜ・・・
いまどきマルチとかどんだけ知らないんだよｗｗｗｗｗ

225:デフォルトの名無しさん
10/01/22 16:25:31
マジレス乙

226:おねがいちゃん
10/01/22 16:34:31
マルチというのは大体意味はわかるのですが、そもそもウエイトってどうやってるんですか？？

227:デフォルトの名無しさん
10/01/22 19:25:49
とりあえず板違いだから別の所でどうぞ

228:デフォルトの名無しさん
10/01/23 01:21:36
>>226
Dim time1 as Single
time1=Timer
Do
　If Timer-time1>1000! Then
　　If CSng(&H7FFF)-time1+Timer>=500! Then
　　　Exit Do

　ElseIf Timer-time1>=500! Then
　　Exit Do
　End If
Loop

229:デフォルトの名無しさん
10/01/23 01:24:46
>>226
Sub Sleep(WaitTime As Single)
　Dim time1 As Single
　time1=Timer
　Do
　　If time1>Timer Then
　　　If CSng(&H7FFF)-time1+Timer>=WaitTime Then
　　　　Exit Do
　　　End If
　　ElseIf Timer-time1>=WaitTime Then
　　　Exit Do
　　End If
　Loop
End Sub

次ページ