10常用控件
- 格式:doc
- 大小:803.50 KB
- 文档页数:18
VB常用属性方法事件在Visual Basic中,有许多常用的属性、方法和事件可以用于开发应用程序。
下面是一些常用的属性、方法和事件的说明:属性:1. Name属性:用于获取或设置控件的名称。
2. Text属性:用于获取或设置控件的显示文本。
3. Enabled属性:用于获取或设置控件是否可用。
4. Visible属性:用于获取或设置控件是否可见。
5. Width和Height属性:用于获取或设置控件的宽度和高度。
6. Top和Left属性:用于获取或设置控件的上边距和左边距。
7. BackColor属性:用于获取或设置控件的背景颜色。
8. ForeColor属性:用于获取或设置控件的前景颜色。
9. Font属性:用于获取或设置控件的字体。
10. TextAlign属性:用于获取或设置文本框中文本的对齐方式。
方法:1. MessageBox.Show方法:用于显示一个消息框,可以用于显示提示信息或错误信息。
2. Console.WriteLine方法:用于在控制台窗口中输出文本。
3. SqlConnection.Open方法:用于打开一个数据库连接。
5. StreamReader.ReadLine方法:用于从文本文件中读取一行文本。
6. StreamWriter.WriteLine方法:用于向文本文件中写入一行文本。
7. Convert.ToInt32方法:用于将一个字符串转换为整数。
8. Math.Max方法:用于返回两个数值中较大的一个。
9. String.ToUpper方法:用于将字符串转换为大写。
10. Array.Sort方法:用于对数组中的元素进行排序。
事件:1. Click事件:在单击控件时引发,用于响应用户的点击操作。
2. Load事件:在窗体或控件加载时引发,用于初始化界面或加载数据。
3. KeyPress事件:在用户按下键盘按键时引发,用于响应键盘输入。
4. MouseMove事件:在鼠标移动时引发,用于跟踪鼠标位置。
目录第一章 产品概述 (3)1.1. 功能 (3)1.2. 一般规格 (3)1.3. 尺寸 (4)1.4. 安装 (4)1.5. 组成部分 (4)1.5.1. LCD (4)1.5.2. 按键 (5)1.5.3. 通讯口 (6)第二章 编辑软件 (7)2.1. 基本概述 (7)2.2. 关于工程和画面 (7)2.3. 画面内容 (7)2.4. OP10-PCLINK的使用流程 (7)2.5. 编辑用户画面 (7)2.5.1. 创建工程 (7)2.5.2. 制作基本画面 (10)2.5.3. 设置OP10 (11)2.5.4. OP10控件 (13)2.5.5. 静态文本 (14)2.5.6. 动态文本 (15)2.5.7. 功能键 (17)2.5.8. 数据显示 (20)2.5.9. 数据设定 (23)2.5.10. 指示灯 (25)2.5.11. 功能键(开关量控制) (26)2.5.12. 柱状图 (27)2.5.13. 曲线图 (29)2.5.14. 报警列表 (30)2.5.15. 全局按钮 (32)2.5.16. 复制寄存器 (33)2.5.17. 预设动态文本 (35)2.5.18. 预设寄存器 (37)2.6. 保存工程 (39)2.7. 下载画面 (40)2.8. 上传画面 (42)第三章 操作方法 (46)3.1. 联机通讯 (46)3.2. 切换画面 (46)3.3. 系统口令 (46)第四章 新建设备 (51)第五章 通信 (59)5.1 通讯口 (59)5.2 通信连接 (60)5.2.1 OP10下载线(下载用户组态画面) (60)5.2.2 与TP03(含SR机种) PG口以RS-422方式连接 (61)5.2.3 与TP03 485口连接 (62)5.2.4 与SG2 232口连接(适合SG2全系列机种) (63)5.2.5 与SG2-V机型 485口连接 (64)5.2.6 与EV300 485口连接 (65)5.2.7 与SV300 连接 (66)第一章 产品概述1.1. 功能OP10是一个小型的人机界面,主要与各类PLC(或带通信口的智能控制器)配合使用,以文字或指示灯等形式监视、修改PLC内部寄存器或继电器的数值及状态,从而使操作人员能够自如地控制机器设备。
VB属性大全1.01、窗体(FORM)的常用属性1.01、窗体(FORM)的常用属性...1.02、标签控件(Lable)的常用属性 (7)1.03、文本框控件(TextBox)的常用属性 (9)1.04、框架控件(Frame)的常用属性 (13)1.05、命令按钮控件(CommandButton)的常用属性 (15)1.06、复选框控件(CheckBox)的常用属性 (17)1.07、单选钮控件(OptionButton)的常用属性 (19)1.08、组合框控件(ComboBox)常用属性 (22)1.09、列表框控件(ListBox)的常用属性 (25)1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性 (28)1.11、定时器控件的常用属性 (30)1.12、文件系统控件的常用属性 (30)1.13、形状控件(Shape)常用属性 (33)1.14、直线控件(Ling)的常用属性 (35)1.15、图像控件(Image)的常用属性 (36)1.16、图片框控件(PictureBox)的常用属性 (38)1.17、数据控件(Data)的常用属性 (43)1.18、OLE容器控件(OLE)的常用属性 (46)1.19、菜单控件的常用属性 (48)2.02、电影(ActiveMovie)控件的常用属性 (49)2.01、Adodc控件的常用属性 (52)2.03、动画(Animation)控件的常用属性 (55)2.04、公用对话框控件(CommonDialog)控件的常用属性 (56)2.05、数据组合框(DataCombo)控件的常用属性 (60)2.06、数据型电子表格控件(DataGrid)的常用属性 (62)2.07、数据列表(DataList) 控件的常用属性 (65)2.08、DTPicker控件的常用属性 (67)2.09、平面滚动条控件(FlatScrollBar)的常用属性 (70)2.10、图像组合框(ImageCombo)控件的常用属性 (71)2.11、图像列表控件(ImageList)的常用属性 (74)2.12、Inet控件的常用属性 (74)2.13、列表视图控件(ListView)的常用属性 (75)2.14、MAPIMessages控件的常用属性 (79)2.15、MAPISession控件的常用属性 (80)2.16、MaskEdBox控件的常用属性 (80)2.17、多媒体(MMControl)控件的常用属性 (83)2.18、月视图(MonthView)控件的常用属性 (86)2.19、图表控件(MSChard)的常用属性 (89)2.20、MSComm的常用属性 (93)2.21、电子表格控件(MSFlexGrid)的常用属性 (94)2.22、层次型电子表格控件(MSHFlexGrid)的常用属性 (99)2.25、进度栏(ProgressBar)控件的常用属性 (107)2.26、RichTextBox控件的常用属性 (110)2.27、滑动块(Slider)控件的常用属性 (112)2.28、选项卡(SSTab)的常用属性 (115)2.29、状态栏(StatuaBar)控件的常用属性 (117)2.32、工具栏(ToolBar)控件的常用属性 (119)2.33、树状视图控件(TreeView)的常用属性 (122)2.34、UpDown控件的常用属性 (125)2.35、Winsock控件的常用属性 (127)===========================================1.01、窗体(FORM)的常用属性属性说明(Name)窗体的名称ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。
Win10手动注册注册表提示regsvr32加载控件失败解决方案导读:regsvr32加载控件失败怎么办?当我们在使用计算机时,有时候会发现有些注册表没有注册,需要手动进行注册,但是在cmd命令中,输入命令regsvr32 xx.dll,运行提示模块数据加载失败,这怎么办呢?下面小编就和大家分享下Win10手动注册注册表提示regsvr32加载控件失败解决方案。
regsvr32加载控件失败解决方法:1、在某一软件运行,提示报错信息,看了看错误,大概是因为HTDui.dll模块没有注册的原因造成的。
2、经过查找,在软件根目录找到该.dll文件,确定注册文件路径和注册名称。
3、在搜索框中输入cmd,右击以管理员身份运行。
4、命令窗口输入:regsvr32 C:\geostar\public\kerel\HTDicUI.dll,回车运行报错,运行模块与运行的Windows版本不兼容。
提示错误是因为在64位系统中,运行Regsvr32注册DLL运行是的System32文件夹中的Regsvr32.exe,而这个文件是64位版本的,命令需要的是32位版本的Regsvr32,所以会提示出错。
5、在32位系统中,有system和system32两个文件夹,分别存放16位和32位的dll文件。
按照32位的系统命名规则,64位应该有一个叫做:system64的文件夹来用来存放64位DLL文件,但实际上却没有system64这个文件夹,而是一个叫做为SysWOW64的文件夹,而且syswow64也不是存放64位文件的,而是用来存放32位的DLL文件。
若要解决此问题,就要运行Syswow64文件夹内的Regsvr32.exe。
命令提示符里输入:cd windowssyswow64 这个命令是将目录设置到syswow64这个文件夹,之后运行的命令就会在这个文件夹内找文件夹,输入后按回车,如下图:6、然后执行步骤四中的命令。
win10系统如何查找windows控件
推荐文章
如何查看WinXP系统是不是原版热度:忘记XP系统登录密码该如何解决热度:WindowsXP系统密码热度:WindowsXP系统密码热度:如何写一个简易嵌入式操作系统热度:
windows控件,是每个系统中必备的,那么win10系统如何查找windows控件呢?今天店铺与大家分享下win10系统查找windows控件的具体操作步骤,有需要的朋友不妨了解下。
win10系统查找windows控件方法
1、首先找到我的电脑,当然在win10中我的电脑等于此电脑。
2、找到之后再此电脑上面右击然后找到管理。
3、点开之后弹出如下窗口。
4、随后点击“任务计划程序库”,这里大体设置是树状图。
5、找到microsoft然后点击。
6、找到window点击。
7、如下图中我们就可以看到windows的基本控件。
8、到了这一步,大家要找的必定是windows update,你们只需在框体上按出W,就可以直接找到windows update。
升级win10系统后不知道该怎么查找windows控件的用户,不妨来试试上面的查找方法,步骤有点多,不过操作起来还是比较简单的。
下列windows10操作系统自带的常用成语一、常见用法:f1 显示当前程序或者windows的帮助内容。
f2 当你选中一个文件的话,这意味着“重命名”f3 当你在桌面上的时候就是关上“搜寻:所有文件” 对话框 f10或alt 转化成当前程序的菜单栏 windows键或ctrl+esc 关上开始菜单ctrl+alt+delete 在win9x中打开关闭程序对话框delete 删掉被挑选的挑选项目,如果就是文件,将被放进回收站shift+delete 删除被选择的选择项目,如果是文件,将被直接删除而不是放入回收站ctrl+n 新建一个代莱文件 ctrl+o 关上“关上文件”对话框ctrl+p 打开“打印”对话框ctrl+s 留存当前操作方式的文件ctrl+x 剪切被选择的项目到剪贴板ctrl+insert 或 ctrl+c 激活被挑选的项目至剪贴板shift+insert 或 ctrl+v 粘贴剪贴板中alt+backspace 或 ctrl+z 撤消上一步的操作方式alt+shift+backspace 重做上一步被撤销的操作windows键+m 最小化所有被关上的窗口。
windows键+ctrl+m 重新将恢复上一项操作前窗口的大小和位置 windows键+e 打开资源管理器windows键+f 关上“搜寻:所有文件”对话框 windows键+r 关上“运转”对话框windows键+break 打开“系统属性”对话框 windows键+ctrl+f 打开“查找:计算机”对话框 shift+f10或鼠标右击打开当前活动项目的快捷菜单shift 在放进cd的时候按下态度暧昧,可以UX21LI2677E自动播放cd。
在关上word 的时候按下态度暧昧,可以UX21LI2677E自启动的宏alt+f4 关闭当前应用程序alt+spacebar 关上程序最左上角的菜单alt+tab 切换当前程序alt+esc 转换当前程序alt+enter 将windows下运行的msdos窗口在窗口和全屏幕状态间切换print screen 将当前屏幕以图象方式拷贝到剪贴板alt+print screen 将当前活动程序窗口以图象方式拷贝到剪贴板ctrl+f4 停用当前应用程序中的当前文本(如word中)ctrl+f6 切换到当前应用程序中的下一个文本(加shift 可以跳到前一个窗口)在ie中:alt+right arrow 显示前一页(前进键)alt+left arrow 表明后一页(前进键)ctrl+tab 在页面上的各框架中切换(加shift反向)f5 创下ctrl+f5 强行刷新目的快捷键激活程序中的菜单栏 f10继续执行菜单上适当的命令 alt+菜单上拎下划线的字母关闭多文档界面程序中的当前窗口ctrl+ f4关闭合当前窗口或退出程序 alt+ f4复制 ctrl+ c剪切 ctrl+ x删除 delete表明所选对话框项目的协助 f1显示当前窗口的系统菜单 alt+空格键表明所选项目的便捷菜单 shift+ f10 表明“已经开始”菜单ctrl+ esc 显示多文档界面程序的系统菜单 alt+连字号(-)粘贴 ctr l+ v切换到上次使用的窗口或者按住 alt然后重复按tab,切换到另一个窗口 alt+ tab撤销 ctrl+ z目的快捷键如果当前挑选进行了,必须卷曲或者挑选父文件夹左箭头卷曲选好的文件夹 num lock+负号(-)如果当前选择折叠了,要展开或者选择第一个子文件夹右箭头展开当前选择下的所有文件夹 num lock+* 展开所选的文件夹 num lock+加号(+) 在左右窗格间切换 f6三、采用 windows键可以使用 microsoft自然键盘或含有 windows徽标键的其他任何兼容键盘的以下快捷键。
AE教程!12种常用AE实用表达式整理(附表达式合集脚本)表达式是AE中非常好用的工具,它可以帮助我们节省大量的制作时间。
如果你对表达式掌握的比较好,那么很多看似复杂、繁琐的效果,利用表达式都可以轻松的实现。
但是表达式的学习是有一定门槛的,简单的运用还好,一旦涉及到复杂点的运用,就对数学能力、逻辑能力有一定的要求了。
为此,我整理了一些工作中常用、实用的表达式效果。
无需理解背后的语义,只要直接套用即可。
并且已经将它们集成进了我编写的“常用表达式合集”脚本中,可以一键添加,文后也会将此脚本分享给大家。
1.抖动Wiggle表达式,能够实现随机的位移旋转缩放、透明度闪烁等效果。
表达式语句:Wiggle(3,50);前面的数字3代表抖动的频率,也就是抖动的快慢;后面的数字50代表抖动的振幅,也就是抖动的幅度大小。
通过调整这两个数值来控制抖动效果。
2. 分向抖动Wiggle表达式更高级的运用,在不同的方向使用不同的抖动强度,也可以制作只在一个方向进行抖动的效果。
表达式语句:a=wiggle(3,50)[0]; //控制x方向的抖动b=wiggle(0,0)[1]; //控制y方向的抖动[a,b];3. 时间Time表达式,常用于制作持续旋转的效果。
表达式语句:value+time*100; //后面的数值用来控制速度的快慢对表达式有一定基础的同学可能会直接写成:time*100;这里多写了一个value,而value代表属性的原始数值,这里加上value是为了能够调整旋转的初始角度,增强可控性。
4. 循环loopOut表达式,使关键帧动画循环,常用的有三种模式:第一种,cycle模式表达式语句:loopOut(type = "cycle",numKeyframes = 0);//后面的数值0用来控制从第几帧开始循环将关键帧动画重复进行的循环效果比如你有关键帧1、2、3,这种循环模式就是1、2、3、1、2、3、1、2、3.....一直循环下去第二种,pingPong模式表达式语句:loopOut(type = "pingPong",numKeyframes = 0);//后面的数值0用来控制从第几帧开始循环像乒乓球一样来回往复循环同样,如果你有关键帧1、2、3,那么这种循环模式就是按1、2、3、3、2、1、1、2、3.....这种规律循环下去第三种,continue模式表达式语句:loopOut(type="continue")沿着最后一帧的方向和运动速度继续运动下去这种模式相比前两种用的较少,可以便于制作动画持续缓慢运动的效果,避免动画静止,也可以制作一些数字持续增长等效果5. 循环旋转一想到要做一个持续旋转的动画,可能我们会直接加上一个time 表达式。
滑动控件是Windows中最常用的控件之一。
一般而言它是由一个滑动条,一个滑块和可选的刻度组成,用户可以通过移动滑块在相应的控件中显示对应的值。
通常,在滑动控件附近一定有标签控件或编辑框控件,用于显示相应的值。
滑动控件在应用程序中用途级为广泛,如在桌面的属性中就可以看到。
为此,让我们一起来看一下它的实现方法。
(1)在VC++ 6.0中新建一个对话框文档的工程。
(2)打开资源管理器,在对话框中放置一个EDIT控件,然后在它旁边放上一个Slider控件。
基本的框架已经完成了。
(3)对Slider控件右击,选择“建立类向导”,对刚才的Slider控件定义一个变量m_Slider,类型为CSliderCtrl。
(4)在对话框初始化的代码BOOL CMy601Dlg::OnInitDialog(),后添加相应的属性。
以下是常用的属性设置函数:* GetRange,SetRange函数用于查询和设置滑动条的取值范围,默认为0~100。
函数定义形式如下:void GetRange(int &nMin,int &nMax) const;void SetRange(int nMin,int nMax,BOOL bRedrGETaw=FALSE);* GetPos,SetPos函数用于查询和设置滑动条的当前值。
函数定义形式如下:int GetPos() const;int SetPos(int nPos);* GetLineSize,SetLineSize函数用于查询和设置在按一下右或左箭头时滑块的移动量,默认为1个单位。
函数定义形式如下:int GetLineSize() const;int SetLineSize(int nSize);* GetPageSize,SetPageSize函数用于查询和设置函滑块和块移动量,块移动量是指当按下PgUp或PgDown时滑块的移动量。
函数定义形式如下:int GetPageSize() const;int SetPageSize(int nSize);* SetTicFreq函数用于设置滑动条刻度的频度。
工程应用培训教材 Visual Basic 6.0程序员培训教程 87 第十节 常用控件 应用背景 VB程序爱好者常常不满足VB提供的标准控件,期望在程序中使用更高级的且能够体现职业化特点的第三方控件,这些控件使程序功能更加丰富、用户界面更专业、满足工程的真实需求。 树型控件TreeView,列表框控件ListView和表格控件FlexGrid是目前很多程序经常使用的控件,因此作为一个职业程序员,应该了解这些控件的使用方法和效果。图10-1为使用TreeView和ListView的注册表窗体图例,窗体左侧使用树型控件代表层次,右边使用列表控件显示左侧选中的内容。
图10-1注册表的树型结构和内容列表 知识要点 (1)TreeView控件 TreeView是最灵活的Windows控件之一,它以分层的形式显示数据,允许用户随意扩展或折叠节点。鉴于实际生活中许多事物有着层次关系,如计算机里的文件夹、人事组织关系、地区从属关系等,TreeView的应用也极其广泛。 在新建工程中,由于TreeView控件非标准控件,需要单击“工程/部件” ,在控件列表中选中“Microsoft Windows command controls6.0(sp4)”,按下“确定”按钮返回主界面,则在左侧控件工具条中出现Treeview 控件选项。 TreeView的每个结点都为Node对象,这些结点的集合为Nodes,其有工程应用培训教材 Visual Basic 6.0程序员培训教程 88 基本属性和方法如下: Count:返回所有Node的结点数 Add:增加结点方法,即 Add([父节点key],[关系],[结点key],[结点显示标题],[图像序号]) 增加根结点 Set nodx = TreeView1.Nodes.Add(, , "huabei", "华北", 1) 增加上面根结点的子结点: Set nodx = TreeView1.Nodes.Add("huabei", tvwChild, "beijing", "北京", 2) 其中[结点key],用于标志结点的唯一性,字符型变量;[节点显示标题]用于结点的显示,[图像序号]为显示该结点的图标在ImageList中的列表序号。 Remove(Index):删除序号为index的结点,如:Remove TreeView1.SelectedItem.Index '删除选定的节点 TreeView控件的属性 Sorted:用于给TreeView进行排序 ImageList:设置TreeView显示图标控件,如TreeView1. ImageList = ImageList1 LineStyle:TreeView结点之间显示的线形,如:TreeView1.LineStyle = tvwTreeLines Style:TreeView击点显示的形式,如:TreeView1.Style = tvwTreelinesPictureText Refresh:刷新方法,重新显示TreeView各个结点。 Clear:清除TreeView控件的所有Node结点。 下列代码,完成一个地区树型结构的加载: Dim nodx As Node
TreeView1.ImageList = ImageList1 TreeView1.LineStyle = tvwTreeLines TreeView1.Style = tvwTreelinesPictureText Set nodx = TreeView1.Nodes.Add(, , "xibei", "西北", 1) Set nodx = TreeView1.Nodes.Add("xibei", tvwChild, "xian", "西安", 2) Set nodx = TreeView1.Nodes.Add("xibei", tvwChild, "yinchuan", "银川", 2) Set nodx = TreeView1.Nodes.Add("xibei", tvwChild, "taiyuan", "太原", 2) 工程应用培训教材 Visual Basic 6.0程序员培训教程 89 Set nodx = TreeView1.Nodes.Add(, , "xinan", "西南", 1) Set nodx = TreeView1.Nodes.Add("xinan", tvwChild, "guiyang", "贵阳", 2) Set nodx = TreeView1.Nodes.Add("xinan", tvwChild, "beihai", "北海", 2) Set nodx = TreeView1.Nodes.Add("xinan", tvwChild, "nanning", "南宁", 2) TreeView1.Sorted = True
TreeView1.Refresh (2)ListView控件 listview控件可有4种不同的视图显示方法,跟“资源管理器”里的“查看”方式相似:0大图标、1小图标、2列表、3报表式。使用哪种视图,可由该控件的view属性设置控制,其中“报表”视图很适合用来显示数据记录。 listview控件包括listItem对象和ColumnHeader对象。listItem对象为显示的数据行;ColumnHeader对象为显示的列标题。 listItem对象有两部分,一部分是图标和简要描述的文本(第1列),另一部分是前者的子项文本信息(第2列,第3列......),而listItems即是对listItem对象集合(所有行)的引用,因此listItems(1) 可以表示为第1行,listitems(1).text 返回第1行第1列的文本值,listitems(1).subItem(1) 返回第1行第2列的文本值。 ListView常用属性: Checkboxes:设置为true时,每一行数据前将显示一复选框。 FullRowSelect:设置为true时可以整行地选择数据。 GridLines:设置为true时控件将显示网格线,只作用于“报表”视图 HotTracking:设置为true时,鼠标所在行将以高亮度显示。 LabelWrap:设置为true时,文本标签超出列宽时可换行。 SelectedItem:返回对所选ListItem对象的引用。 Sorted:当值为true时,列表按字母排序。 ListView常用方法: Add方法:添加listItem对象到控件中。语法格式: 控件名.ListItems.add(index,key,text,icon,smallIcon) FindItem方法:查找并返回对控件中listItem对象的引用。语法格式: 控件名.FindItem(string,value,index,match) ListView选定记录: selectedItem.text 返回选定行第1列文本值 selectedItem.index 返回选定行的位置 listItems(x).subItems(y) 返回第x行,第y+1列文本值 listItems(x).checked=true 第x行复选框选定或返回值 ListView清除选定行: 工程应用培训教材 Visual Basic 6.0程序员培训教程 90 listitems.remove(控件名.selectedItem.index) 所有行的总数: listitems.count 例如下列代码完成一个ListView的记录加载过程: Dim lst As ListItem
ListView1.ListItems.Clear
ListView1.Checkboxes = True ListView1.FullRowSelect = True ListView1.GridLines = True ListView1.HotTracking = True ListView1.LabelWrap = True ListView1.ColumnHeaderIcons = ImageList1 ListView1.SmallIcons = ImageList2 ListView1.Icons = ImageList1
ListView1.ColumnHeaders.Add , "h1", "区县名称", ListView1.Width / 4, 0, 1 ListView1.ColumnHeaders.Add , "h2", "电话", ListView1.Width / 4, 0, 2 ListView1.ColumnHeaders.Add , "h3", "地址", ListView1.Width / 4, 0, 3 ListView1.ColumnHeaders.Add , "h4", "联系人", ListView1.Width / 4, 0, 4
ListView1.ListItems.Add 1, "haidian", "海淀", 3, 3 ListView1.ListItems(1).SubItems(1) = 7876665 ListView1.ListItems(1).SubItems(2) = "海淀区学院南路68号" ListView1.ListItems(1).SubItems(3) = "白先生"
ListView1.ListItems.Add 2, "shijingshan", "石景山", 3, 3 ListView1.ListItems.Add 3, "dongcheng", "东城区", 3, 3 ListView1.ListItems.Add 4, "xicheng", "西城区", 3, 3 ListView1.ListItems.Add 5, "shunyi", "顺义区", 3, 3 ListView1.ListItems.Add 6, "changping", "昌平区", 3, 3