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

VB网格中输入数据

HTML文档下载 WORD文档下载 PDF文档下载
VB网格中输入数据
山东 周庆斌
VISUAL BASIC提供的网格控制(Grid)主要是用来直观地输出数据,但不能输入数据,使用起来很不方便。能不能向网格中输入数据呢?笔者提出了两种解决方法,供大家参考:
方法一:
改写网格的KeyPress事件,在每次有合法字符输入时,把Grid的Text项和输入字符连接。这种方法缺点是:一代码较复杂,需要处理各种ASCII字符信息;二是通过编程只能实现很少的编辑功能,如用退格键删除前一字符,用Del键删除所有字符;三是这种方法不能输入汉字,使用起来受到很大的限制。
方法二:
利用一文本框作为缓冲,实现编辑功能。当网格改变行列时,把网格当前行列的内容传递给文本框;当网格中有ASCII字符产生时,把输入焦点设置为文本框,并把输入的ASCII字符送给文本框;当编辑完文本框的内容时,按Enter键或TAB键,把文本框的内容送给网格的当前行列,并把输入焦点设置为网格。如下程序所示(其中Textl为文本框,Labell为标签,Gridl为网格):
Option Explicit
Const EnterAsc=13
Const TabAsc=9
Private Sub Form-Load()
Labell.Caption=”请输入”
End Sub
Private Sub Gridl-KeyPress(KeyAscii As Integer)
Text1.StFocus
Textl.SelStart=0
If KeyAscii <> EnterAsc And KeyAscii <> TabAsc Then
SendKeys Chr (KeyAscii)
End IF
End Sub
Private Sub Gridl-RowColChange()
Textl.Text=Grid1.Text
End Sub
Private Sub Text1-KeyPress(KeyAscii As Integer)
If KeyAscii=EnterAsc Then
Grid1.SetFocus
KeyAscii=0
End If
End Sub
Private Sub Text1-LostFocus()
Grid1.Text=Text1.Text
End Sub
【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 【走进支付宝】即将开场,问题大征集! 开发者薪资调查:半数开发者工作十年方可迎来好“薪”情 沟通更畅快 HipChat推出1对1视频和屏幕共享功能 AMD宣布支持DirectX 12 为游戏开发者带来更多福利 开发者薪资调查:2013年哪种编程语言最赚钱? 苹果挖墙脚未果,黑莓高管跳槽被起诉 不看不知道:六个超大规模Hadoop部署案例 豌豆荚发布应用内搜索技术协议 兼容App Indexing Oculus 21岁鬼才创始人:收购不等于改变 Unite China 2014课程解析:Unity教育行业专场免费开放 Instagram技术窥探,助你打造响应式App 切勿妄谈Hadoop,以及4个数据管道打造实践 一周消息树:雨果·巴拉与小米的那些事儿 《近匠》轻邮联合创始人Wesley:移动App要有撼动企业服务的野心 CList和CArray在功能上有什么区别??? CString<-->int 我想做个Treeview,有四层,每层上都有好多数据,没做过,看书也没看出东东来。 寻人:半剑穿心 有一DBGrid问题请教? 生于70年代 一个关于ADO数据库的问题? 我也调查行不行?———你用什么激励自己------- 哥几个乐乐呵呵! 同志们,请教对于文件的操作 !!! 高手思考:C++ Builder 5 动态生成控件,并可以拖动改变其大小,位置 Kylix的so难题?Kylix高手请进!!! InsideCOM中第十章里Util.cpp的报错,请前辈指点。 关于在ATL中使用 ::LoadLibrary("FirmClient.dll")一说 大虾们 过来看看吧 {icongrid 1..192}是什么意思?请教。。。 吴文智,交个朋友,好吗 请问我INSTALL第三方控件怎么老是提示说*.DCU文件not found啊,我用的是D6,应怎么解决? To: foolishtiger(吴文智) ,请教你一个问题!!! 一个关于EJB的问题,急!急啊 请教DBGrid问题如下: tomcat连接数据库oracle?用javabean? 请教:ORACLE ENTERPRISE MANAGER怎么连接 怎样做半透明窗口? 怎样用程序安装输入法? InsideCOM中第十章里Util.cpp的报错,请前辈指点阿。 dephi中有没有显示流程图的控件? 数据库有自动加锁的功能。那我是否可以在一个过程中,靠代码去主动给一个表,多个表加锁,解锁呢?? 一道scjp考题,问题答案都有,谁看明白了给俺解释一下,会送分的 急急急,40分想送!!!!! b/s结构下的新邮件提示问题(重赏!!!) 哪里可下载WINXP DDK和SDK 别忘了向我祝贺啊,今天也是我的生日!! 如何让光标不离开DBGrid的当前行,就将当前记录的修改提交数据库 好心的大虾们,帮帮我!有关gis的 ORACLE的触发器怎么弄 用C++怎样统计文本文件中的字符个数,请给源代码 讨论:不经人大批准给公务员加薪是腐败行为? http://www.csdn.net/expert/topic/389/389043.shtm 怎么样才能将*.pdf文件转成*.doc 急急急急……快帮忙,icevi,弱水快帮忙。 JAVASCRIPT 中怎么样用VBA的函数? 用VB怎样遍一个程序用列表的形势,找到并显示局域网中所有已经打开的SQL服务器名? C++标准类库中有没有类提供<<操作符输出调试信息? JAVASCRIPT 中怎么样用VBA的函数?我急呀~ ~~~~~~好心的大虾们,帮帮我,关于gis~~~~~~~~~~~~ 关于在mfc中使用stl中的警告问题? 关于视频播放控件的开发 在单位上了网通,我们通过局域网上internet,可是服务器装了wingate…… 怎样在程序里实现window下“打开方式”对话框,具体用什么类? 我下载了好多经典书籍(十几本),都不知道该从哪儿看起? 怎么处理没有用的连接文件? 作文童年趣事童年趣事 怎么读数(重点0的读法)怎么写数(重点0的写法 老师让写一片作文,《一堂精彩的语文课》,要用到侧面描写,600字左右 快 速求 某数加上3.4就得整数,这个数减去3.7所得的差的整数部分是最小的两位小数,这个数是( )谁能帮我回答上, 快乐语文2011征文《伤痕累累的地球》怎么写?400字的,要小学生的, 3002000用汉字应怎么书写读法(小学数学题) 童年趣事作文 (x-1)(x+3)=12怎样十字相乘. 一堂精彩的语文课 作文教我怎么写就行了!今天就要答案 作文《童年趣事》550字左右!要给我一个启示,激励我的将来!要大约7-8岁时候的事情! 我想知道这个数学符号的意思和读法 一堂语文课作文 该怎么写?先写什么再写什么?要怎样才能写好?这是我的开头部分,接下来该怎么写?在我的学校生活中,上过无数节各种各样课,它们就像一艘大船,载着我在知识的海洋里 《童年趣事》 作文要是真实的,自己写的,越快加的分越多! (3/x-3)-(2/x-2)=(1/x-1)是不是用十字相乘 初一 第1节语文课作文 咖啡因(化学式为C8H10N4O2),咖啡因能兴奋中枢神经、消除疲劳.如果一杯咖啡含有194mg咖啡因,你知道这杯咖啡中有多少个咖啡因分子吗? 数学的读法请问万位上全是0(例:300003000),该不该读? 是读 三亿零三千,还是读 三亿三千? 十字相乘3x^2-16x+5=0十字相乘例:1 -53× -3应该是横着写(x×-5)(3x× -3)还是斜着写(x×-3)(3x×-5)? 将250ml,密度为1.1g/cm^3 H2SO4的质量分数为24.5%的硫酸中适量铁屑充分反应.计算(1)此硫酸中H2SO4 的物质的量浓度(2)生成H2的体积(3)将生成的硫酸亚铁配成400ml 溶液,此溶液中硫酸亚铁的物 (x+1)(x+2)(x+3)(x+4)-8 十字相乘因式分解. 2x^2-3x-5 也就是十字相乘的方法 要详细思路的 不要只有答案2x^2-3x-5 =0.我不知道十字相乘的方法 12.6gNaHCO3(s)加热一段时间后,测得剩余固体的质量变为9.5g,(1)求生成Na2CO3的质量(2)当剩余固体的质量为多少时,表明NaHCO3已完全分解 幼儿园阿姨发糖果,每人4个,则多10个;每人5个,则少4个,有多少个小孩?他们共分多少个糖果? 幼儿园给小朋友分糖果,如果每人分5 个,还剩13块;如果每个小朋友分6块,就 少7块.问有小朋友和糖各多少 取一定量的Na2CO3和Na2SO4混合物溶液与过量盐酸反应,生成2.016LCO2(标准状况),然后加入足量的Ba(OH)2溶液,得到沉淀的质量为2.33g 试计算混合物中Na2CO3和Na2SO4的物质的量分别为多少? 读法103965192 幼儿园小朋友分糖果,如果每人分8颗还剩20颗.如果分10颗还差20颗.问,有多少个小朋友?有多少颗糖? 某百货商城经销一种儿童服装,每件售价50元每天可以销售80件,每件可获利10元,为了迎接六一儿童节,商场决定采取适当的降价措施,扩大销售量,让利消费者,经市场调察发现:每件童装每降价一 因式分解:(x-1)(x-2)(x-3)(x-4)-48 (最好用十字相乘) 快乐语文举办的第十三届海峡冰心杯征文比赛题目是什么 整数部分是零的最大一位小数与最小一位小数的和是(),差是() 我最喜欢的一堂语文课 作文600字 快乐语文第十四届冰心杯征文题目是什么?老师让我们全班都去写冰心杯,我是第一次,最好告诉我文章是用编的,还是真实的. 一个三位小数的整数部分是零,这个数最大是几,最小是几? 我最喜欢的一堂语文课 作文哥哥姐姐们,差不多400字,不要太多. 快乐语文第十五届征文主题是什么? 高一化学计算题我要怎么办? 3x^2+x=0 用十字相乘分解(要过程)一年没用了,忘记了.. 求我最喜欢的一堂语文课作文.600字以上 各位高人我急需一篇以快乐生活快乐语文为话题的作文 快乐语文的征文“热爱生命 快乐成长”怎么写?急.............. 我最喜欢的第一堂语文课 作文 初中的300个字就行了! 要新生的速度来啊!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 我要一篇以'不在等待'为话题的作文 快乐语文有《热爱生命 快乐成长》的征文吗?如果有, 作文:我最喜欢的一堂语文课 某百货商场经销一种儿童服装,每件销售50元,每天可以销售80件,为了迎接“六一”国际儿童节,商场决定采取降价措施以扩大销售量,经市场调查发现:每件童装每降价1元,平均每天就可多销售10 有关于“热爱生命,快乐成长”的征文吗 小学四年级数学奥数题第一位数是66,第二位数是54,从第一位数拿多少是第二位数的2倍 把含硫酸铵和硝酸铵的混合液aL分成两等份.一份加入bmolNaOH并加热,恰好把NH3全部赶出.另一份需消耗cmolBaCl2沉淀反应恰好完全.则原溶液中NO3- 的浓度为?答案为(2b-4c)/a 快乐语文《热爱生命 快乐成长》的100个题目不要别的,只要那100个题目. 一个五位数的千位上是6,这个五位数的近似值最小是几万,最大是几万. 高一化学题4(计算题)质量分数为20%,密度为0.93g/cm3的氨水与质量分数为5%,密度为0.98g/cm3的氨水等体混合所得溶液的溶质质量分数为 A.=12.5% B.<12.5% C.>12.5% 求解 征文《热爱生命,快乐成长》怎么写? 数学思维好有多少种读法?数学 学思 思 思维 维 维 维好 好 好 好 好 怎么写好童年趣事这篇作文 为了庆祝六一儿童节,百货商店童装部所有童装降价30%出售 点点的妈妈要买1套童装,上衣原价298元,裤子原价188元 他带了400元, 关于十字相乘分解的计算题 1.(2x+1)(3x+3) 2.2x^2-x-3 3.3b^2+14b-5 整数部分相同的最大三位小数减最小四位小数的差是 兰兰向妈妈要6角钱买一根冰棒.妈妈叫兰兰从袋子里取.袋子里有1角、2角、5角的纸币各6张,兰兰要拿六角钱,可以有几种拿法?用算式表示出来. 3x^2-2x-6用十字相乘法怎么算?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn