Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 如何使用Visual Basic创建Excel控件(组合框等)_Vb.net_Excel - Fatal编程技术网

Vb.net 如何使用Visual Basic创建Excel控件(组合框等)

Vb.net 如何使用Visual Basic创建Excel控件(组合框等),vb.net,excel,Vb.net,Excel,我正在做一个项目,创建一个由ASP.NET/Visual Basic web应用程序创建的电子表格并通过电子邮件发送 此电子表格的顶部是一个大单元格,其中有一个下拉列表、两个文本框、几个标签和一个复选框 如何使用Visual Basic创建和组织这些控件?电子表格正在物理上创建,我现在可以操作单元格,但我不知道如何专门创建这些控件。如果您想以编程方式创建这些控件,那么这段代码应该可以让您开始,基本上是添加一个控件,定位它并设置您需要的属性 Sub addControls() With

我正在做一个项目,创建一个由ASP.NET/Visual Basic web应用程序创建的电子表格并通过电子邮件发送

此电子表格的顶部是一个大单元格,其中有一个下拉列表、两个文本框、几个标签和一个复选框


如何使用Visual Basic创建和组织这些控件?电子表格正在物理上创建,我现在可以操作单元格,但我不知道如何专门创建这些控件。

如果您想以编程方式创建这些控件,那么这段代码应该可以让您开始,基本上是添加一个控件,定位它并设置您需要的属性

Sub addControls()

    With Sheets("Sheet1")
        .Columns(1).ColumnWidth = 60
        .Rows(1).RowHeight = 150

        'label
        Set addedLbl = .OLEObjects.Add(ClassType:="Forms.Label.1")
            With addedLbl
                .Left = 180
                .Top = 25
                .Width = 90
                .Object.BackColor = &HC0C0FF
                .Object.Caption = "A Coloured Label"
            End With

        'combobox
        Set addedCmbo = .OLEObjects.Add(ClassType:="Forms.Combobox.1")
            With addedCmbo
                .Left = 180
                .Top = 75
                .Width = 90
                .Height = 20
            End With

        'checkbox
        Set addedChkBox = .OLEObjects.Add(ClassType:="Forms.CheckBox.1")
            With addedChkBox
                .Left = 25
                .Top = 25
                .Width = 90
                .Height = 20
                .Object.Caption = "A Checkbox"
                .Object.SpecialEffect = 2
                .Object.Value = False
            End With

        'textbox
        Set addedTextBox = .OLEObjects.Add(ClassType:="Forms.TextBox.1")
            With addedTextBox
                .Left = 25
                .Top = 75
                .Width = 90
                .Height = 50
                .Object.WordWrap = True
                .Object.MultiLine = True
                .Object.SpecialEffect = 1
                .Object.Text = "Some wrapped text in this raised textbox."
            End With

    End With

End Sub
如果要手动添加它们,请选择“开发人员”选项卡,并在“控件”组中选择“插入”。然后可以将控件添加到工作表中。我使用过ActiveX控件。然后右键单击该控件以列出其属性


我可能应该提到我想通过编程方式添加它们。这是伟大的,我会尽快开始这一点,并标记为接受的答案,如果我可以让它工作。非常感谢。