
非常需要高手:VB的MSHFlexGrid列表问题
用VB的MSHFlexGrid控件列表无法实现点击单元格弹出新界面而更改单元格中数据,用什么控件可以达到这样的效果呢?如何实现?非常感谢。...
用VB的MSHFlexGrid控件列表无法实现点击单元格弹出新界面而更改单元格中数据,用什么控件可以达到这样的效果呢?如何实现?
非常感谢。 展开
非常感谢。 展开
4个回答
展开全部
该控件不同于.net中的Grid控件。不过可以其它控件给MSHFlexGrid赋值,如Combox,textbox,使用方法是EnterCell事件里把Combox的坐标与该单元格对应大小。
Private Sub MSHFlexGrid1_EnterCell()
With MSHFlexGrid1
If .TextMatrix(.Row, .Col) <> "" Then
If .Col = 4 Then
combType.Move .CellLeft + .Left - 10, .CellTop + .Top - 10, .CellWidth
combType.Visible = True
End If
If .Col > 4 And .Col < 9 Then
combOther.Move .CellLeft + .Left - 10, .CellTop + .Top - 10, .CellWidth
combOther.Visible = True
End If
If .Col < 4 Then
combOther.Visible = False
combType.Visible = False
End If
End If
End With
End Sub
Private Sub MSHFlexGrid1_EnterCell()
With MSHFlexGrid1
If .TextMatrix(.Row, .Col) <> "" Then
If .Col = 4 Then
combType.Move .CellLeft + .Left - 10, .CellTop + .Top - 10, .CellWidth
combType.Visible = True
End If
If .Col > 4 And .Col < 9 Then
combOther.Move .CellLeft + .Left - 10, .CellTop + .Top - 10, .CellWidth
combOther.Visible = True
End If
If .Col < 4 Then
combOther.Visible = False
combType.Visible = False
End If
End If
End With
End Sub
参考资料: 自己写的

2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
展开全部
MSHFlexGrid不支持编辑修改功能,只能用一个TextBox的Move方法移动到想编辑的位置,然后根据MSHFlexGrid.row的相关条件保存TextBox的内容。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你直接创建一个microsoft excel对象不就行了。。?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询