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

ساخت پروفایل عکس مثل تلگرام


Hayperapp

سوال

سلام ..

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

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

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

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

در در 1395/08/05, 09:29:35، dostmobile گفته است :

لایبری های مورد نیاز رو تیک بزنید

UIUtils
Phone
ariaLib

حالا متغیرهامونو تعریف میکنیم

	Dim chose1  As ContentChooser
	Dim ui As UIUtils
dim aria as arialib
	Private ImageView1 As ImageView
	Private Button1 As Button

در قسمت اکتیویتی کریت اینشیالایز میکنیم

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
chose1.Initialize("chose1")
chose1.Show("image/*","Choose")
End Sub

با کد بالا کاربر از عکسهای داخل گوشیش یکیو انتخاب میکنه و میخوایم بیاریم تو ایمیج ویو

 

Sub chose1_Result (Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		ImageView1.Bitmap = LoadBitmap(Dir,FileName)
			Else
		ToastMessageShow("Error",False)
	End If
End Sub

 

واین هم کد گرد کردن عکس

موفق باشید


 

 

سلام ... دوست عزیز بسیار ممنونم از راهنمایی تون ... ولی من کدها رو وارد کردم و چندتا مشکل و سوال پیش اومد واسم 

 

یکی اینکه توی کدی که گذاشتید کدی برای arialib نبود .. دوم اینکه کد کی شما قرار داید فقط عکس رو از گالری میگیره و درون ایمیج ویو قرار میده ...بعد از خارج شدن از اپ دوباره باید عکس رو انتخاب کنی ... سوم هم عکس حالت دایره ای پیدا نکرد .. من هرچی خواستم یکم خودم یکم دست توش ببرم ازم ایراد گرفت .. ممنون میشم اگه یک کد کامل واسم قرار بدید ...

 

بازم ازتون تشکر میکنم 

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

سلام

آقا شما بیا کتابخونه AriaPhotoshop رو دانلود کن :

بعدش توی کتابخونه هات اضافش کن و :


Sub Globals
	Dim aria As AriaPhotoshp
	Private ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	aria.Initialize("aria")
End Sub

Sub Button1_Click
	ImageView1.SetBackgroundImage(aria.RoundCorner(LoadBitmap(File.DirAssets,"38958673506699798809.jpg"),200))
End Sub

 

نتیجه میشه :

cricle.PNG

 

 

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

 

موفق باشید

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

درود

منظور شما حالت دایره ای شکل بودنش هست؟

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

لایبری های زیادی هست برای این کار میتونید جستجو کنید همینجا و اینکه میتونید یه دکمه بسازید و از دیزاینر گردیشو رو اخر بذارید دایره ای بشه 

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

در 14 ساعت قبل، مهدی ایزدی گفته است :

درود

منظور شما حالت دایره ای شکل بودنش هست؟

بله اقای ایزدی ...

 

میخوام عکس رو خود کاربر از گالری انتخاب کنه و عکس حالت گرد داشته باشه .. 

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

لایبری های مورد نیاز رو تیک بزنید

UIUtils
Phone
ariaLib

حالا متغیرهامونو تعریف میکنیم

	Dim chose1  As ContentChooser
	Dim ui As UIUtils
dim aria as arialib
	Private ImageView1 As ImageView
	Private Button1 As Button

در قسمت اکتیویتی کریت اینشیالایز میکنیم

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
chose1.Initialize("chose1")
chose1.Show("image/*","Choose")
End Sub

با کد بالا کاربر از عکسهای داخل گوشیش یکیو انتخاب میکنه و میخوایم بیاریم تو ایمیج ویو

 

Sub chose1_Result (Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		ImageView1.Bitmap = LoadBitmap(Dir,FileName)
			Else
		ToastMessageShow("Error",False)
	End If
End Sub

 

واین هم کد گرد کردن عکس

موفق باشید

 

 

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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