رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

Change / replace pixel colors in an image using RSImageProcessing

پست های پیشنهاد شده

شایان آباد    6,146

بنیان گذار و مدیر فنی

 

 

Sub Activity_Create(FirstTime As Boolean)

 

 

Dim RSIE As RSImageEffects

 

Dim ImageViewTemp As ImageView

ImageViewTemp.Initialize(Null)

 

Dim BitmapTemp As Bitmap

BitmapTemp.Initialize(File.DirAssets, "Image1.jpg")

BitmapTemp = RSIE.ReplaceColor(BitmapTemp, Colors.Black, Colors.Red)

 

ImageViewTemp.Bitmap = BitmapTemp

 

Activity.AddView(ImageViewTemp, 0dip, 0dip, 100%x, 100%y)

End Sub

 

#Region Project Attributes

#ApplicationLabel: B4A Example

#VersionCode: 1

#VersionName:

#SupportedOrientations: unspecified

#CanInstallToExternalStorage: False

#End Region

 

#Region Activity Attributes

#FullScreen: False

#IncludeTitle: True

#End Region

 

Sub Process_Globals

End Sub

 

Sub Globals

 

Dim RSIE As RSImageEffects

 

Dim ButtonsColors As Button

Dim ImageViewTemp As ImageView

Dim BitmapTemp As Bitmap

End Sub

 

Sub Activity_Create(FirstTime As Boolean)

 

If FirstTime = True Then

End If

 

Dim LocationX As Int = (100%x - 95dip * 3 - 3dip) / 2

 

For i = 0 To 2

ButtonsColors.Initialize("ButtonResponse")

ButtonsColors.Tag = i

ButtonsColors.Text = "Tap"

ButtonsColors.TextColor = Colors.Black

 

Activity.AddView(ButtonsColors, LocationX + i * 100dip, 0dip, 90dip, 40dip)

 

If i = 0 Then ButtonsColors.Color = Colors.RGB(255, 30, 0)

If i = 1 Then ButtonsColors.Color = Colors.RGB(255, 130, 0)

If i = 2 Then ButtonsColors.Color = Colors.RGB(46, 240, 0)

Next

 

BitmapTemp.Initialize(File.DirAssets, "Traffic_Lights.png")

 

ImageViewTemp.Initialize("")

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(200, 200, 200), Colors.RGB(255, 31, 0))

 

Activity.AddView(ImageViewTemp, Activity.Width / 2 - BitmapTemp.Width / 2, Activity.Height / 2 - BitmapTemp.Height / 2, BitmapTemp.Width, BitmapTemp.Height)

End Sub

 

Sub Activity_Resume

End Sub

 

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

Sub ButtonResponse_Click

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(255, 30, 0), Colors.RGB(200, 200, 200))

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(255, 130, 0), Colors.RGB(200, 200, 201))

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(46, 240, 0), Colors.RGB(200, 200, 202))

 

ButtonsColors = Sender

 

Select ButtonsColors.Tag

Case 0

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(200, 200, 200), Colors.RGB(255, 30, 0))

Case 1

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(200, 200, 201), Colors.RGB(255, 130, 0))

Case 2

ImageViewTemp.Bitmap = RSIE.ReplaceColor(BitmapTemp, Colors.RGB(200, 200, 202), Colors.RGB(46, 240, 0))

End Select

End Sub

 

 

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


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • کاربران آنلاین در این صفحه   0 کاربر

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

×