使他认为项要以格式化的形式输入数据库。由于这些原因,建议在使用 DataCombo 控件时不要设置DataFormat 属性。
应用于:
CheckBox 控件 Column 对象 DataCombo 控件 DataBinding 对象 DataList 控件 Image 控件 ImageCombo 控件 Label 控件 ListBox 控件 OptionButton 控件 PictureBox 控件 TextBox 控件
TextBox 控件(数据报表设计器)
相关基础知识:
对象表达式
说明具体对象的表达式,可以包含对象的容器。例如,应用程序可以拥有 Application 对象,其中包含 Document 对象,而 Document 对象又包含 Text 对象。
Default 属性
返回 应用于
返回或设置一个值,以确定哪一个 CommandButton 控件是窗体的缺省命令按钮。 语法
object.Default [= boolean] Default 属性语法包含下面部分:
FunctionType 属性
返回 应用于
返回或设置用于计算由Function控件显示的值的函数。 语法
object.FunctionType [=integer] FunctionType属性的语法包含如下部分:
部分 Object integer 描述 必需的。一个对象表达式,其值为“应用于”列表中的一个对象。 可选的。一个指定函数的数值表达式,如在设置值中所示。 设置值
对integer的设置如下:
常数 rptFuncSum 值 0 描述 (缺省的)合计数据字段的值。 rptFuncAve rptFuncMin rptFuncMax 1 2 3 计算数据字段的平均值。 返回数据字段的最小值。 返回数据字段的最大值 计数部分中的行数。 计数包含非空值的字段。 计算标准偏差。 计算标准错误。 rptFuncRCnt 4 rptFuncVCnt 5 rptFuncSDEV 6 rptFuncSERR 7
应用于:
Function 控件(数据报表设计器)
相关基础知识:
对象表达式
说明具体对象的表达式,可以包含对象的容器。例如,应用程序可以拥有 Application 对象,其中包含 Document 对象,而 Document 对象又包含 Text 对象。
hWnd 属性
返回 示例?/a> 应用于
返回窗体或控件的句柄。
注意 OLE 容器控件不支持该属性。 语法
object.hWnd
object 所在处代表一个对象表达式,其值是“应用于”列表中的一个对象。 说明
燤icrosoft Windows 运行环境,通过给应用程序中的每个窗体和控件分配一个句柄(或 hWnd)来标识它们。hWnd 属性用于Windows API调用。许多 Windows 运行环境函数需要活动窗口的 hWnd 作为参数。 注意 由于该属性值在程序运行时可以改变,绝对不要将 hWnd 存储在变量中。
如果 User Control 的 Windowless 属性设为 True, 则 hWnd 属性将返回 0 。
hWnd 属性示例
这个例子强制窗体保持在最前面。要试用此例,先创建一个窗体(不是一个 MDI 子窗体),然后为该窗体创建一菜单叫做 Main。在其中插入一子菜单叫做 Always On Top,并且把它的名字设置为
mnuTopmost。利用“工程”菜单中的“添加模块”命令创建一个新模块。把 Declare 语句粘贴到新模块的声明部分,确保该语句在一行,并且没有断点或隐藏字。然后把 Sub 过程粘贴到窗体的声明部分并按 F5 键。
' 声明 Windows 例程. ' 该语句应在模块中。
Declare Function SetWindowPos Lib \hWndInsertAfter As Long, ByVal x As Long, ByVal y As_ Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags_ As Long) As Long' 设置一些常数值(从 WIN32API.TXT). Const conHwndTopmost = -1 Const conHwndNoTopmost = -2 Const conSwpNoActivate = &H10
Const conSwpShowWindow = &H40Private Sub mnuTopmost_Click () ' 从菜单中加入或删除检查标志.
mnuTopmost.Checked = Not mnuTopmost.Checked If mnuTopmost.Checked Then ' 打开 TopMost 属性.
SetWindowPos hWnd, conHwndTopmost, 0, 0, 0, 0,_ conSwpNoActivate Or conSwpShowWindow Else
' 关闭 TopMost 属性.
SetWindowPos hWnd, conHwndNoTopmost, 0, 0, 0,_ 0, conSwpNoActivate Or conSwpShowWindow End If End Sub
无论何时只要 ComboBox 收到焦点,在这个例子中都会自动放下 ComboBox 控件的列表部分。要试用此例,”创建一个包含 ComboBox 控件和 OptionButton 控件的新窗体(只为获得焦点用)。用先获得“工程”菜单中的“添加模块”命令创建一个新的模块。把 Declare 语句粘贴到新模块的声明部分,确保该语句在一行,并且没有断点或自动换行。然后把 Sub 过程粘贴到窗体的声明部分,并按 F5 键。用 TAB 键将焦点移动到 ComboBox 以及从 ComboBox 移出。
Declare Function SendMessage Lib \Alias \(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongPrivate Sub Combo1_GotFocus () Const CB_SHOWDROPDOWN = &H14F Dim Tmp
Tmp = SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&) End Sub
作用于:
CheckBox 控件 ComboBox 控件 CommandButton 控件 DataGrid控件 DirListBox 控件 DriveListBox 控件 FileListBox 控件 Form 对象、Forms 集合 Frame 控件
HScrollBar、VScrollBar 控件 ListBox 控件 MDIForm 对象 OLE 容器控件 OptionButton 控件 PictureBox 控件 PictureClip 控件 TextBox 控件
相关基础知识: