IsArray関数の誤解

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆IsArray関数の誤解

VB6のIsArray関数は変数が配列かどうかを判断する関数です。


しかし、引数にVariant型の変数しか使えないとの誤解があるようです。

これは、他のIsなんちゃら系がほとんどVariant型であることと、某参考書までもVariant型と誤って明記されているからかも知れません。


IsArray関数は、Variant型はもちろん、文字列型、整数型でも問題なく使えます。


あと、配列をUBound関数の引数に渡す時に、配列の要素がないとエラーになります。

ですので、Dimで配列宣言した後、ReDimの0で、一つの配列要素をとるとエラーになりません。

だたし、その後の処理でインデックス0の配列の処理を特別に意識しないとなりませんが…。

Dim strWk() As String
Dim vntWk() As Variant
Dim intWk() As Integer
Dim intWk2 As Integer
ReDim strWk(0)
ReDim vntWk(0)
ReDim intWk(0)

If IsArray(vntWk) Then
    intWk2 = UBound(vntWk)
    MsgBox "配列"
End If
If IsArray(strWk) Then
    intWk2 = UBound(strWk)
    MsgBox "配列"
End If
If IsArray(intWk) Then
    intWk2 = UBound(intWk)
    MsgBox "配列"
End If

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう