Visual Basic 2008で開発しています。

Question

futurista

60

60もっと見る

70pt

コンピュータ

Visual Basic 2008で開発しています。

コントロールの操作を無効にする手順を教えてください。

コントロールとは、具体的には、
DateTimePicker1などです。例えば
コントロールを操作する際に、時刻条件により、処理を無効にするなどです。

ボタンであれば、ボタンの中の構文で、exit subなどをすればよいのですが。。

サンプルコードなどがあれば、有難いです。よろしくお願いします。

回答の条件

URL必須
1人2回まで

登録：2010/08/12 23:13:06
終了：2010/08/16 09:14:11

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.2

yamaneroom1040612010/08/13 12:17:58

10pt

イベントを発生させないという目的なら、ApplicationオブジェクトのEnableEventsプロパティをFalseにすればよい。

http://msdn.microsoft.com/ja-jp/library/cc409238.aspx

回答ありがとうございます。

イベントが発生することは問題ありません。（発生してもよい。）

イベントが発生させたうえ、判定した後に、有効／無効にしたいのです。

2010/08/13 13:06:55

rsc 2010/08/14 10:11:30

　Form1にTextBox1とLabel1とCheckBox1を設置して、下記コードで何とか動くようです。テキストボックスに文字がないと無効。文字がある条件でチェックが変更するようになります。
Public Class Form1

Private Sub CheckBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CheckBox1.MouseDown
If TextBox1.Text = "" Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If

CheckBox1.Enabled = True
End Sub

'テスト用
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If Label1.Text = "1" Then Label1.Text = "0" Else Label1.Text = "1"
End Sub
End Class
futurista 2010/08/16 09:13:25

コメントありがとうございます。

当方の意図としては、
「無効にする」とは、コントロールを「*.Enable = False」にすることでは、
無かったのですが。。。

ただ、ご指摘の通り、
コントロールをDisableにすることでも、仕様を達成することができるため、
ご指摘の方法を参考に修正することにしました。
（コントロールそのものをDisableにするとは盲点でした。）

ご提案ありがとうございました。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

rsc · Accepted Answer · 2010-08-13T01:09:19+09:00

　Form1にDateTimePicker1コントロールとTimer1コンポーネントを設置して、下記のコードでどうでしょうか。EnabledプロパティをFalseにすると、無効になります。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
        DateTimePicker1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim myDate As Date = Now
        '1時10分から15分の間だけDateTimePicker1を有効にする
        If Hour(myDate) = 1 And (10 <= Minute(myDate) And Minute(myDate) <= 15) Then
            DateTimePicker1.Enabled = True
        Else
            DateTimePicker1.Enabled = False
        End If
    End Sub

End Class

http://q.hatena.ne.jp/answer　ダミー

rsc · Accepted Answer · 2010-08-13T01:09:19+09:00

　Form1にDateTimePicker1コントロールとTimer1コンポーネントを設置して、下記のコードでどうでしょうか。EnabledプロパティをFalseにすると、無効になります。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
        DateTimePicker1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim myDate As Date = Now
        '1時10分から15分の間だけDateTimePicker1を有効にする
        If Hour(myDate) = 1 And (10 <= Minute(myDate) And Minute(myDate) <= 15) Then
            DateTimePicker1.Enabled = True
        Else
            DateTimePicker1.Enabled = False
        End If
    End Sub

End Class

http://q.hatena.ne.jp/answer　ダミー

Visual Basic 2008で開発しています。

ベストアンサー

rsc45054382010/08/13 01:09:19

その他の回答（1件）

rsc45054382010/08/13 01:09:19ここでベストアンサー

yamaneroom1040612010/08/13 12:17:58

コメント（2件)

この質問への反応（ブックマークコメント）