ارور دکمه اشتراک

[hossein7 82]

بچه ها ببینید فایل پیوست رو ارور چی هست

[hossein7 82]

Sub Button1_Click

Dim cursor3 As Cursor

   cursor3 = sql1.ExecQuery("SELECT * FROM sms")

   Dim Button1 As Button

   Button1=Sender

   cursor3.Position =Button1.Tag

   Dim matnsms As Label

   matnsms.Initialize("")

   matnsms.text=cursor3.GetString("sms")

   cursor3.Close

   Dim share As Intent

   share.Initialize(share.ACTION_SEND,"")

   share.SetType("text/plain")

   share.PutExtra("android.intent.extra.TEXT", matnsms.text)

   share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")

   StartActivity(share)

End Sub

Sub Button2_Click


Dim something As BClipboard

Dim cursor2 As Cursor

cursor2 = sql1.ExecQuery("SELECT * FROM sms")
Dim Button2 As Button

Button2=Sender

	cursor2.Position =Button2.Tag

something.clrText 

   something.settext(cursor2.GetString("sms"))

ToastMessageShow("متن در کلیپ بورد کپی شد",False)

cursor2.Close

End Sub

[مهدی ایزدی 9,203]

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

[color=#000000][color=#0000BB]
   Dim cursor3 [/color][color=#007700]As [/color][color=#0000BB]Cursor

   cursor3 [/color][color=#007700]= [/color][color=#0000BB]sql1[/color][color=#007700].[/color][color=#0000BB]ExecQuery[/color][color=#007700]([/color][color=#DD0000]"SELECT * FROM sms"[/color][color=#007700])

   [/color][color=#0000BB]Dim Button1 [/color][color=#007700]As [/color][color=#0000BB]Button

   Button1[/color][color=#007700]=[/color][color=#0000BB]Sender

   cursor3[/color][color=#007700].[/color][color=#0000BB]Position [/color][color=#007700]=[/color][color=#0000BB]Button1[/color][color=#007700].[/color][color=#0000BB]Tag

   Dim matnsms [/color][color=#007700]As [/color][color=#0000BB]Label

   matnsms[/color][color=#007700].[/color][color=#0000BB]Initialize[/color][color=#007700]([/color][color=#DD0000]""[/color][color=#007700])

   [/color][color=#0000BB]matnsms[/color][color=#007700].[/color][color=#0000BB]text[/color][color=#007700]=[/color][color=#0000BB]cursor3[/color][color=#007700].[/color][color=#0000BB]GetString[/color][color=#007700]([/color][color=#DD0000]"sms"[/color][color=#007700])

   [/color][color=#0000BB]cursor3[/color][color=#007700].[/color][color=#0000BB]Close

   Dim share [/color][color=#007700]As [/color][color=#0000BB]Intent

   share[/color][color=#007700].[/color][color=#0000BB]Initialize[/color][color=#007700]([/color][color=#0000BB]share[/color][color=#007700].[/color][color=#0000BB]ACTION_SEND[/color][color=#007700],[/color][color=#DD0000]""[/color][color=#007700])

   [/color][color=#0000BB]share[/color][color=#007700].[/color][color=#0000BB]SetType[/color][color=#007700]([/color][color=#DD0000]"text/plain"[/color][color=#007700])

   [/color][color=#0000BB]share[/color][color=#007700].[/color][color=#0000BB]PutExtra[/color][color=#007700]([/color][color=#DD0000]"android.intent.extra.TEXT"[/color][color=#007700], [/color][color=#0000BB]matnsms[/color][color=#007700].[/color][color=#0000BB]text[/color][color=#007700])

   [/color][color=#0000BB]share[/color][color=#007700].[/color][color=#0000BB]WrapAsIntentChooser[/color][color=#007700]([/color][color=#DD0000]"متن خود را به اشتراک بگذارید...."[/color][color=#007700])

   [/color][color=#0000BB]StartActivity[/color][color=#007700]([/color][color=#0000BB]share[/color][color=#007700])[/color][/color]

یکی از بدترین کد نویسی هایی که تا الان دیدم همینه *fekr*

اگه توی حلقتون Button1.Tag رو برابر متن sms قرار داده باشید

با این کد توی Button1_Click کارتون راه میفته:

    Dim Butx As Button
   Butx=Sender
   Dim share As Intent
   share.Initialize(share.ACTION_SEND,"")
   share.SetType("text/plain")
   share.PutExtra("android.intent.extra.TEXT", Butx.Tag)
   share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
   StartActivity(share)

کد نویسی خودتون رو قوی تر کنید

کدهای Button1_Click خودتون واقعا ... هستند *fekr*

[hossein7 82]

مرسی اقای ایزدی از راهنماییتون

شما حرفه ای ها باید ما مبتدی ها رو ببخشید دیگه و راهنماییمون کنید

کد کپی کردن متن رو هم میدید بهم

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

شما متغییر هایی رو بهم نسبت دادید که با هم همخوانی ندارن و ارورر میده و ربطی به اشتراک گذاری نداره.

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