جستجو در تالار

در حال نمایش نتایج برای برچسب های 'بیسیک'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالار ها

  • اخبار سایت
    • قوانین انجمن
    • اخبار و اطلاعیه ها
    • انتقادات و پیشنهادات
  • بیسیک فور اندروید
    • آموزش ها
    • کتابخانه ها
    • سورس کد ها
    • قطعه کد ها
    • سوالات عمومی
    • معرفی برنامه های شما
    • دانلود نسخه های مختلف
  • اندروید استدیو
    • کتابخانه ها
    • سورس کد ها
    • قطعه کد ها
    • سوالات عمومی
    • معرفی برنامه های شما
  • زبان های برنامه نویسی دیگر
    • PHP
  • بخش گرافیک
    • ابزار های طراحی
    • طرح های لایه باز
    • نمونه رابط کاربری (UI)
  • بخش VIP
    • سورس کد ها
    • کتابخانه ها
    • آموزش ها
    • بخش پشتیبانی
  • متفرقه
    • بحث آزاد

دسته ها

  • بیسیک فور اندروید
    • کتابخانه ها
    • سوس کدها
    • نسخه های مختلف b4a

3 نتیجه پیدا شد

  1. سلام اقای نامنی من با ایتک کلیک ریسایکلر مشکل دارم این ساب رو نوشتم ولی موقع جست و جو روی ایتم سرچ شده میزنم اصلا یه چیز دیگه رو میاره مثلا چشمه رو سرچ میکنم تو ریسایکلر میاد بعد روش کلیک ئمیکنم مثلا اب رو بالا میاره خواهشا راه حل درست حسابی بهم بدید که برطرف بشه Sub LV_ItemClick (ClickedItem As Panel, Position As Int) '👆 ItemClick 👆' Dim pan = ClickedItem.GetView(0) As Panel Dim lbl = pan.GetView(0) As Label Dim Titr = lbl.Text As String Dim myCur = Sql.ExecQuery("SELECT * FROM tabirkhabcontent WHERE list LIKE '%" & Titr & "%'") As Cursor myCur.Position = Position InterGoToNama = myCur.Position StartActivity(Nama) myCur.Close End Sub
  2. نحوه ی استفاده از Refresh برای ریسایکلر ویو (نسخه 6+) Sub Globals Dim LV As Hitex_LayoutView Dim RL As Hitex_RefreshLayout End Sub Sub Activity_Create(FirstTime As Boolean) LV.Initializer("LV").ListView.RefreshLayout.ReverseLayout.Build Activity.AddView(LV,0,0,100%x,100%y) RL.Initialize(LV, "RL") RL.Direction = RL.DIRECTION_TOP RL.SchemeColors = Array As Int (Colors.Red, Colors.Black, Colors.Blue) LV.Show End Sub Sub RL_onRefresh (Direction As Int) Select (Direction) Case RL.DIRECTION_TOP: Log("TOP") Case RL.DIRECTION_BOTTOM: Log("BOTTOM") End Select End Sub Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int) '# onCreate #' Dim lbl As Label: lbl.Initialize("lbl") lbl.TextColor = -2 : lbl.TextSize = 18 Parent.AddView(lbl,0,0,100%x,10%y) End Sub Sub LV_onBindViewHolder (Parent As Panel, Position As Int) '* onBind *' Dim lbl = Parent.GetView(0) As Label lbl.Text = "Hello World ! " & Position End Sub Sub LV_GetItemCount As Int '$ ItemCount $' Return 100 'ItemList.Size End Sub
  3. سلام میکم من همه کتابخانه اپدیت و کتبخونه دیگه هم ریختم اما سورس این ارور داد باید چکار کنم