2 رو هست و بک گراندش یه عکس هست من سر اون عکسو از بین بردم ک یه عکسی انتخاب شه جاش بیاد
همه چیز درسته میزنم روی دکمه ی یک برای انتخاب عکس میره عکسو هم انتخاب میکنم ولی نمیاد اصن روی پنل ها اینم کدها
Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules.
Private CC As ContentChooser Dim SourceImageRect, TouchImageViewRect As Rect End Sub
Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module.
Private Panel1 As Panel Private Panel2 As Panel Private Button1 As Button
Dim Bitmap1 As Bitmap Dim TouchImageView1 As TouchImageView End Sub
Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("Layout1")
If FirstTime Then CC.Initialize("CC") End If End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click CC.Show("image/*", "یک عکس انتخاب کنید") End Sub Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then TouchImageView1.RemoveView Panel2.AddView(TouchImageView1, 0, 0, 100%x, 100%y)
سوال
محمدرضا معتمدی 612
سلام دوستان
2 تا پنل دارم پنل یک و دو
یک زیره و سند تو بک هست
2 رو هست و بک گراندش یه عکس هست من سر اون عکسو از بین بردم ک یه عکسی انتخاب شه جاش بیاد
همه چیز درسته میزنم روی دکمه ی یک برای انتخاب عکس میره عکسو هم انتخاب میکنم ولی نمیاد اصن روی پنل ها اینم کدها
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private CC As ContentChooser
Dim SourceImageRect, TouchImageViewRect As Rect
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private Panel1 As Panel
Private Panel2 As Panel
Private Button1 As Button
Dim Bitmap1 As Bitmap
Dim TouchImageView1 As TouchImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
If FirstTime Then
CC.Initialize("CC")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
CC.Show("image/*", "یک عکس انتخاب کنید")
End Sub
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
TouchImageView1.RemoveView
Panel2.AddView(TouchImageView1, 0, 0, 100%x, 100%y)
TouchImageView1.MinScale=-10
TouchImageView1.MaxScale=4
TouchImageView1.TranslatePadding=128dip
TouchImageView1.Gravity=Gravity.FILL
Bitmap1.Initialize(Dir , FileName)
TouchImageView1.SetBitmap(Bitmap1)
SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height)
TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height)
TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER")
TouchImageView1.SendToBack
Else
ToastMessageShow("عکسی انتخاب نشده",False)
End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.