问题 请部各位高手,在DataGrid中能否嵌入复选框之类的控件,有没有第三方控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Listview 带复选框。用MshFlieGrid 也可以单比较麻烦第三方控件一般不是很理想,大多数好的都要钱。 'MSHFlexGrid1 Text1 命名为txtInput '这是把文本框嵌入表格控件的部分代码,你可以自己完善一下。'也许能有些思路。If Val(MSHFlexGrid1.Text) > 0 Then txtInput.Alignment = 1 Else txtInput.Alignment = 0 End If txtInput.Visible = True On Error Resume Next txtInput.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft - 20, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop - 20, MSHFlexGrid1.CellWidth, MSHFlexGrid1.CellHeight - 20 txtInput.Text = MSHFlexGrid1.Text txtInput.SetFocus txtInput.SelStart = 0 txtInput.SelLength = Len(txtInput.Text) '当鼠标移动到此单元格时将全部选中 菜问:ByVal含义 为什么打开Excel文件会退出软件 救助 文件 文件夹操作的检测 大家帮忙啊~~ 如何捕获一个窗体中所有的鼠标消息 用ADO访问文本文件:出错 高分请教有关农历的问题,有这方面经验的高手请进!!! 请问怎么在建表代码里定义关键字? 怎样实现richtextbox不得到焦点却可以高亮显示所选择的内容? SQL 查询语句的问题 送分送软件!图形显示自适应控件出炉,源码示例!类似ACDSEE32的看图程序(VB) 关于SQL连接模块问题 把一个程序做成开机启动,对应的注册表的位置是什么啊?
用MshFlieGrid 也可以单比较麻烦第三方控件一般不是很理想,大多数好的都要钱。
'这是把文本框嵌入表格控件的部分代码,你可以自己完善一下。
'也许能有些思路。If Val(MSHFlexGrid1.Text) > 0 Then
txtInput.Alignment = 1
Else
txtInput.Alignment = 0
End If
txtInput.Visible = True
On Error Resume Next
txtInput.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft - 20, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop - 20, MSHFlexGrid1.CellWidth, MSHFlexGrid1.CellHeight - 20
txtInput.Text = MSHFlexGrid1.Text
txtInput.SetFocus
txtInput.SelStart = 0
txtInput.SelLength = Len(txtInput.Text) '当鼠标移动到此单元格时将全部选中