随笔分类 - cicode
摘要：前面的博客记录了如何设置listview控件，使其带有checkbox，可以多选。有时候我们希望不要多选，只能单选，那么对listview控件的ItemCheck事件写脚本，就能实现这个功能。假设页面名字是page1，listview控件的访问名是page1_AN4，那么该控件的ItemCheck事
阅读全文
摘要：listview控件有一个checkbox属性，可以在编辑状态设置，也可以在脚本里面设置，下面的脚本演示了如何在脚本中加粗文字设置显示checkbox。 Sub ListViewAddcheckbox() Dim i As Integer page1_AN4.View =3 '设置外观为报表形式 p
阅读全文
摘要：很久没有学习练习citect软件的控件使用了，今天开始ListView练习。以前做过wincc下VBS脚本操作listview，换到citect的CitectVBA语法，有点不一样。 新建一个页面main，插入listView控件，访问名是main_AN4，再放置一个按钮控件。新建一个citectV
阅读全文
摘要：这段时间一直在练习citect使用citectVBA语句通过ADO连接sql server数据库，数据库是微软免费版本的sqlexpress。最开始使用 strcon = "Provider = SQLOLEDB.1;password = 3390011;user id = sa;Initial C
阅读全文
摘要：最近手上项目需要从citectVBA调用cicode函数，经过QQ群热心网友指点，知道了使用CicodeCallOpen("CitectVBA函数名字")来调用，如果需要返回值，就使用 变量名=CicodeCallOpen("CitectVBA函数名字")
阅读全文
摘要：前面的博客记录了初始化Citext.ComboBox控件选项，这几篇记录如何知道使用者选择了哪一项。假设Citext.ComboBox控件访问名依然是main_AN17。在cicode编辑器中添加以下CitectVBA代码 Sub SelComboBox()msgbox "您选择的是第" & Cst
阅读全文
摘要：citect有一个Citext.ComboBox控件，是下拉列表款，后面的练习中，我会使用这个控件做较复杂的条件查询，这一篇先练习初始化控件，填入选项数据。在页面上插入一个Citext.ComboBox控件，假设其访问名是main_AN17。在cicode编辑器中插入以下citectVBA脚本： S
阅读全文
摘要：前一篇博客记录了如何从sql数据库表中读取记录显示在msflexgrid控件中，这一篇记录如何向sqlserver写数据。在citect建立三个本地标签flow1,flow2,flow3 在cicode编辑器写下面的脚本 Sub AddRecordToSQLDB()Dim conn As Objec
阅读全文
摘要：本练习是在sql server2008R2上进行。假设有一个数据库CitectDB，虾米啊有一个数据表Rpt1，有如下数据： 在citect上有一个msflexgrid控件，访问名是main_AN4，在项目管理器的cicode编辑器上写如下citectVBA代码： Sub SqlTableTomsf
阅读全文
摘要：前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码12
阅读全文
摘要：前面的博客记录了判断某个程序（比如计算器）是不是已经打开。这一篇博客进一步，如果程序打开了就关闭它，如果程序没有打开就打开它。 Sub killoropenprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProc
阅读全文
摘要：比如判断计算器是否在运行，如果在运行就关掉它。 Sub killprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProcessList As ObjectDim i As ObjectstrComputer =
阅读全文
摘要：有时候我们需要判断某个程序是否已经运行，使用citectvba脚本可以实现这个功能，下面的代码实验判断计算器程序是否运行，通过进程查找calc.exe是否存在来判断。 Sub FindProcess()Dim strComputer As stringDim objWMIService As Obj
阅读全文
摘要：我们使用citect采集了现场数据形成报表后，有时候需要把数据定时发电子邮件给某些人。微软的CDO组件支持邮件发送功能，我在学习citectVBA发邮件时，经历了一些波折，我在这篇博客把这些学习过程下来。 我的想法是点击画面上的按钮，后台脚本用一个qq信箱给一个126信箱发一封电子邮件，不需要打开浏
阅读全文
摘要：前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期，我看了一下CitectVBA资料，一个坏消息是没有日期加减计算的函数，一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期，而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大
阅读全文
摘要：假设c盘根目录下有一个text.xlsx文件，希望得到R1C1的数值，那么在cicode编辑器写以下CitectVBA代码： Sub getdatafromexcel()Dim xlApp As ApplicationDim objwb As ObjectDim objst As ObjectDim
阅读全文
摘要：比如我们有这样一个access表格 希望在citect中的MSFlexgrid控件显示信息时，是这样的排版 那么在前面讲access数据写入msflexgrid代码基础上可以写以下代码 Sub msflexgridMergerow()Dim InsertRowCount,colcount,i,j A
阅读全文
摘要：以前在学习wincc的时候，练习过对wincc项目建立快捷方式，这样不需要打开wincc项目管理器也能直接运行项目。在citect中也可以实现类似的功能。本次练习找的是7.4版的citect，安装在c盘默认路径下。首先打开citect项目管理器，选中需要建立快捷方式的项目。在C:\ProgramDa
阅读全文
摘要：前面的博客记录了在excel一个区域划全部的边框，其实还可以自定义左、右、上、下、斜边框，以及边框线等等。在citectVBA编辑器写以下代码： Sub ExcelBordersCnfg()Dim fileName As stringDim xlApp As ApplicationSet xlApp
阅读全文
摘要：今天再次实验昨晚的ADO连接ACCESS数据表，由于ACCESS数据表名字是table，造成Set ors=ocom.Execute语句根本没有执行，也没有citectVBA编译错误，access中定于表名也没有报错，折腾了一段时间终于悔悟了。把表名字改成table1马上就好了。这给了一点教训，那些
阅读全文
浙公网安备 33010602011771号