Halo mas teguh, Klo pakai combo box dan textbox sdh berhasil anehnya begitu source codenya saya copas untuk listbox jd ngaco positioning nya
Salam, David Sent from my BlackBerry® powered by Sinyal Kuat INDOSAT -----Original Message----- From: Teguh tea <[email protected]> Sender: [email protected] Date: Mon, 6 Sep 2010 16:50:09 To: <[email protected]> Reply-To: [email protected] Subject: Bls: [programmer-vb] Flex cell left,top,width 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
