R
Ranjan from Sri Lanka
Guest
I want to type text in MSFlexGrid using text box controll mapping with MSFlexGrid cell. VB6 is work properly but Dot NEt Dosnt'.
This code I try to map Text box to Cell (1,1). The Problem is My Text Box is Hidden not Showing but when I type Data it is ok This is the Code
PLease Help
ranjanvipula@gmail.com
=========================
Private Sub G_ClickEvent(sender As Object, e As EventArgs) Handles G.ClickEvent
'txtcode.Visible = False
With G
If .Col = 1 Then
If Not .Row = 1 Then
.Row = .Row - 1
strRowValue = .Text
If strRowValue = "" Then Exit Sub
.Row = .Row + 1
End If
'txtcode.Visible = True
'txtcode.Enabled = True
txtcode.Left = .CellLeft + .Left
txtcode.Top = .CellTop + .Top
txtcode.Width = .CellWidth
txtcode.Text = .Text
txtcode.Visible = True
intRow = .Row
intCol = .Col
txtcode.Focus()
'txtcode.Visible = True
'txtc.Visible = True
End If
End With
End Sub
=========================
Continue reading...
This code I try to map Text box to Cell (1,1). The Problem is My Text Box is Hidden not Showing but when I type Data it is ok This is the Code
PLease Help
ranjanvipula@gmail.com
=========================
Private Sub G_ClickEvent(sender As Object, e As EventArgs) Handles G.ClickEvent
'txtcode.Visible = False
With G
If .Col = 1 Then
If Not .Row = 1 Then
.Row = .Row - 1
strRowValue = .Text
If strRowValue = "" Then Exit Sub
.Row = .Row + 1
End If
'txtcode.Visible = True
'txtcode.Enabled = True
txtcode.Left = .CellLeft + .Left
txtcode.Top = .CellTop + .Top
txtcode.Width = .CellWidth
txtcode.Text = .Text
txtcode.Visible = True
intRow = .Row
intCol = .Col
txtcode.Focus()
'txtcode.Visible = True
'txtc.Visible = True
End If
End With
End Sub
=========================
Continue reading...