1429
社区成员
VB6.0 mshflexgrid问题请高手解答！ 输入表格使用TEXTBOX+mshflexgrid完成。
VB6.0 mshflexgrid问题请高手解答！ 输入表格使用TEXTBOX+mshflexgrid完成。
1、限制输入（某列只可输入数值也就是说。格式为“100.00”）
2、首行行高 （首行窄，其他行需要高）
3、某列不可编辑（我读出数据库中的索引编号用于超看，但怕客户改掉所以，想锁定不可修改某列）
4、如何检测增加数据未保存是否退出。提示用户应保存还是放弃。
1、限制输入（某列只可输入数值也就是说。格式为“100.00”）
2、首行行高 （首行窄，其他行需要高）
3、某列不可编辑（我读出数据库中的索引编号用于超看，但怕客户改掉所以，想锁定不可修改某列）
4、如何检测增加数据未保存是否退出。提示用户应保存还是放弃。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
熊孩子开学喽 2009-08-02
[Quote=引用 6 楼 feicui999 的回复:]
谢谢各位的回答！可没有一个回答的是点上的。
5楼的老师你看错了。我是TEXTBOX+mshflexgrid不是msflexgrid,因此程序没法参考。
我简单的看了看，学到了别的新东西。还是很感谢的！
问题1：输入限制。（主要功能，使某列只能输入数值也就是，数字和小数点。并且小数点只能出现一次。）我通过网络找到了些类似代码，都不能有效控制，因为MSHFLEXGRID的输入是要出发很多事件的。例如：MSHFLEXGRID_KeyPress、TEXTBOX_KeyPress、GotFocus、LeaveCell、EnterCell。我调试半天的效果是输入的第一个英文字母被赋值到TEXTBOX控件了，后面在输入的字符的确能被限制住，可这样保存时数据类型一样会错误，软件会损坏的。
问题2：MSHFLEXGRID控件的确有个RowHeightMin属性可以设置最小行高，
MSHFLEXGRID.RowHeight(1) = 280
MSHFLEXGRID.RowHeightMin=500
可我要的效果是第一行扁些，其他行高，这样的设置，第一行也成了500，我改怎么解决问题。
问题3：我已解决，设定FIXedcols即可。
问题4：检测数据已录入未保存退出，事件可以写在退出按钮上，可这样会降低保存速度。不知道有没有更好的办法，我想知道大家遇到这些问题了吗？怎么处理的。
[/Quote]
MSHFLEXGRID还真没用过,一向都是用MSFLEXGRID,貌似两者差别不大,不过既然可以逐行设置行高,那不就是可以解决你的问题了么
谢谢各位的回答！可没有一个回答的是点上的。
5楼的老师你看错了。我是TEXTBOX+mshflexgrid不是msflexgrid,因此程序没法参考。
我简单的看了看，学到了别的新东西。还是很感谢的！
问题1：输入限制。（主要功能，使某列只能输入数值也就是，数字和小数点。并且小数点只能出现一次。）我通过网络找到了些类似代码，都不能有效控制，因为MSHFLEXGRID的输入是要出发很多事件的。例如：MSHFLEXGRID_KeyPress、TEXTBOX_KeyPress、GotFocus、LeaveCell、EnterCell。我调试半天的效果是输入的第一个英文字母被赋值到TEXTBOX控件了，后面在输入的字符的确能被限制住，可这样保存时数据类型一样会错误，软件会损坏的。
问题2：MSHFLEXGRID控件的确有个RowHeightMin属性可以设置最小行高，
MSHFLEXGRID.RowHeight(1) = 280
MSHFLEXGRID.RowHeightMin=500
可我要的效果是第一行扁些，其他行高，这样的设置，第一行也成了500，我改怎么解决问题。
问题3：我已解决，设定FIXedcols即可。
问题4：检测数据已录入未保存退出，事件可以写在退出按钮上，可这样会降低保存速度。不知道有没有更好的办法，我想知道大家遇到这些问题了吗？怎么处理的。
[/Quote]
MSHFLEXGRID还真没用过,一向都是用MSFLEXGRID,貌似两者差别不大,不过既然可以逐行设置行高,那不就是可以解决你的问题了么
feicui999 2009-08-01
哦。可能是我别的逻辑方面有错误。我再查吧！
logan0279 2009-08-01
测试了下你的代码,仍然正常!不能输入英文字母.
目前我的MSHFlexGrid中只添加了MSHFlexGrid_Click事件!
目前我的MSHFlexGrid中只添加了MSHFlexGrid_Click事件!
feicui999 2009-07-31
8楼的哥们!
限定第5列只能输入数字不能使用利用TextBox_KeyPress 事件么?
你实际测试会发现TextBox_KeyPress 事件有问题.因为 数据是先触发MSHFLEXGRID事件之后数据传入TextBox_KeyPress事件,我在TextBox_KeyPress处作限制后,每次的第一个英文字母总能被传入,而后面的字母就能被有效阻止了.这样明显事件处理不完整,存在逻辑缺陷.因为想问大家实际使用结果.
因为我程序已经开发完毕,为了减少软件BUG,希望限制用户错误操作,减少维护量.所以才实际测试这些问题的.
目前网上大都是些使用MSHFLEXGRID查询代码,实际的录入 增行 删行 保存行 事件处理各种情况没有现成的代码可供参考.希望那位仁兄提供点真实能用的纯粹的完善的MSHFLEXGRID事件处理代码.
我们解决一个问题的方法有很多,但总是不完美,我希望大家可以考虑完整经过实际使用测试.
限定第5列只能输入数字不能使用利用TextBox_KeyPress 事件么?
你实际测试会发现TextBox_KeyPress 事件有问题.因为 数据是先触发MSHFLEXGRID事件之后数据传入TextBox_KeyPress事件,我在TextBox_KeyPress处作限制后,每次的第一个英文字母总能被传入,而后面的字母就能被有效阻止了.这样明显事件处理不完整,存在逻辑缺陷.因为想问大家实际使用结果.
因为我程序已经开发完毕,为了减少软件BUG,希望限制用户错误操作,减少维护量.所以才实际测试这些问题的.
目前网上大都是些使用MSHFLEXGRID查询代码,实际的录入 增行 删行 保存行 事件处理各种情况没有现成的代码可供参考.希望那位仁兄提供点真实能用的纯粹的完善的MSHFLEXGRID事件处理代码.
我们解决一个问题的方法有很多,但总是不完美,我希望大家可以考虑完整经过实际使用测试.
feicui999 2009-07-31
第二个问题,设置某行行高:
MSHFLEXGRID.RowHeightMin=?
MSHFLEXGRID.RowHeight(1) = ?
经实际测试不可以.因为MIN已经是最小行高,因此MSHFLEXGRID.RowHeight(1) = ? 如果比MSHFLEXGRID.RowHeightMin=? 小则设置无效.
我经过一翻研究,发现只能使用循环行高来设置,但一旦增加行,需要重新设置新行,因为系统默认按照字体大小设置的行高.
另外请问VF8现在用的人多吗.我觉得相对DELFILE VB控件的功能真实可怜.
MSHFLEXGRID.RowHeightMin=?
MSHFLEXGRID.RowHeight(1) = ?
经实际测试不可以.因为MIN已经是最小行高,因此MSHFLEXGRID.RowHeight(1) = ? 如果比MSHFLEXGRID.RowHeightMin=? 小则设置无效.
我经过一翻研究,发现只能使用循环行高来设置,但一旦增加行,需要重新设置新行,因为系统默认按照字体大小设置的行高.
另外请问VF8现在用的人多吗.我觉得相对DELFILE VB控件的功能真实可怜.
logan0279 2009-07-31
第二个问题,设置某行行高:
MSHFLEXGRID.RowHeightMin=?
MSHFLEXGRID.RowHeight(1) = ?
这样不可以么?
MSHFLEXGRID.RowHeightMin=?
MSHFLEXGRID.RowHeight(1) = ?
这样不可以么?
logan0279 2009-07-31
限定第5列只能输入数字不能使用利用TextBox_KeyPress 事件么?
feicui999 2009-07-31
[Quote=引用 16 楼 feicui999 的回复:]
txtedit1_KeyPress
事件截图
[/Quote]
feicui999 2009-07-31
txtedit1_KeyPress
事件截图
feicui999 2009-07-31
我刚学不久。不过接触很久了。TextBox_KeyPress在我这里，怎么第一个值总是能传入呢。等我贴图。
Private Sub txtedit1_KeyPress(KeyAscii As Integer)
Dim Numbers As String '允许输入的字符
If flex1.Col = 5 Then '第5列
' MsgBox "flex1.Col = 5"
Numbers = "1234567890" + Chr(46) + Chr(8)
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
'删除回车符，以消除嘟嘟声。
If KeyAscii = Asc(vbCr) Then KeyAscii = 0
End Sub
Private Sub txtedit1_KeyPress(KeyAscii As Integer)
Dim Numbers As String '允许输入的字符
If flex1.Col = 5 Then '第5列
' MsgBox "flex1.Col = 5"
Numbers = "1234567890" + Chr(46) + Chr(8)
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
'删除回车符，以消除嘟嘟声。
If KeyAscii = Asc(vbCr) Then KeyAscii = 0
End Sub
yachong 2009-07-31
这个东西不难，关键是要细心，不怕烦琐。
logan0279 2009-07-31
你的MSHFlexGrid事件分别有哪些?
我刚试了下,TextBox_KeyPress事件一切,可以按我要求控制输入呀!
我刚试了下,TextBox_KeyPress事件一切,可以按我要求控制输入呀!
logan0279 2009-07-31
呵呵,我最近在学习VB,正打算用TextBox结合MSHFlexGrid来做的,所以有此一问.
增加新行的时候只需要设置新行的高度就可以了呀,不需要再循环所有行的吧.
我学习VB时间不短,可一直断断续续的,没怎么学好,兄弟不介意的话,可以加我QQ,以后有什么问题可以向你请教.
增加新行的时候只需要设置新行的高度就可以了呀,不需要再循环所有行的吧.
我学习VB时间不短,可一直断断续续的,没怎么学好,兄弟不介意的话,可以加我QQ,以后有什么问题可以向你请教.
feicui999 2009-07-30
''限定第5列只能输入数字。方法一
'Private Sub flex1KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
'Dim Numbers As String '允许输入的字符
'If flex1.Col = 5 Then '第5列
' MsgBox "flex1.Col = 5"
' Numbers = "1234567890" + Chr(46) + Chr(8)
' If InStr(Numbers, Chr(KeyAscii)) = 0 Then
' KeyAscii = 0
' End If
'End If
'End Sub
''限定第5列只能输入数字。方法二
'Private Sub flex1_change()
'MsgBox "第5列必须输入数字"
' If flex1.Col = 5 Then
' If Not IsNumeric(.Text) Then
' MsgBox "第5列必须输入数字"
' End If
' End If
' End Sub
'Private Sub flex1KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
'Dim Numbers As String '允许输入的字符
'If flex1.Col = 5 Then '第5列
' MsgBox "flex1.Col = 5"
' Numbers = "1234567890" + Chr(46) + Chr(8)
' If InStr(Numbers, Chr(KeyAscii)) = 0 Then
' KeyAscii = 0
' End If
'End If
'End Sub
''限定第5列只能输入数字。方法二
'Private Sub flex1_change()
'MsgBox "第5列必须输入数字"
' If flex1.Col = 5 Then
' If Not IsNumeric(.Text) Then
' MsgBox "第5列必须输入数字"
' End If
' End If
' End Sub
feicui999 2009-07-30
谢谢各位的回答！可没有一个回答的是点上的。
5楼的老师你看错了。我是TEXTBOX+mshflexgrid不是msflexgrid,因此程序没法参考。
我简单的看了看，学到了别的新东西。还是很感谢的！
问题1：输入限制。（主要功能，使某列只能输入数值也就是，数字和小数点。并且小数点只能出现一次。）我通过网络找到了些类似代码，都不能有效控制，因为MSHFLEXGRID的输入是要出发很多事件的。例如：MSHFLEXGRID_KeyPress、TEXTBOX_KeyPress、GotFocus、LeaveCell、EnterCell。我调试半天的效果是输入的第一个英文字母被赋值到TEXTBOX控件了，后面在输入的字符的确能被限制住，可这样保存时数据类型一样会错误，软件会损坏的。
问题2：MSHFLEXGRID控件的确有个RowHeightMin属性可以设置最小行高，
MSHFLEXGRID.RowHeight(1) = 280
MSHFLEXGRID.RowHeightMin=500
可我要的效果是第一行扁些，其他行高，这样的设置，第一行也成了500，我改怎么解决问题。
问题3：我已解决，设定FIXedcols即可。
问题4：检测数据已录入未保存退出，事件可以写在退出按钮上，可这样会降低保存速度。不知道有没有更好的办法，我想知道大家遇到这些问题了吗？怎么处理的。
5楼的老师你看错了。我是TEXTBOX+mshflexgrid不是msflexgrid,因此程序没法参考。
我简单的看了看，学到了别的新东西。还是很感谢的！
问题1：输入限制。（主要功能，使某列只能输入数值也就是，数字和小数点。并且小数点只能出现一次。）我通过网络找到了些类似代码，都不能有效控制，因为MSHFLEXGRID的输入是要出发很多事件的。例如：MSHFLEXGRID_KeyPress、TEXTBOX_KeyPress、GotFocus、LeaveCell、EnterCell。我调试半天的效果是输入的第一个英文字母被赋值到TEXTBOX控件了，后面在输入的字符的确能被限制住，可这样保存时数据类型一样会错误，软件会损坏的。
问题2：MSHFLEXGRID控件的确有个RowHeightMin属性可以设置最小行高，
MSHFLEXGRID.RowHeight(1) = 280
MSHFLEXGRID.RowHeightMin=500
可我要的效果是第一行扁些，其他行高，这样的设置，第一行也成了500，我改怎么解决问题。
问题3：我已解决，设定FIXedcols即可。
问题4：检测数据已录入未保存退出，事件可以写在退出按钮上，可这样会降低保存速度。不知道有没有更好的办法，我想知道大家遇到这些问题了吗？怎么处理的。
熊孩子开学喽 2009-07-30
看看这个： http://download.csdn.net/source/369462
TEXTBOX+MSFLEXGRID的编辑功能都在里面了。至于限制输入或显示格式什么的无非就是在TEXT的输入事件中加代码转换，比如FORMAT函数ISNURMERIC函数等等，你可以自己参考MSDN. 行高问题，我想，如果你真的仔细研究过MSFLEXGRID这个控件的属性和方法就不应该再问了。至于锁定行也是蛮简单，因为MSFLEXGRID本来就是不可编辑的，你的代码只是利用TEXTBOX来“输入”，因此你只要定义好在某些行上面TEXTBOX不可输入就行，比如LOCKED属性。程序未保存退出提醒在我给你的历程里面自己找。
只提供思路，不提供代码
TEXTBOX+MSFLEXGRID的编辑功能都在里面了。至于限制输入或显示格式什么的无非就是在TEXT的输入事件中加代码转换，比如FORMAT函数ISNURMERIC函数等等，你可以自己参考MSDN. 行高问题，我想，如果你真的仔细研究过MSFLEXGRID这个控件的属性和方法就不应该再问了。至于锁定行也是蛮简单，因为MSFLEXGRID本来就是不可编辑的，你的代码只是利用TEXTBOX来“输入”，因此你只要定义好在某些行上面TEXTBOX不可输入就行，比如LOCKED属性。程序未保存退出提醒在我给你的历程里面自己找。
只提供思路，不提供代码
clear_zero 2009-07-30
你现在设计到哪了？
100.00可以用FORMAT(value,"0.00")
100.00可以用FORMAT(value,"0.00")
futosky 2009-07-30
基于技术很烂，认为100.00这种格式写个判断过程得了
feicui999 2009-07-30
大哥。我那说是作业了。我是在开发程序。汗！
孤独剑_LPZ 2009-07-29
又是个只发作业的，这年头都怎么了？
作业要自己做，不会的地方可以帮你解答
作业要自己做，不会的地方可以帮你解答
VB控件属性大全【珍藏版】 VB控件属性大全【珍藏版】 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 1.05、命令按钮控件(CommandButton)的...
VB为MSHFlexGrid添加表格编辑功能 我以前俺用TextBox实现了它的编辑功能，总算弥补了MSHFlexGrid的不足。 首先，新建一个标准EXE工程，然后， 在工程部件里选择“Microsoft Hierarchical Flex Grid Control 6.0 (OLEDB)”，在Form里添加一个...
为MSHFlexGrid添加表格编辑功能 我以前俺用TextBox实现了它的编辑功能，总算弥补了MSHFlexGrid的不足。 首先，新建一个标准EXE工程，然后， 在工程部件里选择“Microsoft Hierarchical Flex Grid Control 6.0 (OLEDB)”，在Form里添加一个...
VB6.0代码窗口不支持鼠标中键操作滚动条解决方法 本文用来解决VB6开发环境代码编辑窗口不能鼠标滚屏的问题，参考了一个博文，测试之后，写的总结。 1、下载插件 微软已经提供了一个ADD-IN，可以让VB6支持鼠标滚**作。下载地址为： ...
关于一个用VB编写的PING工具的问题 我在互联网上找到一个用VB编写的程序，是PING一个计算机的IP是否能通的工具，我改了改，使用ADO重数据库中循环读取IP地址，并将测试后的状态写入到数据库，作完后运行是可以测试，但是速度太慢了，每循环测试一个IP...
使用VB制作一个简易通信录 电话号码查询器 电脑端通信录 制作背景： 有手机，为什么还用电脑端的简易通信录？ 办公一族，每天上班基本上都是对着电脑，左边一部电话，中间是电脑，右边是文件。如下图所示。 ...于是使用VB借助access数据库编写了一个...
VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，强烈建议看此文 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
vb/vb.net开发精粹(14) 小白向各位请教下VB过滤广告的问题 关于回调函数的问题 新手请教ocx文件创建的问题 如何用vb自动填写、选择下拉框选项并提交网页表单？？ 如何恢复最大化 如何写外接程序启动路径？ 标尺控件 各位大侠帮忙啊...
不错VB代码，收藏！！！ '详细信息请查阅相关文档 ------------------------------------------------------------ '返回阿拉伯数字的中文大写或者普通写法的一个函数 Public Function ChnNumber(Number As Double, _ Optional Capital As...
vb用数组方式快速导出MSFlexGrid表格数据到Excel表格中 本来从MSFlexGrid或MSHFlexGrid导出数据到Excel中，是一个非常简单的问题，但论坛里还是经常有人问如何导出，有的虽然知道用单元格赋值方式循环导出，但速度太慢，因此写了一个通用的数据导出函数，由于以数组方式一...
重拾VB6（9）：标准控件的使用详述（下） 来自MSDN-2001-OCT: Visual Tools and Languages/Visual Studio 6.0 Documentation/Visual Basic Documentation/Using Visual Basic/Programmer’s Guide/Part 2: What Can You Do With Visual Basic/Using Visual ...
vb源码 VB源码:HOOK 万能网游密码截取技术之（诛仙） ... ...VB源码:IP地址输入框控件 下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码 下载地址:http://www.2e3.
--=== 利用微软网格控件进行编辑输入==-- 利用微软网格控件进行编辑输入（作者：王莉梅 2001年01月18日 16:51） Visual Basic中提供了许多标准控件和...使用微软网格控件，可以按行列顺序显示正文、数字和图片，就象电子表格一样。网格的高度、宽度和其它特
vb/vb.net开发实战之经验分享（1） WINSOCK文件传输问题 text文本显示数字的问题！ VBA excel简单应用,新手求源代码,有效便散分---在一批10万个物料中筛选出其中的3000个左右的坏件?(坏件有唯一物料编码,且已知) usb接口的 zebro
VB6开发领航 ”但是，你要让他们用VB解决一些实际问题，我们就不说大型的软件，就是一个小小的进销存，他们做起来都会觉得吃力！设计不合理，BUG不断，客户需求的变化，软件不可避免地改动，可能会使用一个进销存软件陷入
VB6开发领航（一） VB6开发领航Visual Basic...”但是，你要让他们用VB解决一些实际问题，我们就不说大型的软件，就是一个小小的进销存，他们做起来都会觉得吃力！设计不合理，BUG不断，客户需求的变化，软件不可避免地改动，可能会使用一
vb学习 使用静态变量放置控件: Form1:Label1,Command1 属性设置: cLabel1.Autosize= true代码:Private Sub Command1_Click() Static stflag As Boolean 使用静态变量来保存变量值 If stflag = False Then Label1.Font....
