رفتن به مطلب
  • 0

وب ویو


sajadkharestani

سوال

با عرض سلام و خسته نباشید
برای طراحی اپلیکیشن وب سایتم از وب ویو استفاده می کنم سایت مشکل نداره لود میشه فقط موقعی که بخوام یک عکس را بارگذاری کنم عکس بارگذاری نمیشه
موقع کلیک روی بارگذاری تصویر(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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

قبلا در این مورد زیاد صحبت شده. با سرچ میتونید مشکلتون رو برطرف کنید

وب+ویو+انتخاب+فایل+site:answercenter.ir site:answercenter.ir - Google Search

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...