[mojtaba212]

من کدتو ندیدم
میتونی از کد زیر :
Sub Wait(MilliSekunden As Int)
   Dim Ti As Long
   Ti = DateTime.Now + MilliSekunden
   Do While DateTime.Now < Ti
      DoEvents
   Loop
End Sub
یه وقفه وقتی از دیتابیس داری get میکنی بنداز
وگرنه همه با هم بخوای get کنی و بخونی معلومه که هنگ میکنه

 

 

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


 

[Rezash]

سلام.اگر می شود یک نفر به من کمک کند.

می خواهم یک صفحه باش د که در آن یک دکمه باشد و با کلیک بر روی آن دکمه به صفحه ای برویم که اسکرولی که پایین و بالا می آید باشد که در آن متنی باشد.حتی یک کلمه.

واقعا از دوستان عزیز می خواهم که با پنج دقیقه وقت گذاری این پروژه را درست کرده و در اختیار من قرار دهند.

[mojtaba212]

درود .اگر می شود یک نفر به من کمک کند.

می خواهم یک صفحه باش د که در آن یک دکمه باشد و با کلیک بر روی آن دکمه به صفحه ای برویم که اسکرولی که پایین و بالا می آید باشد که در آن متنی باشد.حتی یک کلمه.

واقعا از دوستان عزیز می خواهم که با پنج دقیقه وقت گذاری این پروژه را درست کرده و در اختیار من قرار دهند.

 

دوست عزیز برای هرصفحه باید یه ماژول یا اکتیویتی درست کنی
بعد از ساخت اکتیویتی دوم که درونش اسکرول رو داری و حالا متن یا هر ویو دیگه ای
تو قسمت کلیک باتومتون دستور :

کد پی‌اچ‌پی:

startactivity("نام ماژول یا اکتیویتی که اسکرول درونش قرار داره") 


استفاده کنید.
اگر کارت راه نیافتاد بگو تا سمپل بزارم.


 

[Rezash]

ممنون میشم اگه یک سمپل برام بذارین.

[Rezash]

مشکلم در رابطه با انتقال صفحه رفع شد.اما مشکل اصلی که دارم همان اسکرول که یک متن درون آن باشد.

[mojtaba212]

مشکلم در رابطه با انتقال صفحه رفع شد.اما مشکل اصلی که دارم همان اسکرول که یک متن درون آن باشد.

 

برای قراردادن متن یا هر ویو دیگه ای از قبیل باتون و ادیت تکست و ... در اسکرول از فرمان زیر استفاده کنید:

کد پی‌اچ‌پی:

scrollview1.panel.addview(lbl1,left,top,width,height)

lbl1 :  نام لیبل یا هر ویو دیگر

left :  محل قرار گیری در اسکرول (فاصله از سمت چپ

top :  محل قرار گیری در اسکرول (فاصله از بالا

width : عرض لیبل یا هر ویو دیگر

height : طول لیبل یا هر ویو دیگر 


 

[majid20100]

سلام چطوری می تونم یک لیست بسازم که بشه روی هر موضوع کلیک کرد و بعد از کلیک متن ها به نمایش بیاد.

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

[mojtaba212]

درود چطوری می تونم یک لیست بسازم که بشه روی هر موضوع کلیک کرد و بعد از کلیک متن ها به نمایش بیاد.

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

 

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

کد پی‌اچ‌پی:

listview1.addsingleline("متنی که  نمایش داده میشود در لیست ویو") 


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

کد پی‌اچ‌پی:

Sub LVDb_ItemClick (Position As Int, Value As Object)

End Sub 


استفاده میکنیم position  محل قرارگیری خط رو میگه بهتون و value نوشته ای که شما قرار دادین.
مثلا برای آیتم یک میگیم :
if position=0 then

end if
این دستور اگه کاربر بر روی اولین گزینه لیست ویو کلیک کنه دستورات داخل if رو اجرا میکنه.



 

[m.gooooolzar]

RE: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها

(امروز 11:06 AM)'majid20100' نوشته:  درود چطوری می تونم یک لیست بسازم که بشه روی هر موضوع کلیک کرد و بعد از کلیک متن ها به نمایش بیاد.

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

درود
اگه منظورتون از ساخت لیست ، ایجاد یک لیست سفارشی باشه ،شما باید از CustomListView استفاده کنید
و اما اگه دنبال یه چیز ساده هستید یه نمونه برنامه براتون درست کردم
تو این برنامه من از AddSingleLine2  استفاده کردم
AddSingleLine2  این امکان رو بهت میده که موقع افزودن گزینه به لیست ،یه  Value از نوع Object بهش اضافه کنی که میتونه نام یک فایل تکست باشه
مثلاً میتونی کاری کنی که وقتی کاربر روی یه موضوع کلیک کرد ،نام فایل مربوط به اون موضوع برگردانده شه و تو یه صفحه جدید فایل تکست رو باز کنی کد:

کد:

Sub Globals
 Dim LV1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
 Activity.LoadLayout("Main")
 LV1.SetLayout(0,0,100%x,100%y)
 
' For i=1 To 10
'  LV1.AddSingleLine2("موضوع " & i , i)
' Next
 
 LV1.AddSingleLine2("طرح کلی پروژه" , "tarhpro")
 LV1.AddSingleLine2("محیط و ابزار های طراحی" , "mohit")
 LV1.AddSingleLine2("طراحی دیتابیس برنامه" , "tdb")

End Sub

 

کد:

Sub LV1_ItemClick (Position As Int, Value As Object)
 LView.IntPage=Value
 StartActivity(LView)
End Sub

 
 

 

[mojtaba212]

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