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

behnam_tr

کاربر عادی
  • تعداد ارسال ها

    5
  • تاریخ عضویت

  • آخرین بازدید

درباره behnam_tr

  • تاریخ تولد تعیین نشده
  1. behnam_tr

    سوال : دریافت نام تصویر از imageview

    اگر بخام اسم فایل بدون پسوند رو بدست بیارم چطور،؟ در مثال بالا فقط عدد 5 قبل از استفاده از تگ باید اونو ست کنم؟
  2. behnam_tr

    سوال : دریافت نام تصویر از imageview

    #Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. 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. Dim cards(52) As Int Dim i=0 As Int Dim j=0 As Int Dim Rand(52) As Int 'Dim mp As MediaPlayer Private c1 As ImageView Private c9 As ImageView Private c3 As ImageView Private c5 As ImageView Private c8 As ImageView Private c4 As ImageView Private c7 As ImageView Private c2 As ImageView Private c6 As ImageView Private user1 As ImageView Private user2 As ImageView Private user3 As ImageView Private user4 As ImageView Private vic1 As ImageView Private vic2 As ImageView Private vic3 As ImageView Private vic4 As ImageView Private land1 As ImageView Private land2 As ImageView Private land3 As ImageView Private land4 As ImageView Private land5 As ImageView Private land6 As ImageView Private land12 As ImageView Private land11 As ImageView Private land10 As ImageView Private land9 As ImageView Private land8 As ImageView Private land7 As ImageView 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("game") 'mp.Initialize("mp3") 'mp.Load=(File.DirAssets,"begin.mp3") For i=0 To cards.Length-1 cards(i)=i+1 Next For j=0 To Rand.Length-1 Rand(j)=Rnd(1,52) Next ToastMessageShow("بازی شروع شد",False) c1.Bitmap=LoadBitmap(File.DirAssets,Rand(0)&".png") c2.Bitmap=LoadBitmap(File.DirAssets,Rand(1)&".png") c3.Bitmap=LoadBitmap(File.DirAssets,Rand(2)&".png") c4.Bitmap=LoadBitmap(File.DirAssets,Rand(3)&".png") user1.Bitmap=LoadBitmap(File.DirAssets,Rand(4)&".png") user2.Bitmap=LoadBitmap(File.DirAssets,Rand(5)&".png") user3.Bitmap=LoadBitmap(File.DirAssets,Rand(6)&".png") user4.Bitmap=LoadBitmap(File.DirAssets,Rand(7)&".png") vic1.Bitmap=LoadBitmap(File.DirAssets,Rand(8)&".png") vic2.Bitmap=LoadBitmap(File.DirAssets,Rand(9)&".png") vic3.Bitmap=LoadBitmap(File.DirAssets,Rand(10)&".png") vic4.Bitmap=LoadBitmap(File.DirAssets,Rand(11)&".png") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub user4_Click land4.Bitmap=LoadBitmap(File.DirAssets,Rand(7)&".png") user4.Bitmap=LoadBitmap(File.DirAssets,"100.png") End Sub Sub user3_Click land3.Bitmap=LoadBitmap(File.DirAssets,Rand(6)&".png") user3.Bitmap=LoadBitmap(File.DirAssets,"100.png") End Sub Sub user2_Click land2.Bitmap=LoadBitmap(File.DirAssets,Rand(5)&".png") user2.Bitmap=LoadBitmap(File.DirAssets,"100.png") End Sub Sub user1_Click land1.Bitmap=LoadBitmap(File.DirAssets,Rand(4)&".png") user1.Bitmap=LoadBitmap(File.DirAssets,"100.png") End Sub اینم از کد ها برای مثال وقتی روی یوزر یک کلیک میشه میخوام نام تصویری که تو یوزر یک در حال نمایش هست اسمش توی یه متغیر ذخیر بشه (نام فایل فقط) فرض کنید نام تصویری که تو یوزر 1 هست اینطوری باشه 5.png الان میخوام نام تصویر مثلا توی یه متغیر متنی ذخیره بشه تا بشه جای دیگه استفاده کرد
  3. behnam_tr

    سوال : دریافت نام تصویر از imageview

    مهم برای من دریافت نام تصویر از ایمیج ویوو هست
  4. behnam_tr

    سوال : دریافت نام تصویر از imageview

    ایمیج ویو با کد زیر پر شده dim c1 as imageview c1.Bitmap=LoadBitmap(File.DirAssets,Rand(0)&".png")
  5. با سلام خدمت اساتید محترم من حدود 10تا ایمیج ویو دارم که تو هر کدوم یه تصویر نمایش داده میشه حالا میخوام با کلیک بر روی هر کدوم از اینها نام تصویر رو نمایش بدم چطور میتونم نام فایل نمایش داده شده روی imageview را دریافت کنم ؟؟
×