pake function aja
nih sample nya klo ane pake textbox
Sub ShowCheckOK(Optional SKEYASCII As Integer)
'If Len(CFGMain.TextMatrix(CFGMain.Row, 9)) = 0 Or
Len(CFGMain.TextMatrix(CFGMain.Row, 3)) = 0 Then Exit Sub
With CFGMain
' Cancel range selection, if any.
.RowSel = .row
.ColSel = .col
' Move the cell editor into place by making it one pixel smaller
' than the current cell.
'If .TextMatrix(.Row, 0) <> "" Then
textBoxEntry.Move .Left + .CellLeft, .Top + .CellTop, _
.CellWidth - ScaleX(1, vbPixels, vbTwips), _
.CellHeight - ScaleY(1, vbPixels, vbTwips)
' Transfer the contents of the current cell into the TextBox.
If Not SKEYASCII = 13 Then
textBoxEntry.Text = Chr(SKEYASCII)
textBoxEntry.SelStart = Len(textBoxEntry)
Else
textBoxEntry.Text = .TextMatrix(.RowSel, .ColSel)
textBoxEntry.SelStart = 0
textBoxEntry.SelLength = Len(textBoxEntry)
End If
' Move the TextBox in front of the grid.
textBoxEntry.Visible = True
textBoxEntry.ZOrder
textBoxEntry.SetFocus
' Remember current coordinates for later.
cellRow = .row
cellcol = .col
'End If
End With
End Sub
ini untuk hide nya
Sub HideCheckOK()
On Error Resume Next
' Hide the TextBox control if necessary.
If textBoxEntry.Visible Then
textBoxEntry.Visible = False
If Len(CFGMain.TextMatrix(CFGMain.Rows - 1, 1)) > 0 Then
CFGMain.AddItem ("")
CFGMain.RowHeight(CFGMain.Rows - 1) = HeightRow
End If
End If
CFGMain.SetFocus
End Sub
________________________________
Dari: "[email protected]" <[email protected]>
Kepada: [email protected]
Terkirim: Sen, 6 September, 2010 15:43:24
Judul: [programmer-vb] Flex cell left,top,width
Dear all,
Bagaimana caranya menampilkan listbox dengan tepat dibawah flexgridcell tertentu
Misalkan saya mau menampilkan listbox tepat dibawah flexgrid row 1 col 1 dan
lebarnya sebesar flexgrid col tersebut ?
Dan sebelumnya listbox tersebut di set dengan property visible = false
Salam,
David
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
------------------------------------
Wahana Programmer Groups Links
