Rabu, 31 Oktober 2012

Re: [ExcelVBA] Re: XL2007 Unable to select Form TextBox with code

 

> ... = Len(Mem_FirstMM.Text) ' [not Len(.Text)]

Yes, of course, ta.

> For me the issue here is readability (simplicity even) and this is
> why the With . . End With wins out.

... and my error supports the readability (lack of) question. :-)

It's just too easy not to see the isolated dots when reading the code.

I do use With quite often, and like it. But, I've also seen some horribly
obscure code produced on occasions by over-use of With.

Regards, Dave S

----- Original Message -----
From: "Derek Turner" <g4swy@yahoo.com>
To: <ExcelVBA@yahoogroups.com>
Sent: Wednesday, October 31, 2012 11:32 AM
Subject: Re: [ExcelVBA] Re: XL2007 Unable to select Form TextBox with code

Dear All

Surely, David should have said :-

>With Mem_FirstMM
> .SelStart = 0
> .SelLength = Len(.Text)
>End With

>is the same as simply saying

>Mem_FirstMM.SelStart = 0
>Mem_FirstMM.SelLength = Len(Mem_FirstMM.Text) ' [not Len(.Text)]

For me the issue here is readability (simplicity even) and this is why the
With . . End With wins out.

I am a great fan of With . . End With but detractors claim it can produce
unreadable code. Well maybe they do ?

And Steve, still talking readability,
what is Mem_FirstMM ?

Regards

Derek Turner
+++

>________________________________
> From: "david.smart@ubs.com" <david.smart@ubs.com>
>To: ExcelVBA@yahoogroups.com
>Sent: Tuesday, 30 October 2012, 5:05
>Subject: RE: [ExcelVBA] Re: XL2007 Unable to select Form TextBox with code
>
>
>
>Re "With" not having components ...
>
>I suppose what I'm getting at is that it's important not to think of
>With as a component in its own right. It's just a shorthand way of
>writing code. E.g.
>
>With Mem_FirstMM
>.SelStart = 0
>.SelLength = Len(.Text)
>End With
>
>is the same as simply saying
>
>Mem_FirstMM.SelStart = 0
>Mem_FirstMM.SelLength = Len(.Text)
>
>So, it's important to remember that it's the Mem_FirstMM components you
>are accessing.
>
>This becomes more relevant when you have complicated With constructs
>(either nested or comma separated in the one With) and you have to keep
>track of which objects the With is providing you shorthand access to.
>
>Some people hate With and won't use it. Certainly, code with nested or
>comma-separated With items can very quickly become unreadable.
>
>Regards, Dave S
>
>
>________________________________
>
>From: ExcelVBA@yahoogroups.com [mailto:ExcelVBA@yahoogroups.com] On
>Behalf Of noskosteve
>Sent: Tuesday, 30 October 2012 13:49
>To: ExcelVBA@yahoogroups.com
>Subject: [ExcelVBA] Re: XL2007 Unable to select Form TextBox with code
>
>Couldn't wait. My method works fine...
>
>> I don't have a bad-value test ...
>I understood your example 100% & wasn't question it, sorry.
>
>> "Call" is ... not required... parameters ... inside parentheses
>I know this. I Shouldn't have mentioned it. I just don't usually include
>it for Msg boxes.
>
>> I had the MsgBox inside the With because I included
>> the .Text from the textbox in its parameters.
>Ahhh! Some of this does make sense, Steve. I sez to self. I'll keep that
>trick in mind.
>
>> > I understand the With TextBox and its components ...
>> A With doesn't have components, it simply makes the
>> components of the TextBox available ...
>
>Ah well. A Rose is a Flower. I picked that term not knowing if there was
>better jargon figuring you'd know what I meant, but I still think it
>flys ok. They could be considered components of the With as well, no?
>... parameters...operands... arguments, even (for argument sake...so to
>speak)(;-)
>
>Here's my functioning snippet - cool to see text now selected. (I also
>played with some of the things to help understand the function of each -
>especially the Cancel.Value)
>
>. If Mem_FirstMM < 1 Then
>. MsgBox "The First memory can not be < 1 ..." ' detail omitted
>. With Mem_FirstMM
>. .SelStart = 0 ' Cusor at left
>. .SelLength = Len(.Text) ' Nice touch. Select it all
>. End With
>. Cancel.Value = True ' kill User goof.
>. End If
>
>Thanks, Steve N.
>... Still playing ...
>
>----------
>
>Visit our website at http://www.ubs.com
>
>This message contains confidential information and is intended only
>for the individual named. If you are not the named addressee you
>should not disseminate, distribute or copy this e-mail. Please
>notify the sender immediately by e-mail if you have received this
>e-mail by mistake and delete this e-mail from your system.
>
>E-mails are not encrypted and cannot be guaranteed to be secure or
>error-free as information could be intercepted, corrupted, lost,
>destroyed, arrive late or incomplete, or contain viruses. The sender
>therefore does not accept liability for any errors or omissions in the
>contents of this message which arise as a result of e-mail transmission.
>If verification is required please request a hard-copy version. This
>message is provided for informational purposes and should not be
>construed as a solicitation or offer to buy or sell any securities
>or related financial instruments.
>
>UBS reserves the right to retain all messages. Messages are protected
>and accessed only in legally justified cases.
>
>[Non-text portions of this message have been removed]
>
>
>
>
>

[Non-text portions of this message have been removed]

------------------------------------

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go
here: http://www.mousetrax.com/techtrax to enter the ezine, then search the
ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------Yahoo! Groups Links

-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1427 / Virus Database: 2441/5364 - Release Date: 10/30/12

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (14)
Recent Activity:
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------
.

__,_._,___

Tidak ada komentar:

Posting Komentar