当前位置: 传客网 > 使MSFlexGrid可以像Excel网格一样编辑

使MSFlexGrid可以像Excel网格一样编辑

2017-01-09 作者:zbhyork

'双击网格进入编辑状态
Private Sub MSFlexGrid_DblClick()
   
    '将文本框移动到当前网格
    If MSFlexGrid.Row <> 0 And MSFlexGrid.Col <> 0 Then
        Text1.Top = MSFlexGrid.CellTop + MSFlexGrid.Top
        Text1.Left = MSFlexGrid.CellLeft + MSFlexGrid.Left
        '调整文本框带大小与网格匹配
        Text1.Width = MSFlexGrid.CellWidth
        Text1.Height = MSFlexGrid.CellHeight
        '传递文本框值给网格
        Text1.Text = MSFlexGrid.Text ' 文本框可见
        Text1.Visible = True
        Text1.ZOrder 0  '把 Text1 放到最前面!
        Text1.SelStart = 0
        Text1.SelLength = Len(Text1.Text)
        Text1.SetFocus
   End If
   
End Sub
       
Private Sub MSFlexGrid_LeaveCell()
        '当同时选中多行时,不执行事件
    RowsSelected = MSFlexGrid.RowSel - MSFlexGrid.Row + 1
    If RowsSelected = 1 Then
        MSFlexGrid.Text = Text1.Text
        Text1.Visible = False
    Else
        Exit Sub
    End If
End Sub
Private Sub MSFlexGrid_EnterCell()
        '移动方向箭时网格获得焦点,文本框获取网格值
    Text1.Text = MSFlexGrid.Text
End Sub
Private Sub MSFlexGrid_Click()
    Text1.Text = MSFlexGrid.Text
End Sub

'增加代码到 Text1_KeyPress 过程,对数值有效性进行判断
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 And KeyAscii <> 8 And KeyAscii <> 13 Then  '判断输入的值是否为数值
    KeyAscii = 0
End If

If KeyAscii > 57 And KeyAscii <> 8 And KeyAscii <> 13 Then  '判断输入的值是否为数值
    KeyAscii = 0
End If

If KeyAscii = 13 Then   '输入回车时焦点自动移动到下一行
Text1.Visible = False
MSFlexGrid.Text = Text1.Text
MSFlexGrid.Row = MSFlexGrid.Row + 1
MSFlexGrid.SetFocus       '网格重新获得焦点
KeyAscii = 0    '忽略掉该值
End If
End Sub

               
Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)      '当按下任意数字键时,网格进入编辑状态
        '将文本框移动到当前网格
    If MSFlexGrid.Row <> 0 And MSFlexGrid.Col <> 0 And KeyAscii > 48 And KeyAscii < 57 Then
        Text1.Top = MSFlexGrid.CellTop + MSFlexGrid.Top
        Text1.Left = MSFlexGrid.CellLeft + MSFlexGrid.Left
        '调整文本框带大小与网格匹配
        Text1.Width = MSFlexGrid.CellWidth
        Text1.Height = MSFlexGrid.CellHeight
        '传递文本框值给网格
        Text1.Text = MSFlexGrid.Text ' 文本框可见
        Text1.Visible = True
        Text1.ZOrder 0
        Text1.SetFocus
        Text1.Text = Chr(KeyAscii) '将Ascii码转换为值
        Text1.SelStart = 1              '在现有值右侧增加新值
    End If

End Sub


相关推荐

  • 合格的网站编辑需要具备哪些技能?(图文)

      由于网站编辑的进入门槛很低,因为入职要求是只要会打字就能当编辑,但是也相应的会变成“苦力”型网站编辑,因为门槛低,网站编辑会成为几乎所有专业毕业生都能胜任的职位,也因为门槛低,其薪资自然不敢恭维。那么,什么样的网站编辑才算是合格的网站编

  • 2013年职称计算机考试Excel 2007:数据输入和编辑技巧(二)

    输入有规律数字有时需要输入一些不是成自然递增的数值(如等比序列:2、4、8……),我们可以用右键拖拉的方法来完成:先在第1、第2两个单元格中输入该序列的前两个数值(2、4)。同时选中上述两个单元格,将鼠标移至第2个单元格的右下角成细十字线状

  • 网络部网站编辑培训资料

    网络部网站编辑培训资料一、网站编辑工作的意义和目的1.1编辑是做什么的?网站编辑是网站运营中的一个重要环节。网站编辑的任务是收集和整理网站相关资料,上传电子版的文章及资料。并能以统筹的眼光分析网站,对网站进行全面的优化。提高网站在搜索引擎上

  • Luminar mac - 照片编辑器

    LuminarMac版是一款macOS平台的专业的图像编辑处理工具,LuminarMac版支持Raw文件的编辑处理、照片滤镜处理、层编辑等等专业的图像编辑处理功能。Luminar允许您删除不需要的对象,色偏和数字噪音。它可以帮助你润饰皮肤,

  • 微信更新了!可编辑图片 直接将微信收藏的表情贴在照片上

    沉默了很多很多,终于,微信更新了!昨天,微信发布iOS版6.5.2版本,虽然只是一个小版本的升级,但是内容量却着实不少,比如说,更新了图片编辑功能。6.5.2版本更新日志中列出了3点主要更新的功能:选择照片时可以进行简单的编辑;在Apple

  • Linux Centos下安装与设置Vim编辑器和基本配置

    LinuxCentos下安装与设置Vim编辑器和基本配置我们安装完Centos后,它默认是安装了Vi编辑器的。但Vim编辑器是没安装或者未完全安装的。下面进行安装配置:第一步:检测是否已经安装过Vim:输入命令:rpm-qa|grepvim

  • 百度编辑器ueditor 的用法

    1、直接引用2、创建对象//实例化编辑器//建议使用工厂方法getEditor创建和引用编辑器实例,如果在某个闭包下引用该编辑器,直接调用UE.getEditor('editor')就能拿到相关的实例varue=UE.getEditor('

  • 作为一名合格的网络编辑7个基本技巧

    一个好的网编,绝对不仅仅是ctrl+c、ctrl+v,不仅要求我们有很强的新闻敏感性,在大事件来临或者将来临的时候就有所察觉并在发布新闻的时候有所动作甚至提前布局,也要求我们懂基本的网络新闻传播规律以及SEO基础。只有这样,我们才能在竞争激

  • 微信6.5.2更新:增加照片编辑功能

    这次微信6.5.2更新后又增加了一个非常不错的功能:照片图片编辑。简单说就是在微信发送照片前,就可以对照片进行编辑。这里,阳阳老师就来为大家介绍一下功能的体验。首先,进入一个聊天对话,并点击“照片”,继续点击选中照片,在左下角后会出现一个“

  • 关于解决留言板管理员回复后不能再编辑修改的方法

    当管理员对留言进行一次回复后,就不能再编辑,不知道为什么会了现这个BUG,而且在后续的版本里面也没有解决,这里偶来说明一下如何解决这个BUG,造成回复后不能再编辑的原因就是因为,第一次回复后,里面存在单引号,所以当第二次回复后没有进行单引号

  • 2016年度电子产品世界编辑推荐奖获奖名单

    2016年度电子产品世界编辑推荐奖,经过5个月的征集、评选和投票环节,最终获奖名单揭晓,恭喜27家厂商的26个产品获得2016年度电子产品世界编辑推荐奖。感谢74家厂商和2000多名受邀网友对本次活动的大力支持!本文引用地址:http://

  • 中国西藏新闻网副总编辑德吉卓嘎:内容建设、渠道建设、传播形式缺一不可

    中国西藏新闻网副总编辑德吉卓嘎人民网北京12月15日电今天上午,由人民日报社、中央网信办指导,人民网研究院主办,信用体系网协办的2016党报网站高峰论坛在人民日报社新媒体大厦人民网一号演播厅举行。中国西藏新闻网副总编辑德吉卓嘎在圆桌论坛“不

  • 《编辑本论》读书报告(原创)

    书名:《编辑本论》作者:吴平版本:武汉大学出版社(2005年)页数:296页本书内容简要:《编辑本论》一书中,作者针对初学者对编辑学的入门,以简、直、白的方式概括性地从编辑理论概述、编辑工作、编辑人员、编辑思想、编辑过程、装帧设计和编辑现代

  • 电子杂志制作工具|名编辑电子杂志大师(电子杂志制作破解版

    名编辑电子杂志大师是一款集编辑与转换于一身的企业级3D翻页电子杂志制作软件,可以在软件里新建页面直接编辑制作电子杂志;也可以导入PDF/图片,以导入的内容作为电子杂志的基础页面,再度进行编辑。名编辑电子杂志大师软件简介:名编辑电子杂志大师是

  • 名编辑电子杂志大师 V2.3.4完全版下载中文破解版_名编辑电子杂志

    【温馨提示:从名编辑V2.2.3开始,免费版都是可以输出的。】名编辑电子杂志大师是一款集编辑与转换于一身的企业级电子杂志制作软件,可以导入PDF/图片,以导入的内容作为电子杂志的基础页面,再度进行编辑,也可以在软件里新建空白页面直接编辑制作

  • 名编辑电子杂志大师名编辑电子杂志大师 正式版 2.3.14破解版免费版

    名编辑电子杂志大师是一款集编辑与转换于一身的企业级电子杂志制作软件,可以导入PDF/图片,以导入的内容作为电子杂志的基础页面,再度进行编辑,也可以在软件里新建空白页面直接编辑制作电子杂志。  名编辑还内置了许多电子杂志主题模板,让您随时改变

  • 从最初的普通编辑到责任编辑

    申请加薪或加奖金我申请给我加工资或收奖金。加薪来由:1.去到公司当前,到处为公司着念,为公司节俭每分钱。当真工作,对所卖力的每套书皆按进度、按品质实现。2.承当了比其余编纂更多的工作和更主要的工作。3.现在工资不克不及保持基础生涯,每月房租

  • 非线性编辑系统知识汇编(三)

    第三章非线性编辑系统在计算机平台上的硬件组成部分一、有卡非线性编辑系统和无卡非线性编辑系统中“卡”的概述(一)有卡非线性编辑系统在线性编辑系统的时代里,要做出具有相当高水准的节目,就要配有相当“全”威的视频编辑设备。比如象切换机、特技机、录

  • EDIUS NX 实时非线性编辑系统

    EDIUSNX实时非线性编辑系统EDIUSNX的概述EDIUSNX是先进的非线性编辑解决方案,具有让人引以为豪的编辑加速硬件和高品质的视频输入输出电路,同时具备专业的编辑设备接口。采用无缝的实时工作流程,混合编辑各种模拟、数字视频格式,为编

  • (转)非线性编辑系统知识汇编

    第一章认识非线性编辑系统一、非线性编辑系统非线性编辑系统是建立在计算机平台上的视频编辑应用系统,非线性编辑系统是将素材全部量化成数字,贮存在硬盘上,在计算机工作站上进行节目编辑并输出成品到录像贮存设备上。非线性编辑系统是在电视技术的数字化、

返回
顶部