写在前面
这是PB案例学习笔记系列文章的第3篇,该系列文章适合具有一定PB基础的读者。
通过一个个由浅入深的编程实战案例学习,提高编程本领,以保证小伙伴们能应付公司的各种开发需求。
文章中设计到的源码,小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git
必要源代码的小伙伴们可以自行下载查看,后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】
假如对小伙伴有所帮助,盼望能给一个小星星⭐支持一下小凡。
一、小目标
本末节使用了StaticText控件、SingleLineEdit控件、CommandButton控件、Messagebox函数
这末节的目的主要是学会SingleLineEdit控件的使用,其他控件及函数在第一末节已经设计,这里就不再重复了
终极实现如下截图效果
二、创建程序基本框架
① 创建work工作区
② 建立app应用
③ 建立w_main窗口
以上步调假如忘记怎么操作的小伙伴,可以看看第一篇文章。这里由于篇幅原因,就不再赘述
④ 窗口中布置控件
窗口中添加两个StaticText 控件、两个SingleLineEdit 控件和两个CommandButton 控件。
如下图所示,各个控件名称为st_1、sle_1、st_2、sle_2、cb_1和cb_2
⑤ 设置控件属性
控件名称属性值值w_maintitle密码验证st_1Text请输入用户名:st_2Text请输入密 码:sle_1Text空sle_2Text 、Password空 |truecb_1Text、Default确定|truecb_2Text 、Cancel取消|true
⑥ 生存窗口
三、编写事件代码
这里我们模拟系统密码为123456,现实密码必要去数据库查询获取
① 在按钮cb_1 的Clicked事件中添加如下代码
sle_1.Text 代码可以获取控件中文本内容- if sle_1.Text= '' then
- messagebox('提示信息','请输入用户名!')
- else
- if sle_2.text = '123456' then
- messagebox('欢迎使用', sle_1.Text+'你好!')
- else
- messagebox('提示信息','密码错误,请重新输入!')
-
- end if
-
- end if
复制代码 ② 在按钮cb_2 的Clicked事件中添加如下代码进行关闭窗口③ 在左边System Tree 窗口中双击App应用对象,在open 事件中添加如下代码- //程序启动打开窗口w_main
- open(w_main)
复制代码 四、运行程序
五、SingleLineEdit 控件
5.1 常用属性
属性名称形貌Visible 默认为 True。当为 False 时,该控件在窗口上隐藏Enabled 默认为 True。当为 False 时,该控件不能获得焦点,用户不能进行编辑和选
中;控件背景为灰色DisplayOnly 默认为 False。当为 True 时,该控件中的笔墨不能被修改,而且也不能
输入,但可以选中、复制Password 默认为 False。当为 True 时,在该输入框中输入的内容体现为“ *”号,
星号的数量等于输入的字符的数量,加密规则依靠于操作系统。其现实内容和用户输入的内
容一致AutoHScroll 默认为 True,体现当用户输入的内容体现不下时,可以自动横向滚动
光标,但是不体现滚动条HideSelection 默认为 True,体现只有当单行编辑器获得焦点时,才高亮体现选中文
本。发起使用默认值,因为将该属性设置为 False,没有获得焦点时,选中的内容就高亮体现,
这轻易让用户造成错误Limit 默认是 0,体现没有长度限制。可以输入其他一个数字,体现该单行编辑框中
最多接受用户输入的字符个数,最大数字是 32 767Case 有三个选项, upper 体现用户输入的内容中的字母都自动转换成大写, down
体现都自动转换成小写, any 体现不做转换Text 这是该控件运行时最常常使用的一个属性。可以给该属性赋值来将特定信息显
示在单行编辑器中,也可以读取该属性而获得单行编辑器中的内容。设计状态下,在 Text
属性输入框中录入的笔墨在窗口刚刚打开时体现在单行编辑框中Border 是否体现边框,默认为 True5.2 事件和脚本
提供了 12 个事件, Modified 是常常使用的事件,其他事件和命令按钮的同名事件完全相同。
该事件的触发时机是在编辑器中输入内容后,焦点离开该编辑器时
单行编辑器提供了很多的函数,其中必要把握的有 10 个常常使用的函数,这 10 个常用
5.2.1 CanUndo 函数
① 语法返回值:Boolean
- 假如可以撤销上一次的编辑操作,则返回True
- 假如不能撤销上一次的编辑操作,则返回False
② 功能
检查是否可以撤销上一次的编辑操作
5.2.2 Undo 函数
① 语法② 功能
撤销上一次的编辑操作,恢复到之前的文本状态
5.2.3 Clear 函数
① 语法返回值:Integer
- 清除的文本内容长度,清除一个字符,则返回1
- 未选中内容,返回0
- 执行错误返回-1
② 功能
清除SingleLineEdit控件中选中的文本内容
注: 必要在文本内容选中的情况下才能清除
5.2.4 Copy 函数
① 语法返回值:Integer
- 复制到剪切板的文本内容长度
- 未选中内容,返回0
- 执行错误返回-1
② 功能
将SingleLineEdit控件中选定的文本复制到剪贴板。
5.2.5 Cut函数
① 语法② 功能
将SingleLineEdit控件中选定的文本剪切并复制到剪贴板。
返回值:Integer
- 剪切到剪切板的文本内容长度
- 未选中内容,返回0
- 执行错误返回-1
5.2.6 Paste函数
① 语法返回值:Integer
② 功能
将剪贴板中的内容粘贴到SingleLineEdit控件中
5.2.7 SetFocus函数
① 语法② 功能
将焦点设置到SingleLineEdit控件上
本期内容到这儿就结束了,盼望对您有所帮助。
我们下期再见 ヾ(•ω•`)o (●'◡'●)
免责声明:如果侵犯了您的权益,请联系站长,我们会及时删除侵权内容,谢谢合作!更多信息从访问主页:qidao123.com:ToB企服之家,中国第一个企服评测及商务社交产业平台。 |