loading

StepView (B4A-Library)

With TimelineView  or StepView you can easily create a nice looking timeline. There are 2 objects.

1- The Horizonatal StepView.

   stepBean0.Initialize("1-接单",stepBean0.STEP_COMPLETED)
    stepBean1.Initialize("2-打包",stepBean0.STEP_COMPLETED)
    stepBean2.Initialize("3-出发",stepBean0.STEP_CURRENT)
    stepBean3.Initialize("4-送单",stepBean0.STEP_CURRENT)
    stepBean4.Initialize("5-完成",stepBean0.STEP_UNDO)
    stepBean5.Initialize("6-支付",stepBean0.STEP_UNDO)
    stepsBeanList.add(stepBean0)
    stepsBeanList.add(stepBean1)
    stepsBeanList.add(stepBean2)
    stepsBeanList.add(stepBean3)
    stepsBeanList.add(stepBean4)
    stepsBeanList.add(stepBean5)
    
    HorizontalStepView1.StepViewTexts = stepsBeanList
    
    HorizontalStepView1.TextSize = 16
    HorizontalStepView1.StepsViewIndicatorCompletedLineColor = Colors.Green
    HorizontalStepView1.StepsViewIndicatorUnCompletedLineColor = Colors.Red
    HorizontalStepView1.StepViewComplectedTextColor = Colors.Green
    HorizontalStepView1.StepViewUnComplectedTextColor= Colors.Yellow
    HorizontalStepView1.StepsViewIndicatorCompleteIcon= bdCompleted
    HorizontalStepView1.StepsViewIndicatorDefaultIcon= bdDefault
    HorizontalStepView1.StepsViewIndicatorAttentionIcon= bdAttention

2- The Vertical StepView.

     list0.add("1-您已提交定单,等待系统确认")
    list0.add("2-您的商品需要从外地调拨,我们会尽快处理,请耐心等待")
    list0.add("3-您的订单已经进入亚洲第一仓储中心1号库准备出库")
    list0.add("4-您的订单预计6月23日送达您的手中,618期间促销火爆,可能影响送货时间,请您谅解,我们会第一时间送到您的手中")
    list0.add("5-您的订单已打印完毕")
    list0.add("6-您的订单已拣货完成")
    list0.add("7-扫描员已经扫描")
    list0.add("8-打包成功")
    list0.add("9-您的订单在京东【华东外单分拣中心】发货完成,准备送往京东【北京通州分拣中心】")
    list0.add("10-您的订单在京东【北京通州分拣中心】分拣完成")
    list0.add("11-您的订单在京东【北京通州分拣中心】发货完成,准备送往京东【北京中关村大厦站】")
    list0.add("12-您的订单在京东【北京中关村大厦站】验货完成,正在分配配送员")
    list0.add("13-配送员【包牙齿】已出发,联系电话【130-0000-0000】,感谢您的耐心等待,参加评价还能赢取好多礼物哦")
    list0.add("14-感谢你在京东购物,欢迎你下次光临!")
    VerticalStepView1.StepsViewIndicatorComplectingPosition = (list0.Size - 9)
    VerticalStepView1.reverseDraw(False)
    VerticalStepView1.TextSize= 14
    VerticalStepView1.StepViewTexts= list0
    VerticalStepView1.StepsViewIndicatorCompletedLineColor = Colors.Green
    VerticalStepView1.StepsViewIndicatorUnCompletedLineColor = Colors.Red
    VerticalStepView1.StepViewComplectedTextColor = Colors.Green
    VerticalStepView1.StepViewUnComplectedTextColor= Colors.Yellow
    VerticalStepView1.StepsViewIndicatorCompleteIcon= bdCompleted
    VerticalStepView1.StepsViewIndicatorDefaultIcon= bdDefault
    VerticalStepView1.StepsViewIndicatorAttentionIcon= bdAttention