HarmonyOS 鸿蒙Next 有没有上拉加载下拉刷新的demo

可以使用三方库PullToRefresh来完成这种场景
链接：https://ohpm.openharmony.cn/#/cn/detail/@ohos%2Fpulltorefresh

import { PullToRefresh } from '[@ohos](/user/ohos)/pulltorefresh'

[@Entry](/user/Entry)
[@Component](/user/Component)
struct Index {
 [@State](/user/State)  refreshText: string = '';
 private dataNumbers: string[] = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '10'];
 private dataStrings: string[] = ['我的评论', '与我相关', '个人中心1', '个人中心2', '个人中心3', '我的发布', '设置', '退出登录'];
 [@State](/user/State)  data: string[] = this.dataStrings;
 // 需绑定列表或宫格组件
 private scroller: Scroller = new Scroller();
 build() {
   Column() {
     PullToRefresh({
       // 必传项，列表组件所绑定的数据
       data: $data,
       // 必传项，需绑定传入主体布局内的列表或宫格组件
       scroller: this.scroller,
       // 必传项，自定义主体布局，内部有列表或宫格组件
       customList: () => {
         // 一个用[@Builder](/user/Builder)修饰过的UI方法
         this.getListView();
       },
       // 可选项，下拉刷新回调
       onRefresh: () => {
         return new Promise<string>((resolve, reject) => {
           // 模拟网络请求操作，请求网络2秒后得到数据，通知组件，变更列表数据
           setTimeout(() => {
             resolve('刷新成功');
             this.data = this.dataNumbers;
           }, 2000);
         });
       },
       // 可选项，上拉加载更多回调
       onLoadMore: () => {
         return new Promise<string>((resolve, reject) => {
           // 模拟网络请求操作，请求网络2秒后得到数据，通知组件，变更列表数据
           setTimeout(() => {
             resolve('');
             this.data.push("增加的条目" + this.data.length);
           }, 2000);
         });
       },
       customLoad: null,
       customRefresh: null,
     })
   }
 }
 [@Builder](/user/Builder)
 private getListView() {
   List({ space: 20, scroller: this.scroller }) {
     ForEach(this.data, (item: string) => {
       ListItem() {
         Text(item)
           .width('100%')
           .height(150)
           .fontSize(20)
           .textAlign(TextAlign.Center)
           .backgroundColor('#95efd2')
       }
     })
   }
   .backgroundColor('#eeeeee')
   .divider({ strokeWidth: 1, color: 0x222222 })
   .edgeEffect(EdgeEffect.None) // 必须设置列表为滑动到边缘无效果
 }
}