اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

- برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


sajadkharestani

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

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

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

درباره sajadkharestani

  • درجه
    کاربر سایت
  • تاریخ تولد ۸۳/۰۳/۲۲
  1. لطفا راهنمایی کنید
  2. با تشکر جاوا آپدیت کردم دوباره پیغام خطا میده لطفا راهنمایی کنید
  3. جستجو کردم پیدا نکردم لطفا راهنمایی کنید با تشکر
  4. سلام لطفا راهنمایی کنید مفهوم پیغام خطا؟ با تشکر
  5. با عرض سلام و خسته نباشیدبرای طراحی اپلیکیشن وب سایتم از وب ویو استفاده می کنم سایت مشکل نداره لود میشه فقط موقعی که بخوام یک عکس را بارگذاری کنم عکس بارگذاری نمیشهموقع کلیک روی بارگذاری تصویر(choose file)http://s8.picofile.com/file/8282062918/2017_01_11_142046.pngلطفا راهنمائی کنیدبا تشکر کد نویسی: #Region Activity Attributes #FullScreen: False #IncludeTitle: False #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim server As ServerSocket End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim ph As Phone Private WebView1 As WebView Dim pnlerrlayout As Panel Private Label1 As Label Private btn_refresh As Button Private btn_exit As Button Dim tf As Typeface = Typeface.LoadFromAssets("byekan.ttf") End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("menu") WebView1.ZoomEnabled = False Isconnect loadUrl '****************** End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Isconnect As Boolean If server.IsInitialized = False Then server.Initialize (0,"") End If Try Log("mobile data state: " & ph.GetDataState & " wifi_on: " & ph.GetSettings("wifi_on") & " server ip: " & server.GetMyIP & CRLF & "wifi ip: " & server.GetMyWifiIP) If server.GetMyIP = "127.0.0.1" Then Return False 'this is the local host address If Not(ph.GetDataState.EqualsIgnoreCase("CONNECTED")) And server.GetMyWifiIP = "127.0.0.1" Then Return False Return True Catch Return False End Try End Sub Sub loadUrl Isconnect If Isconnect = True Then ProgressDialogShow2("لطفا شکیبا باشید ... ",False) WebView1.loadUrl("http://agahidivari.ir/ad-category/%d9%84%d9%88%d8%a7%d8%b2%d9%85-%d8%a7%d9%84%da%a9%d8%aa%d8%b1%d9%88%d9%86%db%8c%da%a9%db%8c/") Else If pnlerrlayout.IsInitialized = False Then pnlerrlayout.Initialize("") Activity.AddView(pnlerrlayout,0,0,100%x,100%y) pnlerrlayout.LoadLayout("err") Label1.Typeface = tf btn_exit.Typeface = tf btn_refresh.Typeface = tf btn_exit.Color = Colors.RGB(135, 206, 25) btn_refresh.Color = Colors.RGB(135, 206, 25) Else pnlerrlayout.Visible = True pnlerrlayout.BringToFront End If End If End Sub Sub WebView1_PageFinished (Url As String) ProgressDialogHide End Sub Sub btn_exit_Click Dim res As Int res = Msgbox2("آیا مایل به خروج هستید ؟","خروج","بله","","خیر",Null ) If res = DialogResponse.POSITIVE Then Activity.Finish End If End Sub Sub btn_refresh_Click pnlerrlayout.Visible = False pnlerrlayout.SendToBack loadUrl End Sub
  6. لطفا راهنمایی کنید با تشکر
  7. سلام چطوری ویدیوها رو در صفحه نمایش گوشی full screen نمایش بدیم؟ ممنون
  8. لطفا راهنمایی کنید
  9. سلام لطفا راهنمایی کنید باز کردن یه برنامه در مارکت اول مارکت و ارسال نظر در برنامه مورد نظر با تشکر
  10. سلام زمان تسویه حساب اول مارکت چند ماه یک بار هست؟ ماه گذشته تسویه حساب انجام داده است؟(مهر ماه) با تشکر
  11. سلام کدها را کد نویسی کردم درصد رو محاسبه نمیکنه لطفا راهنمایی کنید با تشکر
  12. ممنون چطوری درصد سوالات صحیح و غلط رو محاسبه کنیم؟ با تشکر
  13. سلام هیچ راهی نداره؟ با تشکر
  14. سلام پیغام خصوصی شد
  15. دوباره پیغام خطا رو میده