Visual Basic控件的常用属性都有哪些？它们有啥作用？

Posted 2023-04-30

.caption - 最常用的标题属性。 类别：文本

Form（窗体）、Label（标签）、Frame（框框）等控件都有.caption属性。Caption属性主要是设置控件的标题。  举个例子吧：

Form1.caption = "窗体标题"
Label1.caption = "标签内容"
Frame1.caption = "框标题"
Option1.caption = "选项标题"
'几乎所有控件都有.caption。

.List - 最常用的列表属性 类别：列表

ComboBox（下拉菜单）、List（列表）都有.List属性。不过.List比较特殊，一般不能直接使用“*.List = "*"”这种语法。  那么举个例子吧：

'修改List的某一项'
  List1.List(<这里写要修改那一项的序号>) = "这里写要修改的文本。"
'添加一项
  List1.Additem("这里写要添加的那一项的内容")
'删除一项
  Dim i as interger
  List1.RemoveItem(<这里写要删除的那一项的序号>)

.Backcolor - 最常用的背景颜色属性  类别：OLE颜色属性页/十六进制数字

几乎每一个控件都有Backcolor。例子：

Text1.Backcolor = &H8000000F&
Form1.Backcolor = &H8000000F&
Label1.Backcolor = &H8000000F&

.Forecolor  - 最常用的控件字体颜色 类别：OLE颜色属性页/16进制数字

几乎每个控件都有.Forecolor。例子同上。

.Font（可视化编辑状态） - 最常用的字体属性  类别：OLE字体属性页/（×）

可视化编辑状态下的.Font是可以在属性页上直接设置的。如何通过代码设置呢？

.Font（代码设置） - 最常用的字体属性 类别：文本

'不多说，给代码：
Label1.Font = "方正少儿简体"

在属性页上设置的“Font”的功能真多，如何通过代码实现呢？

With Label1
    Label1.FontName = "方正少儿简体"
    Label1.FontSize = "16"
    Label1.FontBold = true '粗体
    Label1.FontItalic = true '斜体
    Label1.Strikethru = true '删除线
    Label1.FontUnderline = true '下划线
End With

我打了半个小时多的字，望采纳！

参考技术A VB中各控件的常用属性_百度文库
https://wenku.baidu.com/view/08d456cee45c3b3566ec8b45.html 参考技术B vb是一种面向对象的程序设计语言，既然是一种编程语言，当然它的用法就与其他的编程语言c,java等等类似;同时它又是一种语言，因此看上去上就应该和说话是类似的，打个比方说，比如你的母语是汉语，而要学习英语，刚刚接触英语很不习惯，用汉语能够很明白表达清楚地东西，却不知用英语如何表达，因此刚刚学习英语就是从单词，语法入手，然后单词记住了，语法明白了，也就可以用英语表达我们想要表达的事情了。因此vb刚刚开始学习的过程就和英语刚刚开始的学习过程一样，变量的定义记住了，语法知道了，自然就可以编程了。但vb的学习又比学 参考技术C vb是一种面向对象的程序设计语言，既然是一种编程语言，当然它的用法就与其他的编程语言c,java等等类似;同时它又是一种语言，因此看上去上就应该和说话是类似的，打个比方说，比如你的母语是汉语，而要学习英语，刚刚接触英语很不习惯，用汉语能够很明白表达清楚地东西，却不知用英语如何表达，因此刚刚学习英语就是从单词，语法入手，然后单词记住了，语法明白了，也就可以用英语表达我们想要表达的事情了。因此vb刚刚开始学习的过程就和英语刚刚开始的学习过程一样，变量的定义记住了，语法知道了，自然就可以编程了。但vb的学习又比学

VBA（Visual Basic）：ComboBox（表单控件） - 对象不支持此属性或方法

刚刚注册！ （即使我已经使用该网站几年了哈哈！）。

我在VBA上遇到了问题，它让我发疯了。希望有人可以解决我的问题。

我试图引用我在Sheet6中手动添加的ComboBox（表单控件）。它包含几个项目列表。然后我将循环遍历组合框中的每个项目并用它做一些事情。

然而，对于我的生活，我无法理解我做错了什么？！

我一直得到运行时错误'438'：

Object doesn't support this property or method

This is the line the Run-time error occurs on:

Public Sub ReferralSummaries()

'Stop screen updates.
Application.ScreenUpdating = False

'Method Variables
Dim Lstrw As Long
Dim CurrentWb As Workbook
Dim ReferralSheet As Worksheet
Dim ResultsSheet As Worksheet
Dim ReferralSheetCBox As Object

'Initialize Variables
Set CurrentWb = ThisWorkbook
Set ReferralSheet = CurrentWb.Sheets("Referral Breakdowns")
Set ResultsSheet = CurrentWb.Sheets("Results")
Set ReferralSheetCBox = Worksheets(6)

'Check Date column and update accordingly
Call Update_Date_Column(ReferralSheet, ResultsSheet)

For i = 0 To ReferralSheetCBox.ComboBox1.Items.Count - 1 **(ERROR TRIGGERED HERE).**

敬请原谅！

亲切的问候，忍者

答案

我想你应该用

Set ReferralSheetCBox = Worksheets(6).Shapes("ComboBox1")

然后，您可以通过其ControlFormat属性访问其属性，例如：

Dim nItems As Long
nItems = ReferralSheetCBox.ControlFormat.ListCount

因此，您显示的代码最后一行将是

For i = 0 To ReferralSheetCBox.ControlFormat.ListCount - 1

另一答案

您可以通过强类型ReferralSheetCBox作为DropDown（这是一个包含ComboBox的隐藏类型）来使用早期绑定：

Dim ReferralSheetCBox As Excel.DropDown

然后设置对形状的DrawingObject的引用：

Set ReferralSheetCBox = Sheet6.Shapes("ComboBox1").DrawingObject

然后，您可以将代码调整为：

For i = 0 To ReferralSheetCBox.ListCount - 1