[RESOLVED] about property pages

[joaquim]

i have building a control with some property pages.
the textbox's event change in property page have these line:

changed=true

the textbox's recive the right values but when i click for other tab(page or property page) i think that it's the same than click in apply command, why?
thanks

[joaquim]

these part i resolve... but now i have other problem.
heres the code that i use for one property page:

Option Explicit

Dim s As Single

Private Sub chkActivarStrips_Click()
    Changed = True
End Sub

Private Sub Command1_Click()
    Changed = True
    Call UpgradeSubimages
    Timer1.Enabled = True
    s = 1
End Sub

Private Sub Picture1_Click()
    CommonDialog1.ShowColor
    Picture1.BackColor = CommonDialog1.Color
    shpSubImagem(0).BorderColor = Picture1.BackColor
End Sub

Private Sub picVisualizar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        txtPosX = X
        txtPosY = Y
        Call Command1_Click
    End If
End Sub

Private Sub PropertyPage_ApplyChanges()
    If chkActivarStrips.Value = 1 Then
        SelectedControls(0).ActualSubImage = 1
        SelectedControls(0).StripsActivate = True
        SelectedControls(0).StripsHeight = CLng(txtHeight.Text)
        SelectedControls(0).StripsWidth = CLng(txtWidth.Text)
        SelectedControls(0).StripsLeft = CLng(txtPosX.Text)
        SelectedControls(0).StripsTop = CLng(txtPosY.Text)
        SelectedControls(0).StripsImagesLine = CLng(txtImagensLinha)
        SelectedControls(0).StripsImagesColumn = CLng(txtImagensColuna)
        SelectedControls(0).StripsSeparationHorizontal = CLng(txtSeparaçãoHorizontal.Text)
        SelectedControls(0).StripsSeparationVertical = CLng(txtSeparaçãoVertical.Text)
        SelectedControls(0).TotalSubImage = shpSubImagem.Count - 1
    End If
End Sub

Private Sub PropertyPage_SelectionChanged()
    picVisualizar.Picture = LoadPicture(SelectedControls(0).FileName)
    If SelectedControls(0).StripsActivate = True Then
        chkActivarStrips.Value = 1
    Else
        chkActivarStrips.Value = 0
    End If
    txtHeight.Text = SelectedControls(0).StripsHeight
    txtWidth.Text = SelectedControls(0).StripsWidth
    txtPosX.Text = SelectedControls(0).StripsLeft
    txtPosY.Text = SelectedControls(0).StripsTop
    txtImagensLinha = SelectedControls(0).StripsImagesLine
    txtImagensColuna = SelectedControls(0).StripsImagesColumn
    txtSeparaçãoHorizontal.Text = SelectedControls(0).StripsSeparationHorizontal
    txtSeparaçãoVertical.Text = SelectedControls(0).StripsSeparationVertical
End Sub

Private Sub UpgradeSubimages()
    Dim i As Long
    Dim Y As Long
    Dim X As Long
    If shpSubImagem.Count > 1 Then
        For i = 1 To shpSubImagem.Count - 1
            Unload shpSubImagem(i)
        Next i
    End If
    i = 1
    For Y = 1 To CLng(txtImagensLinha.Text)
        For X = 1 To CLng(txtImagensColuna.Text)
            Load shpSubImagem(i)
            shpSubImagem(i).Visible = True
            shpSubImagem(i).Left = CLng(txtPosX.Text) + IFF(X > 1, (CLng(txtWidth.Text) + CLng(txtSeparaçãoHorizontal.Text)) * (X - 1), 0)
            shpSubImagem(i).Top = CLng(txtPosY.Text) + IFF(Y > 1, (CLng(txtHeight.Text) + CLng(txtSeparaçãoVertical.Text)) * (Y - 1), 0)
            shpSubImagem(i).Height = CLng(txtHeight.Text)
            shpSubImagem(i).Width = CLng(txtWidth.Text)
            i = i + 1
        Next X
    Next Y
    picShow.Height = CLng(txtHeight.Text)
    picShow.Width = CLng(txtWidth.Text)
End Sub

Private Sub PropertyPage_Terminate()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    If s >= shpSubImagem.Count - 1 Then
        s = 1
    Else
        s = s + 1
    End If
    picShow.Cls
    BitBlt picShow.hdc, 0, 0, shpSubImagem(s).Width, shpSubImagem(s).Height, _
            picVisualizar.hdc, shpSubImagem(s).Left, shpSubImagem(s).Top, SRCCOPY
End Sub

Private Sub txtHeight_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtImagensColuna_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtImagensLinha_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtPosX_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtPosY_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtSeparaçãoHorizontal_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Or KeyAscii = vbKeySubtract) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtSeparaçãoVertical_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Or KeyAscii = vbKeySubtract) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

Private Sub txtWidth_KeyPress(KeyAscii As Integer)
    If ((KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack) Then
        Changed = True
    Else
        KeyAscii = 0
    End If
End Sub

the problem is that when i open these property page, after the values are initializated, the apply command is enable. can anyone tell me why?
PS: these hapens without the user change the values.
thanks

[joaquim]

using these line:

changed=true

is the only way for enable the apply command, right?

[joaquim]

after recived the values, i simply put these line:

changed=false

thanks to everyone