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

 

با کتابخونه IME که داخل سورسی که قرار دادم و آموزشش هست:

 

آموزش: https://www.b4x.com/android/forum/threads/handle-the-soft-keyboard-with-the-ime-library.14832/#post84108

 

سورس: https://www.b4x.com/android/forum/attachments/ime-zip.17655/

 

کافیه دو خط زیر رو به اکتیویتی کرییت اضاف کنید:

 

IME1.Initialize("IME1")
IME1.AddHeightChangedEvent

 

الان این ساب قابل استفاده هست:

 

Sub IME1_HeightChanged(NewHeight As Int, OldHeight As Int)
	If OldHeight > NewHeight Then 'کیبورد باز شده
    		Dim KeyboardHeight As Int = OldHeight - NewHeight 'ارتفاع کیبورد اگر لازمتون شد
    	End If
End Sub