mehdi1376

سلام دوستان

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

مثلا اینجوری:

Sub Button2_Click

Button1_Click

End Sub

خب حالا من میخوام توی همین باتن 2 به جای اینکه بگم باتن 1 باز بشه میخوام activity create باز بشه

یعنی ایجوری:

Sub Button2_Click

Activity_Create

End Sub

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

Error description: Syntax error (missing parameter)

خب چه جور بنویسمش تا دستور باز شدن activity create توی باتن ایجاد بشه؟

ممنون

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

سلام دوستان

من توی دیتابیسم( navicate ) اول چندتا عکس گذاشته بودم و حجم فایل به 17 مگ رسیده بود

بعد که اون عکسا رو از توی دیتابیس حذف کردم حجم فایل تغییری نکرد و هنوز همون 17 مگ هست . انگار که عکسا حذف نشده

دلیلش چیه ؟ چیکار کنم؟

نه اون رو بلدم

عکسای زیر رو ببین

[ATTACH=CONFIG]330[/ATTACH]

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

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

[ATTACH=CONFIG]331[/ATTACH]

من میخوام مثل عکس دوم بشه

شما بگید توی اون bitmap.initialize

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

ببینید طبق کدی که فرستادم

من میخوام عبارت توی پرانتز توی کد زیر

("Btmp.initialize(file.dirassest,"fa.png

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

از دیتابیس بگیره یعنی مثلا اینجوری

(("Btmp.initialize (cur.getstring("image

اما وقتی این کد رو میذارم ارور میده و میگه اینطور پارامتری وجود نداره

مشکل چیه؟

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

( در ضمن Btmp همون bitmap در آیتم های لیست ویو هست

یعنی bitmap در خط زیر

Towlinesandbitmap)

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

ممنون

سلام دوستان من این کد رو دارم

Dim btmp As Bitmap
btmp.Initialize(File.DirAssets,"fa.png")

و اینم کد لیست ویوم

ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm)

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

btmp.Initialize(namayesh(cur.getstring("list"))

ولی وقتی این کد رو میذارم ارور میده که btmp اینطور پارامتری رو نداره

لطفا بگید چیکارش کنم

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

مهدی آقا من بی صبرانه منتظر آموزش هستم

هرچه سریعتر بهتر

آقا مصطفی دمت گرم

خیلی ممنون

آقا آرمین توی لینک زیر که خودتون یه سورس جستجو گذاشتید

http://answercenter.ir/showthread.php?t=268&page=2

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

یعنی مثلا وقتی سرچ کنید سلام تی لیست ویو فقط آیتم هایی که سلام توشون هست نمایش داده بشه

ممنون

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

ممنون میشم

http://uplod.ir/4jdr42zkr1h4/tbl1.zip.htm

دوستای عزیز

یعنی نمیشه توی آیتم های لیست ویوی من(عکس اول)

مثلا دکمه اشتراک گذاشت؟

مجید جان

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

وگرنه جستجو رو انجام میده و نتایجو به دست هم میاره

مشکلم فقط همینجاس

ممنون

دوستان یه سوال دیگه هم دارم

عکس زیر رو ببینید

[ATTACH=CONFIG]298[/ATTACH]

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

ولی الان ستاره ها جای عکس هستن من نمیخوام جای عکس باشن میخوام ستاره ها توی آیتم باشن تقریبا مثل عکس زیر که اشتراک وکپی و حذف و.. توی آیتم هستن :

[ATTACH=CONFIG]299[/ATTACH]

چه طور ببرمش توی آیتم ممنون...

سلام

آقا مصطفی لطفا کدش رو برام بنویسید چون من مبتدی هستم و تسلط زیادی ندارم

مهدی جان از ائن سورس راستشو بخوای زیاد چیزی نفهمیدم اگه میشه یه نگاهی به کدم بنداز

ممنون

سلام دوستان ببخشید من یه لیست ویو ساختم و یه جستجو براش گذاشتم که وقتی سرچ میکنیم موارد رو مشخص مبکنه و حتی بهت میگه {عکس پایین}

[ATTACH=CONFIG]296[/ATTACH]

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

اینم کل از کد:

Sub Process_Globals
Dim sql1 As SQL
End Sub

Sub Globals
Private ListView1 As ListView

Dim cur As Cursor
Dim esm,famil,alamat As String

Private Button2 As Button
Private Button1 As Button
Private EditText1 As EditText
Private Button3 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm1")

If File.Exists(File.DirInternal,"tbl1.db")=False Then
File.Copy(File.DirAssets,"tbl1.db",File.DirInternal,"tbl1.db")
End If


Activity.AddMenuItem("نشان گذاری شده ها","neshan")


End Sub

Sub neshan_click
cur=sql1.ExecQuery("select esm,alamat from tbl1 where alamat='1'")

Dim m As String
m="نشان گذاری شده ها "&CRLF

For i=0 To cur.rowcount-1
cur.Position=i
m=m&CRLF
m=m&cur.GetString("esm")
Next
ToastMessageShow("m",False)


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
ListView1.Clear
If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"tbl1.db",False)
End If

cur=sql1.ExecQuery("SELECT * FROM tbl1")

For i = 0 To cur.RowCount-1
cur.Position=i
esm=cur.GetString("esm")
famil=cur.GetString("famil")
alamat=cur.GetString("alamat")



Dim btmp As Bitmap
If alamat=0 Then 
btmp.Initialize(File.DirAssets,"fab.png")
Else
btmp.Initialize(File.DirAssets,"fa.png")

End If 


ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm)
Next
cur.Close
End Sub




Sub Button2_Click
StartActivity(act_3)
End Sub




Sub ListView1_ItemClick (Position As Int, Value As Object)
cur=sql1.ExecQuery("select alamat from tbl1")
cur.Position=Position

If cur.GetString("alamat")="0" Then
sql1.ExecNonQuery("update tbl1 set alama'1' where esm='"&Value&"'")
Else
sql1.ExecNonQuery("update tbl1 set alama'0' where esm='"&Value&"'")
End If

ListView1.Clear
Button1_Click

End Sub




Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	sql1.ExecNonQuery("delete from tbl1 where esm='"&Value&"'")
ListView1.RemoveAt(Position)
End Sub




Sub Button3_Click
cur=sql1.ExecQuery("select esm from tbl1 where esm like '%" & EditText1.Text & "%'")



Dim btmp As Bitmap
If alamat=0 Then 
btmp.Initialize(File.DirAssets,"fab.png")
Else
btmp.Initialize(File.DirAssets,"fa.png")

End If 

If cur.RowCount>0 Then
Dim m As String
m="نتایج به دست آمده "&CRLF

For i=0 To cur.rowcount-1
cur.Position=i
m=m&CRLF
m=m&cur.GetString("esm")
Next
ToastMessageShow(m,False)
Else
ToastMessageShow("جستجو نتیجه ای نداشت",False)
End If
End Sub

فکر نکنم خیلی مشکل باشه ... لطفا کمک کنید

سلام

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

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

و همچنین وقتی از برنامه خارج میشی هم هنوز میخونه

اینم کد:

Sub Process_Globals 
    Dim MediaPlayer1 As MediaPlayer 
End Sub

Sub Button2_Click 
   If MediaPlayer1.IsPlaying Then 
   MediaPlayer1.Pause 
   Button2.Text="اجرای موسیقی" 
   Else 
   MediaPlayer1.Play 

   Button2.Text="توقف موسیقی" 
   End If 
End Sub  

ممنونت میشم کمکم کنید

بازم ممنون

سلام چه طور عکس رو توی b4a به اشتراک بزاریم؟

ممنون