vb中shared问题

Virtual_MJ 2005-08-09 01:31:34
我声明了一个public Shared RememberUrl as String
然后在一个方法中给他复值
Page_Load
.....
Remember=Row("mHref").ToString()
.....

最后用另外一个方法调用这个rememberurl
Sub return()
Response.Redirect(RememberUrl.ToString())
end Sub


为什么总是传不过来我副给的值Row("mHref")呢?
应该怎么解决?
...全文
270 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
malingxian 2005-08-09
  • 打赏
  • 举报
回复
看来你这个变量是用在web页面中的,建议采用如下几种方式来保存得到的数据:
1、
Page_Load
.....
session("rememberurl")=Row("mHref").ToString())
.....

最后用另外一个方法调用这个rememberurl
Sub return()
Response.Redirect(session("rememberurl").ToString())
end Sub

2、
Page_Load
.....
ViewState("rememberurl")=Row("mHref").ToString())
.....

最后用另外一个方法调用这个rememberurl
Sub return()
Response.Redirect(ViewState("rememberurl").ToString())
end Sub
Virtual_MJ 2005-08-09
  • 打赏
  • 举报
回复
是一个变量,rememberurl和RememberUrl是一个变量
3tzjq 2005-08-09
  • 打赏
  • 举报
回复
Remember=Row("mHref").ToString() >> RememberUrl=Row("mHref").ToString()
hamadou 2005-08-09
  • 打赏
  • 举报
回复
Remember和rememberurl
是一个变量吗????
Vb写的俄罗斯方块 基本功能全'声明一个整数常量Width,表示游戏界面横向的小正方形数目,初始化为16 Public Const Width As Integer = 16 '声明一个整数常量Height,表示游戏界面横向的小正方形数目,初始化为30 Public Const Height As Integer = 30 '游戏界面的背景色 Public Shared BackColor As Color '小正方形的大小 Public Shared SquareSize As Size = New Size(10, 10) Public Shared g As Graphics '声明一个Graphics变量,用于绘制下一个方块 Public Shared gNext As Graphics '声明一个数组,用于表示游戏界面上的所有小正方形 Private Shared ArrGameField(Width - 1, Height - 1) As CSquare '函数功能:判断ArrGameField(x, y)是否有正方形,有则返回False,无则返回True Public Shared Function IsEmpty(ByVal x As Integer, ByVal y As Integer) As Boolean If x >= 0 And x = 0 And y =0 '在循环体,先判断第y行是否是满的,是的话result增1,并把第y行上的所有小正方形下降一行.最后y递减1 '如果实现把第y行的所有小正方形下降一行:从第y行扫描至第0行,每扫描一行,把上一行的每个小正方形赋值给该行,并修改每一个小正方形的Location属性的值 While Y >= 0 If IsLineFull(Y) Then result += 1 For i As Integer = Y To 0 Step -1 If i > 0 Then For x As Integer = 0 To Width - 1 ArrGameField(x, i) = ArrGameField(x, i - 1) If Not ArrGameField(x, i) Is Nothing Then ArrGameField(x, i).Location = New Point(ArrGameField(x, i).Location.X, ArrGameField(x, i).Location.Y + SquareSize.Height) End If Next Else For x As Integer = 0 To Width - 1 ArrGameField(x, i) = Nothing Next End If Next Else

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧