[บทเรียน,B4X]การเปลี่ยนไอคอนของMainPage

[Theera]

วิธีที่1 Sabotto

#Region Project Attributes
   
    #PackagerProperty: IconFile = ..\Files\icona200.ico
   
#End Region

วิธีที่2 Aeric

Sub B4XPage_Appear
    ShowHideIcon(True)
    txtUser.Text = ""
End Sub

Sub B4XPage_Disappear
    ShowHideIcon(False)
End Sub

Sub ShowHideIcon (Show As Boolean)
    Dim StdAB As StdActionBar
    StdAB.Initialize("StdAB")
    If Show Then
        Dim AndroidResources1 As AndroidResources
        Dim Mydrawable1 As BitmapDrawable
        Mydrawable1 = AndroidResources1.GetApplicationDrawable("icon")
        StdAB.Icon = Mydrawable1.Bitmap
    Else
        StdAB.Icon = Null
        StdAB.ShowUpIndicator = False
    End If

End Sub

วิธีที่3 Klaus
แก้ไขที่ B4J. เลือกเมนู Project>Choose Icon