دستور بسته شدن گیبرد وقتی روی صفحه کلیک میکنیم

[arastooms 1,046]

سلام بچه ها 
من دارم ساخت یک دیکشنری رو تجربه میکنم و نیاز به کمک دارم 
اومدم گفتم روی تکس ادیک کلیک شد لغت رو بگیر که اتوماتیک کیبرد دستگاه بازمیشه
خوب درست لغت رو وارد میکنم و همزمان در لیست ویو زیرش بازخونی میشه!!
ولی بعدش برای دیدن همه لیست ویو باید دکمه بک گوشی رو بزنم که کیبرد رو ببنده
در صورتی که میخام " وقتی روی لیست ویو که یه مقداریش مشخصه کلیک شد اتوماتیک کیبرد رو ببنده و وقتی که کاربر دوباره تو تکس باکس کلیک کرد باز بشه"

عکس هم هست که میبینید 

متشکر

 

[Elyas Erfani 3,582]

سلام واسه بسته شدن کیبورد

کتابخانه Phone رو فعال کنید

و بعد با دستور :

Dim p As Phone

p.HideKeyboard

کیبرد رو ببندید

[arastooms 1,046]

سلام واسه بسته شدن کیبورد

کتابخانه Phone رو فعال کنید

و بعد با دستور :

Dim p As Phone

p.HideKeyboard

کیبرد رو ببندید

مرسی 

چه طورب بگم اگر کیبرد بازه ؟

ببندش؟

یعنی دستور if که چک کنه اگر بازه بعد بیاد 

دستور بالا رو استفاده کنم 

در ضمن تست کردم کاملا عمل میکنه 

فقط دستوری هست که بگه اگر اسکرول کرد کیبرد رو ببند ؟ 

به جای کلیک کردن که بالا در ساب کلیک نوشتم 

یعنی میتونم یه ساب تعریف کنم برای اسکرول 

بگم وقتی اسکرئل شد ......این کار رو انجام بده؟

تشکر 

[Elyas Erfani 3,582]

تست بفرمایید

Dim ref As Reflector

ساب زیر رو‌ایجاد کنید :

Sub HardwareKeyboardPresent As Boolean
ref.Target = ref.GetContext
ref.Target = ref.RunMethod("getResources")
ref.Target = ref.RunMethod("getConfiguration")
Dim keyboard As Int = ref.GetField("keyboard")
Return keyboard <> 1 'KEYBOARD_NOKEYS - return true if keyboard, else return false
End Sub

حالا اینجوری تست کنید

If KeyboardPresent = False Then
'کیبورد مخفیه
Else If KeyboardPresent = True Then
'کیبورد بازه
End If

[arastooms 1,046]

تست بفرمایید

Dim ref As Reflector

ساب زیر رو‌ایجاد کنید :

Sub HardwareKeyboardPresent As Boolean

ref.Target = ref.GetContext

ref.Target = ref.RunMethod("getResources")

ref.Target = ref.RunMethod("getConfiguration")

Dim keyboard As Int = ref.GetField("keyboard")

Return keyboard <> 1 'KEYBOARD_NOKEYS - return true if keyboard, else return false

End Sub

حالا اینجوری تست کنید

If KeyboardPresent = False Then

'کیبورد مخفیه

Else If KeyboardPresent = True Then

'کیبورد بازه

End If

متاسفانه نتونستم کد رو سوار کنم تو اکتیویتی 

ممکنه در باکس کد نویسی منتقل کنید تا از تایپش شاید متوجه بشم 

مرسی

[Elyas Erfani 3,582]

متاسفانه نتونستم کد رو سوار کنم تو اکتیویتی 

ممکنه در باکس کد نویسی منتقل کنید تا از تایپش شاید متوجه بشم 

مرسی

عذر میخوام من با موبایلم نمیتونمم از تگ کد استفاده کنم پستو شهاب جان وبرایش کردن دوباره کدارو وارد کنید

[arastooms 1,046]

عذر میخوام من با موبایلم نمیتونمم از تگ کد استفاده کنم پستو شهاب جان وبرایش کردن دوباره کدارو وارد کنید

دوست عزیز شما لطف میکنید 

من باید تشکر کنم که مزاحم شما میشم من رو با عذرخواهی خودتون شرمنده نکنید 

//////////////////

من کد رو وارد کردم و کار میکنه 

ولی این کد رو که گفتید در 

If KeyboardPresent = False Then

'کیبورد مخفیه

Else If KeyboardPresent = True Then

'کیبورد بازه

End If

 

در ساب لیست ویو کلیک دادم و مثلما با کلیک در لیست ویو عمل کرده .....

/////////////////

فکر کنم بایددر ساب اکتیویتی وارد کنم که وقتی کار بر دستش رو برای اسکرول کردن در اکتیویتی روی شیشه نمایشگر میکشه عمل کنه؟؟؟

درسته 

/////////////////

در ضمن فکر کنم این کد 

If KeyboardPresent = False Then

'کیبورد مخفیه

Else If KeyboardPresent = True Then

'کیبورد بازه

End If

 

باید بشه 

If HardwareKeyboardPresent  = False Then

'کیبورد مخفیه

Else If HardwareKeyboardPresent  = True Then

'کیبورد بازه

End If

 

 

[Elyas Erfani 3,582]

قربان شما

ببینید دیگه کدرو بسته به نیازتون در ساب مورد نظر بنویسید

میتونید در Activity Touch یا در Scroll_Changed اسکرول ویو بنویسید که بیاد و چک کنه

[arastooms 1,046]

قربان شما

ببینید دیگه کدرو بسته به نیازتون در ساب مورد نظر بنویسید

میتونید در Activity Touch یا در Scroll_Changed اسکرول ویو بنویسید که بیاد و چک کنه

سلام  تشکر از شما بابت راهنمایی 

ممکنه نمونه کد ساب رو  در قسمت  Scroll_Changed به من بگید چه طور باید این ساب رو نوشت؟

در واقع فرمان ها رو بلد نیستم

مثلا وقتی  Scroll_Changed اتفاق می افته یه مسیج بده اسکرول شد!!!

/////////////////

البته تشکر میکنم و میدونم کسی وظیفه نداره من رو راهنمایی کنه و اگر این کار رو انجام میده لطف و محبت خودش رو میرسونه

باز هم متشکر

 

[Elyas Erfani 3,582]

سلام قربان شما شما لطف دارید

 

اول ک میاید اسکرول ویو رو معرفی میکنید 

Private ScrollView1 As ScrollView

بعدش ساب زیر رو ایجاد میکنیم ک هر وقت کاربر اسکرول ویو رو بالا یا پایین داد ی مسیج نمایش داده بشه :

Sub ScrollView1_ScrollChanged(Position As Int)
	Msgbox("Shoma ScrollView Ro Taqiir Dadid" , "")
End Sub

[arastooms 1,046]

 

سلام قربان شما شما لطف دارید

 

اول ک میاید اسکرول ویو رو معرفی میکنید 

Private ScrollView1 As ScrollView

بعدش ساب زیر رو ایجاد میکنیم ک هر وقت کاربر اسکرول ویو رو بالا یا پایین داد ی مسیج نمایش داده بشه :

Sub ScrollView1_ScrollChanged(Position As Int)
	Msgbox("Shoma ScrollView Ro Taqiir Dadid" , "")
End Sub

سلام و تشکر از شما بابت راهنمایی

البته من لیست ویو داشتم که " ساب لیست ویو " ایجاد کردم  و متاسفانه کار نکرد 

من عکی رو زمیمه میکنم ببینید 

من یه لیست ویو دارم میخام بالا یا پایین میکنم لیست رو بهم یه پیام بده " مهم نیست جهتش چی باشه چه بالا و چه پایین " ولی کلیک نمیخام باشه چون برای کلیک یه ساب دیگه دارم و کار دیگه ای میکنه 

مرسی

[Elyas Erfani 3,582]

اینی ک شما میگید باید از Costum ListView استفاده کنید

 

داخل انجمن جست و جو بفرمایید هست

[arastooms 1,046]

اینی ک شما میگید باید از Costum ListView استفاده کنید

 

داخل انجمن جست و جو بفرمایید هست

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

ولی جایی رو ندیدم که دستوری برای این باشه که 

وقتی لیست ویو رو اسکرول میکنی بتونی فرمانی بدی " 

شما الگر لینکی مد نظر ندارید میشه راهنمایی کنید 

متشکر