اطلاعیه

کاربر گرامی

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

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


پست های پیشنهاد شده

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

 

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


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

سلام

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

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

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری


درباره ما

 گروه برنامه نویسی انسور سنتر کار خود را به صورت رسمی از سال 1392 تحت عنوان تیم برنامه نویسی بیسیک4اندروید ایران آغاز کرد و در کمتر از یک سال به پرمخاطب ترین .و محبوب ترین انجمن برنامه نویسی بیسیک4اندروید ایرانی تبدیل شد و اکنون به درخواست بسیاری از کاربران، انجمن زمینه فعالیت خود را گسترش داده است

 

تماس با ما.

  •         بلوچستان، ایرانشهر، بلوار مکران، میدان بسیج، جنب حوزه علمیه حقانیه. کد پستی: 9917914113
  •         info@answercenter.ir
  •         09338810122