create by amu on 2012-08-16
----------------------------------------------------------------------------------------
1.window中的事件
事件名触发的时机
01.Activate 在窗口激活之前触发
02.Clicked 当用户用鼠标单击窗口的空白区域（没有控件的区域）时触发
03.Close 当关闭窗口时触发
04.CloseQuery 当清除或关闭窗口时触发。然后检查Message.ReturnValue的值，若为1，则窗口不能关闭
05.Deactivate 当窗口变为非活动状态时触发
06.DoubleClicked 当用户双击窗口的空白区域时触发
07.DragDrop 当一个可拖动的控件被拖动到窗口上时触发
08.DragEnter 当一个可拖动的控件进入窗口时触发
09.DragLeave 当一个可拖动的控件离开窗口时触发
10.DragWithin 当一个可拖动的控件在窗口内部拖动时触发
11.Hide 在窗口被隐藏时触发
12.HotLinkAlarm 在DDE中服务器应用已经发送了新的数据，客户DDE应用已经接收到这些数据时触发
13.Key 当用户击了一个键且插入点不在RichTextEdit编辑控件或数据窗口控件时触发
14.MouseDown 当用户在窗口的空白区域按下鼠标左键时触发
15.MouseMove 当鼠标在窗口内移动时触发
16.MouseUp 当用户在窗口的空白区域释放鼠标左键时触发
17.Open 当程序调用以此窗口为参数的Open函数时，此事件在该窗口打开之后，显示之前触发
18.Help .........
19.Other 当一个非PowerBuilder事件的Windows信息发生时触发
20.RButtonDown 在窗口的空白区域单击鼠标右键时触发
21.RemoteExec 当一个DDE客户应用发送了一个命令时触发
22.RemoteHotLinkStart 当一个DDE客户应用开始一个热连接时触发
23.RemoteHotLinkStop 当一个DDE客户应用结束一个热连接时触发
24.RemoteRequest 当一个DDE客户应用请求数据时触发
25.RemoteSend 当一个DDE客户应用已经发送了数据时触发
26.Resize 当用户或程序打开或重设窗口大小时触发
27.Show 当程序运行此窗口的show函数时，此事件在窗口显示之前触发
28.SystemKey 当插入点不在某个行编辑中且用户按了ALT或ALT加其它键时触发
29.Timer 在调用Timer函数后，经过了Timer函数指定的时间后触发
30.ToolBarMoved 当MDI窗口的工具条移动时触发
以上是我新建一个window是window的事件原来的顺序，
下面是我自己常用的排序:
01.window打开时发生的事件
事件名触发的时机
Activate 在窗口激活之前触发
Resize 当用户或程序打开或重设窗口大小时触发
Open 当程序调用以此窗口为参数的Open函数时，此事件在该窗口打开之后，显示之前触发
Show 当程序运行此窗口的show函数时，此事件在窗口显示之前触发
02.window关闭时发生的事件
Deactivate 当窗口变为非活动状态时触发
CloseQuery 当清除或关闭窗口时触发。然后检查Message.ReturnValue的值，若为1，则窗口不能关闭
Close 当关闭窗口时触发
03.关于鼠标击键事件
Clicked 当用户用鼠标单击窗口的空白区域（没有控件的区域）时触发DoubleClicked 当用户双击窗口的空白区域时触发
MouseDown 当用户在窗口的空白区域按下鼠标左键时触发
MouseMove 当鼠标在窗口内移动时触发
MouseUp 当用户在窗口的空白区域释放鼠标左键时触发、
RButtonDown 在窗口的空白区域单击鼠标右键时触发
注：当按下鼠标左键时，MouseDown事件触发，当释放鼠标左键时，Clicked事件和MouseUp 事件触发
04.计时触发
Timer 在调用Timer函数后，经过了Timer函数指定的时间后触发
05.托动触发
DragDrop 当一个可拖动的控件被拖动到窗口上时触发
DragEnter 当一个可拖动的控件进入窗口时触发
DragLeave 当一个可拖动的控件离开窗口时触发
DragWithin 当一个可拖动的控件在窗口内部拖动时触发
06.菜单及菜单工具栏移动是触发
ToolBarMoved 当MDI窗口的工具条移动时触发
07.其它不常用的（指的是我自己）
Hide 在窗口被隐藏时触发
HotLinkAlarm 在DDE中服务器应用已经发送了新的数据，客户DDE应用已经接收到这些数据时触发
RemoteExec 当一个DDE客户应用发送了一个命令时触发RemoteHotLinkStart 当一个DDE客户应用开始一个热连接时触发RemoteHotLinkStop 当一个DDE客户应用结束一个热连接时触发
RemoteRequest 当一个DDE客户应用请求数据时触发
RemoteSend 当一个DDE客户应用已经发送了数据时触发
Key 当用户击了一个键且插入点不在RichTextEdit编辑控件或数据窗口控件时触发
Help .........
Other 当一个非PowerBuilder事件的Windows信息发生时触发SystemKey 当插入点不在某个行编辑中且用户按了ALT或ALT加其它键时触发
-----------------------------------------------------------------------
在window上的能应用的控件非常多
但是控件的事件有一部分是相同的
2.窗口上控件的公共事件
事件名触发的时机
Clicked 当单击窗口或控件时触发
Constructor 在窗口中的open事件发生之前触发
Destructor 在窗口中的close事件发生之后触发
GetFocus 在此控件得到焦点上时触发
LoseFocus 在此控件失去焦点时触发
DragDrop 当一个可拖动的控件被拖动到窗口或控件上时触发
DragEnter 当一个可拖动的控件进入窗口或控件上时触发
DragLeave 当一个可拖动的控件离开窗口或控件时触发
DragWithin 当一个可拖动的控件在窗口或控件内部时触发
RbuttonDown 在控件区域内单击鼠标右键时触发
Other 当一个非PowerBuilder事件的Windows信息发生时触发
-------------------------------------------------------------------------
3.datawindow上的事件，按照顺序（除开公用事件）
事件名称事件触发的时机
01.ButtonClicking 在数据窗口中的按钮对象正在被单击时触发
02.ButtonClicked 在数据窗口中的按钮对象被单击后触发
03.DbError 当数据窗口中发生了数据库错误时触发
04.DoubleClicked 当用户双击数据窗口控件时触发；对于RichText风格的数据窗口，当双击数据窗口中的文本时触发
05.EditChanged 当光标进入数据窗口对象中的一个字段时触发
06.Error 当数据窗口数据表达式或属性表达式中发现错误时触发
07.ItemChanged 当数据窗口上的区域被修改并且失去了焦点（如用户按回车键、Tab键或箭头键，或者用鼠标选另一个区域）时触发
08.ItemError 当一个域被修改并且失去焦点，且域不符合列上的合法性规则时触发
09.ItemFocusChanged 当焦点改变时触发
10.PrintStart 当数据窗口打印开始时触发
11.PrintEnd 当数据窗口打印结束时触发
12.PrintPage 在数据窗口的每一页设置打印格式之前触发
13.Resize 当用户或程序重设窗口大小时触发
14.RetrieveStart 当数据窗口检索将要开始时触发
15.RetrieveEnd 当数据窗口的检索完成时触发
16.RetrieveRow 在一行数据被检索出来之后触发
17.RowFocusChanging 当数据窗口当前行正在改变时触发
18.RowFocusChanged 当数据窗口当前行改变之后触发
19.ScrollHorizontal 当用户用Tab键、箭头键或滚动条左右滚动数据窗口控件时触发
20.ScrollVertical 当用户用Tab键、箭头键或滚动条上下滚数据窗口控件时触发
21.SqlPreview 在调用Retrieve、Update或Selectrow函数时，SQL语句提交到DBMS之前触发
22.UpdateStart 恰在调用Update函数之后，数据窗口中的改变发送到数据库之前触发
23.UpdateEnd 当所有从数据窗口到数据库的修改完成时触发
说一下我个人常用的几种事件
01.数据窗口字段输入的时候触发的事件
EditChanged 当光标进入数据窗口对象中的一个字段时触发
ItemChanged 当数据窗口上的区域被修改并且失去了焦点（如用户按回车键、Tab 键或箭头键，或者用鼠标选另一个区域）时触发
ItemFocusChanged 当焦点改变时触发
ItemError 当一个域被修改并且失去焦点，且域不符合列上的合法性规则时触发如果EditChanged,ItemChanged,ItemFocusChanged这三个事件报错促发ItemError
如果在ItemChanged事件中设置了行为/返回代码1，则DataWindow控件拒绝接受数据且不允许焦点发生变化
02.鼠标单双击数据窗口按钮
ButtonClicking 在数据窗口中的按钮对象正在被单击时触发
ButtonClicked 在数据窗口中的按钮对象被单击后触发
eg:
choose case https://www.doczj.com/doc/a76098555.html,
case 'cb_name'
//动作......
case .......
end choose
03.数据窗口检索前后触发的事件
RetrieveStart 当数据窗口检索将要开始时触发
RetrieveEnd 当数据窗口的检索完成时触发
RetrieveRow 在一行数据被检索出来之后触发
在RetrieveStart事件中设置了行为/返回代码2，在检索数据之前不要重置行，也就是上次
retrieve的数据会被保留下来
04.打印前后
PrintStart 当数据窗口打印开始时触发
PrintEnd 当数据窗口打印结束时触发
PrintPage 在数据窗口的每一页设置打印格式之前触发
05.其它的我自己不常用，就不多说了
------------------------------------------------------------------
4.单行编辑器控件、编辑掩码控件、多行编辑控件的事件
这三个控件有相同的事件，都有公共事件中除了Clicked事件之外的10种事件，另外还有Modify事件
Modify事件在控件的文本被改变之后，用户按了回车键或Tab键，或用鼠标把焦点改变到另一个控件上时触发
---------------------------------------------------------------------
5.超文本编辑控件的事件
事件名称触发的时机
01.FileExists 当该控件的内容保存到一个已存在的文件时触发
02.InputFieldSelected 当选定输入域后双击或按下回车键时触发
03.key 当按下一个键时触发
04.Modify 当该控件中的内容第一次改变，但还没有保存时触发
05.MouseDown 当按下鼠标左键时触发
06.MouseMove 当鼠标在该控件中移动时触发
07.MouseUp 当放开鼠标左键时触发
08.PictureSelected 当选定位图后双击或按下回车键时触发
09.PrintFooter 当打印该控件内容的页脚时触发
10.PrintHeader 当打印该控件内容的页眉时触发
11.RbuttonUp 当在该控件中放开鼠标右键时触发
---------------------------------------------------------------------
6.滚动条事件
左右滚动条事件名称事件触发时机
LineLeft 当点中了控件的左箭头时触发
LineRight 当点中了控件的右箭头时触发
PageLeft 当点中了控件的左部的开放空间时触发
PageRight 当点中了控件的右部的开放空间时触发
Moved 当控件的滚动钮被移动时触发
上下滚动条事件名称事件触发时机
LineDown 当点中了控件的下箭头时触发
LineUp 当点中了控件的上箭头时触发
PageDown 当点中了控件的下部的开放空间时触发
PageUp 当点中了控件的上部的开放空间时触发
Moved 当控件的滚动钮被移动时触发
----------------------------------------------------------------------
7.列表框控件的事件
PowerBuilder提供了四个列表框控件：列表框、图片列表框、下拉列表框和下拉图片列表框。它们都有公共事件中除了Clicked事件之外的10种事件。
此外，下拉列表框和下拉图片列表框还有DoubleClicked事件、Modify事件和SelectionChanged事件。
列表框、图片列表框还有DoubleClicked事件和SelectionChanged事件。
------------------------------------------------------------------------
8.树状浏览控件的事件
事件名称事件触发时机
01.BeginDrag 按下鼠标左键开始拖动时触发
02.BeginLabelEdit 编辑TreeView选中的项标签时触发
03.BeginRightDrag 按下鼠标右键开始拖动时触发
04.DeleteItem TreeView项被删除时触发
05.DoubleClicked 双击鼠标左键时触发
06.EndLabelEdit 对TreeView的项标签结束编辑时触发
07.ItemCollapsed 当TreeView控件收缩完成时触发
08.ItemCollapsing 当TreeView控件收缩开始时触发
09.ItemExpanded 当TreeView控件展开后触发
10.ItemExpanding 当TreeView控件展开之前触发
11.ItemPopulate 当TreeView控件第一次展开时触发
12.RightClicked 按下鼠标右键时触发
13.RightDoubleClicked 在控件中双击鼠标右键时触发
14.SelectionChanged TreeView项目被选中后触发
15.SelectionChanging TreeView当前项目改变之前触发
16.Sort 两个项目为排序进行比较时触发
-------------------------------------------------------------------------------
9.列表浏览控件的事件
事件名称事件触发时机
01.BeginDrag 按下鼠标左键开始拖动时触发
02.BeginLabelEdit 编辑ListView选中的项标签时触发
03.BeginRightDrag 按下鼠标右键开始拖动时触发
04.ColumnClicked 在控件中鼠标左键单击列标题时触发
05.DeleteAllItems 所有项被删除时触发
06.DeleteItem ListView项被删除时触发
07.DoubleClicked 双击鼠标左键时触发
08.EndLabelEdit 对ListView的项标签结束编辑时触发
09.InsertItem 为ListView插入项时触发
10.ItemChanged 控件中当前项目改变后触发
11.ItemChanging 控件中当前项目改变前触发
12.key 用户按下键时触发
13.RightClicked 按下鼠标右键时触发
14.RightDoubleClicked 在控件中双击鼠标右键时触发
15.Sort 两个项目为排序进行比较时触发
----------------------------------------------------------------------------------
10.Tab页控件的事件
事件名称事件触发时机
01.DoubleClicked 双击鼠标左键时触发
02.Key 用户按下键时触发
03.RightClicked 按下鼠标右键时触发
04.RightDoubleClicked 在控件中双击鼠标右键时触发
05.SelectionChanging Tab控件当前页改变之前触发
06.SelectionChanged Tab控件当前页改变后触发
-----------------------------------------------------------------------------------
11.OLE控件的事件
事件名称事件触发时机
01.Close 当OLE控件的服务器关闭时触发
02.Datachange 服务器应用数据改变时触发
03.DoubleClicked 在控件内双击鼠标左键时触发
04.Error 当OLE控件操作出现错误时触发
05.ExternalException OLE服务器自动执行处理以外的操作时触发
06.PropertyChanged OLE控件改变对象后触发
07.PropertyRequestEdit OLE控件改变对象时触发
08.Rename 当服务器中对象改名时触发
09.Save 服务器写数据时触发
10.ViewChange 服务器进行预览时触发
------------------------------------------------------------------------------------- 12.菜单事件
菜单对象的事件比较简单，只有两个Clicked事件和Selected事件。
Clicked事件：在某菜单上单击鼠标左键时触发。
Selected事件：光标移入菜单条时触发。
--------------------------------------------------------------------------------------
13.用户自定义事件
这种东东目前正在研究，太多了，慢慢来
转资料一份
PB中自定义事件ID含义
Event ID 含义内容浅析，
单选或多选按钮消息（前缀:pbm_bm）
pbm_bmgetcheck 单选按钮或多选按钮是否被选。
pbm_bmgetstate 按钮是否加亮。
pbm_bmsetcheck 将无线按钮或确认框的选中状态改为未选中状态,反之亦然。pbm_bmsetstate 加亮或不加亮按钮。
pbm_bmchange 改变按钮的风格,例如,改为单选按钮或组合框。
单选或多选按钮通知消息（前缀:pbm_bn）
pbm_bnclicked 按钮控件被点中。
pbm_bndisable 使按钮控件无效。
pbm_bndoubleclicked 按钮控件被双点。
pbm_bndragdrop 一个对象被放到按钮控件。
pbm_bndragenter 一个对象被拖到按钮控件。
pbm_bndragleave 一个对象被拖离按钮控件。
pbm_bndragover 一个对象被拖经按钮控件。
pbm_bnhilite 按钮控件被加亮。
pbm_bnpaint 按钮控件被绘制。
pbm_bnsetfocus 按钮控件获得聚焦。
pbm_bnunhilite 按钮控件不被加亮。
通用对话框消息（前缀:pbm_cb）
pbm_cbaddstring 将字符串加到通用对话框。
pbm_cbdeletestring 从通用对话框删除一个字符串。
pbm_cbdir 加一个目录列表到通用对话框。
pbm_cbfindstring 搜索以一组字符开头的字符串。
pbm_cbfindstringexact 搜索与所提供的字符完全匹配的字符串。
pbm_cbgetcount 列表框中的项数。
pbm_cbgetcursel 当前被选项的数目。
pbm_cbgetdroppedcontrolset 列表框在屏幕上的坐标位置。
pbm_cbgeteditsel 编辑器控件中被选字符的范围。
pbm_cbgetextendedui 缺省或扩展的用户界面。
pbm_cbgetitemdata 重画的列表框中的4字节(32位)项。
pbm_cbgetitemheight 列表框中某一项的高度。
pbm_cbgetlbtext 列表框中的文本。
pbm_cbgetlbtextlen 列表框中文本的长度。
pbm_cbinsertstring 向列表框中增加新的字符串或4字节项。
pbm_cblimittext 限制能被输入到列表框中的字符数。
pbm_cbresetcontent 删除列表框中所有元素。
pbm_cbselectstring 搜索匹配的字符串并显示。
pbm_cbsetcursel 在列表框中选择并显示一项。
pbm_cbseteditsel 在列表框的编辑区域中选择一块文本。
pbm_cbsetextendedui 设置缺省或扩展的用户界面。
pbm_cbsetitemdata 在列表框中设定4字节(32位)项。
pbm_cbsetitemheight 设置列表框中项的高度。
pbm_cbshowdropdown 转换(显示或隐藏)列表框中拖放区域。
通用对话框通知消息（前缀:pbm_cbn）
pbm_cbndblclk 用户在列表中某一项上双点。
pbm_cbndragdrop 一个对象被放到通用对话框控件上。
pbm_cbndragenter 一个对象被拖到通用对话框控件上。
pbm_cbndragleave 一个对象被拖离通用对话框控件。
pbm_cbndragover 一个对象被拖经通用对话框控件。
pbm_cbndropdown 列表框的下放区域即将被显示。
pbm_cbneditchange 编辑器控件中的文本发生变化。
pbm_cbneditupdate 列表框编辑器控件中的文本即将被改变。
pbm_cbnerrspace 列表框满,不能再向其中加入项。
pbm_cbnkillfocus 通用列表框失去聚焦。
pbm_cbnselchange 列表框中被选文本被改变。
pbm_cbnselendcancel 用户按下了"取消"按钮。
pbm_cbnselendok 用户按下了"确认"按钮。
pbm_cbnsetfocus 通用对话控件拥有聚焦。
数据窗口消息（前缀:pbm_dw）
pbm_dwclosedropdown 关闭下拉式数据窗口。
pbm_dwscrollend 在数据窗口中卷滚到最后一行。
pbm_dwscrollhome 在数据窗口中卷滚到第一行。
pbm_dwscrolllineend 卷滚到当前行的行尾(水平方向)。
pbm_dwscrolllinehome 卷滚到当前行的行首(水平方向)。
数据窗口通知消息（前缀:pbm_dwn）
pbm_dwnbacktabout 即将通过Shift+Tab组合键离开该控件。
pbm_dwnchanging 控件即将被改变。
pbm_dwndropdown 下拉式列表框的下拉部分即将可见。
pbm_dwngraphcreate 即将创建图形。
pbm_dwnitemchangefocus 数据窗口控件中当前项的聚焦改变。
pbm_dwnitemvalidationerror 对当前项的修改引起了一个合法性检查错误。pbm_dwnkey 有键被按下。使用KeyDown()处理键盘值。
pbm_dwnlbuttondown 鼠标左键被按下。
pbm_dwnlbuttonup 鼠标左键被松开。
pbm_dwnmbuttonclk 鼠标中键点击。
pbm_dwnmbuttondbclk 鼠标中键双击。
pbm_dwnmousemove 鼠标移动。
pbm_dwnprintmarginchange 打印边界被改变。
pbm_dwnprocessenter 回车键被按下。
pbm_dwnrowchange 数据窗口中聚焦从一行转向另一行。
pbm_dwntabdownout 用户在数据窗口最后一行按了下箭头键。
pbm_dwntabout 用户在数据窗口的最后一行/列中按了tab键。
pbm_dwntabupout 用户在数据窗口第一行中按了上箭头键。
动态数据交换(DDE)消息（前缀:pbm_dde）
pbm_ddeddeack 收到一个DDE消息。
pbm_ddeddeinitiate 开始一个DDE会话。
pbm_ddeddeterminate 终止一个DDE会话。
编辑器控件消息（前缀:pbm_em）
pbm_emcanundo 编辑器控件是否能撤消上一次修改。
pbm_ememptyundobuffer 清空由Windows管理的取消操作的缓冲区。
pbm_emfmtlines 在多行编辑器控件的行尾增加或删除回车换行。
pbm_emgetfirstvisibleline 返回编辑器控件中可见的第一行的行号。
pbm_emgethandle 获得编辑器控件使用的内存句柄。
pbm_emgetline 从编辑器控件中复制一行到内存中的一个缓冲区。
pbm_emgetlinecount 返回多行编辑器控件的行数。
pbm_emgetmodify 文本是否被用户修改。
pbm_emgetrect 返回控件的长方形域。
pbm_emgetsel 返回被选文本的起始位置。
pbm_emlimittext 限制用户键入的文本长度。
pbm_emlinefromchar 返回被选文本的行号。
pbm_emlineindex 返回编辑器控件中被选行第一个字符在编辑串中的位置。
pbm_emlinelength 返回编辑器控件中被选行中的字符数。
pbm_emlinescroll 水平或垂直卷滚编辑器控件。
pbm_emreplacesel 从剪贴板或从键盘上用新文本替换被选文本。
pbm_emsethandle 设置编辑器控件的句柄指向内存中的一个缓冲区。
pbm_emsetmodify 设置编辑器控件的modified标志。
pbm_emsetpasswordchar 设置用户输入任何文本时显示的字符,在输入密码时的显示。pbm_emsetrect 设置/重置编辑器控件所在的长方形区域,编辑器控件中的文本被重画。pbm_emsetrectnp 除了不重画文本,大致与setrect相同。
pbm_emsetsel 选择字符。
pbm_emsettabstops 在多行编辑器控件中设置tabstops。
pbm_emsetwordbreak 设置新的词拆分函数。
pbm_emsetwordbreakproc 设置新的词拆分过程。
pbm_emundo 撤消最近的编辑操作。
编辑控件通知消息（前缀:pbm_en）
pbm_enchange 编辑器控件中的文本发生改变。
pbm_enerrspace 编辑器控件内存缓冲区溢出。
pbm_enhscroll 用户点中上水平卷滚条。
pbm_enmaxtext 用户试图输入比允许更多的文本。
pbm_enupdate 编辑器控件即将显示用户的修改。
pbm_envscroll 用户点中了垂直卷滚条。
列表框消息(前缀:pbm_lb)
pbm_lbaddstring 向列表框控件中增加一项或一个字符串。
pbm_lbdeletestring 从列表框中删除一项或一个字符串。
pbm_lbdir 用目录列表填充列表框。
pbm_lbfindstring 在列表框中搜索与所给字符串部分匹配的第一项。
pbm_lbfindstringexact 在列表框中搜索与所给字符串精确匹配的第一项。
pbm_lbgetcaretindex 在列表框中搜索拥有聚焦的项。
pbm_lbgetcount 确定列表框中的项数。
pbm_lbgetcursel 确定所选项是第几项。
pbm_lbgethorizontalextent 获得列表框的宽度、计算水平卷滚。
pbm_lbgetitemheight 确定列表框控件中项的高度。
pbm_lbgetitemrect 确定列表框的尺寸。
pbm_lbgetsel 获得列表框中当前所选的项。
pbm_lbgetselcount 在多选列表框中获得所选项的数目。
pbm_lbgetselitems 用列表框中表框各自的项号填充一个给定的整数数组。
pbm_lbgettext 获得列表框中当前所选项的文本。
pbm_lbgettextlen 获得列表框中当前所选项的文本中的字符数。
pbm_lbgettopindex 确定列表框中可见的最上面一项的项号。
pbm_lbinsertstring 向列表框中加入一个新字符串。
pbm_lbresetcontent 重置(消除)列表框中的内容。
pbm_lbselectstring 搜索并加亮与所给字符匹配的字符串。
pbm_lbselitemrange 选择/取消列表框中某一范围中的项。
pbm_lbsetcaretindex 设置列表框中的某一项拥有聚焦。
pbm_lbsetcolumnwidth 设置列表框中列的宽度。
pbm_lbsetcursel 在列表框中选择并加亮一项;如果需要,卷滚到列表框。
pbm_lbsethorizontaltext 设置列表框中被水平卷滚的单元数。
pbm_lbsetitemdata 设置与列表框相关的32位/4字节值。
pbm_lbsetitemheight 设置列表框中项的高度。
pbm_lbsetsel 在列表框中选择一个字符串。
pbm_lbsettabstops 设置列表框控件中tabstops的位置。
pbm_lbsettopindex 卷滚列表框使特定的项成为可见的最上面一项。
列表框通知消息（前缀:pbm_en）
pbm_endblclk 用户在列表框控件中的某一项上双击。
pbm_enerrspace 用户试图超越可在列表框中输入字符的最大限制。
pbm_enselcancel 当前选取文本被取消。
pbm_enselchange 用户在列表框中选择或取消了一项。
窗口消息（前缀:pbm_）
pbm_activateapp 被激活的窗口属于另外一个应用。
pbm_askcbformatname 要求剪贴板中的内容被复制到一个使用自定义格式的文本缓冲区中。pbm_char 传送键盘上按下的键。
pbm_chartoitem 通过转换键盘来的字符,帮助列表框定位其中的项。
pbm_childactivate 一个子窗口被移动或激活。
pbm_clear 用户要删除当前编辑器控件中的内容。
pbm_command 用户选择了一个菜单项、控件,或使用了加速键。
pbm_compacting 系统内存资源不足;当Windows占用了多于1/8的CPU时间紧缩内存时,产生这条消息。
pbm_compareitem 当新的一项被加入列表框或组合框时产生此消息,Window用这条消息进行项之间的比较。
pbm_ctlcolor 一个控件即将被画出,可在此时改变控件的颜色。
pbm_deadchar 用户选择了一种非英语字符集或其它特殊字符集,这将改变下面将要输入的字符。
pbm_deleteitem 从列表框或通用对话框中移去一项。
pbm_destroyclipboard 剪贴板内容被清除。
pbm_devmodechanged WIN.INI中的一个设备名被修改。
pbm_drawclipboard 剪贴板内容发生改变。
pbm_drawitem 列表框或通用对话框的一项内容被改变。
pbm_dropfiles 当鼠标左键在一个注册为拖放文件接受器的应用上释放时,发出该消息。pbm_erasebkgnd 窗口的客户区需要重画。
pbm_fontchange 应用可用的字体数改变。
pbm_getdlgcode 通知消息,说明当前使用哪种类型的键盘。
pbm_getfont 获取当前激活的字体。
pbm_getminmaxinto Windows正在检查最小化或最大化窗口的尺寸。
pbm_gettext 从一个控件(如按钮或编辑器控件)中复制文本到一个内存缓冲区。
pbm_gettextlength 用来确定一个控件中的字符数。
pbm_hscrollclipboard 剪贴板的水平卷滚条被使用。
pbm_iconerasebkgnd 一个最小化窗口需要重化背景。
pbm_initdialog 一个对话框即将被显示。
pbm_initmenu 一个菜单即将被显示。
pbm_initmenupopup 一个弹出式窗口即将被显示。
pbm_keydown 键盘上的一个键被按下。
pbm_keyup 键盘上的一个键被释放。
pbm_mdiactive 一个MDI子窗口(表单)被激活。
pbm_mdicascade 以重叠的形式重排所有的表单。
pbm_mdicreate 创建一个表单。
pbm_mdidestroy 从MDI框架中移去一个表单。
pbm_mdigetactive 获得当前活动的MDI表单的句柄。
pbm_mdiiconrange 在一个MDI框架中重排最小化表单的图标。
pbm_mdimaximize 最大化一个MDI子表单。
pbm_mdinext 激活下一个MDI表单(紧接着活动表单的表单)。
pbm_mdirestore 把MDI表单恢复到它原来的大小。
pbm_mdisetmenu 将一个菜单与一个MDI表单联系起来。
pbm_mdifitle 平铺所有的MDI表单。
pbm_measureitem 这个消息被送给即将创建的、内有按钮或其它控件的窗口。
pbm_menuchar 用户使用了一个快捷键,但系统不支持该快捷键。
pbm_menuselect 用户选择了一个菜单项。
pbm_mouseactivate 用户在一个非活动窗口中点击了鼠标。
pbm_mousemove 用户移动了鼠标。
pbm_ncactivate 窗口的非客户区即将被激活。
pbm_nccalcsize 窗口的尺寸需要重新计算。
pbm_nccreate 窗口即将创建它的非客户区。
pbm_ncdestroy 窗口的非共享区被析构。
pbm_nchittest 每次非客户区被移动时都发送该消息。
pbm_nclbuttondblclk 用户在非客户区双点了鼠标左键。
pbm_ncpaint 非客户需要画出。
pbm_nextdlgctl 在对话框中将聚焦转给另一个控件。
pbm_paint 窗口的客户区需要被画出。
pbm_paintclipboard 剪贴板应用有剪贴操作,剪贴板查看器需重画。
pbm_palettechanged 系统调色板被改变。
pbm_paletteischanging 系统调色板即将被改变。
pbm_parentnotify 通知父窗口一个子窗口即将被创建。
pbm_querydragicon 用户要拖一个最小化窗口。
pbm_queryendsession 通知消息,说明窗口即将被关闭。
pbm_querynewpalette 应用即将收到输入聚焦,应该执行必要的颜色调整。
pbm_queryopen 一个最小化窗口即将被恢复。
pbm_quit 应用处理的最后一个消息。
pbm_renderallformats 通知一个剪贴板格式的拥有者,应用将失去所有的格式。pbm_renderformats 通知消息,说明放在剪贴板中的数据应该用一种特殊格式传送。pbm_setcursor 通知消息,说明鼠标指针在一个窗口中移动。
pbm_setfont 用来在对话框中改变字体。
pbm_setredraw 在加一个新项之前发送给列表框或通用对话框。
pbm_settext 用来改变窗口的标题或文本。
pbm_sizeclipboard 剪贴板查看器应用改变尺寸。
pbm_spoolerstatus 一个打印管理器任务被添加或删除。
pbm_syschar 键和其它某键同时被按下。
pbm_syscolorchange 一种或多种系统颜色被改变。
pbm_syscommand 用户选择了一个系统菜单命令。
pbm_sysdeadchar 通知消息，说明一种非英语字符集被选定。
pbm_syskeydown 用户按下某键的同时按下了键。
pbm_syskeyup 用户释放了组合键。
pbm_timechange 系统时钟被修改。
pbm_undo 从undo缓冲区复制文本到编辑器控件。
pbm_vkeytoitem 当一个列表框拥有聚焦时,用户按下了一个键。
pbm_vscroll 用户点击了垂直卷滚条。
pbm_vscrollclipboard 剪贴板查看器的垂直卷滚条被点击。
pbm_windowposchanged 窗口位置发生改变。
pbm_windowposchanging 窗口位置即将发生改变。
pbm_wininichange WIN.INI文件被修改。
3.02及以下版本命名空间应将 Teigha 换为DWGdirect 。 1、Teigha 中DWG 数据库结构: 经 常用到 的有 TextStyleTable 、LayerTable 、 LinetypeTable 、BlockTable 及其对应的 TextStyleTableRecord 、LayerTableRecord 、LinetypeTableRecord 、BlockTableRecord 及 Entity 。 2、具体使用 2.1添加引用 使用前应该添加 TD_Mgd_3.03_9.dll 或是其他版本类库， 类库分为64位与32位，32位类库 在64位系统上运行效果可能不太好。 3.02版本及一下版本可能没有 64位的类库。 命名空间有： Teigha.DatabaseServices; Teigha.Geometry; Teigha.Colors; Teigha.Export_Import; Teigha.GraphicsI nterface; Teigha.GraphicsSystem; Teigha.Ru ntime; O.n D n o.n Q . n | u_n V ewporl ISbK Rotoid UC3 R&c orti Rocotd EHork r 劉 ? RftCOrtl CEiGCt
2.2 打开、新建、保存数据库 使用之前应加上这个： using ( Services ser = new Services ())// 一个应用程序加上一个就行了，否则出错 1、打开数据库( dwg 文件) using ( Database pDb = new Database( false , false ))// 不加参数会出错 { pDb.ReadDwgFile( Application .StartupPath + "\\TABMENU.dwg", FileOpenMode.OpenForReadAndWriteNoShare, false , "" ); } 2、新建数据库 using ( Database pDb = new Database())// 加参数出错 3、保存 (1)保存格式 SaveType pSavetype = SaveTypeSave12; 〃Save12 为.dwg Save13 为dxf 默认保存为dwg ，可以不用指定。 (2)保存版本类型 DwgVersion dwgver = DwgVersion.vAC18; //ACAD2010为vAC24；ACAD200为vAC21；ACAD200为vAC18； 很重要，保存时要用，版本过高时低版本AutoCAD 不能打开。 (3)保存 pDb.SaveAs(filename, dwgver); pDb 为数据库( Database)，filename 为dwg 文件名，dwgver 为版本。 2.3 写数据 2.3.1 添加文本样式 ObjectId styleId = ObjectId .Null; using ( TextStyleTable pStyles = ( TextStyleTable )pDb.TextStyleTableId.GetObject( OpenMod.eForWrite)) { // 文本样式记录 using ( TextStyleTableRecord pStyle = new TextStyleTableRecord ()) { // 表对象(记录)添加到表之前必须命名 // isShapeFile flag must also be set (if true) before adding the object
C#自定义控件属性与行为收藏 控件应该定义属性而不是公共字段，因为可视化设计器在属性浏览器中显示属性，而不显示字段。属性就像智能字段。属性通常具有带访问函数的专用数据成员，在语法上属性被作为类的字段进行访问。（虽然属性可以具有不同的访问级别，但此处的讨论将重点放在公共访问这种更加常见的情况上。 属性定义通常由以下两部分组成： 1、专用数据成员的定义。 view plaincopy to clipboardprint? 01.private int number = 0; private int number = 0; 2、使用属性声明语法对公共属性进行的定义。 view plaincopy to clipboardprint? 01.//该语法通过get 和set 访问函数将专用数据成员和公共属性关联起来。 02. public int MyNumber 03. { 04. get 05. { 06. return number; 07. } 08. set 09. { 10. number = value; 11. } 12. } //该语法通过get 和set 访问函数将专用数据成员和公共属性关联起来。 public int MyNumber { get { return number; } set { number = value; }
} 虽然属性定义中通常包含专用数据成员，但这不是必需的。get 访问器不用访问私有数据成员就可以返回值。get 方法返回系统时间的属性就属于这种情况。属性启用数据隐藏，访问器方法隐藏属性的实现。 定义属性时需考虑以下重要的注意事项： 1、必须将属性应用于定义的属性。属性用来指定设计器显示属性的方式。 2、如果改变属性将影响控件的外观显示，请从set 访问器中调用Invalidate 方法（从Control 继承该方法）。Invalidate 随后调用OnPaint 方法，该方法将重新绘制控件。为提高效率起见，对Invalidate 的多次调用将产生对OnPaint 的一次调用。 3、 .NET Framework 类库为常见数据类型（如整数、小数、布尔值和其他数据）提供了类型转换器。类型转换器的目的通常是用来提供字符串到数值的转换（从字符串数据转换为其他数据类型）。常见数据类型与默认类型转换器（将数值转换为字符串，并将字符串转换为相应数据类型）相关联。如果定义了自定义（即，非标准）数据类型的属性，则应用的属性必须将类型转换器指定为与该属性相关联。还可以使用属性使自定义UI 类型编辑器与某个属性相关联。UI 类型编辑器提供了一个用来编辑属性或数据类型的用户界面。颜色选择器是UI 类型编辑器的一个示例。 例：首先创建一个名为DrawingMode 的简单枚举。 view plaincopy to clipboardprint? 01.public enum DrawingMode 02. { 03. Happy = 0, 04. Sad = 1, 05. Angry = 2 06. } public enum DrawingMode { Happy = 0, Sad = 1,
AfxMessageBox()与MessageBox()的区别 AfxMessageBox的函数原型 int AfxMessageBox( LPCTSTR lpszText, UINT nType = MB_OK, UINT nIDHelp = 0 ); int AFXAPI AfxMessageBox( UINT nIDPrompt, UINT nType = MB_OK, UINT nIDHelp = (UINT) –1 ); 在第一种形式中，lpszText表示在消息框内部显示的文本，消息框的标题为应用程序的可执行文件名（如Hello）。在第二种形式中，nIDPrompt为要显示的文本字符串在字符串表中的ID。函数调用时会自动从字符串表中载入字符串并显示在消息框中。nType为消息框中显示的按钮风格和图标风格的组合，可以采用|（或）操作符组合各种风格。 按钮风格 MB_ABORTRETRYIGNORE 消息框中显示Abort、Retry、Ignore按钮 MB_OK 显示OK按钮 MB_OKCANCEL 显示OK、Cancel按钮 MB_RETRYCANCEL 显示Retry、Cancel按钮 MB_YESNO 显示Yes、No按钮 MB_YESNOCANCEL 示Yes、No、Cancel按钮 图标风格 MB_ICONINFORMATION 显示一个i图标，表示提示 MB_ICONEXCLAMATION 显示一个惊叹号，表示警告 MB_ICONSTOP 显示手形图标，表示警告或严重错误 MB_ICONQUESTION 显示问号图标，表示疑问 与AfxMessageBox类似的函数MessageBox，它是CWnd的类成员函数: int MessageBox( LPCTSTR lpszText,LPCTSTR lpszCaption = NULL,UINT nType = MB_OK ); 两个函数的区别：AfxMessageBox比MessageBox简单一些，因为它是一个全局函数所以不需要对应的一个窗口类，但是不能控制消息框标题，常用于调试程序时的内部数据输出或警告；MessageBox比较正式，常用在要提交的应用程序版本中，可以控制标题内容而不必采用含义不明的可执行文件名为标题。 举例： AfxMessageBox(“Are you sure?”，MB_YESNO|MB_ICONQUESTION）； int a = MessageBox(TEXT( "是否确认删除？" ), TEXT("Warning!!"),4); if (a == 6) AfxMessageBox("Yes"); else AfxMessageBox("No"); (其中#define IDYES 6 #define IDNO 7) 他们的区别,我收集整理了下主要有: 1.MessageBox 如果在非CWnd类中使用则是API函数，使用起来非常不便，必须指定标题和样式 否则使用CWnd类的函数，只需一个内容参数就可以了，AfxMessageBox和CWnd类成员
微信公众平台定制开发合同 甲方： 乙方： 本合同甲方委托乙方进行甲方微信公众服务号（以下简称“服务号”）自定义菜单功能的设计与开发，并支付开发经费和报酬，乙方接受委托并进行此项开发工作。双方本着平等互利、友好合作的原则，经过协商，在真实、充分地表达各自意愿的基础上，根据《中华人民共和国合同法》的规定，达成如下协议，并由双方共同恪守。 第一条开发项目的技术目标和主要内容 1．技术目标：服务号自定义菜单功能设计与开发。 2．技术内容： （1）服务号自定义菜单具体包括介绍、分店、活动、预订、会员卡申请和储储值管理； （2）提供后台编辑功能，能自定义智能回复； （3）此合同未涉及的其他后期需求变化导致的定制功能开发以另行约定协议为准。 3．技术路线： （1）服务号自定义菜单功能的设计和开发； （2）服务号运营数据库设计及运营维护接口开发。 第二条双方的权利和义务 1．甲方享有开发完成的服务号的所有权和使用权； 2．服务号内的客户信息资源归甲方所有，乙方不得在未获甲方许可的情况下擅自将甲方客户信息透露给第三方或者用于其他用途； 3．甲方应向乙方提供待开发的经认证微信公众平台服务号，并授权乙方对其进行自定义菜单开发； 4．甲方须配合乙方完成运营数据库主机租用流程； 5．甲方须提供乙方开发所需要的文字资料和图片资料； 6．甲方不得通过微信服务号发布违法违规的内容，并须对提供内容的真实性和合法性负完全责任，并保证如有因其内容所引起的纠纷、争议及所涉及的法律责任均由甲方承担； 7．乙方接受甲方委托进行服务号运营数据库服务器的租用、运营数据库的设计、自定
义菜单的功能设计和开发； 8．乙方承诺从合同订立之日起，向甲方提供该服务号为期一年技术支持和维护服务，其中数据维护服务不超过10次，如超过10次甲方须向乙方支付一定的维护费用； 9．开发期间，服务号自定义菜单构架、自定义菜单设计和图片文字等内容（甲方提供的文本、图形、音像资料未经乙方加工部分除外）的版权、设计权归乙方所有，未经乙方许可甲方不得擅自使用，不得复制或交由第三方使用； 10．开发代码的知识产权归乙方所有，甲方不得未经乙方许可擅自对外复制、转让、修改及授权他人使用，由此引发的服务中断及法律责任均由甲方承担； 11．在服务期内，由不可抗力如自然灾害造成的服务中断，甲方须第一时间通知乙方，乙方须为甲方数据容灾恢复提供支持服务，无须承担甲方由此造成的运营损失； 12．在服务期内，由第三方如主机租用商、微信平台、网络通信商造成的服务中断，甲方须第一时间通知乙方，乙方有义务同第三方进行协调沟通恢复服务，并及时向甲方说明相关情况和进展，由此造成的运营损失应由第三方负责。 第三条开发周期 1．乙方承诺自合同签订当日起15个工作日之内完成服务号开发，并在租用数据库服务器完成后的2个工作日内完成服务号上线运营； 2．甲方承诺合同签订即视为同意前款开发内容，在乙方开发期间不擅自进行开发内容的修改及变更，若确有内容要求的修改及变更，须及时向乙方协商并提出书面的变更意见，乙方根据开发内容变更情况顺延开发周期，并向甲方做出说明。 第四条合同金额以及付款方式 1．甲方委托乙方开发服务号，应向乙方支付开发费用共计人民币￥_______元，大写：人民币_________________________整。 2．甲方需在合同签订当日向乙方支付（合同金额的___%）_________元，余款______元需在服务号开发完成并验收合格后一次性付清，甲方付清应付给乙方的全部款项后，正式享有服务号的全部使用权利和乙方提供的支持维护服务。 第五条服务号验收 1．服务号自定义菜单达到双方预先约定的设计要求； 2．甲方检查服务号全部内容，包括文字、界面、链接； 3．乙方向甲方进行服务号正确使用及日常管理的培训； 4．在服务号检查完成的一周内甲方不提出书面修改意见，则视为默认验收合格； 5．如需修改，甲方应提出完整的书面修改意见，乙方完成全部修改并经甲方确认无误后，即验收合格；
实验步骤： 一、建立数据库 1.创建数据库exam_pb 2.建立表students 3.为表students指定主键为“学号” 4.向表中输入数据 二、建立应用程序 1.建立工作空间“练习一” 2.建立应用程序“test” 3.建数据窗口dw_1 5.建应用程序窗口w_main 6在应用程序窗口中添加控件 7.为数据窗口指定目标对象“student”为主窗口定义标题！为控件定义标题！ 8.为应用程序和控件编写脚本一定要保存窗口！！ ①应用程序test脚本： open(w_main) ——打开主窗口 ②应用程序窗口w_main的各个脚本： w_main open事件的脚本： SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False SQLCA.DBParm = "Connectstring='DSN=exam_pb;uid=dba;pwd=sql'" connect using sqlca;
dw_1.settransobject(sqlca) “增加”命令按钮click事件的脚本： dw_1.insertrow(0) dw_1.setfocus() “删除”命令按钮click的脚本： dw_1.deleterow(0) “检索”命令按钮click的脚本： dw_1.retrieve() “过滤”命令按钮click的脚本： w_main.dw_1.setfilter("系别='计算机系'") w_main.dw_1.filter() “保存”命令按钮click的脚本： dw_1.update() “退出”命令按钮click的脚本： close(parent) 三、连接数据库 1.建立ODBC数据源“exam_pb”用户名：dba 密码：sql 考试时也是这个 2.建立数据库描述文件“exam_pb”预览和测试！！ 3.连接数据源 四、运行程序
1、Teigha中DWG数据库结构： 经常用到的有TextStyleTable、LayerTable、LinetypeTable、BlockTable及其对应的TextStyleTableRecord、LayerTableRecord、LinetypeTableRecord、BlockTableRecord及Entity。 2、具体使用 2.1添加引用 使用前应该添加TD_Mgd_3.03_9.dll或是其他版本类库，类库分为64位与32位，32位类库在64位系统上运行效果可能不太好。3.02版本及一下版本可能没有64位的类库。 命名空间有： Teigha.DatabaseServices; Teigha.Geometry; Teigha.Colors; Teigha.Export_Import; Teigha.GraphicsInterface; Teigha.GraphicsSystem; Teigha.Runtime; 3.02及以下版本命名空间应将Teigha换为DWGdirect。
2.2打开、新建、保存数据库 使用之前应加上这个： using (Services ser = new Services())//一个应用程序加上一个就行了，否则出错 1、打开数据库（dwg文件） using (Database pDb = new Database(false, false))//不加参数会出错 { pDb.ReadDwgFile(Application.StartupPath + "\\TABMENU.dwg", FileOpenMode.OpenForReadAndWriteNoShare, false, ""); } 2、新建数据库 using (Database pDb = new Database())//加参数出错 3、保存 （1）保存格式 SaveType pSavetype = SaveType.Save12; //Save12为.dwg Save13为dxf 默认保存为dwg，可以不用指定。 （2）保存版本类型 DwgVersion dwgver = DwgVersion.vAC18; //ACAD2010为vAC24；ACAD2007为vAC21；ACAD2004为vAC18； 很重要，保存时要用，版本过高时低版本AutoCAD不能打开。 （3）保存 pDb.SaveAs(filename, dwgver); pDb为数据库（Database），filename为dwg文件名，dwgver为版本。 2.3写数据 2.3.1添加文本样式 ObjectId styleId = ObjectId.Null; using (TextStyleTable pStyles = (TextStyleTable)pDb.TextStyleTableId.GetObject(OpenMode.ForWrite)) { //文本样式记录 using (TextStyleTableRecord pStyle = new TextStyleTableRecord()) { // 表对象（记录）添加到表之前必须命名 // isShapeFile flag must also be set (if true) before adding the object
Static Sub AddMenu() '添加自定义菜单 Dim NewMenuBar As CommandBar Dim CX As CommandBarControl, JC As CommandBarControl, TB As CommandBarControl, SJ As CommandBarControl, BF As CommandBarControl Dim DY As CommandBarControl, BZ As CommandBarControl, XX As CommandBarControl, USE As CommandBarControl, WH As CommandBarControl Dim CW As CommandBarControl, TJ As CommandBarControl, LJC As CommandBarControl, YZ2 As CommandBarControl, YJC As CommandBarControl Dim LDQ As CommandBarControl, LNB As CommandBarControl, SDQ As CommandBarControl, SNB As CommandBarControl, LAll As CommandBarControl Dim JSB As CommandBarControl, SAll As CommandBarControl, DDQ As CommandBarControl, DNB As CommandBarControl, CDQ As CommandBarControl Dim CNB As CommandBarControl, C0 As CommandBarControl, CTZ As CommandBarControl, BF1 As CommandBarControl, BF2 As CommandBarControl Dim BF8 As CommandBarControl, DY1 As CommandBarControl, DY2 As CommandBarControl, SM As CommandBarControl, FG As CommandBarControl Dim KK As CommandBarControl, Bh1 As CommandBarControl, Bh2 As CommandBarControl, JB1 As CommandBarControl, JB2 As CommandBarControl Dim KB As CommandBarControl, FZ As CommandBarControl, SY As CommandBarControl, CZ As CommandBarControl, Z1 As CommandBarControl Dim Z2 As CommandBarControl, NH As CommandBarControl, B1 As CommandBarControl, B2 As CommandBarControl, B3 As CommandBarControl, BD As CommandBarControl Dim B5 As CommandBarControl, B6 As CommandBarControl, S1 As CommandBarControl, S2 As CommandBarControl, S3 As CommandBarControl Dim S5 As CommandBarControl, S6 As CommandBarControl, D1 As CommandBarControl, D2 As CommandBarControl, D3 As CommandBarControl Dim D5 As CommandBarControl, D6 As CommandBarControl, C1 As CommandBarControl, C2 As CommandBarControl, C3 As CommandBarControl Dim C5 As CommandBarControl, C6 As CommandBarControl, TJF As CommandBarControl, TL As CommandBarControl, CL As CommandBarControl Dim ClCells As CommandBarControl, ShHL As CommandBarControl
消息框（MessageBox） 消息框能根据程序员的编程需要，在应用软件使用过程中弹出消息框，显示相应的提示信息以及选择按钮，使用户可以选择不同的操作，然后通过用户的操作返回一个值，代表用户单击了哪个按钮。 函数原型：MessageBox.Show(Text,Title,Buttons,Icon,Default) 参数说明： （1）Text：必选项，消息框的正文。 （2）Title：可选项，消息框的标题。 （3）Buttons：可选项，消息框的按钮设置，默认只显示【确定】按钮。 OK――确定OKCancel――确定和取消AbortRetryIgnore――终止、重试和忽略YesNoCancel――是、否和取消YesNo――是和否RetryCancel――重试和取消 （4）Icon：对话框中显示的图标样式，默认不显示任何图标。 Question――问号Information、Asterisk――i号Error、Stop、Hand――错误号Warning、Exclamation――！号None――不显示任何图标 （5）Default：可选项，对话框中默认选中的按钮设置。 DefaultButton1――第1个button是默认按钮 DefaultButton2――第2个button是默认按钮 DefaultButton3――第3个button是默认按钮 当用户单击弹出的消息框的某个按钮，系统会自动返回一个DialogResult枚举类型值，使用这个值可进一步完善程序的编程操作。 【例】通过按钮控件弹出消息框，并在文本框获取返回值。 private void button1_Click(object sender, EventArgs e) { DialogResult dr = MessageBox.Show("消息内容", "返回值确定1", MessageBoxButtons.OK, MessageBoxIcon.Question); txtReturn.Text = dr.ToString(); } private void button2_Click(object sender, EventArgs e) { DialogResult dr = MessageBox.Show("消息内容", "返回值确定1 取消2",
一、选择题 1.某VB程序如下： Private Sub Label1_DblClick( ) Dimx As Single,y As Single Label1.Caption ="Welcome." x =Val(Text2.Text) y=Sqr(Abs(x)) Text1.Text =Str(x +y) End Sub 程序运行时，能触发该事件过程的是( ) A. 单击Command1 B. 单击Label1 C. 双击Label1 D. 双击Text1 2.在VB中，使用过程主要是为了( ) A. 使程序模块化 B. 使程序界面美观 C. 给程序加密 D. 人机交互更友好 3.某对象的一个事件过程代码如下： Private Sub Obj_Click( ) s=s +1 Text1.Text =Str(s) End Sub 下列说法正确的是( ) A. 该过程的过程名为“Obj” B. 该对象的类名为“Sub” C. 该对象的对象名为“Obj_Click” D. 该事件是一个“单击”事件 4.某VB程序的一个事件过程如下： Private Sub Command1_Click( ) Label1.Caption ="welcome!" End Sub 程序运行时，能触发该事件的是( ) A. 窗体装载 B. 单击窗体 C. 单击标签Label1 D. 单击命令按钮Command1 5.在VB中，设已定义函数过程f，它有三个实型传值参数。设a，b，c为实型变量，则下列能调用该函数的正确语句是( ) A. f B. f(a+b，b+c) C. f(a+b，b+c，c+a) D. fa+b，b+c，c+a 6.有如下VB自定义函数： Function f(x As Integer)As Single f =Int(Abs(x)) End Function 该函数返回值的数据类型是( ) A. 整数型 B. 日期型 C. 逻辑型 D. 单精度实数型 7.有如下VB自定义函数： Function f(i As Single)As Boolean If i<=0Then f =True Else f=False End Function 执行语句s =f(-0.4)后，逻辑型变量s的值是( ) A. 0 B. 1 C. True D. False 8.在VB中，有如下程序： Function f(x As Integer)As Integer f =Int(Abs(x)/3)+0.1 End Function Private Sub Command1_Click( ) Dimy As Single y =f(-9) Text1.Text =Str(y) End Sub 运行该程序，单击命令按钮Command1，文本框Text1中显示的是( ) A. -9 B. 9 C. 3 D. 3.1 9.小明在VB中定义了以下函数，功能是求a和b的最大公约数。 Function gcd(a As Integer,b As Integer)As Integer DoWhile b >0 c =aMo d b a =b b =c Loop End Function 调试中发现计算结果一直是0。经过仔细观察与分析，发现错误的原因是( ) A. 函数名有错 B. 变量C没有定义 C. 函数没有返回值 D. b>0应该改为b>=0 10.某VB程序如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii =13Then Text2.Text =Text1.Text +Str(5) End If End Sub 程序运行时，能触发该事件过程的是( ) A. 单击文本框Text1 B. 单击文本框Text2 C. 文本框Text1被激活后，用户在键盘上按下某一个键 D. 文本框Text2被激活后，用户在键盘上按下某一个键 11.狄同学在设计VB程序时所使用复选框对象的属性窗口如图所示，她想编制该复选框单击事件的处理过程，则该事件处理过程名是( ) A. CheckBox_Click B. 加粗_Click C. Check1_Click D. 复选框_Click 12.下列VB程序中，f是一个递归函数： Private Sub Command1_Click( ) Dim y As Long Text1.Text ="" y =f(3) Label1.Caption =Str(y) End Sub Function f(n As Integer)As Long '递归函数 Text1.Text =Text1.Text +Str(n) If n <=1Then f =1 Else f =f(n -1)+2 End If End Function 程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是( ) A. 3 B. 321 C. 123 D. 1 13.以下为VB算定义求两个数最大公约数函数的代码：Private Function gcd(a as integer,b as integer)as integer …此处省略语句块内容 第1页共2页
PB中一些技巧 1.RGB函数计算公式: 颜色值＝ (65536 * Blue) + (256 * Green) + (Red) 2.控件可拖动： send(handle(this),274,61458,0) 3.如何用程序控制下拉子数据窗口的下拉和收起 用modify或者直接用dw_1.object.col1.dddw.showlist = true 4.检索参数有些不需要传入则传%. 5.如何屏蔽鼠标滚轮触发 在控件的other事件写 if message.number = 522 then return 1 6.得到数据窗口的语法： string ls_dwsyntax ls_dwsyntax=dw_1.describe("datawindow.syntax") 7.得到数据窗口中各列及标题： long ll_count,i string ls_value,ls_colname ll_colnum = Long(dw_1.object.datawindow.column.count) for i = 1 to ll_colnum //得到标题头的名字 ls_colname = dw_1.describe('#' + string(i) + ".name") + "_t" ls_value = dw_1.describe(ls_colname + ".text") next 8.在程序中动态设置初始值: ex:dw_contro.object.columnName.initial = 'xxxx' 9.如何在DataWindow的SQL语法中不使用SELECT DISTINCT实现删除重复的行 ---- 起先对你要显示唯一值的列进行排序："city A"，然后增加如下过滤字符串：" city < > city [-1] or GetRow () = 1" 10.如何改变列的字体颜色，提醒用户此列已做修改
Wincc 中对话框弹出函数MessageBox 参数以及应用 按键显示： 常数 值 描述 MB_OK 0x00000000 消息框中包含的一个按钮: 确定 这是默认值. MB_OKCANCEL 0x00000001 消息框中包含的两个按钮: 确定和取消. MB_ABORTRETRYIGNORE 0x00000002 消息框中包含的三个按钮: 中止, 重试和忽略. MB_YESNOCANCEL 0x00000003 消息框中包含的三个按钮: 是，否和取消 MB_YESNO 0x00000004 消息框中包含的两个按钮: 是和否 MB_RETRYCANCEL 0x00000005 消息框中包含的两个按钮: 重试和取消 MB_CANCELTRYCONTINUE 0x00000006 Windows 2000: 消息框中包含的三个按钮: 取消, 重试, 继续. 使用这个消息框类型代替 //MessageBox(NULL,"这是一个默认的只有确定的消息框！","标题", MB_OK ); //MessageBox(NULL,"这是一个确定取消的消息框！","标题", MB_OKCANCEL ); //MessageBox(NULL,"这是一个是或否的消息框！","标题", MB_YESNO ); //MessageBox(NULL,"这是一个是或否或取消的消息框！","标题", MB_YESNOCANCEL ); //MessageBox(NULL,"这是一个重试或取消的消息框！","标题",MB_RETRYCANCEL ); //MessageBox(NULL,"这是一个中止, 重试和忽略的消息框！","标题",MB_ABORTRETRYIGNORE ); 在消息框内显示的图标是以下值之一。 //MessageBox(NULL,"这是一个错误的消息框！","标题", MB_ICONHAND ); //MessageBox(NULL,"这是一个错误的消息框！","标题", MB_ICONSTOP ); //MessageBox(NULL,"这是一个错误的消息框！","标题", MB_ICONERROR ); //MessageBox(NULL,"这是一个询问的消息框！","标题", MB_ICONQUESTION); //MessageBox(NULL,"这是一个警告的消息框！","标题", MB_ICONEXCLAMATION );
微信公众平台：功能强大的自定义菜单 最近，有部分公众账号发现，微信官方已经通过了一周前申请的自定义界面接口内测，可利用接口，在公众账号对话界面底部实现自定义菜单。如果说之前微信公众账号的自定义回复的互动让它向 App 迈进一步，现在借助自定义界面，公众账号已然是一个微信端的轻量级应用。 AD： 目前自定义菜单已经停止接受申请，但将来肯定会开放，微信公众平台后台的帮助文档里对自定义菜单的描述也很完善，所以现在我们先来看看它是什么样子，为未来准备一下。 自定义界面让公众账号大幅提高了交互属性，公众帐号从而可以直接在页面上显示内容分类，用户也只需要轻松点击菜单获取内容，无需输入指令。 先一起来体验一下自定义菜单。 它的入口在高级功能=》编辑模式=》自定义菜单-设置。 在公众账号微杂志后台（微信号：weixinzazhi），可以看到新增加的设置选项。首先进入高级功能的页面后，底部有一个自定义菜单栏。 点击设置后，进入下一级页面 设置好栏目后，可以发布相应内容。目前，美中不足的是，最多可以创建三个一级菜单，每个一级菜单下可以创建最多五个二级菜单，远远满足不了微杂志如此多内容的需求。不过，总算是向前迈了一小步。 设置好后，可以点击预览，会出来一个手机界面看到设置效果。然后点击发布，24小时内，所有用户就都可以看到菜单式的微杂志了。点击选项中的二级菜单，便可打开对应的微信消息。 需要说明的是，公众号调整并发布自定义菜单之后，旧订阅用户将在 24 小时生效。而对于新订阅的用户，将即时生效。 目前，普通用户可以通过先开启编辑模式中的自定义菜单功能，然后按需设置菜单和菜单项对应的动作；具备开发能力和服务器资源的开发者，更可以通过开发模式中的自定义菜单开发接口，来更灵活地实现该功能。 如果说之前微信公众账号的自定义回复的互动让它向 App 迈进一步，现在借助自定义界面，公众账号已然是一个微信端高山美人茶 https://www.doczj.com/doc/a76098555.html,的轻量级应用。不过，微杂志至今已推出了197期书影音，53节微信小说连载，以及下一站旅行也推出了几十期。目前自定义界面只支持两级菜单，对于微杂志来说，在设置上还远远满足不了需求。 设想一下，经过测试之后，微信官方可能逐步放开栏目设置，并打通微支付环节。有多个栏目的微杂志，俨然会成为一个精美的微信杂志，有的栏目可以作为免费栏目吸引人气，有的栏目，比如原创的微信小说，可以作为收费栏玛瑙 https://www.doczj.com/doc/a76098555.html,目。还可以增加多个作家的专栏，由于已聚集了25万文艺青年，每天收到4、5万条回复是家常便饭，所以在用户群、互动以及习惯上，基本上不存在太多问题。每天通过内容推送，直达粉丝手机桌面，这比目前的众多阅读类APP要更接近用户，其实基本就相当于一个轻量级的APP了。 笔者有理由相信，虽然目前微信自定义菜单还很初级。但随着微信的进一步进化，它将有可能颠覆现有的阅读类APP。基于微信的阅读类轻量级APP，将会如春笋般冒出来。 【编辑推荐】 征服Python—语言基础与典型应用
MessageBox.Show 方法使用： MessageBoxOptions值之一，可指定将对消息框使用哪些显示和关联选项。若要使用默认值，请传入0。 MessageBox("消息内容", "返回值确定 1",MessageBoxButtons.OK,MessageBoxIcon.Question); MessageBox("消息内容",, "返回值确定1取消2",MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk); MessageBox("消息内容", "返回值终止3重试4忽略5",MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error); MessageBox("消息内容", "返回值是6否7取消2",MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation); MessageBox("消息内容", "返回值是6否7",MessageBoxButtons.YesNo, MessageBoxIcon.Hand); MessageBox("消息内容", "返回值重试4取消2",MessageBoxButtons.RetryCancel, https://www.doczj.com/doc/a76098555.html,rmation); 1. MessageBox.Show("没有选中清空对象，请选择!"); 2. MessageBox.Show("没有选中清空对象，请选择!", "清空"); 3. MessageBox.Show("没有选中!", "清空", MessageBoxButtons.OK, MessageBoxIcon.Question);
关于自定义菜单和工具栏 本文中的示例 命令栏 控件常量 菜单栏 返回命令栏控件的ID 确定活动菜单栏的名称 保存（内置或自定义菜单栏的）活动状态创建自定义命令栏 显示自定义命令栏 删除自定义命令栏 隐藏命令栏 显示命令栏 还原内置命令栏 菜单 向命令栏添加自定义菜单控件 禁用命令栏上的菜单控件 启用命令栏上的菜单控件 删除命令栏上的菜单控件 还原命令栏上的菜单控件 命令 向菜单控件添加分隔条 在菜单上创建自定义命令控件 在命令控件旁放置选中标记 禁用命令栏上的命令控件 启用命令栏上的命令控件 删除菜单上的命令控件 还原菜单上的内置命令控件 子菜单 添加子菜单 向子菜单添加命令 禁用子菜单上的命令控件 删除子菜单上的命令 禁用子菜单控件 删除子菜单控件 快捷菜单栏 新建快捷菜单栏 快捷菜单 在快捷菜单栏上创建命令 禁用快捷菜单栏上的命令控件 删除快捷菜单栏上的命令 删除快捷菜单栏 还原内置快捷菜单栏上的命令 快捷菜单上的子菜单 在快捷菜单栏上新建子菜单 在快捷菜单栏的子菜单上创建命令控件禁用快捷菜单上的子菜单项控件 删除快捷菜单上的子菜单项控件 禁用快捷菜单上的子菜单控件 删除快捷菜单上的子菜单控件 查找更多信息 对象浏览器 Microsoft 知识库 这篇文章中的信息适用于: 附数组使用方法 中的示例 本文中的示例在Excel 2000、Excel 2002 和Excel 2003 中使用VBA 代码来自定义菜单。要使用示例宏，请按照下列步骤操作： 1. 启动Excel。
2. 在“工具”菜单上，指向“宏”，然后单击“Visual Basic 编辑器”。 3. 在“插入”菜单上，单击“模块”。 4. 键入本文中的一个宏示例，也可使用复制粘贴操作将宏示例复制到模块表中。 5. 在“运行”菜单上，单击“运行子过程/用户窗体”。 6. 如果出现“宏”对话框，请单击宏名称，然后单击“运行”。 命令栏 在Microsoft Office 中，所有工具栏、菜单栏和快捷菜单都是被作为“命令栏”这样一种对象以编程方式控制的。下列所有项目在VBA 中皆用CommandBar对象表示： ?菜单栏、工具栏和快捷菜单。 ?菜单栏和工具栏上的菜单。 ?菜单、子菜单和快捷菜单上的子菜单。 您可以修改任何内置的菜单栏和工具栏，还可以创建和修改用您自己的VBA 代码交付的自定义工具栏、菜单栏和快捷菜单。您可以将程序功能以单个按钮的形式放在工具栏上，或以命令名称组的形式放在菜单上。因为工具栏和菜单都是命令栏，所以可以使用同一类型的控件。 在VBA 和Microsoft Visual Basic 中，按钮和菜单项用CommandBarButton对象表示。显示菜单和子菜单的弹出控件用CommandBarPopup对象表示。在以下示例中，名为“Menu”的控件和名为“Submenu”的控件都是用于显示菜单和子菜单的弹出控件，并且这两个控件是各自的控件集中唯一的CommandBar对象。 在Microsoft Excel 中，菜单栏和工具栏被视为是同一种可编程对象，即CommandBar对象。可以使用CommandBar对象中的控件来指代菜单、菜单项、子菜单和快捷菜单。可以在Type参数中使用一个常量为每个控件指定要用于菜单、子菜单或命令的控件类型。 返回目录 控件常量 下面是Excel 2003 中的各种控件常量的列表，这些常量指定用于特定菜单栏控件的图形控件类型： ?MsoControlActiveX* ?MsoControlAutoCompleteCombo*** ?MsoControlButton ?MsoControlButtonDropdown ?MsoControlButtonPopup ?MsoControlComboBox ?MsoControlCustom ?MsoControlDropdown ?MsoControlEdit ?MsoControlExpandingGrid ?MsoControlGauge ?MsoControlGenericDropdown ?MsoControlGraphicCombo ?MsoControlGraphicDropdown ?MsoControlGraphicPopup ?MsoControlGrid ?MsoControlLabel ?MsoControlLabelEx*** ?MsoControlOCXDropDown ?MsoControlPane **