Cheers - Helps keep the spammers at bay !
--
OHM ( Terry Burns )
. . . One-Handed-Man . . .
Use the following to email me
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Debug.WriteLine(ob("ufssz/cvsotAhsfbuTpmvujpotXjui/OFU", False))
End Sub
Private Function ob(ByVal email As String, ByVal inc As Boolean) As
String
Dim ch() As Char
Dim i As Int32
Dim stepValue As Int16
If inc Then stepValue = 1 Else stepValue = -1
ch = email.ToCharArray()
For i = 0 To ch.Length - 1
ch(i) = Convert.ToChar(Convert.ToInt16(ch(i)) + stepValue)
Next
Return New String(ch)
End Function
Time flies when you don't know what you're doing
"Nak" <a@a.com> wrote in message
news:ud4p7CjqEHA.1712@tk2msftngp13.phx.gbl...[color=blue]
> LOL!, I love your footer!
>
> Nick.
>
> "One Handed Man ( OHM - Terry Burns )" <news.microsoft.com> wrote in[/color]
message[color=blue]
> news:uwXyGliqEHA.2588@TK2MSFTNGP12.phx.gbl...[color=green]
> >
http://visualbasic.about.com/library.../aa081703a.htm
> >
> > --
> >
> > OHM ( Terry Burns )
> > . . . One-Handed-Man . . .
> >
> > Use the following to email me
> >
> > Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
> > System.EventArgs) Handles Button1.Click
> >
> > Debug.WriteLine(ob("ufssz/cvsotAhsfbuTpmvujpotXjui/OFU", False))
> >
> > End Sub
> >
> > Private Function ob(ByVal email As String, ByVal inc As Boolean) As
> > String
> >
> > Dim ch() As Char
> > Dim i As Int32
> > Dim stepValue As Int16
> >
> > If inc Then stepValue = 1 Else stepValue = -1
> >
> > ch = email.ToCharArray()
> >
> > For i = 0 To ch.Length - 1
> > ch(i) = Convert.ToChar(Convert.ToInt16(ch(i)) + stepValue)
> > Next
> >
> > Return New String(ch)
> >
> > End Function
> >
> >
> > Time flies when you don't know what you're doing
> >
> > "CJ Taylor" <[cege] at [tavayn] dit commmmm> wrote in message
> > news:e0TypciqEHA.2612@TK2MSFTNGP15.phx.gbl...[color=darkred]
> >> Wow....
> >>
> >> take that spammers...
> >>
> >> =)
> >>
> >>
> >> "One Handed Man ( OHM - Terry Burns )" <news.microsoft.com> wrote in[/color]
> > message[color=darkred]
> >> news:%23EawQWiqEHA.3988@tk2msftngp13.phx.gbl...
> >> > Standard does not have the template for a class library, but I[/color][/color][/color]
thought[color=blue][color=green]
> > you[color=darkred]
> >> > can still create a class library.
> >> >
> >> > --
> >> >
> >> > OHM ( Terry Burns )
> >> > . . . One-Handed-Man . . .
> >> >
> >> > Use the following to email me
> >> >
> >> > Private Sub Button1_Click(ByVal sender As System.Object, ByVal e[/color][/color][/color]
As[color=blue][color=green][color=darkred]
> >> > System.EventArgs) Handles Button1.Click
> >> >
> >> > Debug.WriteLine(ob("ufssz/cvsotAhsfbuTpmvujpotXjui/OFU",
> >> > False))
> >> >
> >> > End Sub
> >> >
> >> > Private Function ob(ByVal email As String, ByVal inc As Boolean)[/color][/color][/color]
As[color=blue][color=green][color=darkred]
> >> > String
> >> >
> >> > Dim ch() As Char
> >> > Dim i As Int32
> >> > Dim stepValue As Int16
> >> >
> >> > If inc Then stepValue = 1 Else stepValue = -1
> >> >
> >> > ch = email.ToCharArray()
> >> >
> >> > For i = 0 To ch.Length - 1
> >> > ch(i) = Convert.ToChar(Convert.ToInt16(ch(i)) +[/color][/color][/color]
stepValue)[color=blue][color=green][color=darkred]
> >> > Next
> >> >
> >> > Return New String(ch)
> >> >
> >> > End Function
> >> >
> >> >
> >> > Time flies when you don't know what you're doing
> >> >
> >> > "CJ Taylor" <[cege] at [tavayn] dit commmmm> wrote in message
> >> > news:eyvv1%23hqEHA.1960@TK2MSFTNGP10.phx.gbl...
> >> > > Standard cannot create DLL's.
> >> > >
> >> > > Otherwise, it would be listed as Class Library...
> >> > >
> >> > >
> >> > > "Nick" <NickNickNick@freenet.de> wrote in message
> >> > > news:eJR$P2hqEHA.536@TK2MSFTNGP11.phx.gbl...
> >> > > > I am stuck with a very basic issue.
> >> > > > I try to create a dll with VB.NET. I find in the documentation[/color][/color][/color]
that[color=blue][color=green]
> > I[color=darkred]
> >> > > should
> >> > > > be able to set that up in the project property dialog:
> >> > > > Common Properties - General - Output Type.
> >> > > > It gives me "Windows Application" and "Console Application" but[/color][/color][/color]
not[color=blue][color=green][color=darkred]
> >> "dll
> >> > > > library".
> >> > > >
> >> > > > When I create a new project, I have 5 choices:
> >> > > > - Windows Application
> >> > > > - Console Application
> >> > > > - ASP.NET Web Application
> >> > > > - ASP.NET Web Service
> >> > > > - ASP.NET Mobile WebApplication
> >> > > >
> >> > > > again, no DLL library project. Am I missing something?
> >> > > >
> >> > > > (I am using VB.net Standard - is the dll option not included[/color][/color][/color]
here?)[color=blue][color=green][color=darkred]
> >> > > >
> >> > > > Thanks for help...
> >> > > > Nick
> >> > > >
> >> > > >
> >> > >
> >> > >
> >> >
> >> >
> >>
> >>[/color]
> >
> >[/color]
>
>[/color]