关于datagrid

[Angelnet]

在单元格获得焦点后，点鼠标右键，弹出自定义菜单，菜单里面有“打开”，点打开后就打开这个单元格里面路径的Excel文件。

请问这一过程怎么实现

谢谢

[viptiger]

dim fileStr as string

fileStr=你的datagrid名.item(你的datagrid名.CurrentCell.RowNumber,你的datagrid名.CurrentCell.ColumnNumber)


fileStr="你的Excel完整路径 " & fileStr


之后用shell（fileStr） 函数实现

[gOODiDEA]

关注！

[zwztu]

关注！

[leehq]

自己建立tablestyle，然后获取那个列的TextBox:

dim MyTextBox as TextBox

MyTextBox = CType(MyGrid.TableStyles(0).GridColumnStyles(0), DataGridTextBoxColumn).TextBox()

MyTextBox.ContextMenu=MyMenu

前提是你必须自己创建所有列的DataGridColumnStyle！

[leehq]

我倒忘了讲如何打开execl文件？！
viptiger(六嘎) 补充得好！

[Angelnet]

有没有更简单的方法。比如象VB哪样

[Angelnet]

viptiger(六嘎) 你好，我发觉用你哪种方法，第一次直接在上面点右键不会弹出快捷菜单，要先点一点标题才行，不知有没有这种情况
谢谢！

[Angelnet]

对不起刚打错了
leehq(leehq) 你好，我发觉用你哪种方法，第一次直接在上面点右键不会弹出快捷菜单，要先用右键点一下标题才行，不知有没有这种情况
谢谢！

[leehq]

是有这种情况，但是也可以解决，通过处理MouseUp事件：

Private Sub MyGrid_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyGrid.MouseUp
If e.Button = MouseButtons.Right Then
Dim info As DataGrid.HitTestInfo = MyGrid.HitTest(e.X, e.Y)
If info.Column = 1 Then ' 把1改为你的列号
MyGrid.CurrentCell = New DataGridCell(info.Row, info.Column)

Dim MyTextBox As TextBox = CType(MyGrid.TableStyles(0).GridColumnStyles(info.Column), DataGridTextBoxColumn).TextBox
MyTextBox.ContextMenu.Show(Me, Me.PointToClient(Control.MousePosition)) ' 假定Me为你的窗口实体
End If
End If
End Sub