درخواست راهنمایی

[faeze 12]

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

من یه لیست ویو درست کردم حالا میخوام کاری کنم که با کلیک روی آیتم هاش رنگ اونا تغییرکنه

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

[nicetitle 18]

صحبت های آقا مجید رو منم تایید میکنم

دیتابیس یادگیریش خیلی اسونه(مخصوصا درحدی که کار شما رو راه بندازه)

اما باز هم اگر تاکید بر استفاده از فایل تکس هستین میتونید راه هایی برای خودتون پیدا کنید...مثلا میتونید با انتخاب هر ایتم اون درس رو از اون فایل حذف داخل فایل دیگه ای کپی کنید(البته شاید چیدمانتون هم تغییر کنه!!)و حتی میتونید با استفاده از یک کلید اون رو تغییر بدین و شاید دوستان و حتی خودتون هم راه ها جالب تری پیدا کنید

[newbasic4 10]

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

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

[مجید آرتا 5,874]

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

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

سولاتون ربطی به این تاپیک نداره و برای جواب گرفتن تاپیک جدا ایجاد کنید

[حاج حسین 2,098]

سلام

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

لیست ویو زیبا

http://answercenter.ir/thread1269.html

[faeze 12]

با فایل تکست واقعا دستتون رو میبنده و نمیتونید چیزی رو که میخوایید انجام بدید.*نمیدونم*

با دیتابیس میتونید انجام بدید خیلی راحت. *بوس*

یه چیزی توی مایه های علاقمندی میشه گفت.*ناز2*

میتونی از 2 تا عکس مثل هم که یکیشون کمرنگ تر از اون یکی باشه و توی رویداد ItemClick با زده شدن آیتم ها دیتابیس بیاد عدد 1 رو قرار بده واسه یتم کلیک شده و توی دیتابیس ذخیره کنه *مکار*

بهتون پیشنهاد میکنم از دیتابیس واسه این کار استفاده کنید که هم کارتون سادس و هم دستون بازتر *بوس*

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

کدهامم ایناست

Sub btn_list_Click
Activity.LoadLayout("list1")
list1=File.ReadList(File.DirAssets,"narm.txt")
listview1.Initialize("listview1")
listview1.Color=Colors.Green
Activity.AddView(listview1,0,41dip,100%x,100%y-82dip)
For i = 0 To list1.Size-1
   text=list1.Get(i)
   listview1.AddSingleLine(text)
Next
 Dim lbl  As Label                                                  
   lbl= listview1.SingleLineLayout.Label
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.Top=0dip
   lbl.TextColor = Colors.white
   lbl.TextSize  = 28
'    lbl.Typeface=Typeface.LoadFromAssets("bnazanin.ttf")

End Sub

[faeze 12]

صحبت های آقا مجید رو منم تایید میکنم

دیتابیس یادگیریش خیلی اسونه(مخصوصا درحدی که کار شما رو راه بندازه)

اما باز هم اگر تاکید بر استفاده از فایل تکس هستین میتونید راه هایی برای خودتون پیدا کنید...مثلا میتونید با انتخاب هر ایتم اون درس رو از اون فایل حذف داخل فایل دیگه ای کپی کنید(البته شاید چیدمانتون هم تغییر کنه!!)و حتی میتونید با استفاده از یک کلید اون رو تغییر بدین و شاید دوستان و حتی خودتون هم راه ها جالب تری پیدا کنید

اگه همچین کاری بشه کرد که عالی میشه

میشه یه خرده بیشتر راهنمایی بفرمایید واس راه دوم؟؟

Dim m1 As Map
m1.Initialize
If File.Exists(File.DirInternal,"bookmark") = True Then
m1 = File.ReadMap(File.DirInternal,"bookmark")
End If
Try
m1.Put(sTitle,"")
File.WriteMap(File.DirInternal,"bookmark",m1)
ToastMessageShow("add to bookmark",False)
Catch
ToastMessageShow("already bookmark",False)
End Try

این کد تقریباً مثال بوکمارک هست که آقای آرتا گفتن

[nicetitle 18]

یه مدول از نوع کد درست کنید و کدهای زیر رو داخل بذارین

Sub 
Process_Globals


End Sub

Sub 
saveData(sFilename As String,sKey As String,sValue As String)

Dim
m1 As Map

m1.Initialize

If
File.Exists(File.DirInternal,sFilename) = True Then

m1 = 
File.ReadMap(File.DirInternal,sFilename)

End
If

m1.Put(sKey,sValue)

File
.WriteMap(File.DirInternal,sFilename,m1)

End Sub


Sub 
getData(sFilename As String,sKey As String) As String

Dim
m1 As Map

m1.Initialize

If
File.Exists(File.DirInternal,sFilename) = True Then

 m1 = 
File.ReadMap(File.DirInternal,sFilename)

Else


Return ""

End
If

If
m1.ContainsKey(sKey) = True Then


Return m1.get(sKey)

Else


Return ""

End
If

End Sub

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

و موقع فراخوانی این باتوم ها طبق کلیدی که داره رنگ باتوم تغییر میکنه

[faeze 12]

دوست عزیز اون چیزی که شما میخواهید نشدنیه.

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

ممنون ازشما

[faeze 12]

اره اقا مجید...با لیست ویو در هر صورت نمیشه(حتی اگر دیتابیس باشه)

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

ممنون ازشما

[faeze 12]

یه مدول از نوع کد درست کنید و کدهای زیر رو داخل بذارین

Sub 
Process_Globals


End Sub

Sub 
saveData(sFilename As String,sKey As String,sValue As String)

Dim
m1 As Map

m1.Initialize

If
File.Exists(File.DirInternal,sFilename) = True Then

m1 = 
File.ReadMap(File.DirInternal,sFilename)

End
If

m1.Put(sKey,sValue)

File
.WriteMap(File.DirInternal,sFilename,m1)

End Sub


Sub 
getData(sFilename As String,sKey As String) As String

Dim
m1 As Map

m1.Initialize

If
File.Exists(File.DirInternal,sFilename) = True Then

 m1 = 
File.ReadMap(File.DirInternal,sFilename)

Else


Return ""

End
If

If
m1.ContainsKey(sKey) = True Then


Return m1.get(sKey)

Else


Return ""

End
If

End Sub

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

و موقع فراخوانی این باتوم ها طبق کلیدی که داره رنگ باتوم تغییر میکنه

Sub btn_chart_Click
Activity.LoadLayout("main1")
WebView1.LoadUrl("file:///android_asset/"&"h11.html")
End Sub

Sub btn_list_Click
Activity.LoadLayout("list1")
list1=File.ReadList(File.DirAssets,"narm.txt")
listview1.Initialize("listview1")
listview1.Color=Colors.blue
Activity.AddView(listview1,0,41dip,100%x,100%y-82dip)
For i = 0 To list1.Size-1
   text=list1.Get(i)
   listview1.AddSingleLine(text)
Next
 Dim lbl  As Label                                                  
   lbl= listview1.SingleLineLayout.Label
   lbl.Gravity=Gravity.CENTER
   lbl.Left=lbl.Left-5dip
   lbl.Top=0dip
   lbl.TextColor = Colors.black
   lbl.TextSize  = 28
end sub

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

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

حالا باید با کلیک روی آیتم های این لیست ویو(دروس) اون آیتم رنگش تغییرکنه

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

به نظر شما کدهای بالارو چی باید بهشون اضافه کنم تابه هدفم برسم؟؟

تشکربابت پاسخ گویی شما وصبروتحملتون

[faeze 12]

سلام من تصمیم گرفتم ازچک باکس استفاده کنم وبراش یه تصویربزارم که گذرونده شد

حالا تو رویداد ListView1_ItemClick میشه شرط واس چک باکس بزارم که اگه کلیک شد تیک زده بشه؟؟

چجورمیتونم اینکارو کنم؟؟

[nicetitle 18]

یه نگاه به سورس بندازین

فکر کنم کارتونو راه بندازه

http://s5.picofile.com/file/8167411084/test.rar.html

[faeze 12]

یه نگاه به سورس بندازین

فکر کنم کارتونو راه بندازه

http://s5.picofile.com/file/8167411084/test.rar.html

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

مرسی

[nicetitle 18]

این سورس رنگ پنل عوض نمیشه

ولی ایکون تغییر میکنه

شما میتونید ایکون اونایی ک انتخاب شده رو تغییر بدی

[faeze 12]

این سورس رنگ پنل عوض نمیشه

ولی ایکون تغییر میکنه

شما میتونید ایکون اونایی ک انتخاب شده رو تغییر بدی

نمیشه یعنی اونجور که برا من میاد با قبلیا هیچ فرقی نداره

کلیک که میکنم ثابت نمیمونه

[nicetitle 18]

این نمونه سورسه

شما از برنامه که خارج بشین و بیاین داخل ایکونها تغییر کرده

برای اینکه همون لحظه هم تغییر کنه کافیه ی چندخط از همون کدها رو کپی پیست کنین

[مجید آرتا 5,874]

یک مثال ساده از چیزی که میخواهید:

Sub lst_ItemClick (Position As Int, Value As Object)
   Select Value


       Case "مدار منطقی"


          CheckBox1.Checked = True


       Case "اصول پایگاه داده"


          CheckBox2.Checked = True


       Case "شبکه های کامپیوتری1"


          CheckBox3.Checked = True


       Case "معماری کامپیوتر"


          CheckBox4.Checked = True


   End Select


End Sub

[faeze 12]

این نمونه سورسه

شما از برنامه که خارج بشین و بیاین داخل ایکونها تغییر کرده

برای اینکه همون لحظه هم تغییر کنه کافیه ی چندخط از همون کدها رو کپی پیست کنین

آهان چشم میرم امتحان میکنم

تشکر

[مجید آرتا 5,874]

حتی الامکان واستون یک نمونه می نویسم قرار میدم

[faeze 12]

یک مثال ساده از چیزی که میخواهید:

Sub lst_ItemClick (Position As Int, Value As Object)
   Select Value


       Case "مدار منطقی"


          CheckBox1.Checked = True


       Case "اصول پایگاه داده"


          CheckBox2.Checked = True


       Case "شبکه های کامپیوتری1"


          CheckBox3.Checked = True


       Case "معماری کامپیوتر"


          CheckBox4.Checked = True


   End Select


End Sub

یعنی اسم کل درس هارو باید بزارم؟؟

باposition نمیشه؟؟

بعد برای هرکدوم باید یه چک باکس بزارم؟؟

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