Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

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

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

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

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


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