BarLevel Value Alignment question and position click keypad

[betilly]

Hi,

is it possible to align shown value of BarLevel form to center of BarLevel, instead of right by default? My fill direction is set to right.

[MrPike]

Take a look at this post


https://www.advancedhmi.com/forum/index.php?topic=2008.0

[betilly]

Thanks that is what i need. But that modification seem that if  you set fill to right, u cant change CenterValue to False again and vica versa, it is always True.

[Archie]

I tried it with version 3.99y Beta and it works when setting CenterValue to True and FillDirection to Right

[betilly]

I have done project with 3.99x i think, i ll try update to 3.99y. But in version 3.99x looks like only when fill to right cant change align, all other options up,down works

[betilly]

I had trouble with errors when i try to upgrade to latest AHMI version so i just changed code from BarLevelEx, delete line 69 and change  to

Code: [Select]

If m_CenterValue <> value Then
                m_CenterValue = value
                Invalidate()
            End Ifnow its working like a charm.
Thanks for help.

[betilly]

Maybe this question doesnt belong in this topic, i wanna extended that when i mouse click on my BarLevel, keypad pop up and i could write to holding register. I add the code  to BarLevel, like one of post from Archi says.
What about if i  wanna click on left half of BarLevel and write to register"1" and when i click on right half of BarLevel write to register"2". Any form from AHMI which can do that? Or i must track mouse position, and  then in click handler do the job?

[betilly]

Finally get it done about BarLevel click position.

Code: [Select]

Private Sub BarLevel3_MouseClick(sender As Object, e As MouseEventArgs) Handles BarLevel3.MouseClick

        kordinatax = e.X

        If kordinatax < (Var(3) / 2) Then
            BarLevel3.KeypadText = "xxxxxx"
            BarLevel3.PLCAddressKeypad = "D12000"

        ElseIf kordinatax > (Var(3) / 2) Then
            BarLevel3.KeypadText = "yyyyyy"
            BarLevel3.PLCAddressKeypad = "D12001"

        End If

Entry from keypad write in right register, but when the keypad pop up on screen the keypad text is from previous click. Any suggestions?

[Godra]

Maybe try adding a line of code to the KeypadText property, to look like this:

Code: [Select]

    Public Property KeypadText() As String
        Get
            Return m_KeypadText
        End Get
        Set(ByVal value As String)
            m_KeypadText = value
            If KeypadPopUp IsNot Nothing Then KeypadPopUp.Invalidate()
        End Set
    End Property

I haven't tried it but it might work.

[betilly]

I tried with adding a suggested code, but it didnt work, still the same.

[Phrog30]

From the previous click? So what is there when running for the first time?

[betilly]

Maybe i didnt say correctly in previous post. When i start solution, when first time BarLevel is clicked text is displayed as you set under BarLevel properties keypadtext, or if you leave blank, nothing is displayed. The next time when BarLevel is clicked ,if clicked on left side of the BarLevel first time it displayed xxxxx, if on the right side it displayed yyyyy.

[Phrog30]

Ok, so you need to dig into the code for the keypadtext property to see how it's currently being handled. I think godra was on the right track.

[Godra]

What you are doing is completely custom and you need to modify the OnClick sub to look similar to this:

Code: [Select]

    '***********************************************************
    '* If label is clicked, pop up a keypad for data entry
    '***********************************************************
    Protected Overrides Sub OnClick(e As System.EventArgs)
        MyBase.OnClick(e)

        Dim ex As MouseEventArgs = e

        Dim kordinatax = ex.X

        If kordinatax < (Me.Size.Width / 2) Then
            KeypadText = "xxxxxx"
            PLCAddressKeypad = "D12000"

        ElseIf kordinatax > (Me.Size.Width / 2) Then
            KeypadText = "yyyyyy"
            PLCAddressKeypad = "D12001"
        End If

        ActivateKeypad()

    End Sub


[betilly]

Thats my code now

Code: [Select]

'***********************************************************
    '* If labeled is clicked, pop up a keypad for data entry
    '***********************************************************
    Dim KeypadText1 As String
    Protected Overrides Sub OnClick(e As System.EventArgs)
        MyBase.OnClick(e)

        Dim ex As MouseEventArgs = e

        Dim kordinatax = ex.X


        If kordinatax < (Me.Size.Width / 2) Then
            KeypadText1 = "xxxxx"
            PLCAddressKeypad = "D12000"

        ElseIf kordinatax > (Me.Size.Width / 2) Then
            KeypadText1 = "yyyyy"
            PLCAddressKeypad = "D12001"
        End If

        If m_PLCAddressKeypad IsNot Nothing AndAlso (String.Compare(m_PLCAddressKeypad, "") <> 0) And Enabled Then
            If KeypadPopUp Is Nothing Then
                KeypadPopUp = New MfgControl.AdvancedHMI.Controls.Keypad(m_KeypadWidth)
                AddHandler KeypadPopUp.ButtonClick, AddressOf KeypadPopUp_ButtonClick
            End If
        End If
        KeypadPopUp.Text = KeypadText1
        KeypadPopUp.Value = ""
        KeypadPopUp.StartPosition = Windows.Forms.FormStartPosition.Manual
        KeypadPopUp.Location = New Point(400, 50)
        KeypadPopUp.TopMost = True
        KeypadPopUp.Show()
    End Sub
But this is for only one BarLevel on Form and it works fine. But i have multiple BarLevels in form, soo now if i click on any BarLevel its the same two texts. I need to display "xxxxx?" or "yyyyy" for BarLevel1 and "aaaaa" or "bbbbb" for BarLevel2 etc..  All locations and sizes for all BarLevels have on "MainForm". Is it possible to get all needed variables from MainForm.vb to BarLevel.vb so i can make texts for all BarLevels individualy?Or any other advice how to solve that