graphicomid

کاربر انجمن
  • تعداد ارسال ها

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

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

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

0 Neutral

درباره graphicomid

  • درجه
    کاربر جدید
  • تاریخ تولد تعیین نشده
  1. سلام به اساتید من یک سورس نوشتم که از دیتابیس آنلاینی که دارم اطلاعات دریافت می کند که دیتابیس من دارای یک جدول با آیتم های id , title , text , imgname که در برنامه طراحی کردم که پست هام را از طریق برنام ارسال می کنم وقتی که ارسال فایل عکس می کنم در قسمت imgname آدرس عکس ثبت می شه و فایل عکس هم در شاخه ایی که تعبیه کردم قرار می گیره حالا اگر 10 تا یا بی نهایت اطلاعات ارسال می کنم به همراه تصاویر مختلف می خوام دریافت اطلاعات کنم بوسیله Hitex_LayoutView دقیقا شبیه برنامه شیپور باید چکار کنم کد هایی که نوشتم به این شکل هست Sub Process_Globals Public ItemList As List End Sub Sub Globals Private LV As Hitex_LayoutView ' Dim MyFont = Typeface.LoadFromAssets("Entezar1.ttf") As Typeface ' Type Model (Title As String,Text As String,image As Bitmap ) Type Adapter (Title As String,Text As String,img_1 As String ) Dim Glide As Hitex_Glide End Sub Sub Activity_Create(FirstTime As Boolean) LV.Initializer("LV").ListView.FastScrollType(3).Build Activity.AddView(LV,0,0,100%x,100%y) ItemList.Initialize LV.FastScroller.HandleColor(0xFF179AEB) LV.Show LV.Divider.Add2(Colors.Gray,1dip,12dip,12dip) ProgressDialogShow("در حال دریافت اطلاعات ...") Goto("SELECT * FROM omid86","Job1") End Sub Sub LV_onCreateViewHolder (Parent As Panel, ViewType As Int) '💎 onCreate 💎' ' Dim Label As Label : Label.Initialize("") ' Label.Typeface = MyFont ' Label.Gravity = Gravity.CENTER_VERTICAL ' Parent.AddView(Label,5dip,2dip,95%x,10%y) Parent.LoadLayout("1") End Sub Sub LV_onBindViewHolder (Parent As Panel, Position As Int) '💠 onBind 💠' Dim Panel1 As Panel = Parent.GetView(0) Dim img_1 As ImageView = Panel1.GetView(0) Dim Label1 As Label = Panel1.GetView(1) Dim Label2 As Label = Panel1.GetView(2) Label1.TextColor=Colors.Black Label2.TextColor=Colors.Black Dim Item = ItemList.Get(Position) As Adapter Label1.Text = Item.title Label2.Text = Item.text Glide.Load2("http://graphicomid.000webhostapp.com/aaa/images").Into(img_1) Parent.Height = 25%y End Sub Sub LV_GetItemCount As Int '💯 ItemCount 💯' Return ItemList.Size End Sub Sub LV_ItemClick (ClickedItem As Panel, Position As Int) Dim Item = ItemList.Get(Position) As Adapter Main2.Text = Item.text StartActivity(Main2) End Sub Sub Goto (Name As String, Event As String) Dim job1 As HttpJob : job1.Initialize(Event,Me) job1.PostString("https://graphicomid.000webhostapp.com/aaa/show.php",Name) End Sub Sub JobDone (Job As HttpJob) If Job.Success Then Dim JSON As JSONParser JSON.Initialize(Job.GetString) Dim List As List = JSON.NextArray For i = 0 To List.Size -1 Dim Map As Map = List.Get(i) Dim Item As Adapter Item.Initialize Item.title = Map.Get("title") Item.text = Map.Get("text") Item.img_1 = Map.Get("imgname") ItemList.Add(Item) Next LV.notifyDataSetChanged ProgressDialogHide End If End Sub