رفتن به مطلب

farshid71

کاربر عادی
  • تعداد ارسال ها

    46
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

3 متوسط

درباره farshid71

  • درجه
    کاربر باسابقه
  • تاریخ تولد تعیین نشده

آخرین بازدید کنندگان نمایه

262 بازدید کننده نمایه
  1. سلام من میخوام یک فایل متنی رو که توسط خود برنامه ساخته شده رو به اشتراک بزارم یعنی پنجره ای باز بشه و برنامه هایی ک میشه باهاشون فایل رو ارسال رو نشون بده مثل شیریت
  2. ممنون بدون کتابخانه حل شد با intent ولی مشکل از کتابخانه بود چون وقتی Dim رو پاک کردم برنامه بالا اومد ولی وقتی dim بود از برنامه خارج میشد
  3. سلام من کارهایی که گفتین انجام دادم اما وقتی برنامه رو اجرا میکنم این ارور رو میده این تصویر ارور 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 ​ممنون میشم راهنمایی کنید
×
×
  • جدید...