Italian IMLibrary v1.02- ToolBar Horizzontal

djveleno said:

Hi Rolf, the link work fine.

Click to expand...

rbsoft said:

Well, my Italian is from Google Translator. I always wanted to learn Italian because it is such a beautiful language. And I love Italian Music and Italian food. I am learning the food faster than the language...

Beh, il mio italiano è da Google Translator. Ho sempre voluto imparare l'italiano perché è una bella lingua tale. E io amo musica italiana e il cibo italiano. Sto imparando il cibo più veloce della lingua ...

Click to expand...

djveleno said:

Io ho appena scaricato lo zip.... poi vedi tu!!!

Click to expand...

djveleno said:

Giusto per evitare problemi, ecco i file di libreria, l'esempio non posso postarlo per la grandezza del file che eccede i 500 Kb

Click to expand...

ivanomonti said:

so in effetti il problema e questo il limite di 500k

ma in facebook gruppo trovate tutto, qui posto il codice esempio

B4X:

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
    Dim imt1 As ClassMyToolBar
    Dim imt2 As ClassMyToolBar
    Dim imt3 As ClassMyToolBar
    Dim imb As ClassMyButton
    Dim btn1(10),btn2(5),btn3(23) As Button
    Dim col(2) As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    imb.Initialize
    imt1.Initialize("tb01")
    imt2.Initialize("tb02")
    imt3.Initialize("tb03")
    col(0) = Colors.Red
    col(1) = Colors.black
    NewButton(btn1,9)
    imt1.ToolBar(Activity,0,80dip,btn1,col)
    NewButton(btn2,4)
    imt2.ToolBar(Activity,1,80dip,btn2,col)
    NewButton(btn3,22)
    imt3.ToolBar(Activity,2,80dip,btn3,col)
    Activity.AddMenuItem("New tb1","tbn1")
    Activity.AddMenuItem("New tb2","tbn2")
    Activity.AddMenuItem("New tb3","tbn3")
    Activity.AddMenuItem("Hide tb1","tb1")
    Activity.AddMenuItem("Hide tb2","tb2")
    Activity.AddMenuItem("Hide tb3","tb3")
    Activity.AddMenuItem("Delete tb1","tbd1")
    Activity.AddMenuItem("Delete tb2","tbd2")
    Activity.AddMenuItem("Delete tb3","tbd3")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub tbn1_Click
    Dim btn1(10) As Button
    NewButton(btn1,9)
    If imt1.IsInitialized = True Then
        imt1.ClearToolBar()
    End If
    imt1.Initialize("tb01")
    imt1.ToolBar(Activity,0,80dip,btn1,col)
End Sub

Sub tbn2_Click
    Dim btn2(5) As Button
    NewButton(btn2,4)
    If imt2.IsInitialized = True Then
        imt2.ClearToolBar()
    End If
    imt2.Initialize("tb02")
    imt2.ToolBar(Activity,1,80dip,btn2,col)
End Sub

Sub tbn3_Click
    Dim btn3(23) As Button
    NewButton(btn3,22)
    If imt3.IsInitialized = True Then
        imt3.ClearToolBar()
    End If
    imt3.Initialize("tb03")
    imt3.ToolBar(Activity,2,80dip,btn3,col)
End Sub

Sub tb1_Click
    imt1.HideToolBar()
End Sub

Sub tb2_Click
    imt2.HideToolBar()
End Sub

Sub tb3_Click
    imt3.HideToolBar()
End Sub

Sub tbd1_Click
    imt1.ClearToolBar()
End Sub

Sub tbd2_Click
    imt2.ClearToolBar()
End Sub

Sub tbd3_Click
    imt3.ClearToolBar()
End Sub

Sub NewButton(btn() As Button, x As Int)
    Dim s As String = "iVBORw0KGgoAAAANSUhEUgAAAFAAAABQCAYAAACOEfKtAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAANHSURBVHhe7ZkvUBVRFMYJhBeIhBcIBIOBYDAYCASCgUAgEAwEg8FAMBAIzhANBoOBQDAQCASDwWAgGAwGg4FgIBAMBgKBGR6/73J2Zfft8t6TIne/38yZu+ecuzvzndk/596dMsYYY4wxxhhjjDHGGGOMMcYYY0yHuLy83B4MBovhmkmgcBvYgCKeYWsR7gYSjPbXjAfYd+xJpBL4c+Snwx2C3DJzLlRAoWtEqhtIcGgvWIpUgvwhdkxcd1mlkMQXsLN0FugYexDp/EDjNDYTbgLB68S2GNewBY57kUoQOyKW4PgYe6w4bp/jk+tMyWo6KUcQN41gPaa7ERobFYbz9Hj/4LiHzchnLMHfien5gb5UvBCqR64fqYngvNm41kddqwD/M0Pre/Leg8D9EKri3anV4Brvda0CfD3Gs5HOEwQuIfQn452Kx/lbWAWuux5pcxsUSu3OEMQPYkp3QPdE7yvmL1Ko81SxAH8f+4NdYHm2LuistCwFCFZrMtbjzLyHzP+tohXg6wusL/Fb5bBnMT0vEPapEBshFWQ1ijDyg0JevZ7enSX4uuvSHYerlibrr++JBIebwC/7N45bi0i8R75soguIrcSU/AnBR+GWd99N2opIPPWNNyGWb7PcRIj+Em4qIH658C+oFxH/zXXmL8RubZbJ/VNz/l+DqPm6MArxgtgQRRGb8sR+MTQ2y8SLd2rlVZE1iN2R6DoqIla5Q/HPsbSB0AS5zZj3LULdAMF7qUIjYN7zOKUR8sUae+JNinsB2mawoXeXYoiubArUUZFjeivM0eMtliOUD4h7h2kFsRGhCsTVDH9N8msQV7tT2Rtsg3mLWH79IKKKfxXaUW4USLyxWWaYjyndhSLoMVXxRONdKMiVyzVGrW2fRsqocBTklLHyr6MO+fRzCHsZoVaYo+3/Xc5pXGtnBSL1H2SsDU/mjdxgiOKlVocxz02EUYxb0DqcV/7CZNyMcLdA+yMVATvUcYTHgvn64Jx2tnhC4rGbm6NbkSohNs+cFewVNhfhBLn81ryToiJQGG2GaplWeY/hV1Yo+NuRMnWoTx+r/2jfw7Rpqp/oH7Du7P8ZY4wxxhhjjDHGGGOMMcYYY4wxeTA1dQVymt3Z6DpdRgAAAABJRU5ErkJggg=="
    Dim btm As Bitmap
    btm.Initialize3(imb.Base64StringToImage(s))
    For i=0 To x
        Dim bt As Button
        bt.Initialize("bt")
        bt.Tag = i
        bt.Text = i
        bt.SetBackgroundImage(btm)
        btn(i)=bt
    Next
End Sub

Click to expand...

wizard699 said:

Scusatemi, quale è il link del gruppo su FB?

Click to expand...