本文目录
- VB中Caption属性的作用是什么
- 如何将窗体的caption属性设为 我的第一个应用程序
- 『vb6.0』如何设置自定义控件的caption属性
- 如何设置表的Caption和Description属性，即“标题”和“说明”属
- 在学VB设计时，对象名称为command1的caption属性设置中，设置值为显示是什么意思，这种情况怎么设置
- 如果要改变窗体的标题，需要设置窗体的属性是
- 4.2.3.4 Application的Caption属性
VB中Caption属性的作用是什么
显示在对象的标题栏或在控件中或控件后中的文本。
就如我现在的问题回答完了想要单击按钮来提交答案。这时如果不设置Caption属性，按钮上的文字就是“Command1“。
于是就需要一个提示文本在按钮上是“提交回答“我便知道是单击这个按钮来提交回答了。Caption属性还有很多与其他属性相关联的地方，需要在实际开发过程中摸索。
扩展资料：
制作应用程序安装盘等为用户提供了友好的集成开发环境，具体表现在：
可视化的设计平台：在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。
而在Visual Basic 6.0中，采用面向对象程序设计方法，把程序和数据封装起来作为一个对象，每个对象都是可视的。开发人员在界面设计时。
可以直接用Visual Basic 6.0的工具箱在屏幕上“画“出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。
参考资料来源：百度百科-Visual Basic
如何将窗体的caption属性设为 我的第一个应用程序
在设计状态把caption设为“我的第一个应用程序“或输入代码Form.caption=“我的第一个应用程序“’form指窗体
『vb6.0』如何设置自定义控件的caption属性
虽说自定义控件没接触过，用户控件自己设定个caption属性，然后再添加个方法比如setcaption()，里面用gdi函数将属性的caption画到你指定的位置。
如何设置表的Caption和Description属性，即“标题”和“说明”属
注意！无法通过 JET SQL 来设置或者修改上述属性，JET SQL 不支持此功能，你可以联系微软开发小组要他们在下一个版本中增加此功能。Function AppendCaption() ’引用DAO Dim Tbf As DAO.TableDef Dim fld As DAO.Field Dim p As DAO.Property Dim cp As DAO.Property On Error Resume Next Dim i As Integer Dim TableName As String Dim FieldName As String FieldName = “First_name“ TableName = “test“ For Each Tbf In CurrentDb.TableDefs ’Debug.Print Tbf.Name For Each fld In Tbf.Fields ’Debug.Print Fld.Name If fld.Name = FieldName And Tbf.Name = TableName Then Set cp = fld.CreateProperty(“Caption“, 12, “aa“) fld.Properties.Append cp Set cp = fld.CreateProperty(“Description“, 10, “aa“) fld.Properties.Append cp End If For Each p In fld.Properties If p.Name = “caption“ Then Debug.Print Tbf.Name & “:“ & fld.Name & “:“ & “pro:“; p.Name & “--“ & p.Value ’Fld.Properties.Delete “Caption“ ’删除属性 End If Next Next Next End Function下面再给一段函数 Function GetFieldProperty(F As Field, _ ByVal PropName As String) As Variant ’ ’ Returns NULL if the property doesn’t exist ’ On Error Resume Next GetFieldProperty = F.Properties(PropName)End Function Sub ModifyFieldProperty(F As Field, ByVal PropName As String, _ ByVal PropType As Long, _ ByVal NewVal As Variant) Dim P As Property On Error Resume Next Set P = F.Properties(PropName) If Err Then ’ ’ Add property (as long as NewVal isn’t Null) ’ If Not IsNull(NewVal) Then On Error Goto 0 ’ fail if can’t add Set P = F.CreateProperty(PropName, PropType, NewDesc) F.Properties.Append P End If ElseIf IsNull(NewVal) Then ’ ’ Delete property ’ On Error Goto 0 ’ fail if can’t delete F.Properties.Delete PropName Else ’ ’ Modify property ’ On Error Goto 0 ’ fail if can’t alter P.Value = NewDesc End If Set P = NothingEnd Sub调用函数如下： Sub Test() Dim db As Database, F As Field Dim v As Variant v = “This is a description“ Set db = DBEngine(0).OpenDatabase(“NWIND.MDB“) ’ change name/path Set F = db!Employees!Title ’ Get existing description Debug.Print “Existing Title Description is: “; Debug.Print GetFieldProperty(F, “Description“) ’ Delete description ModifyFieldProperty F, “Description“, dbText, v Debug.Print “After deleting Description: “; Debug.Print GetFieldProperty(F, “Description“) ’ Add description ModifyFieldProperty F, “Description“, dbText, “Employee’s Title“ Debug.Print “After adding new Description: “; Debug.Print GetFieldProperty(F, “Description“) ’ Modify existing title ModifyFieldProperty F, “Description“, dbText, “Emp Title“ Debug.Print “After modifying Description: “; Debug.Print GetFieldProperty(F, “Description“) ’ Clean-up Set F = Nothing db.Close End Sub再提供一个别人发表的代码（未测试）’*******************************************************************************’Function: TableDefExist(strTableDef)’Description: Returns a Boolean value that indicates whether an table define’ in currently database.’Example: TableDefExist(“TEXT“)=True’*******************************************************************************Function TableDefExist(ByVal strTableDef As String) As BooleanOn Error GoTo TableDefExist_Err If CurrentDb.TableDefs(strTableDef).Name = strTableDef Then TableDefExist = True End If TableDefExist = True Exit FunctionTableDefExist_Err: TableDefExist = False Exit FunctionEnd FunctionPrivate Sub CreateTRDTableDef()On Error GoTo Err_CreateTRDTableDefDim rstTRDTableSource As DAO.RecordsetDim rstTableDefine As DAO.RecordsetDim tdfTable As DAO.TableDefDim dbCurrentDatabase As DAO.DatabaseDim fldField As FieldDim intCount As IntegerDim strTableName As String DoCmd.Echo True, “Creating table definition......“ Set dbCurrentDatabase = CurrentDb Set rstTRDTableSource = dbCurrentDatabase.OpenRecordset(“SELECT DISTINCT TRD_NAME,TABLE_NAME FROM TBL_TABLE_SOURCE“, dbOpenDynaset) Do While Not rstTRDTableSource.EOF strTableName = rstTRDTableSource(“TRD_NAME“) & “ - “ & rstTRDTableSource(“TABLE_NAME“) DoCmd.Echo True, “Creating “ & strTableName & “ table definition.....“ If TableDefExist(strTableName) Then dbCurrentDatabase.TableDefs.Delete strTableName End If Set rstTableDefine = CurrentDb.OpenRecordset(“SELECT * FROM TBL_TABLE_SOURCE WHERE TRD_NAME=“ & “’“ & _ rstTRDTableSource(“TRD_NAME“) & “’ AND TABLE_NAME=’“ & rstTRDTableSource(“TABLE_NAME“) & “’ ORDER BY SEQUENCE“, dbOpenDynaset) Set tdfTable = dbCurrentDatabase.CreateTableDef(strTableName) Set fldField = tdfTable.CreateField(rstTableDefine.Fields(“FIELD_NAME“), GedFieldType(rstTableDefine.Fields(“DATA_TYPE“)), rstTableDefine.Fields(“FIELD_SIZE“)) tdfTable.Fields.Append fldField dbCurrentDatabase.TableDefs.Append tdfTable SetMyProperty fldField, “Caption“, dbText, rstTableDefine.Fields(“Caption“) SetMyProperty fldField, “Description“, dbText, rstTableDefine.Fields(“DESCRIPTION“) rstTableDefine.MoveNext With rstTableDefine Do While Not .EOF Set fldField = tdfTable.CreateField(.Fields(“FIELD_NAME“), GedFieldType(.Fields(“DATA_TYPE“)), .Fields(“FIELD_SIZE“)) tdfTable.Fields.Append fldField SetMyProperty fldField, “Caption“, dbText, rstTableDefine.Fields(“Caption“) SetMyProperty fldField, “Description“, dbText, rstTableDefine.Fields(“DESCRIPTION“) .MoveNext Loop End With Set tdfTable = Nothing rstTableDefine.Close Set rstTableDefine = Nothing rstTRDTableSource.MoveNext Loop rstTRDTableSource.Close Set rstTRDTableSource = Nothing DoCmd.Echo True, “Ready“Exit_CreateTRDTableDef: Exit Sub Err_CreateTRDTableDef: MsgBox “Error: “ & Err & vbCrLf & Err.Description Resume Exit_CreateTRDTableDef End Sub’*******************************************************************************’Function: GedFieldType(strDataType)’Description: Returns a integer value that indicates data types’Example: GedFieldType(“dbText“)=10’*******************************************************************************Function GedFieldType(strDataType As String) As IntegerSelect Case strDataType Case “dbText“ GedFieldType = 10 Case “dbDate“ GedFieldType = 8 Case “dbDouble“ GedFieldType = 7 Case “dbFloat“ GedFieldType = 21 Case “dbInteger“ GedFieldType = 3 Case “dbLong“ GedFieldType = 4 Case “dbMemo“ GedFieldType = 12 Case “dbNumeric“ GedFieldType = 6 ’old is 19 Case “dbSingle“ GedFieldType = 6 Case “dbTime“ GedFieldType = 22 Case “dbChar“ GedFieldType = 18 Case “dbCurrency“ GedFieldType = 5 Case Else GedFieldType = 0End SelectEnd Function’*******************************************************************************’Sub: SetMyProperty(Obj,Name,Type,Setting)’Description: Custom a user property’Example: SetMyProperty fldField, “Caption“, dbText, “Test Information“’*******************************************************************************Sub SetMyProperty(Obj As Object, strName As String, intType As Integer, strSetting As String) Dim Prp As Property Const PrpFail As Integer = 3270 On Error GoTo Err_SetMyProperty Obj.Properties(strName) = strSetting Obj.Properties.RefreshExit_SetMyProperty: Exit SubErr_SetMyProperty: If Err = PrpFail Then Set Prp = Obj.CreateProperty(strName, intType, strSetting) Obj.Properties.Append Prp Obj.Properties.Refresh Else MsgBox “Error: “ & Err & vbCrLf & Err.Description End If Resume Exit_SetMyPropertyEnd Sub
在学VB设计时，对象名称为command1的caption属性设置中，设置值为显示是什么意思，这种情况怎么设置
1、command1是一个按钮控件。设置它的值为“显示”，目的就是在按钮上显示2个汉字“显示”而已。2、如何设置？在command1控件的caption属性右边，输入汉字“显示”即可3、提醒一下，按钮的caption属性只是外观而已，具体执行动作还要写相应的代码才行。
如果要改变窗体的标题，需要设置窗体的属性是
如果要改变窗体的标题，需要设置窗体的属性是Caption属性。每个表格只能规定一个标题。通常标题会居中显示在表格上方。
表格的标题，对表格的简单描述。说明：
CAPTION 元素应该是 TABLE 元素的子对象。
TABLE 对象及其关联元素有一个独立的表格对象模型，该模式使用不同于常规对象模型的方法。要获得关于表格对象模型更多的信息，请参看如何动态生成表格。
扩展资料
用户可以用Word 创建下面的几类窗体：
1、打印后以书面形式填充的窗体。用户可用【窗体】工具栏来插入窗体域，窗体域有供用户输入信息的文本框、列出选项为“是”和“否”的复选框，及为用户列出选项的下拉列表框。
2、可分发并能通过电子邮件或其他类型的网络方法收集的联机窗体。可以用“窗体”工具栏来插入窗体域。可以给联机窗体添加“帮助”信息，以帮助用户。
3、更强大、可自定义的联机窗体。可提供输入数据、选择选项和记录反馈，还可分发和通过电子邮件或其他网络方法收集。
4.2.3.4 Application的Caption属性
.Caption属性:返回显示在Exce12003标题栏上的标题。例如修改当前Excel应用程序 的标题为“企业工资管理表”的语句为“Application.Caption=“企业工资管理表.
