VB6.0 msflexgrid控件
本人在学习MSFLEXGRID表单录入数据时遇到以下问题:
1、msflexgrid1
-----1列------2列-------3列--------4列------5列-------6列------7列--
1行
------------------------------------------------------------------
2行
------------------------------------------------------------------
3行
------------------------------------------------------------------
当我输入msflexgrid1的3列时有一个跟随选择。
例如:当我在msflexgrid1的3列里输入123时,弹出一个(Frame1 + msflexgrid2)显示与123相关的所有信息供选择。
现在问题就是(Frame1 + msflexgrid2)与msflexgrid1的3列不能跟随。当我在msflexgrid1的其它行的3列输入时就会出现看不见我在msflexgrid1输入的内容。
-------------------------------------------------------------------------------
我想要的效果是:
1、当我在msflexgrid1的某行3列时,弹出的(Frame1 + msflexgrid2)就跟随在msflexgrid1的某行3列的下面。
请各位大侠帮忙,谢谢!
本人在学习MSFLEXGRID表单录入数据时遇到以下问题:
1、msflexgrid1
-----1列------2列-------3列--------4列------5列-------6列------7列--
1行
------------------------------------------------------------------
2行
------------------------------------------------------------------
3行
------------------------------------------------------------------
当我输入msflexgrid1的3列时有一个跟随选择。
例如:当我在msflexgrid1的3列里输入123时,弹出一个(Frame1 + msflexgrid2)显示与123相关的所有信息供选择。
现在问题就是(Frame1 + msflexgrid2)与msflexgrid1的3列不能跟随。当我在msflexgrid1的其它行的3列输入时就会出现看不见我在msflexgrid1输入的内容。
-------------------------------------------------------------------------------
我想要的效果是:
1、当我在msflexgrid1的某行3列时,弹出的(Frame1 + msflexgrid2)就跟随在msflexgrid1的某行3列的下面。
请各位大侠帮忙,谢谢!
解决方案 »
- VB6 ADO 连接MYSQL的字符串
- VB怎么动态设置菜单属性啊.
- 超菜送分问题关于WebBrowser
- 用WISE 制作安装程序问题:怎么把安装日期/安装路径等写进注册表>
- 如何用命令行注册ActiveX EXE组件
- 怎样分组筛选,给分50
- 怎样打开Access 1.0文件(不是编程打开,任何软件均可)
- 谁知道在VB6.0那个函数能够判断是否是十六进制数(进来就给分!!!!)
- sql server不能运行!
- type mismatch错误
- mshflexgrid 使用上下箭头的时候怎样把内容一行一行的显示?
- 用webbrowser打开这个网址,将网页那个图片显示在picture控件上面,怎么做?付源代码
Option ExplicitPrivate Sub Form_Load()
Dim i As Integer
Dim j As Integer
With MSFlexGrid1
.Cols = 10
.Rows = 20
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = i & "_" & j
Next
Next
End With
End SubPrivate Sub MSFlexGrid1_DblClick()
On Error Resume Next
With MSFlexGrid1
Frame1.Move .CellLeft + .Left + 20, .CellTop + .Top + 200
End With
End Sub