MArk

 

Yes, you are correct Oleg,  it's unnecessary

 

For the ones who will use this until Oleg fixes this:

 

Private Sub pgPropertyGrid_AfterEdit(ByVal Item As XtremePropertyGrid.IPropertyGridItem, NewValue As String, Cancel As Boolean)

    Dim oldVal As String
   

    oldVal = Item.Value
    

    Item.Value = NewValue

 

    Dim retval As VbMsgBoxResult
    retval = MsgBox("Are you sure you want to change " & oldVal & " into " & newValue & "?", vbOKCancel)
    If retval = vbCancel Then
        Cancel = True
        Item.Value = oldVal
    End If

End Sub

 

 

Thanks a lot

 

 

 

 

btw what point in

pgPropertyGrid.FindItem(Item.Caption).Value = NewValue ?

Why not Item.Value = NewValue

 

In value change event the value is already set to entered value and checking here I have to know old value and as it behaves now, the value is changed into old value (user doesn't know what value he/she has entered) The workaround I showed could easely be done by you in after edit event. It works OK but don't change value into old value only if cancel = true.

 

Thanks

 

 

Hi,

AfterEdit don't know if you going to commit this change. Use ValueChanged even instead:

 

Private Sub pgPropertyGrid_ValueChanged(ByVal Item As XtremePropertyGrid.IPropertyGridItem)
MsgBox "A Message"
End Sub

 

It's nice to have a workaround if you are going to release your application yourself but and it's only temporary...

 

It will do nicely for now, but I expect CJ to fix this in next release

 

 

 

 

 

Thats a good workaround.

 

Mark

 

Now I understand what you mean. If user types something and you display a messagebox, the original value is displayed again and you can't see what you entered. This is one for CJ to fix

 

If you really need this, you can use this workaround and in the meantime CJ can fix this

 

Private Sub pgPropertyGrid_AfterEdit(ByVal Item As XtremePropertyGrid.IPropertyGridItem, NewValue As String, Cancel As Boolean)

    Dim oldVal As String
    Dim newVal As String
   
    oldVal = Item.Value
    newVal = NewValue
   
    pgPropertyGrid.FindItem(Item.Caption).Value = NewValue

    Dim retval As VbMsgBoxResult
    retval = MsgBox("Are you sure you want to change " & oldVal & " into " & newVal & "?", vbOKCancel)
    If retval = vbCancel Then
        Cancel = True
        pgPropertyGrid.FindItem(Item.Caption).Value = oldVal
    End If

End Sub

 

 

 

 

 

 

No it isn't Mark.

 

Not in this event, suppose you would check the entered value and it wouldn't be right, you are able to cancel the change. So the value must be still the same as before changing otherwise you would have to check the old value itself. After this event the value changed event will fire and the value is changed into the entered value. just as you see in your sample when displaying a MessageBox.

 

Hope this helps