---------------------------
错误
---------------------------
编译错误:语法错误。
错误代码：For Each w As Integer = 1 To 4
---------------------------
确定
---------------------------
代码如下
If User.IsRole("编辑") Then
Else
'For w As Integer = 1 To 4
For Each w As Integer = 1 To 4
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer" & w)
pv.AddCommand.Visible = True ' :增加
pv.DeleteCommand .Visible = True ':删除
pv.ClearCommand.Visible = False ':清除
pv.OpenCommand.Visible = False ':打开
pv.FullViewCommand.Visible = True ':全屏
pv.ManagerCommand.Visible = False ' :管理
pv.SaveAsCommand.Visible = True ' :另存
pv.StretchCommand.Visible = False ' :缩放
pv.UpdateCommand.Visible = True ':更新
pv.ConnectCommand.Visible = False ':重连
Next
End If
加好友 
发短信
Post By：2014/9/25 11:26:00 [只看该作者]
