اطلاعیه

کاربر گرامی

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

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


sajadkharestani

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

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

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

درباره sajadkharestani

  • درجه
    کاربر سایت
  • تاریخ تولد ۸۳/۰۳/۲۲
  1. با عرض سلام و خسته نباشیدبرای طراحی اپلیکیشن وب سایتم از وب ویو استفاده می کنم سایت مشکل نداره لود میشه فقط موقعی که بخوام یک عکس را بارگذاری کنم عکس بارگذاری نمیشهموقع کلیک روی بارگذاری تصویر(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
  2. لطفا راهنمایی کنید با تشکر
  3. سلام چطوری ویدیوها رو در صفحه نمایش گوشی full screen نمایش بدیم؟ ممنون
  4. لطفا راهنمایی کنید
  5. سلام لطفا راهنمایی کنید باز کردن یه برنامه در مارکت اول مارکت و ارسال نظر در برنامه مورد نظر با تشکر
  6. سلام زمان تسویه حساب اول مارکت چند ماه یک بار هست؟ ماه گذشته تسویه حساب انجام داده است؟(مهر ماه) با تشکر
  7. سلام کدها را کد نویسی کردم درصد رو محاسبه نمیکنه لطفا راهنمایی کنید با تشکر
  8. ممنون چطوری درصد سوالات صحیح و غلط رو محاسبه کنیم؟ با تشکر
  9. سلام هیچ راهی نداره؟ با تشکر
  10. سلام پیغام خصوصی شد
  11. دوباره پیغام خطا رو میده
  12. ممنون وارد کردم دوباره پیغام خطا رو میده
  13. سلام فایل temp.png در اکتیویتی actoutput در ساب btnsave_click هست کد نویسی actoutput #Region Activity Attributes #FullScreen: False #IncludeTitle: False #End Region Sub Process_Globals Dim pos As Int Dim p1 As ContentChooser End Sub Sub Globals Private pnlimage As Panel Dim b1 As Bitmap Dim pre As PreferenceManager Dim canvas1 As Canvas End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("frmoutput") p1.Initialize("cc") p1.Show("image/*","انتخاب تصویر") Select pos Case 1 pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"agahi.jpg")) Case 2 pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"gol.jpg")) Case 3 pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"machine.jpg")) Case 4 pnlimage.SetBackgroundImage(LoadBitmap(File.DirAssets,"sange_ghabr.jpg")) End Select End Sub Sub cc_Result (Success As Boolean, Dir As String, FileName As String) b1.Initialize(Dir,FileName) overlayImage ToastMessageShow("تصویر انتخاب شد",False) End Sub Sub Activity_Resume End Sub Sub overlayImage Dim rect1 As Rect canvas1.Initialize(pnlimage) If pos = 1 Then rect1.Initialize(17%x,25%y,41%x,39%y) canvas1.DrawBitmap(b1,Null,rect1) canvas1.DrawText(pre.GetString("name"),60%x,33%y,Typeface.LoadFromAssets("by.ttf"),35,Colors.Black,"CENTER") canvas1.DrawText(pre.GetString("mesra1"),45%x,50%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER") canvas1.DrawText(pre.GetString("mesra2"),45%x,60%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER") canvas1.DrawText(pre.GetString("extra"),45%x,73%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.Black,"CENTER") Else If pos = 2 Then rect1.Initialize(17%x,27%y,75%x,69%y) canvas1.DrawBitmap(b1,Null,rect1) Else If pos = 3 Then rect1.Initialize(52%x,24%y,74%x,48%y) canvas1.DrawBitmap(b1,Null,rect1) Else If pos = 4 Then rect1.Initialize(42%x,11%y,62%x,28%y) canvas1.DrawBitmap(b1,Null,rect1) canvas1.DrawText(pre.GetString("name1"),50%x,33%y,Typeface.LoadFromAssets("by.ttf"),35,Colors.White,"CENTER") canvas1.DrawText(pre.GetString("mesra11"),47%x,40%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER") canvas1.DrawText(pre.GetString("mesra22"),47%x,50%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER") canvas1.DrawText("تاریخ تولد : " & pre.GetString("birthday"),45%x,63%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER") canvas1.DrawText("تاریخ فوت : " & pre.GetString("died"),45%x,69%y,Typeface.LoadFromAssets("by.ttf"),16,Colors.White,"CENTER") End If pnlimage.Invalidate End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btnsave_Click Dim d1 As FileDialog d1.FileFilter = ".png" d1.ShowOnlyFolders = True d1.ChosenName = "temp.png" If d1.Show("ذخیره فایل","بله","خیر","",Null) = DialogResponse.POSITIVE And d1.FilePath <> "" Then Dim ou As OutputStream ou = File.OpenOutput(d1.FilePath,"temp.png",False) canvas1.Bitmap.WriteToStream(ou,100,"PNG") ou.Close ToastMessageShow("فایل ذخیره شد",False) End If End Sub Sub btnshare_Click Dim ou As OutputStream ou = File.OpenOutput(File.DirInternal,"temp.png",False) canvas1.Bitmap.WriteToStream(ou,100,"PNG") ou.Close Dim k As MESShareLibrary k.sharebinary(File.Combine(File.DirInternal,"temp.png"),"","share","","share") End Sub Sub btnback_Click Activity.Finish End Sub
  14. سلام لطفا راهنمایی کنید رفع پیغام خطا با تشکر
  15. سلام اگر امکان داره یه اسکرین شات از کارت بذارید