On Fri, 2013-11-08 at 10:37 +0100, Alain Baudrez wrote:
> Hoi,
>
> put those in a class
>
> ' Gambas class file : clsVerion
> ' Version Info
> '
> ' Call as follows:
> ' DIM cVersion as new clsVersion
> '
> ' Print cVersion.VersionMajor & "." & cVersion.VersionMinor & " Build # " &
> cVersion.Build
> '
> Property Read Version ' Full version eg. 1.2.39
> Property Read VersionMajor As String ' Major part eg. 1
> Property Read VersionMinor As String ' Minor Part eg. 2
> Property Read VersionSmall As String ' Major and Minor eg. 1.2
> Property Read Build As String ' Revision eg. 39
>
> Private Versie As String
>
> Public Sub _new()
>
> Versie = Application.Version
>
> End
>
> Private Function Version_Read() As String
>
> Return Versie
>
> End
>
> Private Function VersionMajor_Read() As String
>
> Return Left(Versie, InStr(Versie, ".") - 1)
>
> End
>
> Private Function VersionMinor_Read() As String
>
> Return Mid(versie, InStr(Versie, ".") + 1, RInStr(Versie, ".") -
> InStr(Versie, ".") - 1)
>
> End
>
> Private Function Build_Read() As String
>
> Return Right(Versie, RInStr(Versie, ".") - 2)
>
> End
>
> Private Function VersionSmall_Read() As String
>
> Return Left(Versie, RInStr(Versie, ".") - 1)
>
> End
> ' ============= End of Class =============
>
>
>
>
> *Alain J. Baudrez*
> a.baud...@gmail.com
> Tel: +32(0)486485080
>
> *Personal Homepage:* http://baudrez.be
> http://facebook.com/abaudrez - http://twitter.com/abaudrez -
> http://about.me/abaudrez
> Webmaster cibliga.be - dierenartsrogiest.be
>
>
>
> 2013/11/8 Riaan Pretorius <pretorius.ri...@gmail.com>
>
> > Good Day,
> >
> > I was wondering if the equivalent of App.Major (vb6) exists in Gambas?
> >
> > Example:
> >
> > ' Visual Basic 6.0
> >
> > Label1.Caption = "Version: " & App.Major & "." & App.Minor & "." _
> >
> > & App.Revision
> >
> >
> > Riaan
> >
Ow Alain, my poor fingers!
How about just
Application.Version.Split(".")[0] ' for the major
Application.Version.Split(".")[1] ' for the minor
Application.Version.Split(".")[2] ' for the revision
or for your OP's example
Label1.Caption = "Version: " & Application.Version
:-)
Bruce
------------------------------------------------------------------------------
November Webinars for C, C++, Fortran Developers
Accelerate application performance with scalable programming models. Explore
techniques for threading, error checking, porting, and tuning. Get the most
from the latest Intel processors and coprocessors. See abstracts and register
http://pubads.g.doubleclick.net/gampad/clk?id=60136231&iu=/4140/ostg.clktrk
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
