MSFlexGrid结合textbox做了一个可编辑的MSFlexGrid,如何判断上一个cell中的数字是否合法?

2011-03-23 04:46:50 305 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lijuan1215_2009 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB6 MsFlexGrid实现单元格直接编辑：TextBox覆盖方案详解在桌面应用开发中，数据表格控件是展示和编辑结构化信息的核心组件。其原理是通过网格化布局管理数据项，实现高效的数据可视化与交互。从技术价值看，原生控件往往功能有限，开发者需要扩展其能力以满足复杂业务需求，这在数据库前端、报表工具和配置界面等场景尤为常见。本文聚焦于VB6经典控件MsFlexGrid，针对其原生不支持单元格内编辑的痛点，深入剖析如何通过TextBox覆盖方案实现所见即所得的编辑体验，并详细讲解状态管理、焦点切换和事件处理等关键实现细节，为遗留系统维护和经典技术重构提供实用参考。阅读详情

如题，当我点击下一个cell准备输入数字时，怎么判断刚才输入的哪个是否在范围内。

Private Sub MSFlexGrid1_LeaveCell()

Dim ts As Single

ts = Val(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col))

If MSFlexGrid1.Row = 2 Then

  If ts <= 0 Or ts > 3600 Then

  MsgBox "范围：0 - 3600 秒", vbExclamation, "注意"

  End If

Else

  If MSFlexGrid1.Row = 3 Then

  If ts < 190 Or ts > 700 Then

  MsgBox "范围：190 - 700nm", vbExclamation, "注意"

  End If

End If

End If

End Sub

我这样写但是不行。

...全文

VB6表格动态交互：实现可点击删除链接与数据行上移在桌面应用开发中，用户界面（UI）的交互性是提升用户体验的关键。通过事件驱动编程，开发者可以响应用户操作，实现动态的界面反馈。在VB6等传统开发环境中，虽然控件功能有限，但通过巧妙的控件组合与事件处理，依然能实现丰富的交互效果。例如，利用TextBox控件模拟超链接样式，结合MouseMove事件进行精准的坐标捕获，可以在只读的MSFlexGrid表格中实现可点击的单元格。这种技术方案不仅增强了老旧系统的交互能力，还体现了对底层Windows消息机制的理解。本文以VB6项目中的VBFlexGrid控件为例，阅读详情

lijuan1215_2009

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

帝企鹅已被占用 2011-03-23

打赏
举报

事件validate里判断

贝隆 2011-03-23

打赏
举报

[Quote=引用 6 楼 king06 的回复:]
找到之前写的一个,是编辑完后按enter确认的. 你参考下
(如果不用enter确认,在文本框的lostfocus事件中判断吧,不过不推荐)

VB code
Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
Text1.Visible = True
Text1.Move .ColPos(.Col……
[/Quote]
+1

pyf975467363 2011-03-23

打赏
举报

我这里有个代码，求各位高手解决

Private Sub Command1_Click()

Set objVoice = CreateObject("SAPI.SpVoice")

s = Text1.Text

    If s = "" Then

        Exit Sub

    ElseIf s = " " Then

        n = Replace(board, Chr(10), "。。")

        objVoice.Speak n

    Else

        objVoice.Speak s

    End If

End Sub

窗体上有一个文本框和一个命令按钮，单击命令按钮，系统读出文本框的内容。(XP可以读英文和拼音，vista win7可以中英文阅读)
如果读的文本长一点的话，程序就会假死。有高手能帮我看看，这个是什么原因导致的。有没有什么解决的办法吗？这个代码是我跟据一个脚本文件改编的。我自己也是一知半解。。这个是我毕业设计里的一个功能。

king06 2011-03-23

打赏
举报

找到之前写的一个,是编辑完后按enter确认的. 你参考下
(如果不用enter确认,在文本框的lostfocus事件中判断吧,不过不推荐)

Private Sub MSFlexGrid1_Click()

    With MSFlexGrid1

        Text1.Visible = True

        Text1.Move .ColPos(.Col), .RowPos(.Row), .ColWidth(.Col), .RowHeight(.Row)

        Text1.BackColor = &HC0FFC0

        Text1.Text = ""

        If .TextMatrix(.Row, .Col) = "" Then

           Text1.Text = ""

        Else

           Text1.Text = .TextMatrix(.Row, .Col)

        End If

        Text1.SelLength = Len(Text1.Text)

        Text1.SetFocus

    End With

End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii <> 13 Then Exit Sub

    If Text1.BackColor = &HC0FFC0 Then

        Text1.Visible = False

        MSFlexGrid1.SetFocus

        '数据是否合法,这里判断

        '……略

        MSFlexGrid1.Text = Text1.Text

    End If

End Sub

lijuan1215_2009 2011-03-23

打赏
举报

那咋办啊，我没有思路啊，请帮帮忙吧。

king06 2011-03-23

打赏
举报

[Quote=引用 3 楼 lijuan1215_2009 的回复:]
就是在离开这个单元格的时候检查吧，就是不知道怎么做，并且每一列的范围是不一样的，还要判断是在那一列？
[/Quote]
列范围不一样当然要判断那一列,不过我认为在LeaveCell里面判断不好处理吧. 毕竟你也是用textbox来编辑的,不是直接在单元格上编辑的啊

lijuan1215_2009 2011-03-23

打赏
举报

就是在离开这个单元格的时候检查吧，就是不知道怎么做，并且每一列的范围是不一样的，还要判断是在那一列？

king06 2011-03-23

打赏
举报

这个判断提醒应在你给单元格赋值之前检查

king06 2011-03-23

打赏
举报

你这个有啥问题? 后面要加exit sub...

MsgBox "范围：0 - 3600 秒", vbExclamation, "注意"
exit sub

MSFlexGrid结合textbox做了一个可编辑的MSFlexGrid,如何判断上一个cell中的数字是否合法?

相关推荐