在含msflexgrid的視窗中新建一個文字框,大小和msflexgrid的單元格一樣大
msflexgrid的單擊事件新增
text1.visible=true
text1.setfocus
下面是我做的一個過程程式碼,加入工程的一個模組中,就可以用了
Public Sub MsgridEdit(ByVal TxtName As TextBox, ByVal MsGridName As MSFlexGrid)
MsGridName.TextMatrix(MsGridName.Row, MsGridName.Col) = TxtName.Text
MsGridName.SetFocus
TxtName.Visible = False
End Sub
注:呼叫方法:在含msflexgrid的視窗中新建一個文字框,大小和msflexgrid的單元格一樣大,需要呼叫時TxtName指文字框的名字,MsGridName指msflexgrid的名字
在含msflexgrid的視窗中新建一個文字框,大小和msflexgrid的單元格一樣大
msflexgrid的單擊事件新增
text1.visible=true
text1.setfocus
下面是我做的一個過程程式碼,加入工程的一個模組中,就可以用了
Public Sub MsgridEdit(ByVal TxtName As TextBox, ByVal MsGridName As MSFlexGrid)
MsGridName.TextMatrix(MsGridName.Row, MsGridName.Col) = TxtName.Text
MsGridName.SetFocus
TxtName.Visible = False
End Sub
注:呼叫方法:在含msflexgrid的視窗中新建一個文字框,大小和msflexgrid的單元格一樣大,需要呼叫時TxtName指文字框的名字,MsGridName指msflexgrid的名字