プログラミング技術

トップページ＞プログラミング技術

配列

予め配列の数が決められている場合に利用します.

Dim 配列名（配列の数）As Integer

[例-table に10個の配列を用意する]

Dim table(10) As Integer

とりあえず配列を定義しておき,あとで配列の数を指定する場合に利用します.

Dim arr_sheet()　→この時点では未定義

ReDim arr_sheet(1 To rs!COU)　→配列の内容を定義する

[例-配列の偶数番目に0.0,奇数番目に空白を予め入れるループ]

　For po = 1 to 180
    If (po Mod 2) = 0 Then
      arr_touan(po) = "0.0"
    Else
      arr_touan(po) = " "
    End If
  Next po

Screen.MousePointerは,画面上のマウスの表示形式を指定することができます.
[書式]

Screen.MousePointer = 表示したいタイプの番号

[例]

Screen.MousePointer = 11    '砂時計

Screen.MousePointer = 0     '通常の矢印

[書式]

ラベル名.caption = "ステータスに表示する言葉を入れる"

[例]
プログラム側
　

ステータス.caption = "実行中…"

フォーム側
　

ラベルをつくる(ここでのラベル名はステータス）

　※文字を入れないとラベルそのものが消えてしまうので,空白を入れてください.