第一次提交至Git

UTS_Core/UTSModule/Project/DlgCreateProject.vb

@@ -0,0 +1,24 @@
+Imports System.Windows.Forms
+
+Namespace UTSModule.Project
+    Public Class DlgCreateProject
+        Public Property ProjectName() As String
+
+        Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles OK_Button.Click
+            If String.IsNullOrWhiteSpace(CboProjectName.Text) Then
+                MsgBox($"请输入合法测试项目名称!")
+                Return
+            End If
+
+            ProjectName = CboProjectName.Text
+            DialogResult = DialogResult.OK
+            Close()
+        End Sub
+
+        Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles Cancel_Button.Click
+            DialogResult = DialogResult.Cancel
+            Close()
+        End Sub
+
+    End Class
+End Namespace