09/07/13 21:12:36
ここは Visual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。
VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。
○ 質問者の心得
一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
二．VBScript、インストーラーなどはこのスレでＯＫ。
三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
四．荒らしは相手しない。
○ 回答者の心得
一．答えられない質問は無駄に罵倒せずスルー。無理するな。
二．代用法を強制しない。
三．回答する上で必須ではない情報をむやみに聞き返さない。
四．荒らしは相手しない。
五．VB情報募集中。
六．回答は質問者が理解できるよう具体的に。
MSDN Online Japan ホーム
URLﾘﾝｸ(www.microsoft.com)
Visual Studio 6.0 Service Pack 6
URLﾘﾝｸ(msdn.microsoft.com)
URLﾘﾝｸ(www.google.co.jp)
※「まず自分で調べる」クセを身につけよう。
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
230:デフォルトの名無しさん
10/01/24 03:47:46
これは酷い
231:デフォルトの名無しさん
10/01/25 03:27:54
エラーが発生しました。
232:デフォルトの名無しさん
10/01/25 11:11:19
エラーは見なかったことにしました。
233:デフォルトの名無しさん
10/01/25 11:30:57
魔法の言葉
on error resume next
234:デフォルトの名無しさん
10/01/25 12:47:29
無視した結果
Windowsが強制終了しました。
235:デフォルトの名無しさん
10/01/25 23:07:31
それはOSが悪い
236:デフォルトの名無しさん
10/01/26 00:46:25
VB6で.NETのクラスを使うにはどうすれば
237:デフォルトの名無しさん
10/01/26 00:50:30
regasmでCOMとして登録するとVB6から使える。
238:デフォルトの名無しさん
10/01/26 00:56:56
VB6のラーニングエディションからWinSockコントロール使ったりする方法ってある？
239:デフォルトの名無しさん
10/01/26 01:19:34
>>236
CreateObjectでいくつか使える
たとえばStringBuilderとか
Set sb = CreateObject("System.Text.StringBuilder")
sb.Append_3 "hogehoge"
sHoge = sb.ToString()
240:デフォルトの名無しさん
10/01/26 06:30:08
>>237
>>239
㌧
241:デフォルトの名無しさん
10/01/27 10:48:25
VB6.0で任意のプログラムがタスクバーに表示されているかを確認できますか？
タスクマネージャのプロセスで実行中かはAPIを使えば判断できそうですが、
タスクバーの状態を確認するAPIが見つからず質問に至りました。
よろしくお願いします。
242:デフォルトの名無しさん
10/01/27 23:18:47
ITaskbarList を使えばできる。
243:デフォルトの名無しさん
10/01/28 00:41:23
Win32API質問箱 Build85
ｽﾚﾘﾝｸ(tech板)
244:デフォルトの名無しさん
10/02/02 22:35:52
マイクロソフトのHPにあるVB6.0SP6ランタイムでcomdlg.ocxを使用するツールは動作しますか？
URLﾘﾝｸ(www.microsoft.com)
245:デフォルトの名無しさん
10/02/02 22:38:46
無理。
246:デフォルトの名無しさん
10/02/02 22:43:13
早速の回答有難うございます。
では、Vectorでダウンロードできるランタイムセットでは
comdlg32.ocxは動きますでしょうか？
247:デフォルトの名無しさん
10/02/02 22:52:05
うん。"全部入り" みたいのがあるから、そっち使ってね。
248:デフォルトの名無しさん
10/02/02 22:59:28
素早い有難うございます！
調べてみてもマイクロソフトじゃなくVectorからしか書いていないわけがわかりました。
早速ダウンロードしてみます。
249:デフォルトの名無しさん
10/02/03 00:02:55
VB6.0でpng画像をimageに表示したいんですが、どうすればいいのでしょうか？
250:デフォルトの名無しさん
10/02/03 00:04:50
ＶＢプログラマをバカにするスレはここでしょうか？
君たちメシ食えてるの？？？
251:デフォルトの名無しさん
10/02/05 13:13:31
まぁネタにマジレスもあれだが
ほんとVB６使ってるだけで馬鹿にするやつまだいるんだな
ほんとに無知でVBたたいてるやつもいるんだろうな
252:デフォルトの名無しさん
10/02/05 13:15:56
所詮は全角厨だしな
253:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/02/05 21:54:40
ちょっとスレ違いな気がするけど、
本文を一回トレースして、改行コードを
%0d%0aにしないとダメなんじゃない？
送信アカウントの件はわからない
255:デフォルトの名無しさん
10/02/09 22:47:41
VB6って、ソースを難読化するツールってあるのでしょうか？
256:デフォルトの名無しさん
10/02/09 22:56:13
何のためにソースを難読化なんてするんだよw
ドトネトの難読化ツールが何のために存在してるのか分かってる？
257:デフォルトの名無しさん
10/02/09 23:02:30
えーと、デコンパイルが容易だからだと思います
VB6は、デコンパイルが難しいため、難読化ツールが
WEB上に見当たらないのですが、存在するか、しないのか、
ちょっと理由があって、知りたいのです。
知ってます？
258:デフォルトの名無しさん
10/02/09 23:09:37
その理由を言ったほうが答えやすいだろ
259:デフォルトの名無しさん
10/02/09 23:13:05
いえ、ちょっと理由あって。。。
2chも誰が見てるかわかんないし。
すみません。
教えてくれませんか？
260:デフォルトの名無しさん
10/02/09 23:15:07
胡散臭い奴だな
261:デフォルトの名無しさん
10/02/09 23:19:22
しゅみません・・・
胡散臭いですよね・・・
最近、用心深くなってしまって。
失礼しました
262:デフォルトの名無しさん
10/02/09 23:26:10
VB6のバイナリには、COM関連以外はメソッド名もプロパティ名も変数名も入ってないんじゃないの？
一体全体何を難読化するんだ？
しかもソースを難読化とか言ってるし。
訳がわからん。
263:デフォルトの名無しさん
10/02/09 23:28:23
訳わかんないでよね。。
もう忘れてください。。
264:デフォルトの名無しさん
10/02/09 23:35:10
VB6用の逆汗ツールはあるけどね。
265:デフォルトの名無しさん
10/02/10 00:27:36
パスワード付ZIPで保存すればおｋ
266:デフォルトの名無しさん
10/02/10 00:31:11
publicな変数は入ってるな。
267:デフォルトの名無しさん
10/02/10 08:19:46
VB6でもPコードだとソースに戻せるの？
268:デフォルトの名無しさん
10/02/10 12:51:52
DataGridViewを使っています。
フォームロード時にセルの高さをColumnHeaderの高さと同じにしたいと考えています。
ColumnHeader.Heightの値は'16'に設定しているのですが、
ShownイベントハンドラからColumnHeader.Heightを見ると'23'になっています。
さらにShownイベントハンドラ内で
Me.DataGridView.ColumnHeadersHeight = 18
としても値が変わりません。
これはなぜなんでしょうか。
269:デフォルトの名無しさん
10/02/10 18:03:15
すみません、スレ違いでした
それでは
270:デフォルトの名無しさん
10/02/11 16:46:08
ドライブリストボックスからドライブを指定したときに
フロッピーのＡドライブとかＣＤ－ＲＯＭドライブとかを指定するとエラーはきます
フロッピーやＣＤが入ってない状態で指定したときにフリーズしないようにしたいです
何でもよいのでコメください。
ヘルプではこんなのでた↓
＞例外のトラブルシューティング : System.IO.IOException
＞IOException は、ファイルの読み取りまたは書き込みに失敗した場合など、
＞I/O エラーが発生するとスローされます。
271:デフォルトの名無しさん
10/02/11 16:52:56
> 何でもよいのでコメください。
スレ違い。
272:デフォルトの名無しさん
10/02/11 18:41:02
ほんまやゴメン(´･ω･｀)
273:デフォルトの名無しさん
10/02/11 20:43:37
しかも他のスレで答えを貰ってるのに
274:デフォルトの名無しさん
10/02/11 23:52:17
応用力が低い人がプログラミングすべきじゃないね
275:デフォルトの名無しさん
10/02/12 12:56:13
応用していくのが楽しいのにね
276:デフォルトの名無しさん
10/02/12 19:00:44
おうよ！
277:デフォルトの名無しさん
10/02/19 12:06:39
久々にVB6でコーディングしたら、FormイベントのQueryUnloadとUnloadの違いがわからない人間になってましたorz
両者の使い分けを詳しく教えて頂けますか。
QueryはUnloadをキャンセルできるのかと思ったけどUnloadでもキャンセル出来ますし。
正直Unloadイベントはいらない子という事なんでしょーか？(下位互換性のために残ってるとか)
あるいはQueryUnloadとUnloadの間に何か他の事が起こりうるって事でしょうか？
私のググり能力が低いようで、探しても言及してる内容が見つけられませんでした。
MSDNの説明読んでも禅問答みたいな内容で・・・アハァ。
278:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/02/19 13:22:49
>>277
>>278-279
281:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/02/19 13:33:20
たとえばMDIFormを閉じようとしたとき
子フォームのどれかでもQueryUnloadでCancelするとMDIFormのアンロード自体がキャンセルになるけど
子フォームのどれでもUnloadでCancelしてもMDIFormのアンロードをキャンセルすることが出来ないってことだろ
Windows終了の話もこれと同じだな。
283:デフォルトの名無しさん
10/02/19 14:06:13
VB6LEでSysInfoコントロールやWinsockコントロールを使う方法ってありますか？
284:デフォルトの名無しさん
10/02/19 14:06:56
エラーがでてコントロールを配置できないんです
285:277
10/02/19 17:22:51
>>278-282
超ありがとうございました！
>>279のMSDNは見つけてなくて助かりました。(>>278だけ読んで首ひねってました)
>>281-282の要約や具体例おかげで話がよく見えました。
あとは実際に試して体感的に確かめようと思います。
どうもありがとうございました。
286:デフォルトの名無しさん
10/02/19 18:22:04
実際に試すのが先だろ！
287:デフォルトの名無しさん
10/02/20 01:32:47
>>270
魔法の言葉
On Error Resume Next
288:デフォルトの名無しさん
10/02/20 01:35:03
>>257
リストラされそうなんですね
わかります
289:デフォルトの名無しさん
10/02/20 17:12:47
Select CaseのCaseのって数値だけ指定できるのかと思ってた。式も指定できたんだね
290:デフォルトの名無しさん
10/02/20 17:16:19
Select CaseのIsって使ったことある人いる？
分岐ってSelect CaseとIf,ElseIfで内部の処理的にはどう違う？
処理の早さとかプログラムサイズ
とか
291:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/02/20 17:26:59
確かめたことはないが高機能のCASE文をサポートしている言語は、
if - else if - else if - else - 型の実装になってることが多い。
制限の多いCやC#のCASE文はジャンプテーブル式。
293:デフォルトの名無しさん
10/02/20 17:31:42
なるほど
>>291のselect文あれじゃ動かないね
select case k
case is<5
case 5 to 10 and k10
case else
end select
294:デフォルトの名無しさん
10/02/20 17:36:42
ForNext文のNextって変数省略してる？
295:デフォルトの名無しさん
10/02/20 17:39:11
省略してる。その代わり、Next I, J は絶対やらない。
296:デフォルトの名無しさん
10/02/20 17:56:02
定回数ループにはやっぱForNext使うの?
DoLoopとかWhileWendのほうが処理早かったりする？
297:デフォルトの名無しさん
10/02/20 18:04:02
その二つに差があるとして、10の何乗回ループしたら人間にわかるような差になるのかねw
っていうか、既に終わってるVB6が全盛期だった時代ですら終わってる考え方だわそれ。
32bitのCPUがGHzで動いてる時代に、いい加減そういう80年代のインタプリターのBASIC脳の
発想止めたら？w
298:デフォルトの名無しさん
10/02/20 18:07:59
>>297
そんなに大差ないってことっすね
GosubReturnって使ってる人いる？
299:デフォルトの名無しさん
10/02/20 20:41:26
化石すぎる・・・
300:デフォルトの名無しさん
10/02/20 22:24:44
>>290
ollydbgで見ると
selectはジャンプテーブルで処理
elseif は順に判断してる
コード容量はselect＞elseif
速度はselect＜elseif
今のハードだと気にすることではないけどな
301:デフォルトの名無しさん
10/02/21 00:54:50
ありがとうございます
302:デフォルトの名無しさん
10/02/22 01:58:34
Windows95が未だ現役のうちは化石ってことか・・
303:デフォルトの名無しさん
10/02/22 22:55:26
>>302
企業ならまだありだなぁ・・・
うちも95,98やNT4.0初期のやつとかあるし
昔のPCはムダに物もちがいいから困るｗ
304:デフォルトの名無しさん
10/02/22 23:18:47
生産現場ではMS-DOSがナウい
305:デフォルトの名無しさん
10/02/22 23:20:56
FC-98？
306:デフォルトの名無しさん
10/02/23 00:11:09
うちで最古で動くＰＣは
PC9821Cx、CDドライブいかれちまったのでWindows3.1が再セットアップできん
ずっとMSDOSのまま。まぁN88BASICしか使わんから別に気にしてないけどな
307:デフォルトの名無しさん
10/02/24 11:09:32
うちのラインでは
PC-9801UVがあってMS-DOSにQuickBasicで作られていて
Cバスのボード使ってGPIB機器を動かしています
元気すぎて置き換えとか言い出せない
308:デフォルトの名無しさん
10/02/25 00:57:38
VB6でゲーム作ってる人いる？
カードゲームみたいな静止ゲーじゃなくて、ブロック崩しとかみたいな動きのあるやつ。
そういうゲームでのメインループとかどうしてる？
やっぱCやJAVAみたいにwhileみたいなループ内で処理してる？
俺Timerコントロールでループの代わりさせてんだけど
VB6で作るのでもやっぱDoLoopとかでメインループ処理したほうがいいの？
その場合、やっぱループ内にDoEventsとかいれるの？
309:デフォルトの名無しさん
10/02/25 00:58:35
メインループはやっぱりForm_Loadメソッド内に置くの？
それとも標準モジュールでmainメソッド内に置くの？
310:fasasdfa
10/02/25 01:24:26
afdadfad
311:デフォルトの名無しさん
10/02/25 02:29:32
MyYahooの表示コンテンツをマウスのドラッグでグラフィカルに位置替えできるけど
あれみたいな感じに
たとえばフォームに大量に配置したラベルコントロールとかを
ユーザーがドラッグでグラフィカルに配置換えするみたいなことって
どうすれば実現できる？
312:デフォルトの名無しさん
10/02/25 09:12:01
ドラッグアンドドロップでコントロールのロケーションいじったらええだけちゃいますのん？
313:デフォルトの名無しさん
10/02/25 11:14:14
ロケーション？
314:デフォルトの名無しさん
10/02/25 15:26:27
表示位置のことじゃないかと思う
315:デフォルトの名無しさん
10/02/25 15:34:40
>>311
mousemoveイベントがあるよ
316:デフォルトの名無しさん
10/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
10/02/26 03:24:50
>>316
前半のその例のタイマーの使い方さっぱり理解できない・・・
俺はｃやjavaでwhileループ内で処理することをTimerコントロールのTimerイベント内で処理してる
その方法が普通なのかあまりよくない方法なのか知りたかったから質問したのさ
なるほど、cやjavaみたいにループ回すみたいなことはVBではしないってことか・・・
インターバルの長さによって使い分けるのね・・・なるなる
318:デフォルトの名無しさん
10/02/26 09:06:06
あれだな やっぱCやJAVAできるやつがレベル高井ってわけじゃねぇなｗ
319:デフォルトの名無しさん
10/02/26 09:22:44
ゲームならタイマーイベントとかじゃなく
CやJavaみたくゲームループ作って
DoEventsだけいれといてあとは
時間はかってwait入れるんじゃないの
いや、ゲーム作ったことないから知らないけどｗ
320:316
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/02/26 19:23:37
練習用にどうぞ
☆Visual Basic Version 5.0(ActiveXコントロールの開発可能)
Visual Basic Version 5.0 Control Creation Edition SP2 日本語版
URLﾘﾝｸ(download.microsoft.com)
Visual Basic 5.0 Control Creation Edition: SP2 ヘルプ ファイル
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(download.microsoft.com)
Visual Basic Version 5.0 Control Creation Edition: レジストリ修正モジュール
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(download.microsoft.com)
Visual Basic 5.0: RecentFiles ツール
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(download.microsoft.com)
323:デフォルトの名無しさん
10/02/26 23:33:34
VB5っていつ時代のものなの？
324:デフォルトの名無しさん
10/02/26 23:35:19
97年。
325:デフォルトの名無しさん
10/02/26 23:38:50
13年前か・・・古いね
326:デフォルトの名無しさん
10/02/27 00:07:44
その13年前から進歩してない人がいるんですよ
そこのお前、そうだよな？手をあげろ
327:デフォルトの名無しさん
10/02/27 00:10:22
VB6は何年物？
328:デフォルトの名無しさん
10/02/27 00:12:03
VB6は98年。
329:デフォルトの名無しさん
10/02/27 00:14:07
VB6とかで２ｃｈ専用ブラウザって作れる？
もちろん既存の２ｃｈブラウザと遜色ないレベルのもの。
古いVBではサポートされてない機能とかあるとかで無理ぽい？どう？
VBでしかプログラム組めないってこと前提でﾖﾛ
330:デフォルトの名無しさん
10/02/27 00:15:18
たった1年でVB5は不要になったわけか
VB5に入れ替えた企業とか涙目だな
331:デフォルトの名無しさん
10/02/27 00:16:15
>>329
これVB６じゃなかったか？
URLﾘﾝｸ(www8.plala.or.jp)
332:デフォルトの名無しさん
10/02/27 00:17:46
VB6でもAPI使えばいろいろできるし。
それなりのモノは作れるよ。
333:329
10/02/27 00:23:11
>>331
それVB製だったのか知らんかったわ
>>332
つまりＡＰＩ駆使しないと作れないってわけか
ちなみに持ってるのラーニングエディションなんだけど大丈夫だよね？
334:デフォルトの名無しさん
10/02/27 00:25:33
その程度の人はいまさらVB6なんてやらないで.NETを覚えればいいじゃん
335:デフォルトの名無しさん
10/02/27 00:31:06
そのレベルなら無料なんだしね
VB6なんて旧ソフトの保守くらいにしか使わないな
かといってACTIVEX使いまくりで変に客側に使い勝手のいいソフトは移行がめんどくさい
336:329
10/02/27 00:32:16
.NETって無償バージョンがあるんだっけ？
.NETのソースコード、昔どっかで見たような気がするけど、VB6と全然違ってわけわかんなかった
337:329
10/02/27 00:36:27
今更と言っても
初めて買ったプログラミングソフトのがVB6で（もう10年くらい前かな)
未だにWindows95で思いついたの作るの挑戦してるというわけで
今度は自分専用の２ｃｈブラウザでも作ってみようかと思ったわけですよ
338:329
10/02/27 00:40:18
プログラミングのレベルが低いのは
6年位前までVB6関連の書籍が入手できなかったので（ネットも使えなかった）
ベーシックマガジン頼りに掲載プログラム移植してみたりとかしてる程度だったのよ
339:デフォルトの名無しさん
10/02/27 00:46:45
, - ―‐ - ､
／ ＼
/ ∧ ∧ , ヽ
./ ｌ＼:/- ∨ -∨､! , ', さあみんな集まってー！
/ ハ.|/ ∨|,､ﾍ 自分語りスレがはじまるよー！！
|ヽ' ヽ ● ● ﾉ! l
. 〈｢!ヽﾊ._ ＿＿ _.lﾉ |
く´ ＼.） ヽ. ノ （.ﾉ ￣
＼ ｀'ｰ-､ ＿＿_,_ - '´
｀ - ､ ||V V|| ＼
| || || l＼ ヽ
340:デフォルトの名無しさん
10/02/27 00:47:10
閉じた世界でならかまわないが、他人様のサーバにアクセスするには繊細な知識を持ってからやれよ？
341:329
10/02/27 00:59:52
インターネットってそんなにハイレベルな技術なのか・・・難しそうだな
342:デフォルトの名無しさん
10/02/27 01:05:09
ブラウザコンポーネント貼り付ければ9割はできたようなものさ
343:デフォルトの名無しさん
10/02/27 01:14:34
はぁ？おまえ作ったことあんのか？単なるWEBブラウザの話をしてんのか？
344:329
10/02/27 01:15:29
なるほど簡単そうな感じ
でも細かいことはこれから調べながらゆっくり自分のペースで作ってくつもり
VBの仕様的に作るの無理かどうか知りたかっただけだから
あとは自分でなんとかするよ
>>331がVB製ってことだけで安心材料だ
345:329
10/02/27 01:16:49
お礼言ってなかったので
最後に、
みなさん回答ありがとうございました
346:デフォルトの名無しさん
10/02/27 01:29:18
自分でなんとかするな！
2chブラウザには決まりがたくさんあるんだから、それを熟知してからにしろ！
DAT経由じゃなくて単なる読み込みだけなら何もいわんけどさ
347:329
10/02/27 01:34:26
なんかよくわからないけど
色々調べてからやりますんで安心してくださいな
348:デフォルトの名無しさん
10/02/27 01:39:54
よくわからないくせに大口たたくなクソ野郎
349:デフォルトの名無しさん
10/02/27 13:25:46
2chブラウザ作るならこの辺りのスレに情報ある。というかそこにいる
あと俺も自分用にVB6で作ってる途中。既存のブラウザと全く劣らないのは俺には無理だがえろい人ならやってくれるはず
monazilla Part 6
ｽﾚﾘﾝｸ(tech板)
2ch専用ブラウザの作り方
ｽﾚﾘﾝｸ(tech板)
350:デフォルトの名無しさん
10/02/27 14:57:42
VBをやるのはVB.NETをインストールするハードディスクがないからなんでしょ?
351:デフォルトの名無しさん
10/02/27 15:11:22
Windows95だからって書いてあるような。
セキュリティ的にも問題のあるWin95はさすがに迷惑に思うが。
ネットでもVB6の情報は入手し難くなってるし、目先しか見えない阿呆に感じる。
352:デフォルトの名無しさん
10/02/27 15:17:12
ﾏｿﾞなんだろ。ほっとけよ。
353:デフォルトの名無しさん
10/02/27 15:23:01
変なのはほっとくのが一番だな
354:デフォルトの名無しさん
10/02/28 00:56:16
ここVB6の質問スレ
ネットで情報収集できなければ組めないエセが何言ってんだか
>>346みたいな挫折のストレス解消したかったら他へ行け
355:デフォルトの名無しさん
10/02/28 01:01:56
安価ミス
>>346じゃなくて>>347な
356:デフォルトの名無しさん
10/02/28 01:09:53
>>347のどこが挫折？
あれはどうのこれはどうの否定的なこと言って足を引っ張る馬鹿よりも俺は329を応援する。
357:デフォルトの名無しさん
10/02/28 01:40:53
否定的ってのはどれの事だろう
何に対しての否定？
358:デフォルトの名無しさん
10/03/01 03:28:00
ExcelのVBAってVB6なんだっけ？
359:デフォルトの名無しさん
10/03/01 11:10:52
JavaとJavaScriptが同じものと言うような人ならそうだろう
360:デフォルトの名無しさん
10/03/01 11:17:10
うん。VB6相当。
361:デフォルトの名無しさん
10/03/01 12:44:32
VB6で2chブラウザ作って自分で使ってる。今現在、別に問題なく読み書きできてるが
素人の自分でも大した知識もなくできてしまった。もう一年くらい前に作ったやつなので
細かい所はよく覚えてない。何で動いてるのか自分でも不思議だ。
もしかすると何かサーバーに迷惑かけてるかもしれんｗ
362:デフォルトの名無しさん
10/03/01 13:20:45
だからそれはDATを叩いたりしてるものじゃないんだろ？
ただのブックマーク管理ソフトなら問題無いじゃん
363:デフォルトの名無しさん
10/03/01 21:07:28
普通にdat叩きしてるが何そんなに否定したいの？？
具体的な注意事項書いてあげるでもなく作法があるだの
言っているのは人の足を引っ張りたいだけにしか見えない
VBある程度わかっていて専ブラやりたいなら
URLﾘﾝｸ(www.monazilla.org)
次はこの辺りをみるといいよ
364:デフォルトの名無しさん
10/03/01 21:38:58
注意事項はもう出てるじゃん
馬鹿なの？
365:デフォルトの名無しさん
10/03/01 21:43:37
ソースどころかEXEも出せないんだから肯定できないな。
妄想はチラシの裏にでも書いてろと。
366:デフォルトの名無しさん
10/03/01 21:50:40
車の運転をしたことない奴が高速道路を走ると言われたら全力で阻止するよな
367:デフォルトの名無しさん
10/03/01 21:59:49
高速のほうが一般道より安全だよ
368:デフォルトの名無しさん
10/03/01 22:05:12
高速のほうが一般道より被害がでかいよ
369:デフォルトの名無しさん
10/03/01 22:09:43
教えて大丈夫そうな相手なら、さっさとリンク張ってるだろう。
誰も教えなかったって事は、そういう事だ。
370:デフォルトの名無しさん
10/03/02 21:50:53
この話はここまで。はい、次の質問どうぞ。
371:デフォルトの名無しさん
10/03/02 23:37:41
exeもソースも出さないけど俺も作ってるよ
URLﾘﾝｸ(sageuploader.vs.land.to)
まだここまでしかできてない。画面デザインは某PDA向けブラウザから拝借した
昔も作ったけどあの頃は今より知識なくてめちゃくちゃになってたからまた最初から作ってる
多分これも完成しないまま放置されて数年後にまた最初から作り直してると思う
372:デフォルトの名無しさん
10/03/02 23:58:48
が、画面デザイン？
デザインて......いや悪く言うつもりはないが
373:デフォルトの名無しさん
10/03/03 00:03:02
レイアウトって言った方がよかったか？
大体通じると思ったけど見た目とか操作性をそのまま拝借したと言いたかった
374:デフォルトの名無しさん
10/03/03 00:37:32
プロのプログラマーじゃなくて
アマのプログラマーか
375:デフォルトの名無しさん
10/03/03 07:09:13
>>371
仕事中に２ちゃんするよう？
376:デフォルトの名無しさん
10/03/03 07:51:25
datを叩くって、いかにも中二病的な言い回しだな
377:デフォルトの名無しさん
10/03/03 08:05:15
まあ２ちゃんブラウザは誰もが一度は通る道さ
セックスと同じ
378:デフォルトの名無しさん
10/03/03 08:08:33
ぼくのかんがえたさいきょうぶらうざ
379:デフォルトの名無しさん
10/03/03 14:31:20
>>371
自分の作ってみたい欲を満たすためだけのオナニー用ブラウザ
>>377
オナニーじゃなくて？セックスは通らない人もいるだろ。例えば俺とか
380:デフォルトの名無しさん
10/03/03 14:35:33
デリヘルでも呼べばいいのに
彼女作るよりよっぽど安上がりだぞ
381:デフォルトの名無しさん
10/03/03 14:38:13
当初の質問者はもういないのに（たぶん）
まだ２ちゃんブラウザの話続いてたんか
382:デフォルトの名無しさん
10/03/03 14:46:27
デリヘルの話をしてるのに当初の質問者の話をするな
383:デフォルトの名無しさん
10/03/03 15:07:48
>>379
俺もだ。仲間が居て安心した。
384:デフォルトの名無しさん
10/03/03 15:12:10
童貞と素人童貞のすくつでつね
プログラマーに彼女とか恋人とか結婚とか無理ってか？
ビッチ「ＶＢ？今時ＶＢなんてダッサ～いｗ何それ～ｗｗ」
385:デフォルトの名無しさん
10/03/03 15:24:48
明示的な型変換ってどんなときに使えばいいの？
CIntとかCStrってIntやStr使えばいいし
386:デフォルトの名無しさん
10/03/03 15:28:54
使わない
387:デフォルトの名無しさん
10/03/03 15:31:44
>>385
アホか
388:デフォルトの名無しさん
10/03/03 17:55:48
>>385
彼女がString欲しがってるのにByte配列無理やりねじ込む時とか、
Variant突きつけられても、文字列な僕を数字扱いして欲しい時とか？
どこでいるの？って思ってるなら、よっぽどの馬鹿か、暗黙的にもう理解しているかの二極だ。さぁ君はどっち？
ようは暗黙の型変換をちゃんと理解してればほとんど使わないんだよ。
いる時は相手の関数の仕様か、Variantが必要な時くらいでそ。(Variantが必要ってのも正直皆無だし)
389:デフォルトの名無しさん
10/03/03 18:22:43
>>385
CInt等を使うと処理が遅くなってしまうので使ってはいけません。
390:デフォルトの名無しさん
10/03/03 18:23:38
>>385
使うとソースコードが読みやすくなるので積極的に使いましょう。
391:デフォルトの名無しさん
10/03/03 18:30:01
>>385
ビッチはそんなこと言わない
そもそもVBを分かる女なんていねーよｗ
恋愛したいんなら出会い系逝け
392:デフォルトの名無しさん
10/03/04 14:51:48
Windows上で起動しているアプリケーションのタイトルの一覧取得する関数ってVBである？
API使って取得するしかない？
AppActivateで既に起動してるアプリを指定しようと思ったんだけど
393:デフォルトの名無しさん
10/03/04 14:59:37
ggrks
394:デフォルトの名無しさん
10/03/04 16:21:56
>>388
＞彼女がString欲しがってるのにByte配列無理やりねじ込む時とか、
シリアルポートに0xf1辺り投げたいとき
395:デフォルトの名無しさん
10/03/04 20:41:34
>>392
ない。
396:392
10/03/05 00:03:48
>>395
回答どーもです
やっぱ無いか・・・API使うしかないんだな・・・API使うの面倒だから嫌なんだよね
LEだからAPIビューワとかなくて自分で調べるしかなくってさ
まぁただの愚痴だけど
397:デフォルトの名無しさん
10/03/05 13:27:17
何のためにインターネットがあるのかね。ぐぐれば出てくる
398:デフォルトの名無しさん
10/03/05 15:41:14
>>393
399:デフォルトの名無しさん
10/03/05 20:30:17
ggrksの意味がわからないのでググってみましたが
グーグル先生にググれカスと怒られてしまいました
400:デフォルトの名無しさん
10/03/08 16:23:13
>>399
おい！そのままほっとくとスタックあふれるぞｗ
401:デフォルトの名無しさん
10/03/08 16:36:44
VBは末尾再帰をループ化してくれないのか
402:デフォルトの名無しさん
10/03/09 03:50:24
くそう
implements用の空クラス、イベントだめなんだな。共通イベントとか出来ないとか
くそがああああああああああああああ
403:デフォルトの名無しさん
10/03/09 09:33:07
FormやUserControlでImplementsもできないし全体的に中途半端
別に管理用Classを作るしかない
404:デフォルトの名無しさん
10/03/09 19:41:06
VBってインターフェイスはイベント定義できなかったのか。
まあ、だとしてもVBの組み込みのイベント機能を使わずに、
Javaなんかのようにリスナを集約するようにすればいいんだよ。
405:デフォルトの名無しさん
10/03/09 22:18:00
一つのイベントを複数のクラスが受け取るためには
イベントを受け取りたいクラス全部にリスナ的なものを作って
そのイベント発生させるクラスに全部渡すと
406:デフォルトの名無しさん
10/03/09 22:19:17
with eventじゃだめなのか
407:デフォルトの名無しさん
10/03/09 22:23:03
イベントだけを羅列させたクラスを使いまわせばおｋ
408:デフォルトの名無しさん
10/03/09 22:26:11
>>405
＞一つのイベントを複数のクラスが受け取るためには
そんなことはVBに組み込みのイベントで普通にできるでしょ。
何をいってんの。
409:デフォルトの名無しさん
10/03/10 00:08:07
>>408
具体的ソースで>>402の悩みを解決してあげて
410:デフォルトの名無しさん
10/03/10 00:31:58
>>409
ClassA.cls
Public Event MyEvent()
----------------------
ClassB.cls
Implements ClassA
Public sub Hoge()
RaiseEvent MyEvent
End Sub
----------------------
ClassC.cls
Public WithEvents classA1 As ClassA
Private Sub classA1_MyEvent()
Debug.Print "Hoge"
End Sub
----------------------
Form1.frm
Private Sub Form_Load()
Dim classB1 As New ClassB
Dim classC1 As New ClassC
Set classC1.classA1 = classB1
Call classB1.Hoge
End Sub
411:デフォルトの名無しさん
10/03/10 00:33:49
ClassCの必要性が全くない
412:デフォルトの名無しさん
10/03/10 00:36:15
>>411
ClassA.cls
Public Event MyEvent()
----------------------
ClassB.cls
Implements ClassA
Public sub Hoge()
RaiseEvent MyEvent
End Sub
----------------------
Form1.frm
Public WithEvents classA1 As ClassA
Private Sub classA1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Dim classB1 As New ClassB
Set classA1 = classB1
Call classB1.Hoge
End Sub
413:デフォルトの名無しさん
10/03/10 00:37:10
classA1をPublicにするのはどうかと思う
414:デフォルトの名無しさん
10/03/10 00:45:14
>>413
ClassA.cls
Public Event MyEvent()
Public Sub RaiseMyEvent()
RaiseEvent MyEvent
End Sub
--------------------------
ClassB.cls
Public classA1 As New ClassA
Public Sub Hoge()
Call classA1.RaiseMyEvent
End Sub
-------------------------
Form1.frm
Private WithEvents classA1
Private Sub classA1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Dim classB1 As New ClassB
Set classA1 = classB1.classA1
Call classB1.Hoge
End Sub
415:デフォルトの名無しさん
10/03/10 00:50:23
Implementsはどうした
416:デフォルトの名無しさん
10/03/10 01:01:09
組み込みのイベントを使えよ・・・無意味なコードで荒らすな
417:デフォルトの名無しさん
10/03/10 01:09:57
何がしたいのかサッパリわからんコードだなw
しかし、結局VBって>>412みたいにインターフェイスにイベント定義書けるんだっけ？
だったら>>402は何も悩む必要ないな最初から。
418:デフォルトの名無しさん
10/03/10 01:32:57
>>415-417
ClassA.cls
Public Property Set classC1(c As ClassC1)
End Property
----------------
ClassB.cls
Implements ClassA
Dim classC1 As ClassC
Public Sub Hoge()
Call classC1.RaiseMyEvent
End Sub
Private Property Set ClassA_classC1(c As ClassC1)
Set classC1 = c
End Property
----------------
ClassC.cls
Public Event MyEvent
Public Sub RaiseMyEvent()
RaiseEvent MyEvent
End Sub
----------------
Form1.frm
Private WithEvents classC1 as ClassC
Private Sub classC1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Dim classA1 As ClassA, classB1 As New ClassB
Set classA1 = classB1: Set classC1 = New ClassC: Set classA1.classC1 = classC1
Call classB1.Hoge
End Sub
419:デフォルトの名無しさん
10/03/10 01:40:23
（ ´,_ゝ｀）ﾌﾟｯ
420:デフォルトの名無しさん
10/03/10 01:47:14
┐(ﾟ～ﾟ)┌
421:デフォルトの名無しさん
10/03/10 12:02:09
・・・
422:デフォルトの名無しさん
10/03/10 13:52:16
>>419-421
ClassA.cls
Public Property Set classC1(c As ClassC)
End Property
---------------
ClassB.cls
Implements ClassA
Dim classC1 As ClassC
Public Sub Hoge()
Call classC1.RaiseMyEvent
End Sub
Private Property Set ClassA_classC1(c As ClassC)
Set classC1 = c
End Property
---------------
ClassC.cls
Public Event QueryMyEvent()
Public Sub RaiseMyEvent()
RaiseEvent QueryMyEvent
End Sub
---------------
423:デフォルトの名無しさん
10/03/10 13:53:45
ClassD.cls
Public Event MyEvent()
Private WithEvents classC1 As ClassC
Dim mclassA1 As ClassA
Public Property Set classA1(a As ClassA)
If Not (mclassA Is Nothing) Then Set mclassA.classC1 = Nothing: Set mclassA = Nothing
Set mclassA = a
Set mclassA.classC1 = classC1
End Property
Private Sub classC1_QueryMyEvent()
RaiseEvent MyEvent
End Sub
Private Sub Class_Initialize()
Set classC1 = New ClassC
End SUb
---------------
Form1.frm
Private WithEvents classD1 As ClassD
Private Sub classD1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Set classD1 = New ClassD
Dim classB1 As New ClassB
Set classD1.classA1 = classB1
Call classB1.Hoge
End Sub
424:デフォルトの名無しさん
10/03/10 14:07:27
ClassB.cls
Implements ClassA
Dim classC1 As ClassC
Public Sub Hoge()
If Not (classC1 Is Nothing) Then
Call classC1.RaiseMyEvent
End If
End Sub
Private Property Set ClassA_classC1(c As ClassC)
Set classC1 = c
End Property
425:デフォルトの名無しさん
10/03/10 14:13:22
ClassE.cls
Implements ClassA
Dim classC1 As ClassC
Public Sub Hoge2()
If Not (classC1 Is Nothing) Then
Call classC1.RaiseMyEvent
End If
End Sub
Private Property Set ClassA_classC1(c As ClassC)
Set classC1 = c
End Property
---------------
Form1.frm
Private WithEvents classD1 As ClassD
Private Sub classD1_MyEvent()
Debug.Print "Hoge"
End Sub
Private Sub Form_Load()
Set classD1 = New ClassD
Dim classB1 As New ClassB
Set classD1.classA1 = classB1
Debug.Print "Test1": Call classB1.Hoge
Dim classE1 As New ClassE
Set classD1.classA1 = classE1
Debug.Print "Test2": Call classB1.Hoge
Debug.Print "Test3": Call classE1.Hoge2
End Sub
426:デフォルトの名無しさん
10/03/10 15:20:19
荒すな
427:デフォルトの名無しさん
10/03/10 15:26:44
>>402がVBの仕様も調べずに設計したのが悪い
428:デフォルトの名無しさん
10/03/10 16:07:39
ClassD.cls
Public Event MyEvent()
Private WithEvents classC1 As ClassC
Dim mclassA1 As ClassA
Public Property Set classA1(a As ClassA)
If Not (mclassA1 Is Nothing) Then Set mclassA1.classC1 = Nothing: Set mclassA1 = Nothing
Set mclassA1 = a
If Not (mclassA1 Is Nothing) Then Set mclassA1.classC1 = classC1
End Property
Private Sub classC1_QueryMyEvent()
RaiseEvent MyEvent
End Sub
Private Sub Class_Initialize()
Set classC1 = New ClassC
End Sub
429:デフォルトの名無しさん
10/03/11 00:14:19
ひどいな・・・
430:デフォルトの名無しさん
10/03/11 01:21:17
ひどすぎる
431:デフォルトの名無しさん
10/03/11 01:47:40
どうしてこうなった・・・
432:デフォルトの名無しさん
10/03/11 11:59:58
ＭＳＤＮ読まないのか
ＶＢドキュメントの
Implements ステートメント
インターフェイスのインプリメントによるポリモーフィズムの提供
インターフェイスの作成とインプリメント
標準インターフェイスのインプリメントと使用
この辺り
433:デフォルトの名無しさん
10/03/11 12:33:12
変なソースコード貼り付けた人と>>402は>>432のアドバイスを参考にするように
434:デフォルトの名無しさん
10/03/11 12:58:57
接続ポイントはややこしいからねぇ。
極力避けてコールバックオブジェクトを使うのが正解。
435:デフォルトの名無しさん
10/03/11 13:22:27
そうだね
436:デフォルトの名無しさん
10/03/11 13:30:53
混乱してきた
437:デフォルトの名無しさん
10/03/11 13:43:37
MSDNって機械翻訳で変な日本語多くて読みにくいんだよねぇ・・・でも英語だと全く読めないし・・・('A`)ﾏﾝﾄﾞｸｾ
438:デフォルトの名無しさん
10/03/11 15:56:20
>>436-437
プログラマ向いてない
転職をお勧めする
439:デフォルトの名無しさん
10/03/11 18:57:06
>>437
スパゲッティソースより読みやすいと思うがｗｗｗｗｗ
440:デフォルトの名無しさん
10/03/11 21:11:49
プログラマーって閉鎖的なﾔﾂが多い
441:デフォルトの名無しさん
10/03/11 21:15:41
自明の理
442:デフォルトの名無しさん
10/03/11 21:53:49
MSDNはVB6の頃の奴はむしろ読みやすかった気がする
.netになってから激しく読みにくい