farshid71

سلام من میخوام یک فایل متنی رو که توسط خود برنامه ساخته شده رو به اشتراک بزارم یعنی پنجره ای باز بشه و برنامه هایی ک میشه باهاشون فایل رو ارسال رو نشون بده مثل شیریت

ممنون بدون کتابخانه حل شد با intent ولی مشکل از کتابخانه بود چون وقتی Dim رو پاک کردم برنامه بالا اومد ولی وقتی dim بود از برنامه خارج میشد

سلام من کارهایی که گفتین انجام دادم اما وقتی برنامه رو اجرا میکنم این ارور رو میده این تصویر ارور http://up.pupmusic.ir/view/1126117/صوره_20160107_090319.jpg اینم کد برنامه که نوشتم #Region Project Attributes #ApplicationLabel: ساخت شماره مجازی #VersionCode: 1 #VersionName: 1.0.0 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals End Sub Sub Globals Private ListView1 As ListView Dim intent1 As AriaMarkets End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("menu") ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ساخت منو'''''''' ListView1.AddSingleLine2(" آموزش دریافت شماره مجازی",1) ListView1.AddSingleLine2(" دانلود برنامه مورد نیاز",2) ListView1.AddSingleLine2(" آموزش استفاده از شماره در تلگرام",3) ListView1.AddSingleLine2(" درباره ما",4) ListView1.AddSingleLine2(" سایر برنامه ها",5) ListView1.AddSingleLine2(" خروج",6) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) 　 End Sub 　 Sub ListView1_ItemClick (Position As Int, Value As Object) Select Case Value Case 1 StartActivity(a) Case 2 StartActivity(danlod) Case 3 StartActivity(b) Case 4 Msgbox("این برنامه با تلاش های شبانه روزی بدست آمده پس خواهشاً نسخه اصلی رو خریداری کنید و اگر نسخه رایگان دریافت کردید از طریق تماس با ما در میان بگذارید","درباره ما") Case 5 Dim am As AriaMarkets Try am.Cafebazaar_SafheToseDahande("pupmusic") Catch ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False ) End Try Case 6 Dim ext As Int ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","نظر سنجی","خیر",Null) If ext = -1 Then ExitApplication Else If ext =-3 Then Try intent1.Cafebazaar_SafheNazar("ir.pupmusicir.amozesh") Catch ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False ) End Try 'intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id= ir.pupmusicir.amozesh_d_sh_m") ' StartActivity(intent1) End If Activity.Finish End Select End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Dim ext As Int ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","نظر سنجی","خیر",Null) If ext = -2 Then ExitApplication Else If ext =-3 Then Try intent1.Cafebazaar_SafheNazar("ir.pupmusicir.amozesh") Catch ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False ) End Try 'intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id= ir.pupmusicir.amozesh_d_sh_m") 'StartActivity(intent1) End If Activity.Finish End If ​ممنون میشم راهنمایی کنید