با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

امروز با قطعه کدی کاربردی دیگر در خدمتتون هستیم  امیدوارم مطلب فوق مورد قبول شما قرار گیرد .

✅ نمایش ToastMessage در جای دلخواه :

 

Sub ShowToastAt(x As Int, y As Int, text As String, longDuration As Boolean)

  Dim duration As Int
  If longDuration = True Then
  duration = 1
  Else
  duration = 0
  End If
   Dim ctxt As JavaObject
   ctxt.InitializeContext
  Dim toastJO As JavaObject
  toastJO = toastJO.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, text, duration))
  toastJO.RunMethod("setGravity", Array(Bit.OR(Gravity.TOP, Gravity.LEFT), x, y))
  toastJO.RunMethod("show", Null)

End Sub