قرار نگرفتن متن و عکس در مکان مناسب

[mr-edris 186]

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

خیلی ممنون میشم

[mr-edris 186]

*monkey* هنوز نفهمیدم باید چی کار کنم؟

[Nemesis 1,846]

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

[mr-edris 186]

مشکلش معلوم نشد؟

ممنون میشم کمکم کنید

[Kazem Forghani 2,927]

من نمی دونم

[mr-edris 186]

عزیزم هم شات گذاشتم هم سورس گذاشتم هم کد لایوت مشکل دار رو

[farzad 41]

دوست عزیز شما داخل دیتابیس آدرس کامل عکس با پسوند مثلا ax1.jpg بذار

بعد داخل دیزاینر یک ایمیج ویو بذار مکان را همین جا تنظیم کن

بعد برای کد نویسی در اکتیویتی کریت از دستور زیر برای فراخوانی عکس های دیتابیس استفاده کنید.

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,cursor1.GetString("pic")))

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

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

 If File.Exists(File.DirAssets,cur.GetString("Ax1") & ".jpg")=True Then 
 b.Initialize(File.DirAssets,cur.GetString("Ax1")& ".jpg")
  ax1.Bitmap=b
   ax1.Width=100%x
   ax1.Height=b.Height * (100%x/b.Width)
  Else 
  ax1.Height=0
  End If
ez1.height = su.MeasureMultilineTextHeight(ez1,ez1.Text)
ez1.Top=0
   ax1.Top=ez1.Height
   sc.Panel.Height=ez1.Height 

این دیگه استفاده نکن

[mr-edris 186]

دوست عزیز شما داخل دیتابیس آدرس کامل عکس با پسوند مثلا ax1.jpg بذار

بعد داخل دیزاینر یک ایمیج ویو بذار مکان را همین جا تنظیم کن

بعد برای کد نویسی در اکتیویتی کریت از دستور زیر برای فراخوانی عکس های دیتابیس استفاده کنید.

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,cursor1.GetString("pic")))

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

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

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

[farzad 41]

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

برای قرار گیری درست مکان ها از دستور SetLeftAndRight استفاده کن

ImageView1.SetLeftAndRight(8dip,100%x-8dip)

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

سورست رو دیدم سر درد گرفتم یه لحظه

سعی کن اسم هارو خودت انتخاب کنی

    Private fav As ImageView
   Private set As ImageView
   Dim cur As Cursor
   Dim int1 As Int
   Dim int2 As Int
   Dim su As StringUtils
   Dim dl As ColorPickerDialog
'    Dim ln As LNsetting
   Dim ez1 As Label
   Dim ax1 As ImageView
   Private sc As ScrollView
   Private share As ImageView

اینا چی هستن؟

درسته سورس کتاب امام خامنه ای مثل همین هست ولی دلیل نمیشه بقیه هم مثل اون کار کنن.

محمد احمدی امضای قشنگی داره توی انجمن:

هر كسي ميتواند كدي بنويسد كه يك كامپيوتر آنرا درك كند يك برنامه نويس خوب كدي را مينويسد كه براي سايرهمكارانش قابل درك باشد.

[mr-edris 186]

Private fav As ImageView --------------------->این که معلومه
   Private set As ImageView--------------------->این که واسه تنظیماته
   Dim cur As Cursor--------------------->این که کرسوره
   Dim int1 As Int--------------------->تو این قسمت صدای فیلم قطعه من نمی فهمم
   Dim int2 As Int--------------------->تو این قسمت صدای فیلم قطعه من نمی فهمم
   Dim su As StringUtils---------------------> این ئاسه خوندن مقدار از دیتابیسه
   Dim dl As ColorPickerDialog---------------------> واسه لایبریری اقاقی قبادیه که هنوز بهش نرسیدم کار کنم
'    Dim ln As LNsetting---------------------> اینم که واسه همون لایبرریه
   Dim ez1 As Label---------------------> لیبل واسه متنه
   Dim ax1 As ImageView---------------------> واسه گرفتن عکس از دیتابیسه
   Private sc As ScrollView--------------------->اینم که اسکرولمه
   Private share As ImageView--------------------->اینم معلومه

[mr-edris 186]

اپ قانونی کسی نبود کمکم کنه؟

[milad19 113]

سلام

مشکل چیه؟

[mr-edris 186]

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

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

عزیز 4.4 مگابایت سورس آپلود کردی مستقیم خب معلومه درست و حسابی جواب نمیگیری *fekr*

اول تیکه کدی که مشکل داری باهاش + یک اسکرین از مشکل رو بزار اگه مشکل بر طرف نشد و بچه ها سورس رو خواستن اون موقع پیوست رو انجام بده *laie*

[پژمان نیکروان 6,055]

ماشالا چه سورس پرحجمی.

من دانلود کردم الان کجاشو نگاه کنم؟ کدوم قستش مشکل داره؟ کدوم لایوت؟

[mr-edris 186]

لایوت read

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

   Private fav As ImageView
   Private set As ImageView
   Dim cur As Cursor
   Dim su As StringUtils
   Dim dl As ColorPickerDialog
  Dim ln As LNsetting
   Dim ez1 As Label
   Dim ax1 As ImageView
   Private sc As ScrollView
   Private share 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("read")
   ln.Initialize
   Dim p As PhoneWakeState
   p.KeepAlive(True)

If File.Exists(File.DirInternal,"site.db") = False Then
File.Copy(File.DirAssets,"site.db",File.DirInternal,"site.db")
End If

If feh.Sql1.IsInitialized = False Then
feh.Sql1.Initialize(File.DirInternal,"site.db",False)
End If
cur = feh.Sql1.ExecQuery("SELECT * FROM site WHERE id="& feh.khandan )  
Dim b As Bitmap
cur.Position = 0
ez1.Text= cur.GetString("Ez1")
ez1.Gravity=Gravity.RIGHT
ez1.Tag=ez1
If File.Exists(File.DirAssets,cur.GetString("Ax1") & ".jpg")=True Then 
 b.Initialize(File.DirAssets,cur.GetString("Ax1")& ".jpg")
  ax1.Bitmap=b
   ax1.Width=100%x
   ax1.Height=b.Height * (100%x/b.Width)
  Else 
  ax1.Height=0
  End If
ez1.height = su.MeasureMultilineTextHeight(ez1,ez1.Text)
ez1.Top=0
   ax1.Top=ez1.Height
   sc.Panel.Height=ez1.Height 
End Sub

[mr-edris 186]

اینم اسکرین شات از مشکل

[farzad 41]

این اسکرین شات که گذاشتی دقیقا کجاش مشکل داره

[abasdawoodi 10]

سلام به عزیزان

من یه ایمج ویو دارم که از روی متن میخونه ولی وقتی مطلب رو میاری تو لیست علاقه مندی و اونو باز کنی ایمج ویو عکس مورد نظرم رو در نمیاره

لطفا راهنمایی کنید

ممنون

[farzad 41]

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

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,cursor1.GetString("pic")))