رفتن به مطلب

احمد وفا

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

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

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

اعتبار در سایت

13 متوسط

درباره احمد وفا

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

آخرین بازدید کنندگان نمایه

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

  1. کتابخانه ای جهت اجرای فایل های pdf در برنامه دانلود مثال و کتابخانه دانلود نکته فایل android-pdf-viewer.aar را در لایبری محل نصب برنامه b4a کپی کنید سایر فایل ها را در additional library کپی کنید تنها مشکلش اینه حجم فایلتون رو میبره بالا
  2. منم مشکل شما رو داشتم و وقتی خط بالا رو اضاف می کردم در کمپایل ارور می داد مشکلمو با راهنمایی های یه تاپیک دیگه حل کردم: 1.اگه همین کد فعلیتون رو با api 22 (تغییر از طریق مانیفست برنامه)اجرا کنید می بینید که در اندروید 10 کدتون پاسخ می ده ولی برای api بالا تر نه 2.برای api بالا تر مثلا 28 اینجوری نوشتم درست شد: در مانیفیست این پرمیشنا رو می خواستم که اضاف کردم به مانیفیست: AddPermission(android.permission.INTERNET) AddPermission(android.permission.ACCESS_NETWORK_STATE) AddPermission("android.permission.WRITE_INTERNAL_STORAGE") AddPermission(android.permission.READ_INTERNAL_STORAGE) AddPermission(android.permission.READ_EXTERNAL_STORAGE) AddPermission(android.permission.WRITE_EXTERNAL_STORAGE) بعد فقط runtime permission رو برای اونایی خواستم که علامت ستاره در قسمت permission list لوگ دارند و run time permission رو اینجوری نوشتم Sub Process_Globals 'These global variables will be declared once when the application starts. Dim run As RuntimePermissions Sub Activity_Create(FirstTime As Boolean) Try run.CheckAndRequest(run.PERMISSION_READ_EXTERNAL_STORAGE ) run.CheckAndRequest(run.PERMISSION_WRITE_EXTERNAL_STORAGE) Catch Log(LastException) End Try . . . end sub ,و در ساب رکوست هم اینجوری نوشتم: Sub Activity_PermissionResult (Permission As String, Result As Boolean) If Permission = "PERMISSION_WRITE_EXTERNAL_STORAGE" Then ToastMessageShow(Result,True) If Result=True Then MsgboxAsync("کاربر گرامی برای ادامه کار نرم افزار نیاز به فعالسازی این دسترسی دارید.","اخطار") run.CheckAndRequest (run.PERMISSION_WRITE_EXTERNAL_STORAGE) End If Else if Permission = "PERMISSION_READ_EXTERNAL_STORAGE" Then ToastMessageShow(Result,True) If Result=True Then MsgboxAsync("کاربر گرامی برای ادامه کار نرم افزار نیاز به فعالسازی این دسترسی دارید.","اخطار") run.CheckAndRequest (run.PERMISSION_READ_EXTERNAL_STORAGE) End If End If End Sub و مشکلم حتی در api 28 حل شد و jobdone به درستی عمل می کنه ایشا...تونسته باشم کمکی کرده باشم
  3. مشکلم با این کتابخونه حل نشد ولی با کتابخونه TouchImageView 2.11 و کد ذیل بسیار جذاب شد کار TouchImageView1.Initialize("TouchImageView1") Activity.AddView(TouchImageView1, 0, 0, 100%x, 100%y) TouchImageView1.MinScale=0.25 ' default is 0.5 TouchImageView1.MaxScale=3 ' default is 1.5 TouchImageView1.TranslatePadding=128dip ' default is 64dip TouchImageView1.Gravity=Gravity.FILL TouchImageView1.TouchEnabled=True TouchImageView1.RequestFocus TouchImageView1.SendToBack Dim Bitmap1 As Bitmap Bitmap1.Initialize(File.DirInternal,cur2.GetString("Img")) TouchImageView1.SetBitmap(Bitmap1) If FirstTime Then ' Rect parameters are: left, top, right, bottom SourceImageRect.Initialize(0, 0, Bitmap1.Width, Bitmap1.Height) TouchImageViewRect.Initialize(0, 0, TouchImageView1.Width, TouchImageView1.Height) End If ' if the scaling process scales the image to less than the current MinScale or more than the current MaxScale then MinScale or MaxScale will be adjusted TouchImageView1.ScaleSrcRectToDestRect(SourceImageRect, TouchImageViewRect, "CENTER") ' make string a static constant in library
  4. با سلام من هر کاری می کنم عکس در imageview به درستی ست نمی شه.تو تالار هم از دیشب دارم سرچ کردم ولی توفیقی در اصلاح نیافتم لطفا کمک کنید؟ممنون تصویر مشکل می بینید که در ایمیج نصفه می افته Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("image") label1.Initialize("label1") If File.Exists(File.DirInternal,"bn.db")= False Then File.Copy(File.DirAssets,"bn.db",File.DirInternal,"bn.db") End If If Fehrest.sql1.IsInitialized=False Then Fehrest.sql1.Initialize(File.DirInternal,"bn.db",False) End If cur2=Fehrest.sql1.ExecQuery("SELECT * FROM TblMatn WHERE ID="& Fehrest.textmatn) For i=0 To cur2.RowCount-1 cur2.Position=0 img.Initialize("") img.Width=ScrollView2.Width/2 img.Height=ScrollView2.Height/2 img.Gravity=Gravity.FILL bitmap.Initialize("img") img.Bitmap = LoadBitmap(File.DirRootExternal,cur2.GetString("Img")) ScrollView2.Panel.AddView(img,15%x,30%y,bitmap.getWidth(img.Bitmap),bitmap.getHeight(img.Bitmap)) img.Height=(ScrollView2.Height*img.Width)/ScrollView2.Width p.Initialize(img,"img1",Null,1,3,1,True,Me) p.CanZoom=True p.CanMove=True p.LimitArea=True Next مشکل کجاست؟البته تصویر با استفاده کتابخانه PinchZoomAndMove (متغییر p) حرکت می کنه و دستی ست می شه ولی به صورت دیفالت نصف می افته
  5. برای این موضوع از کد ذیل استفاده کنید: Sub Activity_Create(FirstTime As Boolean) 'تعریف لایوت ها TabStrip.LoadLayout("نام تب1"," عنوان تب1") TabStrip.LoadLayout("نام تب2"," عنوان تب2") TabStrip.LoadLayout("نام تب3"," عنوان تب3") TabStrip.ScrollTo(3,False) ' از تب سمت راست آغاز می گردد اولین متغیر (3) تبی هست که می خوایم شروع کنیم.به صورت پیش فرض به علت الفبای چپ چین انگلیسی سمت چپ قرار دارد(1) دومین متغییر(true or false) حرکت بین تب ها رو نرم میکند (smoothscroll)
×
×
  • جدید...