رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
hocein

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

Recommended Posts

درود.

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

 

 

توضیح:

 

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

 

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

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

picasso.zip

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


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

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

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

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


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

فایل های مربوط به 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

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

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


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

×