「VB6」の編集履歴（バックアップ）一覧はこちら

「VB6」(2008/01/30 (水) 01:16:18) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

サンプルソース管理をしようと思って、
今まで、仕事やプライベートで使用したのを
誰にも邪魔されずに記録として残していきます.

Private Sub Button1_Click(ByVal sender As System.Object, ByVaSystem.EventArgs) Handles Button1.Click
        Dim ret As New DialogResult
        Dim fm As New Form2
        ret = fm.ShowDialog()
        Select Case ret
            Case Windows.Forms.DialogResult.OK
                MessageBox.Show(fm.SerchKey)
            Case Windows.Forms.DialogResult.Cancel
                MsgBox("キャンセルクリック")
        End Select
 End Sub

サンプルソース管理をしようと思って、
今まで、仕事やプライベートで使用したのを
誰にも邪魔されずに記録として残していきます.

        Dim ret As New DialogResult
        Dim fm As New Form2
        ret = fm.ShowDialog()
        Select Case ret
            Case Windows.Forms.DialogResult.OK
                MessageBox.Show(fm.SerchKey)
            Case Windows.Forms.DialogResult.Cancel
                MsgBox("キャンセルクリック")
        End Select
 End Sub