VB.NET質問ｽﾚ (Part19)

VB.NET質問ｽﾚ (Part19) at TECH

293:デフォルトの名無しさん
07/01/31 16:50:48
>>290
基本は「呼び出し元を見るようなプログラムを書かない」
呼び出されるフォームが「使いまわしできる」ように。

Public Class Form1
Private Sub OpenDialogButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dialog As MyDialog = New MyDialog
dialog.Param1 = Me.TextBox1.Text
If dialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
Me.TextBox1.Text = dialog.Param1
End If
End Sub
End Class
Public Class MyDialog
Private _param1 As String
Public Property Param1() As String
Get
Param1 = Me._param1
End Get
Set(ByVal value As String)
Me._param1 = value
End Set
End Property
Private Sub MyDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = Me._param1
End Sub
Private Sub CloseDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles acceptButton.Click
Me._param1 = Me.TextBox1.Text
End Sub
End Class

次ページ

続きを表示

1を表示