Foxtable(狐表)用户栏目专家坐堂 → PictureViewer控件管理栏隐藏


  共有2842人关注过本帖树形打印复制链接

主题:PictureViewer控件管理栏隐藏

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
PictureViewer控件管理栏隐藏  发帖心情 Post By:2018/4/20 17:26:00 [只看该作者]

PictureViewer控件后面的管理栏能否隐藏,只显示红色框内部分?

 


图片点击可在新窗口打开查看此主题相关图片如下:0098.gif
图片点击可在新窗口打开查看

 

或是PictureBox能否显示多张图片?

[此贴子已经被作者于2018/4/20 17:30:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/20 18:17:00 [只看该作者]

方法一:你可以把控件放在一个panel里面,然后控制panal的高度,不就行了?

 

方法二:你可以隐藏按钮 http://www.foxtable.com/webhelp/scr/2286.htm

 

方式三:

 

Dim obj1 As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
obj1.panel2.controls("FlowLayoutPanel2").visible = False


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/14 8:50:00 [只看该作者]

有多张的图片,做个上一张,下一张的按钮,怎么去判断上一张,下一张呢?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/14 9:20:00 [只看该作者]

上一行的代码,参考

 

Dim obj As object = Forms("窗口2").Controls("PictureViewer1").basecontrol.Controls(0)
Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
Dim r As Row = Tables("表A").current
Dim ls As List(Of String) = r.DataRow.Lines("第一列")
Dim piv As WinForm.PictureViewer = Forms("窗口2").Controls("PictureViewer1")
Dim str As String = FileSys.GetName(piv.SelectedItem)
If vars("str") <> str Then
    vars("str") = str
    vars("idx") = -1
End If
If vars("idx") = -1 Then
    For i As Integer = 0 To ls.count-1
        If ls(i).Contains(vars("str")) Then
            If i = ls.count-1 Then
                pic.image = getimage(ProjectPath & "attachments/" & ls(0))
                vars("idx") = 0
            Else
                pic.image = getimage(ProjectPath & "attachments/" & ls(i+1))
                vars("idx") = i+1
            End If
        End If
    Next
ElseIf vars("idx") = ls.count-1
    pic.image = getimage(ProjectPath & "attachments/" & ls(0))
    vars("idx") = 0
Else
    pic.image = getimage(ProjectPath & "attachments/" & ls(vars("idx")+1))
    vars("idx") += 1
End If


 回到顶部
帅哥哟,离线,有人找我吗?
zhy400137
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1131 积分:8199 威望:0 精华:0 注册:2013/11/3 19:00:00
  发帖心情 Post By:2018/5/14 22:23:00 [只看该作者]

mark

 回到顶部