作者:陈哲瑋66832 | 来源:互联网 | 2023-09-14 17:28
问题11.怎样合并msflexgrid的row2to4,col1to3?问题2我现在做一个msflexgrid的内容输入如下ErrorItemErrorCount-
问题1
1.怎样合并msflexgrid的row=2 to 4,col=1 to 3?
问题2
我现在做一个msflexgrid的内容输入如下
ErrorItem ErrorCount
------------------------------------------
装配错误 2
电焊错误 0
我只操做ErrorCount列,对其输入数字。我用隐藏textbox来实现,我只能根据鼠标点击的位置来确定textbox的位置,不能用键盘来上下移动来确定textbox的位置,请问可不可以用键盘来控制??好象不可以????
问题3
我将鼠标放在不同位置时,有没有msflexgrid事件能够识别它的移出和移进,因为如果textbox移走的话我要将其值保存在msflexgrid,移进的话我要将msflexgrid的值显示在textbox上。
拜托!!!
17 个解决方案
问题1
MSHFlexGrid1.MergeCells = 2
MSHFlexGrid1.MergeRow(2) = True
MSHFlexGrid1.MergeRow(3) = True
MSHFlexGrid1.MergeRow(4) = True
MSHFlexGrid1.MergeCol(1) = True
MSHFlexGrid1.MergeCol(2) = True
MSHFlexGrid1.MergeCol(3) = True
问题2
回答是一定可以的。在用键盘的上下左右键来在MSHFlexGrid1中移动时可以获取她的当前单元格,也就是 col和row 然后就可以判断输入框的出现位置,当然可以设置一些键,比如在按回车键后才能输入就是一种好的方法。
问题一
你可以参看msflexgrid的MergeCells,MergeCol,.MergeRow属性
msflexgrid.MergeCells = flexMergeFree
for i=2 to 4
msflexgrid.mergerow(i)=true
next
for i=1 to 3
msflexgrid.mergecol(i)=true
next
for i=2 to 4
for j=1 to 3
msflexgrid.textmatrix(i,j)= " "
next
next
问题3
可以使用问题2相同的方法来解决。
当当前单元格改变的时候就可以进行该操作
问题二
可以实现用键盘来控制,程序代码要在textbox的KeyDown事件中编写
问题二
可以实现用键盘来控制,程序代码要在textbox的KeyDown事件中编写
问题三
同样,程序代码要在textbox中的事件中编写
jin11(老八) 和 lingfeng_314(小旋风) 两位:
你们关于方案一的解答我试了,还是不可以,请你们帮忙试一下好吗?
再次感谢!
问题2、3我都已经解决,但问题1有没有人能帮忙啊??
再次多谢jin11(老八) 和lingfeng_314(小旋风)
问题一 jin11(老八)是对的,你再试试看。
问题一
你可以参看msflexgrid的MergeCells,MergeCol,.MergeRow属性
msflexgrid.MergeCells = flexMergeFree
for i=2 to 4
msflexgrid.mergerow(i)=true
next
for i=1 to 3
msflexgrid.mergecol(i)=true
next
for i=2 to 4
for j=1 to 3
msflexgrid.textmatrix(i,j)= " "
next
next
问题一 jin11(老八)是对的,你再试试看。
问题一
你可以参看msflexgrid的MergeCells,MergeCol,.MergeRow属性
msflexgrid.MergeCells = flexMergeFree
for i=2 to 4
msflexgrid.mergerow(i)=true
next
for i=1 to 3
msflexgrid.mergecol(i)=true
next
for i=2 to 4
for j=1 to 3
msflexgrid.textmatrix(i,j)= " "
next
next
多谢各位兄弟,问题一还是不行。请各位看我的代码。
Private Sub Form_Load()
SetFGrid1
ShowFGrid1
End Sub
Private Sub SetFGrid1()
FGrid1.Cols = 3
FGrid1.ColWidth(0) = 1200
FGrid1.ColWidth(1) = 1200
FGrid1.ColWidth(2) = 1200
FGrid1.Row = 0
FGrid1.Col = 0
FGrid1.Text = "a"
FGrid1.Col = 1
FGrid1.Text = "b"
FGrid1.Col = 2
FGrid1.Text = "c"
End Sub
Public Sub ShowFGrid1()
Dim I As Integer
Dim j As Integer
FGrid1.MergeCells = flexMergeFree
FGrid1.MergeCol(0) = True
FGrid1.MergeCol(1) = True
FGrid1.MergeCol(2) = True
FGrid1.Rows = 4
For I = 1 To 3
FGrid1.Row = I
FGrid1.MergeRow(I) = True
FGrid1.Col = 0
FGrid1.TextMatrix(I, 0) = CStr(I)
FGrid1.Col = 1
FGrid1.TextMatrix(I, 1) = "ww"
FGrid1.Col = 2
FGrid1.TextMatrix(I, 2) = "ww"
Next I
End Sub
还是不能实现跨行并且跨列的合并。