在线等待

Question

Private Sub MSFlexGrid1_DblClick()
MsgBox "top = " & MSFlexGrid1.Top + (MSFlexGrid1.Row) * MSFlexGrid1.RowHeight(MSFlexGrid1.Row) & vbCrLf & _
       "left = " & MSFlexGrid1.Left + (MSFlexGrid1.Col) * MSFlexGrid1.ColWidth(MSFlexGrid1.Col)
End Sub

Answer 1

现在好像csdn不会自动换行了。Private Sub MSFlexGrid1_DblClick()
MsgBox "top = " & MSFlexGrid1.Top + (MSFlexGrid1.Row) * _
       MSFlexGrid1.RowHeight(MSFlexGrid1.Row) & vbCrLf & _
       "left = " & MSFlexGrid1.Left + (MSFlexGrid1.Col) * _
       MSFlexGrid1.ColWidth(MSFlexGrid1.Col)
End Sub

Answer 2

还有：
Private Sub Combo1_Change()
Print Combo1.Text
Combo1.Visible = False
End Sub
好象不能用，根本没运行，有什么错呢

Answer 3

Combo1这个东西的change比较怪。好像只有用键盘输入的才会响应change事件
你用combo1_Click事件来解决吧。

Answer 4

debug.print "current cell top=", MSFlexGrid1.Top +MSFlexGrid1.cellTop
debug.print "current cell width=", MSFlexGrid1.cellwidth
debug.print "current cell left=", MSFlexGrid1.left+MSFlexGrid1.cellleft

Answer 5

Private Sub Combo1_click()
Print Combo1.Text
Combo1.Visible = False
End Sub

Answer 6

cellTop和cellLeft的返回值和我的有误差
不知道是怎么回事。

Answer 7

celltop和cellleft是msflexgrid的top,left + 我得到的top,left
再加msflexgrid的边框的宽度。如果appearance是1-flex3d，就差45
如果是0-flexFlat，就差15

Answer 8

如果你是要给msflexgrid加编辑功能，那应该用celltop和cellleft。

Answer 9

to ： baoxiang(包香) :
一旦翻页后，获得的坐标就不对了，我希望获得该格子在窗体上的相对坐标

Answer 10

回复人： ferrytang(ferry) (  ) 信誉：100  2002-3-15 15:11:27  得分:0  
debug.print "current cell top=", MSFlexGrid1.Top
      +MSFlexGrid1.cellTop
debug.print "current cell width=", MSFlexGrid1.cellwidth用这个吧。
 

Answer 11

列：MSFlexGrid1.Left + MSFlexGrid1.CellWidth
好象不行

Answer 12

MSFlexGrid1.Left + MSFlexGrid1.Cellleft 可以

Answer 13

要注意
 
  celltop和cellleft是msflexgrid的top,left + 我得到的top,left
再加msflexgrid的边框的宽度。如果appearance是1-flex3d，就差45
如果是0-flexFlat，就差15我不知道你是要什么用，但是这点误差一定要注意一下。