Ken
First, I don't know how my email changed this
thisform.label9.Caption="Description of project
("+ALLTRIM(STR(trcask603))+" size)"
to
thisform.label9.Caption="Description of project
("+ALLTRIM(STR(trcask603))+" size)"
lines)"
But, anyhow, when I run your code, it is fine.
In my instance, the form is a SCX/SCT and it does not work
I'll try it with the refresh()
On Thu, Jun 6, 2013 at 2:19 PM, Ken Dibble <[email protected]> wrote:
>
> My apologies
>>
>> The interactive change event is indeed related to a EDIT/memo event
>> and it should then display the number of characters
>> The ENTER key is a reference to start a NEW LINE
>>
>> I have this working elsewhere without any issues, but in that instance, I
>> do not ever want to start a new line because it relates to a SMS/Txt
>> message.
>>
>> >
>> > I'm having a problem with editing a memo file
>> >>
>> >> My code says
>> >> trcask603=LEN(ALLTRIM(this.****value))
>> >> thisform.label9.Caption="****Description of project
>>
>> >> ("+ALLTRIM(STR(trcask603))+" size)"
>> >> lines)"
>> >> thisform.label9.Refresh
>> >>
>> >> For some reason, this then does not allow me to press the ENTER key
>> >> The cursor stays in the same position instead of dropping down a line
>>
>
> Okay. Based on what you're saying, you're doing something like the code
> below.
>
> (I realize you can get some kind of display by opening a table that
> contains a memo field and then issuing EDIT commands, but the resulting
> display does not have an InteractiveChange() event method as far as I can
> tell, so I assume you are using an actual EDITBOX control on a form.)
>
> The code below contains the actual line of code from your original
> message. As you can see, it contains a syntax error. I've substituted a
> similar line of code that works.
>
> Typing in the editbox updates the label with the number of characters and
> your label text, as your code indicated. Pressing the ENTER key in this
> display goes to a new line with no error.
>
> Is this what you're trying to do? If not, can you modify my code to show
> what you are trying to do?
>
> Ken Dibble
>
> ** Demo Code **
> oForm = CREATEOBJECT("Form")
>
> oForm.AddObject("label9","**Label")
>
> WITH oForm.label9
> .Top = 10
> .Left = 5
> .Width = 200
> .Height = 20
> .Visible = .T.
> ENDWITH
>
> oForm.AddObject("MemoBox1","**MemoBox")
>
> WITH oForm.MemoBox1
> .Top = 40
> .Left = 5
> .Height = 80
> .Width = 200
> .Visible = .T.
> ENDWITH
>
> oForm.Show(1)
>
> DEFINE CLASS MemoBox AS EditBox
> PROCEDURE InteractiveChange
> trcask603=LEN(ALLTRIM(this.**value))
>
> * Your original code below; it throws a Syntax error because
> * you have an uneven number of double quotes and/or a missing
> * plus (+) sign.
> *thisform.label9.Caption="**Description of project
> ("+ALLTRIM(STR(trcask603))+" size)" lines)"
>
> * My similar code, below, works.
> thisform.label9.Caption="**Description of project
> ("+ALLTRIM(STR(trcask603))+" size lines)"
>
> thisform.label9.Refresh
> ENDPROC
> ENDDEFINE
> ** End of Code**
>
>
>
> ______________________________**_________________
> Post Messages to: [email protected]
> Subscription Maintenance:
> http://mail.leafe.com/mailman/**listinfo/profox<http://mail.leafe.com/mailman/listinfo/profox>
> OT-free version of this list: http://mail.leafe.com/mailman/**
> listinfo/profoxtech <http://mail.leafe.com/mailman/listinfo/profoxtech>
> Searchable Archive:
> http://leafe.com/archives/**search/profox<http://leafe.com/archives/search/profox>
> This message: http://leafe.com/archives/**byMID/profox/5.2.1.1.1.**
> 20130605221217.01a1fca8@POP-**Server.stny.rr.com<http://leafe.com/archives/byMID/profox/[email protected]>
>
> ** All postings, unless explicitly stated otherwise, are the opinions of
> the author, and do not constitute legal or medical advice. This statement
> is added to the messages for those lawyers who are too stupid to see the
> obvious.
>
> Report [OT] Abuse: http://leafe.com/reportAbuse/**
> 5.2.1.1.1.20130605221217.**[email protected].**com<http://leafe.com/reportAbuse/[email protected]>
>
--
Kind regards
Sytze de Boer
Kiss Software
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/CAG1nNy-K+XUJb7nrOt6uyBrpeMxvtaboHW=6wzzwseemv7_...@mail.gmail.com
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
