hocein

بارگذاری صفحه وب با چند شرط در webview با کمک از picasso

3 ارسال در این موضوع قرار دارد

درود.

این اولین سورس من تو این انجمن هستش. امیدوارم به دردتون بخوره

 

 

توضیح:

 

این سورس با استفاده از picasso یه عکس رو بارگذاری میکنه و بعدش با زدن روی عکس به صفحه وب باز میشه درغیر اینصورت خطای بارگذاری نشد دریافت میکنید.

 

یکم گمراه کننده هستش اما اگر سورس رو ببینید متوجه داستان میشوید.

نظراتتون میتونه کمک کنه :pardon: :yes1:

picasso.zip

dostmobile و Sina پسند شده است

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


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

می شه سورس رو تو سایت بریزید (کپی کنید)

الان پشت موبایلم!

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


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

فایل های مربوط به Main

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Private img As ImageView
	Dim picasso As Picasso
	Private Button1 As Button
	Private Button2 As Button
	Private ImageView1 As ImageView
	Private RadioButton1 As RadioButton
	Private RadioButton2 As RadioButton
End Sub

Sub Activity_Create(FirstTime As Boolean)
	 Activity.LoadLayout("f1")
	 picasso.Initialize
End Sub

Sub picture_Success(Bitmap1 As Bitmap, Tag As Object)
	Dim im As ImageView
	im = Tag
	Dim ou As OutputStream
	ou = File.OpenOutput(File.DirInternal,"temp.png",False)
	Bitmap1.WriteToStream(ou,100,"PNG")
	ou.Close
	im.SetBackgroundImage(LoadBitmap(File.DirInternal,"temp.png"))
End Sub

Sub Button2_Click
	RadioButton2.Checked=True
		Dim tr As DefaultTarget
	tr.Initialize("picture",ImageView1)
	picasso.LoadUrl("http://s7.picofile.com/file/8240533684/bazar.png").Fetch(tr)
End Sub

Sub Button1_Click
		RadioButton1.Checked=True
		Dim tr As DefaultTarget
	tr.Initialize("picture",img)
	picasso.LoadUrl("http://s6.picofile.com/file/8253809476/Untitled_1.jpg").Fetch(tr)
End Sub

Sub img_Click
 If RadioButton1.Checked=True Then
 		StartActivity(basic4x)
		Activity.Finish
	Else
		Msgbox("Bargozari nashod","Error")
	 End If
End Sub

Sub imageview1_click
	
	If RadioButton2.Checked=True Then
		StartActivity(basic4x2)
		Activity.Finish
		Else
		Msgbox("Bargozari nashod","Error")
	End If
End Sub

کد های مربوط به basic4x و basic4x2

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	
	Private WebView1 As WebView
		Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("2")
WebView1.LoadUrl("http://hoseinab.pergig.ir/wp/?p=1")
End Sub

Sub Button1_Click
	StartActivity(Main)
End Sub

اگر سوالی بود در خدمتم

salmana و Sina پسند شده است

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


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