Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("1")
NavControl.ShowPage(Page1)
SetImageItems(SegmentedControl1, Array (LoadBitmap(File.DirAssets, "image1.png"), _
LoadBitmap(File.DirAssets, "image2.png")))
End Sub
Sub SegmentedControl1_IndexChanged (Index As Int)
Log(Index)
End Sub
Sub SetImageItems(sc As SegmentedControl, Images As List)
Dim no As NativeObject = sc
no.RunMethod("removeAllSegments", Null)
Dim index As Int = 0
For Each bmp As Bitmap In Images
no.RunMethod("insertSegmentWithImage:atIndex:animated:", _
Array(bmp, index, False))
index = index + 1
Next
End Sub
SetImageItems(segmentedcontrol1, Array KeepOriginalColors(LoadBitmap(File.DirAssets, "image1.png"), _
LoadBitmap(File.DirAssets, "image2.png"),LoadBitmap(File.DirAssets, "image3.png")))
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("1")
NavControl.ShowPage(Page1)
SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley.png"))))
End Sub
Sub KeepOriginalColors(bmp As Bitmap) As Bitmap
Dim no As NativeObject = bmp
Return no.RunMethod("imageWithRenderingMode:", Array(1))
End Sub
SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley.png"),LoadBitmap(File.DirAssets, "smiley2.png"))))
SetImageItems(segmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _
Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )
SetImageItems(segmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _
(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )
SetImageItems(segmentedControl1, Array( _
KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley1.png"))), _ '
(KeepOriginalColors(LoadBitmap(File.DirAssets, "smiley2.png"))) )
SetImageItems(SegmentedControl1, Array(KeepOriginalColors(LoadBitmap(File.DirAssets, "landes.png"))), _ '
(KeepOriginalColors(LoadBitmap(File.DirAssets, "autour_moi.png"))), _ '
(KeepOriginalColors(LoadBitmap(File.DirAssets, "pays_basque.png"))))