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

​ممنون میشم راهنمایی کنید