已经解决,杰哥的帖子里会发布,我这里简单发布下。具体去杰哥的帖子看,http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=169011&replyID=&skin=1
‘定义Subscribe方法的第二个参数的方法
Dim act1 As Action(of CSRedis.CSRedisClient.SubscribeMessageEventArgs) = Sub(ByVal name As CSRedis.CSRedisClient.SubscribeMessageEventArgs) ‘数据类型必须为CSRedis.CSRedisClient.SubscribeMessageEventArgs
Output.Show(name.Body) ‘订阅频道返回的消息内容
End Sub
‘合成Subscrib方法的参数
Dim func1 = New ValueTuple(Of String, Action(of CSRedis.CSRedisClient.SubscribeMessageEventArgs))("zhb",act1 ) ‘订阅参数必须为ValueTuple格式,带2个参数。第一个参数为string代表订阅的频道;第二个为redis返回的数据,格式必须为Action,切数据类型必须为CSRedis.CSRedisClient.SubscribeMessageEventArgs。
Dim su = RedisHelper.Subscribe(func1 ) ‘启动订阅