• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
Ali afrazi

تگ وسندر

سوال

با عرض سلام خدمت تمامی اعضای انجمن

 

 

 

   من یه مولتی پنل ساختم  (حدود500پنل ) که روش یه باتن ویه لیبل حالا من می خام باکلیک روی باتن متنی که بادیتابیس روی لیبل نوشته شده روبخونه ازکدهای زیراستفاده کردم ولی روهرباتن که کلیک می کنم میره آخرین فیلددیتابیس رومیخونه

 

 

خیلی مهمه خواهشا کمک کنید

 

 

 

 

1.png

پسند شده توسط طاها الیاس زاده و salmana

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تا کنون داده شده است

  • 0

درود دوست عزیز


شما در دیتا بیس که ساختید ستون ID هم ایجاد کردید که هر سطر ردیف داشته باشه ؟


پسند شده توسط طاها الیاس زاده و salmana

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

 

درود دوست عزیز

شما در دیتا بیس که ساختید ستون ID هم ایجاد کردید که هر سطر ردیف داشته باشه ؟

 

 

 

                        بله ستون idهم ساختم

پسند شده توسط طاها الیاس زاده

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

به این کد ها دقت کنید .دقیقا همین کار انجام شده

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals
    Dim s As SQL			
    Dim idonvan As String
End Sub

Sub Globals
    Dim cur As Cursor
    Private ListView1 As ListView
    Dim ani As ICOSScaleAnimation
	Private ScrollView_onvanha As ScrollView
	Private Label_onvan As Label
	Private ImageView_onvan As ImageView
	Private Panel_onvan As Panel
	Private Image_fav As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("nokatvarzesh")
    lab.DatabesCopy(s,"ModernBodyBuilding.db",True)
    onvanMatnha(ScrollView_onvanha)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Activity_KeyUp (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then
	StartActivity(Categories)
	Activity.Finish	
End If
	
	
End Sub



Sub onvanMatnha(ScroollNeme As ScrollView)
    lab.DatabesCopy(s,"ModernBodyBuilding.db",True)
    Activity.Color=0xFF007236
    cur=s.ExecQuery("select * from tbl_nv111")
    Dim h As Int=1%y
    For i =0 To cur.RowCount-1
    cur.Position=i
    Dim p1 As Panel
    p1.Initialize("p1")
    p1.LoadLayout("panel_onvan")	
    p1.Color=0xFF007236
    ImageView_onvan.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".jpg")
    Label_onvan.Text=cur.GetString("onvan")
    Label_onvan.TextColor=Colors.Black
    Label_onvan.TextSize=20	
    Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT)
    Label_onvan.Tag=cur.GetInt("id")	

    Dim b As Bitmap
    b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png")
    Image_fav.Bitmap=b
    Image_fav.Tag=cur.GetString("id")

    ani.ScaleCenterIn("ani",1500)
    ani.StartAnim(Image_fav)	

    Dim aniInt As Int
    aniInt=Rnd(0,1)	
    If aniInt=0 Then	
    ani.ScaleFromRight("ani",1500)
    ani.StartAnim(p1)
    Else	
    ani.ScaleFromLeft("ani",1500)	
    ani.StartAnim(p1)	
    End If
    ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y)	
    h=h+14%y		
    Next	
    ScroollNeme.Panel.Height=h+5%y
End Sub





Sub Panel_onvan_Click
	
End Sub

Sub Label_onvan_Click
    Dim l As Label
    l=Sender
    idonvan=l.Tag
    StartActivity(nv111)	
End Sub

Sub Image_fav_Click
    Dim img As ImageView
    img=Sender

    cur=s.ExecQuery("select * from tbl_nv111")
    cur.Position=img.Tag

    If cur.GetInt("fav")=1 Then
    Dim b As Bitmap
    b.Initialize(File.DirAssets,"fav0.png")
    img.Bitmap=b
    s.ExecNonQuery("UPDATE tbl_nv111 SET fav =0 WHERE id ="&cur.GetInt("id"))

    Else if cur.GetInt("fav")=0 Then
    Dim b As Bitmap
    b.Initialize(File.DirAssets,"fav1.png")
    img.Bitmap=b

    s.ExecNonQuery("UPDATE tbl_nv111 SET fav =1 WHERE id ="&cur.GetInt("id"))

End If

End Sub
#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals

End Sub

Sub Globals

	Dim cur As Cursor
	Private ScrollView1 As ScrollView
	Dim s As SQL
	Dim l As Label
	Private ImageView_copy As ImageView
	Private Label1 As Label
	Private ImageView_shear As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("nv111")
    lab.DatabesCopy(s,"ModernBodyBuilding.db",True)
    
    cur=s.ExecQuery("select * from tbl_nv111 where id="&nokatvarzesh.idonvan)
    cur.Position=0
    l.Initialize("l")
    l.Text=cur.GetString("matn")
    l.TextColor=Colors.White
    l.TextSize=22
    Label1.Text=cur.GetString("onvan")
    Label1.TextColor=Colors.White
    Label1.TextSize=20

    Dim ani As ICOSScaleAnimation
    ani.ScaleCenterIn("ani",1000)
    ani.StartAnim(l)

    ani.ScaleCenterIn("ani",1500)
    ani.StartAnim(ImageView_copy)

    ani.ScaleCenterIn("ani",1500)
    ani.StartAnim(ImageView_shear)	
	
    If Setting.size1<14 Then
	l.TextSize=20
    Else
	l.TextSize=Setting.size1
    End If			

    ScrollView1.Panel.AddView(l,2%X,0,98%x-2%x,100%y)

    Dim su As StringUtils
    ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(l,l.Text)+10%y
    l.Height=su.MeasureMultilineTextHeight(l,l.Text)
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ImageView_shear_Click
File.Writestring(File.DirInternal,"test.txt",l.text)
Dim i1 As Intent
i1.Initialize(i1.ACTION_SEND, "")
i1.SetType("text/plain")
i1.PutExtra("android.intent.extra.TEXT", File.ReadString(File.DirInternal,"test.txt"))
i1.WrapAsIntentChooser("اشتراک گذاری مطلب با...!")
StartActivity(i1)	
End Sub

Sub ImageView_copy_Click
Dim ari As AriaLib
ari.ClipboadText=l.Text
ToastMessageShow("متن کپی شد",False)		
End Sub



خودم هم دارم ازش تو پروژم استفاده میکنم . و صد درصد کار میکنه

پسند شده توسط H@mid.RS

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری