http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 24 May 2026 12:48:21 +0000 Thu, 24 Mar 2005 15:59:58 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=2028 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=2028&PID=5928&title=format-not-immediate#5928 Author: bluelizard
Subject: 2028
Posted: 24 March 2005 at 3:59pm

When you change the numeric format of PropertyGridItem using Formatfunction, the change is not immediately applied to the number (typeDouble).  If you edit the value or set the value after code, thenthe format is applied.  Should be applied when Format stringchanges too.

To duplicate in VB6, place PropertyGrid on Form1 and add the Form_Load code.

Private Sub Form_Load()
    Dim pi As Double
    pi = Atn(1) * 4
       
    Dim fmt As String
    fmt = "%0.9f"
   
    Dim pgiCat As PropertyGridItem
    Set pgiCat = PropertyGrid1.AddCategory("Category")
    pgiCat.Expanded = True
   
    Dim pgiChild As PropertyGridItem
    Set pgiChild = pgiCat.AddChildItem(PropertyItemDouble, "Child", pi)
    pgiChild.Format = fmt  'this doesn't display right away
   
    Dim pgiNext As PropertyGridItem
    Set pgiNext = pgiCat.AddChildItem(PropertyItemDouble, "Next", Null)
    pgiNext.Value = pi
    pgiNext.Format = fmt 'this doesn't display right either
   
    Dim pgiSibling As PropertyGridItem
    Set pgiSibling = pgiCat.AddChildItem(PropertyItemDouble, "Sibling", 0)
    pgiSibling.Format = fmt
    pgiSibling.Value = pi       'this displays correctly.
End Sub

]]> Thu, 24 Mar 2005 15:59:58 +0000 http://forum.codejock.com/forum_posts.asp?TID=2028&PID=5928&title=format-not-immediate#5928