Question

我以编程方式在VBA中创建了一个表单。我这样做是因为首先我使用另一种形式，并且根据我在第一种形式中设置的值，我必须使另一种形式更大或更小。

当我点击第一个按钮时，我需要使用此表单。它出现了，我可以在文本框上写文字...但是当我点击第二个表单的按钮（我以编程方式执行的那个）时，我必须接受我写的那个文本，但是我检查了MsgBox以查看值它似乎是空的（我无法调试它，因为它是在进程已经启动时创建的代码）。如果我再次执行此操作（因为现在它以普通形式存储），则会显示我写入的值。

如何在第一次执行时获取值？

这是我创建的代码。

       'Create the UserForm
        Set TempForm = ActivePresentation.VBProject.VBComponents.Add(vbext_ct_MSForm)


        'Set Properties for TempForm
        With TempForm
            .Properties("Caption") = "Possible answers"
            .Properties("Width") = 300
            .Properties("Height") = 10 + 34 * choiceNum + 50
        End With
        FormName = TempForm.Name

        For i = 1 To choiceNum

            Set newTab = TempForm.Designer.Controls.Add("Forms.Label.1", "label" & i, True)
            With newTab
                .Caption = "Answer" & i
                .width = 40
                .height = 15
                .top = 10 + 30 * (i - 1)
                .left = 10
            End With

            Set cCntrl = TempForm.Designer.Controls.Add("Forms.TextBox.1", "textBox" & i, True)
            With cCntrl
                .width = 150
                .height = 15
                .top = 10 + 30 * (i - 1)
                .left = 60
                .ZOrder (0)
            End With
        Next i

        Set NewButton = TempForm.Designer.Controls.Add("forms.CommandButton.1", "answerButton", True)
        With NewButton
            .Caption = "Create survey"
            .left = 60
            .top = 30 * choiceNum + 10
        End With
        'X = ActivePresentation.VBProject.VBComponents(FormName).CodeModule.CountOfLines
        With TempForm.CodeModule
          X = .CountOfLines + 1
            .InsertLines X + 1, "Sub answerButton_Click()"
            .InsertLines X + 2, "   Dim cSlide As Slide"
            .InsertLines X + 3, "  Dim survey As Shape"
            .InsertLines X + 4, "  Dim top As Integer"
            .InsertLines X + 5, "   Set cSlide = Application.ActiveWindow.View.Slide"
            .InsertLines X + 6, "   top = 30"
            .InsertLines X + 7, "   "
            .InsertLines X + 8, "   For i = 1 To surveyCreation.choNum"
            .InsertLines X + 9, "   "
            .InsertLines X + 10, "   top = top + 15"
            .InsertLines X + 11, "   Set survey = cSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, top, 400, 10)"
            .InsertLines X + 12, "   survey.TextFrame.TextRange.text = UserForm1.Controls(i * 2 - 1).Text"
            .InsertLines X + 13, "   MsgBox ""this is the result: "" & UserForm1.Controls(i * 2 - 1).Text"
            .InsertLines X + 14, "   survey.TextFrame.TextRange.ParagraphFormat.Bullet = True"
            .InsertLines X + 15, "   survey.TextFrame.TextRange.ParagraphFormat.Bullet.Type = ppBulletUnnumbered"
            .InsertLines X + 16, "  survey.Select Replace:=False"
            .InsertLines X + 17, "  Next i"
            .InsertLines X + 18, "  With ActiveWindow.Selection.ShapeRange"
            .InsertLines X + 19, "  .Group.title = ""Dink survey creation"" & surveyCreation.typ"
            .InsertLines X + 20, "End With"
            .InsertLines X + 21, "End Sub"
        End With

       VBA.UserForms.Add(FormName).Show

希望我能很好地解释自己。

在创建时使用在vba中创建的表单

0 个答案: