hossein7 82 ارسال شده در 18 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 18 اردیبهشت، ۱۳۹۴ بچه ها ببینید فایل پیوست رو ارور چی هست لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
hossein7 82 ارسال شده در 19 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 اردیبهشت، ۱۳۹۴ 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 ارسال شده در 19 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 19 اردیبهشت، ۱۳۹۴ میشه کلا این کد نویسی رو توضیح بدید؟؟؟ [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 ارسال شده در 19 اردیبهشت، ۱۳۹۴ سازنده اشتراک گذاری ارسال شده در 19 اردیبهشت، ۱۳۹۴ مرسی اقای ایزدی از راهنماییتون شما حرفه ای ها باید ما مبتدی ها رو ببخشید دیگه و راهنماییمون کنید کد کپی کردن متن رو هم میدید بهم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 18 اردیبهشت، ۱۳۹۴ اشتراک گذاری ارسال شده در 18 اردیبهشت، ۱۳۹۴ شما متغییر هایی رو بهم نسبت دادید که با هم همخوانی ندارن و ارورر میده و ربطی به اشتراک گذاری نداره. کدتون رو قرار بدید ببینم کجا اشتباه کردید. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
hossein7 82
بچه ها ببینید فایل پیوست رو ارور چی هست
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.