MSFlexgrid Scrolling - Followup
in [Visual Basic]
|
From: David on 15 Apr 2010 20:29 > Old-fashioned, isn't it? <vbg> Same way I would have approach it if what I gave wasn't enough. BTW -- I spoke to soon regarding a resolution. Scroll is still in an infinite loop. This is what I have so far ( I understand why it is looping (because the condition .ColsIsVisible and .RowIsVisible alway is true -- Just Don't know how to STOP IT when I use the scroll and the row / column is Already visible! FWIW - My DBRcdID column is partially visible -- whether Flex counts this as being visible since right side of column is not is ??? ==== Code ====== If miEditMode = EDIT_EDIT Then With MSFlexGrid1 If .ColIsVisible(GRIDC_DBRcdID) And .RowIsVisible(miEditRow) Then ' Position the combos on flexgrid's cells Call SetEditControls(True) Else Call SetEditControls(False) End If End With End If ========= "Helmut Meukel" <NoSpam(a)NoProvider.de> wrote in message news:etjGsgP3KHA.5880(a)TK2MSFTNGP04.phx.gbl... >I started a search for MSFLXGRD.OCX in Windows Explorer and got the list. > Then right-clicked on each item in the list, selected Properties, looked > up the > version # and wrote size and version # on a piece of paper. > Old-fashioned, isn't it? <vbg> > > Helmut. > > "David" <NoWhere(a)earthlink.net> schrieb im Newsbeitrag > news:uRGGwLP3KHA.556(a)TK2MSFTNGP04.phx.gbl... >> Thanks Mr. Meukel: >> >> ReWorked my code and hopefully (??) have it resolved. >> >> FWIW : >> >> I'm referring to MSFlexgrid Control 6.0 (SP6). >> Not sure where you're getting the size and version # unless directly from >> the registered dll as does not show in Components / References in VB IDE. >> >> I'm also using this with VB5. As I recall, MS had something (quite a few >> years back) that allowed you to use upgraded VB6 controls with VB5. (Will >> have to dig for this one on my system if of interest to you). Also >> unknown whether upgrading to XP, and multiple Service Packs made any >> upgrades / changes >> >> Use to try and keep close track of my system, but will all the service >> packs / automatic updates etc. etc. hard --or impossible -- to know what >> M$ is changing. Gave up on this as would need to hire a full time staff >> just for this >> >> David >> >> >> "Helmut Meukel" <NoSpam(a)NoProvider.de> wrote in message >> news:%23w2aMBN3KHA.3844(a)TK2MSFTNGP05.phx.gbl... >>> David, >>> >>> without knowing which version of MSFLXGRD.OCX you are using it's hard >>> to answer your questions. >>> I just checked on one of my multi-boot systems and found these versions: >>> (some with same version number but different dates) >>> >>> Version Size >>> 5.0.37.14 197 KB >>> 5.1.43.19 223 KB >>> 6.0.81.69 239 KB >>> 6.0.84.18 239 KB >>> 6.1.97.82 255 KB >>> >>> So the VB5 version was at least updated once, the VB6 version was at >>> least updated twice. I say 'at least' because I can't guarantee I have >>> all version on the machine I seached :-) . >>> >>> Please check what version you are using and if it's an older one then >>> update! >>> If the problem still persists or you are already using the latest VB6 >>> version, >>> then come back to us. >>> >>> Kind regards >>> >>> Helmut. >>> >>> "Helmut Meukel" <NoSpam(a)NoProvider.de> schrieb im Newsbeitrag >>> news:%23Obvka%232KHA.1452(a)TK2MSFTNGP06.phx.gbl... >>>> "David" <NoWhere(a)earthlink.net> schrieb im Newsbeitrag >>>> news:eq5LBJ22KHA.1016(a)TK2MSFTNGP02.phx.gbl... >>>>> !) OK found what was causing the loop: >>>>> The parameter of RowIsVisible is supposed to be a column I mistakenly >>>>> put in a Row. >>>>> >>>>> This now leaves with some other issues: >>>>> >>>>> 1) If I use the Date Column (GRIDC_Date) and select a row that >>>>> contains the date, I can scroll OK -------- EXCEPT -------- >>>>> scrolling the active edit row will NOT go above or below the visible >>>>> bounds of MSFlexGrid. >>>>> >>>>> Is this by design? >>>>> >>>>> 2) If I use the Date Column (GRIDC_Date) , and select a row where >>>>> there is NO date in that column everything gets #$%^& up. >>>>> >>>>> My guess is somehow the MSFlexGrid is obtaining a pointer to the date >>>>> value in order to check the cell location and if blank can't handle >>>>> it? >>>>> >>>>> Know anything about this? >>>>> >>>> >>>> >>>> David, >>>> >>>> which Version of Flexgrid are you using? (AFAIK, there are some >>>> differences >>>> between Version 5.0 and 6.0) >>>> >>>> Helmut. >>> >>> >> >> > >
From: David on 15 Apr 2010 22:06
After several days of searching, finally hit the right combination of search text and found this -- which works. Hopefully help someone else. Source: http://www.vbmonster.com/Uwe/Forum.aspx/vb/33528/MSFlexgrid-Scrolling Private Sub MSFlexGrid1_Scroll() Const Zero As Integer = 0 Const One As Integer = 1 If miEditMode = EDIT_EDIT Then With MSFlexGrid1 If (.Row > Zero) And (.Row < .Rows - One) _ And (.Col > Zero) And (.Col < .Cols - One) Then If .RowIsVisible(.Row - One) = False _ Or .RowIsVisible(.Row) = False _ Or .RowIsVisible(.Row + One) = False _ Or .ColIsVisible(.Col) = False _ Or .ColIsVisible(.Col + One) = False _ Or .ColIsVisible(.Col - One) = False Then If .RowIsVisible(.Row - One) = False _ Or .RowIsVisible(.Row) = False _ Or .RowIsVisible(.Row + One) = False Then ' Position controls on correct flexgrid cell Call SetEditControls(True) ' txtDataEntry.Top = .Height + .Top End If If .ColIsVisible(.Col) = False _ Or .ColIsVisible(.Col + One) = False _ Or .ColIsVisible(.Col - One) = False Then Call SetEditControls(True) ' txtDataEntry.Left = .Left End If Else ' Position controls on correct flexgrid cell Call SetEditControls(True) ' txtDataEntry.Top = .CellTop + .Top ' txtDataEntry.Left = .CellLeft + .Left End If End If End With End If End Sub "David" <NoWhere(a)earthlink.net> wrote in message news:%23tNOqvP3KHA.5880(a)TK2MSFTNGP02.phx.gbl... >> Old-fashioned, isn't it? <vbg> > > Same way I would have approach it if what I gave wasn't enough. > > BTW -- I spoke to soon regarding a resolution. > Scroll is still in an infinite loop. > > This is what I have so far ( I understand why it is looping (because the > condition .ColsIsVisible and .RowIsVisible alway is true -- Just Don't > know how to STOP IT when I use the scroll and the row / column is Already > visible! > > FWIW - My DBRcdID column is partially visible -- whether Flex counts this > as being visible since right > side of column is not is ??? > > ==== Code ====== > > If miEditMode = EDIT_EDIT Then > > With MSFlexGrid1 > If .ColIsVisible(GRIDC_DBRcdID) And .RowIsVisible(miEditRow) Then > > ' Position the combos on flexgrid's cells > Call SetEditControls(True) > Else > Call SetEditControls(False) > End If > End With > > End If > > ========= > > > > > "Helmut Meukel" <NoSpam(a)NoProvider.de> wrote in message > news:etjGsgP3KHA.5880(a)TK2MSFTNGP04.phx.gbl... >>I started a search for MSFLXGRD.OCX in Windows Explorer and got the list. >> Then right-clicked on each item in the list, selected Properties, looked >> up the >> version # and wrote size and version # on a piece of paper. >> Old-fashioned, isn't it? <vbg> >> >> Helmut. >> >> "David" <NoWhere(a)earthlink.net> schrieb im Newsbeitrag >> news:uRGGwLP3KHA.556(a)TK2MSFTNGP04.phx.gbl... >>> Thanks Mr. Meukel: >>> >>> ReWorked my code and hopefully (??) have it resolved. >>> >>> FWIW : >>> >>> I'm referring to MSFlexgrid Control 6.0 (SP6). >>> Not sure where you're getting the size and version # unless directly >>> from >>> the registered dll as does not show in Components / References in VB >>> IDE. >>> >>> I'm also using this with VB5. As I recall, MS had something (quite a >>> few years back) that allowed you to use upgraded VB6 controls with VB5. >>> (Will have to dig for this one on my system if of interest to you). >>> Also unknown whether upgrading to XP, and multiple Service Packs made >>> any upgrades / changes >>> >>> Use to try and keep close track of my system, but will all the service >>> packs / automatic updates etc. etc. hard --or impossible -- to know >>> what M$ is changing. Gave up on this as would need to hire a full time >>> staff just for this >>> >>> David >>> >>> >>> "Helmut Meukel" <NoSpam(a)NoProvider.de> wrote in message >>> news:%23w2aMBN3KHA.3844(a)TK2MSFTNGP05.phx.gbl... >>>> David, >>>> >>>> without knowing which version of MSFLXGRD.OCX you are using it's hard >>>> to answer your questions. >>>> I just checked on one of my multi-boot systems and found these >>>> versions: >>>> (some with same version number but different dates) >>>> >>>> Version Size >>>> 5.0.37.14 197 KB >>>> 5.1.43.19 223 KB >>>> 6.0.81.69 239 KB >>>> 6.0.84.18 239 KB >>>> 6.1.97.82 255 KB >>>> >>>> So the VB5 version was at least updated once, the VB6 version was at >>>> least updated twice. I say 'at least' because I can't guarantee I have >>>> all version on the machine I seached :-) . >>>> >>>> Please check what version you are using and if it's an older one then >>>> update! >>>> If the problem still persists or you are already using the latest VB6 >>>> version, >>>> then come back to us. >>>> >>>> Kind regards >>>> >>>> Helmut. >>>> >>>> "Helmut Meukel" <NoSpam(a)NoProvider.de> schrieb im Newsbeitrag >>>> news:%23Obvka%232KHA.1452(a)TK2MSFTNGP06.phx.gbl... >>>>> "David" <NoWhere(a)earthlink.net> schrieb im Newsbeitrag >>>>> news:eq5LBJ22KHA.1016(a)TK2MSFTNGP02.phx.gbl... >>>>>> !) OK found what was causing the loop: >>>>>> The parameter of RowIsVisible is supposed to be a column I mistakenly >>>>>> put in a Row. >>>>>> >>>>>> This now leaves with some other issues: >>>>>> >>>>>> 1) If I use the Date Column (GRIDC_Date) and select a row that >>>>>> contains the date, I can scroll OK -------- EXCEPT -------- >>>>>> scrolling the active edit row will NOT go above or below the visible >>>>>> bounds of MSFlexGrid. >>>>>> >>>>>> Is this by design? >>>>>> >>>>>> 2) If I use the Date Column (GRIDC_Date) , and select a row where >>>>>> there is NO date in that column everything gets #$%^& up. >>>>>> >>>>>> My guess is somehow the MSFlexGrid is obtaining a pointer to the date >>>>>> value in order to check the cell location and if blank can't handle >>>>>> it? >>>>>> >>>>>> Know anything about this? >>>>>> >>>>> >>>>> >>>>> David, >>>>> >>>>> which Version of Flexgrid are you using? (AFAIK, there are some >>>>> differences >>>>> between Version 5.0 and 6.0) >>>>> >>>>> Helmut. >>>> >>>> >>> >>> >> >> > > |