Public Sub AddRefresh (TableView As TableView)
Dim nome as NativeObject=Me
nome.RunMethod("AddRefresh:",Array(TableView))
End Sub
Sub refreshing(RefreshControl As Object)
' DO YOUR REFRESHING JOB
Dim no As NativeObject=RefreshControl
no.RunMethod("endRefreshing",Null) ' END REFRESHING
End Sub
#IF OBJC
-(void)AddRefresh: (UITableView*)tbl {
UITableViewController *tableViewController = [[UITableViewController alloc] init];
tableViewController.tableView = tbl;
UIRefreshControl *refreshControl = [[UIRefreshControl alloc] init];
[refreshControl addTarget:self action:@selector(refresh:) forControlEvents:UIControlEventValueChanged];
tableViewController.refreshControl = refreshControl;
}
- (void)refresh:(id)sender {
UIRefreshControl *refreshControl=sender;
[self.bi raiseEvent:nil event:@"refreshing:" params:@[(refreshControl)]];
}
#END IF