hitoshop14 @ ウィキ
VB6
最終更新:
hitoshop
-
view
サンプルソース管理をしようと思って、
今まで、仕事やプライベートで使用したのを
誰にも邪魔されずに記録として残していきます.
今まで、仕事やプライベートで使用したのを
誰にも邪魔されずに記録として残していきます.
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