
フォーム上にcmdStartというコマンドボタンが3個あります。それをクリックすると使用不可になるというプロシージャーですが、(1)のイベントに対して、(2)で処理する場合、下のようにやると、型がちがうといってエラーになります。
この場合、コントロールの配列を次のモジュールに渡すにはどのように書いたらいいのでしょうか?
(1)
Private Sub cmdStart_Click(Index As Integer)
processGet cmdStart()
End Sub
(2)
Public Sub processGet(pcmdStart() As Control)
Dim i As Integer
For i = 0 to 2
pcmdStart(i).Enabled=False
Next i
End Sub
No.5ベストアンサー
- 回答日時:
Variant型で渡すしかないでしょう。
Private Sub Command1_Click(Index As Integer)
EnableControls Command1, False
End Sub
Public Sub EnableControls(ByRef Ctrls As Variant, ByVal Flag As Boolean)
Dim c As Control
For Each c In Ctrls
c.Enabled = Flag
Next
End Sub
No.4
- 回答日時:
これはダメというご指摘を受けるかもしれませんが、
Public Sub processGet(pcmdStart As Variant)
Dim i As Integer
For i = 0 To 2
pcmdStart(i).Enabled = False
Next i
End Sub
にしたらできました。(できたというだけで、使っていいか自信無しです)
(不安ですので、もっと専門の人が回答してくれるといいのですが)
No.2
- 回答日時:
#1です。
For Next文なら、(bas)を下記に変えても出来ます。Public Sub processGet(Index As Control)
Dim i As Integer
For i = 0 To 2
If i = Index Then
Form1.cmdStart(i).Enabled = False
End If
Next
以上。
No.1
- 回答日時:
確認ですが、cmdStartをクリックするとクリックしたボタンだけが、使用不可になればいいのでしょうか?
その場合
(Form1)
Option Explicit
Private Sub cmdStart_Click(Index As Integer)
cmdStart(0).Enabled = True
cmdStart(1).Enabled = True
cmdStart(2).Enabled = True
processGet Index
End Sub
(bas)
Option Explicit
Public Sub processGet(Index As Integer)
Select Case Index
Case 0
Form1.cmdStart(0).Enabled = False
Form1.cmdStart(1).Enabled = True
Form1.cmdStart(2).Enabled = True
Case 1
Form1.cmdStart(0).Enabled = True
Form1.cmdStart(1).Enabled = False
Form1.cmdStart(2).Enabled = True
Case 2
Form1.cmdStart(0).Enabled = True
Form1.cmdStart(1).Enabled = True
Form1.cmdStart(2).Enabled = False
End Select
End Sub
で、いかがですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBAでオプションボタンによって...
-
VBA(エクセル)で自動的にボタン...
-
VBA CommandButtonの文字ずれ
-
Access VBA でデータペーストを...
-
コマンドボタンやイメージにマ...
-
ユーザーフォームに別シートか...
-
VB.net でトグルボタンを実現し...
-
Excel マクロ 閉じるボタン
-
C#プログラムで、ボタンをショ...
-
[VB.net] ボタン(Flat)のEnable...
-
ボタンの枠線の様なものを消したい
-
セルをマクロのボタンにしたい。
-
他のアプリケーションとの連携
-
グラフィカルボタン
-
Showメソッド
-
VBAで多数のプログラムを一つの...
-
[Excel VBA]コマンドボタンの入...
-
TextBoxでEnterキーを押すと、...
-
【vb2005】 動的に作成されたCo...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
VBAで多数のプログラムを一つの...
-
Excel VBA Application.caller...
-
VBA CommandButtonの文字ずれ
-
コマンドボタンやイメージにマ...
-
C#プログラムで、ボタンをショ...
-
BorlandC++Builderでのタイマー...
-
[VB.net] ボタン(Flat)のEnable...
-
フォームの再読み込み
-
ボタンをマウスで押し続けたと...
-
閉じると「+」になり開くと「-...
-
Access VBA でデータペーストを...
-
C#でSendInputを使ったサンプル...
-
バックスペース機能の作り方
-
アイコンとボタンの違い
-
セルをマクロのボタンにしたい。
-
Excel マクロ 閉じるボタン
-
VBAのボタンの位置が変わって困...
おすすめ情報