| 投稿日 | ： 2003/04/23(Wed) 15:41 |
| 投稿者 | ： よねＫＥＮ |
| Ｅメール | ： |
| ＵＲＬ | ： http://www5b.biglobe.ne.jp/~yone-ken/ |
| タイトル | ： Re^2: ビット演算Andについて |
> > Const A = &H00008000
> > Const B = &H00010000
> > Const C = &H00020000
> > Const D = &H00040000
>
> ↑ここを↓のように記述してください。
>
> Const A As Long = &H00008000&
> Const B As Long = &H00010000&
> Const C As Long = &H00020000&
> Const D As Long = &H00040000&
VBScriptだとAs 〜も型指定子も使えないはずです。
上記の16進数に対応する値の10進数で定数を切っておき、
実際にビット演算に使う際に、CLng関数でLong型にする必要があるのではないでしょうか。
下記のURLは以前、VBScriptをやったときに書いたメモです。参考までに。
http://www5b.biglobe.ne.jp/~yone-ken/VB/diff_vbs.html
また、元投稿のコードでは、
> If ((a And A) = A) Then
というふうに、aとAを使ってらっしゃいますが、VB(やVBS)では、大文字、小文字の区別をしないのでまずいです。
ここに提示したものではない実際のソースコードではきっと別の変数を使われていて問題ないのだと思いますが、念のため。