编程通俗快速入手 张金柱 第一章 一般使用 1、 程序的开始, application 的 open 事件。 退出程序例程: halt 为退出函数 int SureQuit SureQuit =" name="description" />

PB编程通俗快速入手(自己2002年教别人PB时随手写的,很多年了,放上来送给新手们)

发表于:2007-06-08来源:作者:点击数: 标签:
PB MI LY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">编程通俗快速入手 张金柱 第一章 一般使用 1、 程序的开始, application 的 open 事件。 退出程序例程: halt 为退出函数 int SureQuit SureQuit =

PBMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">编程通俗快速入手

张金柱

第一章   一般使用

 

1、  程序的开始,applicationopen事件。

退出程序例程:halt为退出函数

int SureQuit

SureQuit = 2

SureQuit=Messagebox("退出系统","退出前请确认已保存好数据",Question!,OKCancel!, 2)

if SureQuit = 1 then halt

 

2、  变量定义有效范围:

     declareglobe 全局变量,整个程序均有效

     declareinstance 局部变量,可在一个对象中有效(如:窗体,APP等)

     模块中定义的变量,可在当前模块中有效

定义:PB中大小写不敏感)

constant string LS_HOMECITY = "Boston"  常量

int a                      整型

char c                   字符型

Boolean b              布尔型

String a                 字符串型

String a[1000]          1000的数组,01000

String a[3 to 30]       数组元素为330,最初一个为a[3],最后一个为a[30]

String a [100,3to 30]   二维数组,一维为0~100,二维为3 30

String a[]               变长数组,赋值时(如a[30]=333)自动分配内存。

得到上界UPPERBOUND,下界LOWERBOUND

操作:

a=”aaaa”+”vvvbb”+b+c

string(b)                B转换成字符串型

integer(“333333333333”)          “333333333333”字符串转换成数333333333333

a=a+b*c^d/e\f%g

◎注意:减号前后要空格,用于避免PB7.0之前版本的BUG

 

3、  函数定义:

第一行是返回类型和函数名,第二行是变量类型和变量名,tab键加形参。

Return 是函数的返回,同时如C语言一样,return则函数运行结束

4、  打开窗口

open(窗口名)

openwithparm(窗口名,参数,父窗口<仅对子窗体和弹出窗体有效>)

5、  MDI窗体中打开子窗体

层叠样式打开 opensheet(子窗体,父窗体名,1,layered!)

平铺样式打开     opensheet(子窗体,父窗体名,1, Original!)

如果在父窗体的窗体级函数下编写,可用 opensheet(子窗体,this,1, Original!)

第三个参数表示新开窗体在父窗体菜单中的位置。

 

6、  控件基本属性

控件名.x                x坐标

控件名.y                 Y坐标

控件名.width          

控件名.height  ……                   (其他可参见编辑器中的属性窗口)

 

7、  调整窗体模式

this.windowstate=maximized!       

窗体.windowstate=maximized!  窗体最大化(其他可参见编辑器中的属性窗口)

 

8、  INI文件读取及写入

【举例】有名为“MNR.INI”的ini文件,(路径在程序所在目录)有数据如下:

[ACTION]

PRELOAD=YES

 

可以用如下语句读取:

a=ProfileString("MNR.INI","ACTION","PRELOAD","aaa")

a为变量,”aaa”为无此数据项时默认数据

       可以用如下语句写入(写入值为yes):

       setprofilestring("MNR.INI","ACTION","PRELOAD","YES")

 

9、  对于整个程序中都要用到的变量

可以先定义一个结构,再在globe declare中定义该结构类型变量,管理起来方便些

 

10、              主要语法单元

原文转自:http://www.ltesting.net