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

'双击网格进入编辑状态
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党报网站高峰论坛在人民日报社新媒体大厦人民网一号演播厅举行。中国西藏新闻网副总编辑德吉卓嘎在圆桌论坛“不

你的评论

就没有什么想说的吗?

最新博客

关于我们 移动版

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X