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

[Hayperapp 18]

سلام ..

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

[Hayperapp 18]

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

 

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

[مهدی ایزدی 9,203]

سلام

آقا شما بیا کتابخونه 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

 

نتیجه میشه :

 

 

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

 

موفق باشید

[مهدی ایزدی 9,203]

درود

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

[mohammade79 127]

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

[fileman 328]

کتابخونه  AriaLib 

[dostmobile 329]

ImageView1.Bitmap =aria.GetCircleBitmap( LoadBitmap(File.DirAssets,"1.jpg"))

 

[Hayperapp 18]

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

درود

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

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

 

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

[dostmobile 329]

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

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

 

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

موفق باشید