くだすれ．NET（超初心者向け）

くだすれ．NET（超初心者向け） at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

800:デフォルトの名無しさん
 08/09/17 23:49:26 
799 
まぁまぁ「くだすれ」なんだから 
ごもっともだけども。

801:デフォルトの名無しさん
 08/09/17 23:52:38 
>>794のやつが一番スマートだと思われるが。 
Form2のNameプロパティに"Form2"と設定してあれば 
        If Application.OpenForms("Form2") Is Nothing Then 
            MessageBox.Show("Form2は閉じてる") 
        Else 
            MessageBox.Show("Form2は開いてる") 
        End If 
と判断できるし

802:デフォルトの名無しさん
 08/09/17 23:57:13 
>>801 
？ 
ずっとチェックするの？ 
＞意図していた動作は、Form1にある、Form2をshowするボタンを、Form2が開いてる間は無効にする、というものでした。 
 
僕はその意見には反対ですが、 
 
まぁ、一番スマートなやり方はどうかは別にして、やり方はいくつもあるってことだね 
初心者はいろいろやってみて、一長一短あるのを自分なりにとらえるようになるのも勉強だ

803:デフォルトの名無しさん
 08/09/18 00:11:44 
＞意図していた動作は、Form1にある、Form2をshowするボタンを、Form2が開いてる間は無効にする、というものでした。 
であれば、 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim f2 As New Form2() 
        f2.Show() 
        Button1.Enabled = False 
        AddHandler f2.Disposed, AddressOf Me.Form2_Disposed 
    End Sub 
    Private Sub Form2_Disposed(ByVal sender As Object, ByVal e As EventArgs) 
        RemoveHandler CType(sender, Form2).Disposed, AddressOf Form2_Disposed 
        Button1.Enabled = True 
    End Sub

次ページ