focus with the text selected

[Randi]

I have this program that you enter a year in the text box and it returns
either a true or false in the picture box based on if it is a leap year or
not. The program works fine but I need to return focus to the text box with
the old text selected. Any answers on how to do this. My code is below.

Thanks,
Kelsey

Private Sub Command1_Click()

If IsNumeric(txtInput.Text) Then
If IsLeapYear(txtInput.Text) Then
picOutput.Cls
picOutput.Print "True"

Else
picOutput.Cls
picOutput.Print "False"

End If
Else
MsgBox ("Enter in a Year")
picOutput.Cls
txtInput.Text = " "
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Here is the module--

Public Function IsLeapYear(Yr As Integer) As Boolean
IsLeapYear = False

If Yr Mod 4 = 0 Then
IsLeapYear = True
If Yr Mod 100 = 0 Then
If (Yr Mod 400) Then IsLeapYear = False
End If
End If
End Function

[Randy Birch]

in the gotfocus event of the textbox, put:

with txtInput
.selstart = 0
.sellength = len(.text)
end with

.... then just place a

txtInput.SetFocus

.... in the appropriate point in the code.

--

Randy Birch
MVP Visual Basic
http://www.mvps.org/vbnet/
Please respond only to the newsgroups so all can benefit.
"Randi" <RS******@stny.rr.com> wrote in message
news:gg*******************@twister.nyroc.rr.com...
: I have this program that you enter a year in the text box and it returns
: either a true or false in the picture box based on if it is a leap year or
: not. The program works fine but I need to return focus to the text box
with
: the old text selected. Any answers on how to do this. My code is below.
:
: Thanks,
: Kelsey
:
: Private Sub Command1_Click()
:
: If IsNumeric(txtInput.Text) Then
: If IsLeapYear(txtInput.Text) Then
: picOutput.Cls
: picOutput.Print "True"
:
: Else
: picOutput.Cls
: picOutput.Print "False"
:
: End If
: Else
: MsgBox ("Enter in a Year")
: picOutput.Cls
: txtInput.Text = " "
: End If
: End Sub
:
: Private Sub Command2_Click()
: End
: End Sub
:
: Here is the module--
:
: Public Function IsLeapYear(Yr As Integer) As Boolean
: IsLeapYear = False
:
: If Yr Mod 4 = 0 Then
: IsLeapYear = True
: If Yr Mod 100 = 0 Then
: If (Yr Mod 400) Then IsLeapYear = False
: End If
: End If
: End Function
:
:

[Randi]

Randy,
Thank You, Thank You....

Kelsey

"Randy Birch" <rg************@mvps.org> wrote in message
news:9u****************@news04.bloor.is.net.cable. rogers.com...

in the gotfocus event of the textbox, put:

with txtInput
.selstart = 0
.sellength = len(.text)
end with

... then just place a

txtInput.SetFocus

... in the appropriate point in the code.

--

Randy Birch
MVP Visual Basic
http://www.mvps.org/vbnet/
Please respond only to the newsgroups so all can benefit.
"Randi" <RS******@stny.rr.com> wrote in message
news:gg*******************@twister.nyroc.rr.com...
: I have this program that you enter a year in the text box and it returns
: either a true or false in the picture box based on if it is a leap year or : not. The program works fine but I need to return focus to the text box
with
: the old text selected. Any answers on how to do this. My code is below. :
: Thanks,
: Kelsey
:
: Private Sub Command1_Click()
:
: If IsNumeric(txtInput.Text) Then
: If IsLeapYear(txtInput.Text) Then
: picOutput.Cls
: picOutput.Print "True"
:
: Else
: picOutput.Cls
: picOutput.Print "False"
:
: End If
: Else
: MsgBox ("Enter in a Year")
: picOutput.Cls
: txtInput.Text = " "
: End If
: End Sub
:
: Private Sub Command2_Click()
: End
: End Sub
:
: Here is the module--
:
: Public Function IsLeapYear(Yr As Integer) As Boolean
: IsLeapYear = False
:
: If Yr Mod 4 = 0 Then
: IsLeapYear = True
: If Yr Mod 100 = 0 Then
: If (Yr Mod 400) Then IsLeapYear = False
: End If
: End If
: End Function
:
:

[3dfibster]

"Randi" <RS******@stny.rr.com> wrote in message news:<gg*******************@twister.nyroc.rr.com>. ..

I have this program.. if it is a leap year or
not. Here is the module--

Public Function IsLeapYear(Yr As Integer) As Boolean
IsLeapYear = False

If Yr Mod 4 = 0 Then
IsLeapYear = True
If Yr Mod 100 = 0 Then
If (Yr Mod 400) Then IsLeapYear = False
End If
End If
End Function

I think you are missing an "else" in there somewhere..
I'd rather be playing backgammon..
http://anzwers.org/free/3dfibs

3dfibster

[Randy Birch]

No, that works.

--

Randy Birch
MVP Visual Basic
http://www.mvps.org/vbnet/
Please respond only to the newsgroups so all can benefit.
"3dfibster" <3d****@excite.com> wrote in message
news:27************************@posting.google.com ...
: "Randi" <RS******@stny.rr.com> wrote in message
news:<gg*******************@twister.nyroc.rr.com>. ..
: > I have this program.. if it is a leap year or
: > not.
:
: > Here is the module--
: >
: > Public Function IsLeapYear(Yr As Integer) As Boolean
: > IsLeapYear = False
: >
: > If Yr Mod 4 = 0 Then
: > IsLeapYear = True
: > If Yr Mod 100 = 0 Then
: > If (Yr Mod 400) Then IsLeapYear = False
: > End If
: > End If
: > End Function
:
: I think you are missing an "else" in there somewhere..
:
:
: I'd rather be playing backgammon..
: http://anzwers.org/free/3dfibs
:
: 3dfibster

[Joe \Nuke Me Xemu\ Foster]

"3dfibster" <3d****@excite.com> wrote in message <news:27************************@posting.google.co m>...

"Randi" <RS******@stny.rr.com> wrote in message news:<gg*******************@twister.nyroc.rr.com>. ..

Public Function IsLeapYear(Yr As Integer) As Boolean
IsLeapYear = False

If Yr Mod 4 = 0 Then
IsLeapYear = True
If Yr Mod 100 = 0 Then
If (Yr Mod 400) Then IsLeapYear = False
End If
End If
End Function

I think you are missing an "else" in there somewhere..

Actually, it's fine. I'd want to rewrite it, though:

Public Function IsLeapYear(ByVal Yr As Integer) As Boolean
IsLeapYear = (Day(DateSerial(Yr, 3, 0)) = 29)
End Function

Alternatively, assuming the current rules will never change:

Public Function IsLeapYear(ByVal Yr As Integer) As Boolean
Debug.Assert Yr >= 100 And Yr <= 9999

If Yr Mod 4 > 0 Then
IsLeapYear = False

ElseIf Yr Mod 100 > 0 Then
IsLeapYear = True

ElseIf Yr Mod 400 > 0 Then
IsLeapYear = False

Else ' Yr Mod 400 = 0
IsLeapYear = True
End If
End Function

--
Joe Foster <mailto:jlfoster%40znet.com> Sacrament R2-45 <http://www.xenu.net/>
WARNING: I cannot be held responsible for the above They're coming to
because my cats have apparently learned to type. take me away, ha ha!