恥晒し - 2010/09/29

カスがググったら、こうなった…的な。
カテゴリ
ググルヒト
恥晒し/一覧 (10)



2010年9月
     
29    

新着エントリ
Outlook Express 6 でエラー 0x800c0133 (6/6)
EXCEL 自Bookを複製するマクロ (4/19)
EXCEL 勝手にセルの色が塗られる (3/13)
SQL Serverからのメッセージが消えない (12/3)
日本語変換が思い通りにいかない (4/23)
VB コンソールへの文字列復帰 (10/28)
タスクからのバッチファイル(*.BAT)実行結果が0x4 (10/5)
VB 標準モジュールが開かない (9/29)
EeePcの無線LANがつながらない (9/28)
EXCELエクセルVBAでエラー400 (9/23)

新着トラックバック/コメント


アーカイブ
2010年 (5)
9月 (3)
10月 (2)
2011年 (2)
4月 (1)
12月 (1)
2012年 (3)
3月 (1)
4月 (1)
6月 (1)


アクセスカウンタ
今日:26
昨日:33
累計:105,343


RSS/Powered by 「のブログ

[PR]



2010年09月29日(Wed)▲ページの先頭へ
VB 標準モジュールが開かない

Q:VB6の標準モジュールを読み込めません。

A:読み込めません…じゃ分からない。
  他にも何かメッセージ、出てるだろ!

Q:読み込めないんだよぉ!!


=====================

...ということで自分で調べたのだが...


分からない。



通常、以下のようなモジュールをダブルクリックすると
VBのエディタがサクっと開くはずなんだけど...






やっぱり開かない。








ちなみに、モジュールの中身はこんな感じ↓
┌─┬───────────────────────────────────────────
│01│Attribute VB_Name = "ModuleCommon"
│02│Option Explicit
│03│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│04│' Common Module
│05│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│06│Public Function WaitTimer(WTime As Single)
│07│ Dim sv As Single
│08│ sv = Timer
│09│ Do Until Timer > sv + WTime
│10│ DoEvents
│11│ Loop
│12│End Sub
└─┴───────────────────────────────────────────







何が悪い?







1行づつ・1文字づつ検証したところ・・・
┌─┬───────────────────────────────────────────
│01│Attribute VB_Name = "ModuleCommon"
│02│Option Explicit
│03│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│04│' Common Module
│05│'〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
│06│Public Function WaitTimer(WTime As Single)
│07│ Dim sv As Single
│08│ sv = Timer
│09│ Do Until Timer > sv + WTime
│10│ DoEvents
│11│ Loop
│12│End Sub
└─┴───────────────────────────────────────────



これだと開けた。







違いは、何?






3行目だ






コメント行の「〓」の数が40個か、36個か? それだけ。







いや、そんな理由な訳がない。






何かコーディング上の規約みたいなモノがあるはず。


もう少し調査してみよう!













・・・と思ったが・・・




ま、開けるようになったからイイや。





そのうち気が向いたら、ちゃんと調べる。