说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

增加 MsFlexGrid 的编辑功能-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
增加 MsFlexGrid 的编辑功能-VB资料

概述
MsFlexGrid 控件没有提供文本编辑的功能,下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能。

在按下一个键后, 就把TextBox 移动到当前的位置, 并激活。 在键入回车或移动到其他网格时, 就把TextBox 中的内容放到网格中。

实现步骤
1 打开 VB5, 开启一个新的工程。

2 在菜单“工程” 中选择 “部件”, 在列表中选中 “Microsoft FlexGrid Control ..”

3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。 修改MsFlexGrid 控件的名称为 Grid1, 设置Grid1 的行,列 为 4, 固定行,列为 0。 设置 Text1 的 Visiable 为 False, BorderStyle 为 None(0)。

4 在Form1 的代码中增加声明:

Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer

5 增加代码到 Grid_KeyPress 过程:

Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面!
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub

6 增加代码到 Text1_KeyPress 过程:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub

7 增加代码到 Text1_LostFocus 过程:

Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub

8 好了。 按 F5 开始测试。 您可以自由地在 Grid 中移动, 按回车可以开始或结束编辑。

Cassandra杀回数据库排行Top 10,及需求Java 7的2.0版本 安全专家王清将揭秘“大数据时代的大安全” BrainSpace:跟传统搜索说再见 艾普网络的OpenStack实践 移动周报:无需编程,分秒钟DIY一个移动网站 抢占先机:豌豆荚发布视频搜索产品 Cloud-Connect大会Day1:OCP与SwiftStack 云智能手机,将会很快威胁到Android和iPhone? 直接拿来用!超实用的Java数组技巧攻略 腾讯云俱乐部上海站:电商如何利用云提高核心竞争力 iOS开发者必备:六大图片、图标处理类工具 腾讯向搜狗注资4.48亿美金持股36.5% 推荐五款流行的JavaScript模板引擎 为何人人都将成为程序员?看32位美国顶尖精英的说法! MySQL再度失势:继维基百科之后,Google也迁移到了MariaDB Werner Vogels:亚马逊热爱艺术的CTO Jolla宣布Sailfish OS兼容Android手机硬件和应用 为什么项目估算偏差如此之大? Cloud Connect大会Day2:开源与云数据中心 CTO俱乐部第110期下午茶:利用麦肯锡7S模型构建管理框架 跨平台打造移动原生应用的10大武器 iOS与Android本地数据库新选择:使用Objective-C和Java编写 Cloud Connect大会day3:Intel的大数据与Metacloud私有云 农民也玩数据挖掘:基于物联网的高端种菜模式 前谷歌Android开源项目主管Queru加盟雅虎 Windows 8.1售价出来了!分别是119.99美元、199.99美元 对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 我MM摔伤了,希望她早日恢复!~~~~散分~~~~(一) 我MM摔伤了,希望她早日恢复!~~~~散分~~~~(二) 每次重启系统后,IE的默认页就被改成一个固定的网址。 我MM摔伤了,希望她早日恢复!~~~~散分~~~~(三) 我MM摔伤了,希望她早日恢复!~~~~散分~~~~(四) 紧急援助——莫名奇妙的关于编译后的EXE文件图标的问题 需求和方案方面的资料 C#写的windos桌面程序中调用delphi6写的dll正常,为何在阿asp.net中相同的方法调用出现问题呢? SQL语句的语法问题,高手请进!!! 有一套网上音像系统,寻开音像店共同合作 SUN的那份关于java所有的包的说明的文档在哪里可以下载呀? 怎么用电脑接听普通电话机打来的电话。 为什么读取图片后显示出错 请各位指教关于随即生成表格的问题!(急!!!!!) 格式问题:高分! 今天新买一台机器,xp1800+ 承启nforce2 +Kingmax333 256DDR +ST80G用起来一个字,爽! RichTextBox控件如何读取使用UTF8编码的文本文件? 程序编译到AfxWinMain就显示警告信息 建设一个一般的callcenter有10-20坐席,大概需多少钱呀 散分!!第一个程序在天空提交通过!! (帮我搞定,高分相赠,在线等待!)ASP上传图片到SQLServer,为什么老提示对象不支持appendchunkmydata方法? CheckBox可以同时传递多个值吗? 请问有用过visual interdev的,如何让interdev也像dreamweaver可以在写程序的时候显示代码在哪行的啊.多谢了 请高手帮忙解决我的问题,在此表示谢谢! 有关datagrid 和webform 的问题 程序员的艳遇。。。。。。 验证字符串问题 IE问题!好烦人啊!那位高手能帮我解答! 怎么在建表时使用一个时间函数??就是指出加这条这条文件的时间?? 高手请进,多数据库链接的问题 如何成为一个程序员? 事务以及回滚的问题 有做完一个作业,放60分。 关于ASP调用VC编的DLL接收返回参数的问题 我提问,大家回答 有没有关于触发器的电子书籍? 怎么能够获得数据库的连接字串呀?? 大讨论:目前用什么工具、做什么开发最能赚钱?散分啦!感兴趣的程序员们快来!! 在IE中,打开某个页面,会连接到www.lop.com页面 关于islower(ch),isdigit(ch) 疑问 BQQ的服务器端有没有保存用户的聊天记录的? 如何获得程序方向键输入?多谢! 求助有关IFS-HOOK 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 歌词中好像有我紧紧望着你的天空,寻找一个失落的梦,雨后的彩虹……是什么歌? 扬子鳄 用英语翻译 “身为一道彩虹,雨后的天空.”是什么歌!迪克牛仔唱过的 最感人的理想难得回一趟老家,我到曾经读过4年书的金盆小学看望年迈的启蒙老师.晚上与老师东拉西扯的闲聊.聊着聊着,就随手翻看起桌上的一沓作文本来.老师说,孩子不多,整个二年级才一 苹果树比梨树多20%,梨树比苹果树少( )%? 一歌的歌词是 雨后的天空有一道彩虹和雨后的天空有一些迷茫,女的唱的看动画《秦时明月》听到的歌名是什么啊?还有一句是雨后的天空有一些迷茫 最感人的理想 文章:难得回一趟老家,我到曾经读过4年书的金盆小学看望年迈的启蒙老师.晚上与老师东拉西扯地闲聊.聊着聊着,就随手翻看起桌上的一沓作文本来.老师说,孩子不多,整个二年级 You stir with this.猜一个以s开头的英文单词 天边一道彩虹,男声唱的一首歌,谁知道歌名? CITY OF GLASS怎么样 四个火念神马 雨后的天空 有一点不同 小小的我们 有一点冲动 这什么歌? 玻璃之城 神马字? 将以下名词的复数形式填入正确的栏目内.mechanic\knife\neighbour\housewife\house\garage attendant\shop assistant\lamp-post\car\day\garge\crash\cinema\city\film\suitcase\woman\vegetable\child/s/sound:/z/sound:/iz/sound:irregular:garage He is from cuba.(改为复数) 狐死归首丘,故乡安可忘.的意思 将一下名词的复数形式填入正确的栏目里mechanic knife neighbour housewife house garge attendant shopassistant lamp -post car day garage crash cinema city film suitcase woman vegetable child 要快好得多加赏!急 请问电影玻璃之城为什么要叫玻璃之城?这是我最喜欢的电影,不过看了很多遍还是不知道这电影名字的意义,此外,在花瓶里加阿斯匹林真的可以防止花凋谢吗?为什么? 这是神马字 the girl__a book in the garden ,while a boy ran to her. 为什么加入生石灰可以除硫在用含硫量较高的生铁炼钢时 蔡依林又为何躺枪? we are playing football (happy) on the playground用适当形式填空 生石灰加入盐酸中后,它是先和水反应生成氢氧化钙.再和HCL反应,还是直接和HCL反应 这个是神马字? The girl ran up to me,barely able to catch her breath.女孩跑向我,跑得上气不接下气.able 前面可以不加be的吗? 三木木吧和火星天后吧谁先建立? 运用所给句型翻译下列句子 The little girl was willing to try her best at the begining,but soon she ran away.哪里错了? 一艘快艇以大小为2m/s平方的加速度在恒定力的作用下,做匀减速直线运动,快艇的初速度是6m/s,求快艇在8末的速度和8s内经过的位移 比较本质的黑吧除了三木木吧以外还有什么吧?例如摸摸猫头吧黑开逼,三木木吧黑蔡依林,亚马逊天后吧黑嘎嘎,还有什么本质的黑吧? Peter didn't ( )lunch yesterday. A,ate B.had C.did D.eat 啄木鸟的防震器阅读答案 pancake可数吗 奇迹荧光石怎么用 looks out of the windows什么意思 Because L can eat ice-cream in summer是什么意思 I expect nothing less from you啥意思来着我怎么觉得是“我对你太满意了”的意思忘记了 ___ lele looks out of the windows today横线里填什么 pancake forging是什么意思 I‘d expect nothing less怎么使用? 果园有100棵苹果树,比梨树的2倍少20棵,问梨树有多少棵?(先画树状图,再列式计算 ) 用挂起造句比喻句 What's your ( ) store?高手们填什么,快. 急求大神翻译中文!God opened the windows of heaven ,looking at me and asked: what is your dream for today? I answered: God,please take care of the person who is reading this message at present because this person is so special to me,once! 挂起,露出造句 what about the prices in your 至少我还有梦的歌词是哪首歌? 用挂 ……就……造句什么一挂出来就怎么样 What is your status?注册了个博客,里面要填写这个是什么意思中文? “只要我还有梦,就会见到彩虹”是哪首歌的歌词 挂起,露出,造句 what's up with your status?中文意思是? 只要我还有梦就会看到彩虹什么歌 用别造句:表示其他 表示挂着、插着 "it's no less than you deserve"什么意思 扬子鳄用英语怎么说 In summer we all like to eat i cream 杭州公交司机招人的速度赶不上走人的脚杭州今年要点亮1000个小区暗区 已浙江高校获权可自主设专业 多数高校已杭州事业单位将实行聘期考核制 每2-浙江银行高管承认“余额宝”冲击银行系浙江省委常委会专题研究村级组织换届工浙江省委通报省级班子专题民主生活会情约40名尼日尔移民因汽车抛锚在撒哈拉分析称中国核潜艇高调亮相或是向日本展亲戚行凶 纽约华人母子五人被害德媒:窃听丑闻得教训 要像中俄一样变浙江温岭医院否认特警“抢尸”:伤心还杭州家政阿姨变身女土豪专骗单身男五旬女子拼凑出骗婚团队 8人相继被骗记者探访平壤地铁 装饰奢华乘客行色匆西班牙就美国涉嫌在西从事监听活动召见朝鲜向欧洲派足球留学生 为成为体育强华媒:揭秘核潜艇部队新海军战略呼之欲杭州规定60方以上新建住宅最少配一个杭州酝酿再度延长地铁末班时间 延长至浙江省委通报省级班子专题民主生活会情沪邮政推出\"快寄\"最低6元 东方伊拉克从俄进口的米-28NE攻击直升品尚红酒之“液体黄金”冰酒 白葡萄酒新鲜月饼 米旗诠释回顾英超高价引援:锋线三水货坑爹 曼渐冻人每月所需药费超过4000元 专中秋盛宴 晨报“中秋大集”货全价又低紧盯微信红包电子礼品等隐性腐败沈阳辽阳有望建成养老服务业改革试点下半年事业单位招聘45个职位取消或削王毅:中方愿为推动伊核谈判达成全面协沙特逮捕8名恐怖组织招募者原稿标题:多国主打签证牌 中国人海外最美金秋季 最佳出游时96128晨报便民服务兴隆大奥莱如何成为传奇印度国防研发组织完成核生化侦察无人车美国与伊朗船只在海湾地区对峙 美军警别墅“微时代”今日开通耳鼻喉疾病热线国际抗癫新技术 癫痫病不再难治
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘