[Year 12 SofDev] help

[Michael Wooldridge]

I assume you are referring to a MaskedTextBox. That works but it's kind of
cheating isn't it?

 

Description: signiture

 

"It is the tragedy of the world that no one knows what he doesn't know - and
the less a man knows, the more sure he is that he knows everything" Joyce
Cary.

 

Michael Wooldridge

Information Technology Coordinator

Mornington Secondary College

1051 Nepean Highway, Mornington 3931

(: 03 59700250 6: 03 59700299

mwo at mornsc.vic.edu.au

 

Important - This email and any attachments may be confidential. If received
in error, please contact us and delete all copies. Before opening or using
attachments check them for viruses and defects. Regardless of any loss,
damage or consequence, whether caused by the negligence of the sender or
not, resulting directly or indirectly from the use of any attached files our
liability is limited to resupplying any affected attachments. Any
representations or opinions expressed are those of the individual sender,
and not necessarily those of the Department of Education and Early Childhood
Development. There, that just about covers everyone's arse but yours, sorry.

 

From: sofdev-bounces at edulists.com.au [mailto:sofdev-bounces at edulists.com.au]
On Behalf Of Mark KELLY
Sent: Monday, 7 May 2012 11:57 AM
To: Year 12 Software Development Teachers' Mailing List
Subject: Re: [Year 12 SofDev] help

 

Have you thought about using an input mask?

On 7 May 2012 10:04, Michael Wooldridge <mwo at mornsc.vic.edu.au> wrote:

Hi guys,

 

I need help. Trying to write validation code that limits a text box entry to
numerical and one decimal place only (and only two decimal places after the
point, as in cash). The following code works fine except that it allows me
to enter letters. The problem seems to be this line: If Not
Char.IsDigit(e.KeyChar) Then 'if not a digit

To me, initially, I would have thought it should read: If Not
e.KeyChar.IsDigit(e.KeyChar) Then 'if not a digit but VB won't let me do
that and keeps telling me to change it back to "Char" 

 

 

I can't figure out why! Strangely, if a number is entered in the text box
first, then I try to type over it with letters, it works perfectly. 

 

If anyone can solve this for me or has a better way of doing it your
suggestions would be much appreciated.

 

 

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

 

        If Not Char.IsDigit(e.KeyChar) Then 'if not a digit

            If Not Asc(e.KeyChar) = 8 Then 'and not a backspace

                If Not TextBox2.Text.LastIndexOf(Chr(46)) = -1 Then 'and a
decimal has already been added, dont allow

                    e.Handled = True

                    MsgBox("numbers only")

                End If

            End If

        Else 'if a digit compare index of decimal point (if it exists) and
length of text

            If Not TextBox2.Text.LastIndexOf(Chr(46)) = -1 Then

                If TextBox2.TextLength > TextBox2.Text.LastIndexOf(Chr(46))
+ 2 Then

                    'if length is over 2 spaces from the decimal point, dont
allow 

                    e.Handled = True

                    MsgBox("only two decimal places allowed")

                End If

            End If

 

        End If

 

    End Sub

 

 

 

"It is the tragedy of the world that no one knows what he doesn't know - and
the less a man knows, the more sure he is that he knows everything" Joyce
Cary.

 

Michael Wooldridge

Information Technology Coordinator

Mornington Secondary College

1051 Nepean Highway, Mornington 3931

(: 03 59700250 <tel:03%2059700250>  6: 03 59700299 <tel:03%2059700299> 

mwo at mornsc.vic.edu.au

 

Important - This email and any attachments may be confidential. If received
in error, please contact us and delete all copies. Before opening or using
attachments check them for viruses and defects. Regardless of any loss,
damage or consequence, whether caused by the negligence of the sender or
not, resulting directly or indirectly from the use of any attached files our
liability is limited to resupplying any affected attachments. Any
representations or opinions expressed are those of the individual sender,
and not necessarily those of the Department of Education and Early Childhood
Development. There, that just about covers everyone's arse but yours, sorry.

 


_______________________________________________
http://www.edulists.com.au - FAQ, Subscribe, Unsubscribe
IT Software Development Mailing List kindly supported by
http://www.vcaa.vic.edu.au - Victorian Curriculum and Assessment Authority
and
http://www.vcaa.vic.edu.au/vce/studies/infotech/softwaredevel3-4.html
http://www.vitta.org.au  - VITTA Victorian Information Technology Teachers
Association Inc
http://www.swinburne.edu.au/ict/schools - Swinburne University




-- 
Mark Kelly
Manager of ICT, Reporting, IT Learning Area
McKinnon Secondary College
McKinnon Rd McKinnon 3204, Victoria, Australia
Direct line / Voicemail: +613 8520 9085, Fax +613 9578 9253
kel at mckinnonsc.vic.edu.au (don't use my Edumail account!)
VCE IT Lecture Notes: http://vceit.com
Moderator: IT Applications Edulist

--
An E-flat, a C, and a G go into a bar. The bartender says, "I'm sorry, but I
can't serve minors."



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.edulists.com.au/pipermail/sofdev/attachments/20120507/6e9e69a3/attachment-0001.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/png
Size: 7858 bytes
Desc: not available
Url : http://www.edulists.com.au/pipermail/sofdev/attachments/20120507/6e9e69a3/attachment-0001.png