田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



你需要什么样的软件请你告诉我? 过程外终止 for 或者 do 循环
未知 PictureBox 自动缩放图片、滚动条查看图片   [ 日期:2007-04-17 ]   [ 来自:本站原创 ]  HTML
PictureBox 自动缩放图片、滚动条查看图片


Private Sub Combo1_Click()
    Picture2.Cls
    Picture3.Picture = LoadPicture(App.Path + "\" + Combo1.Text)
    Dim B1  As Double, B2 As Double
    B1 = Me.Picture3.Height / Me.Picture3.Width
    B2 = Me.Picture1.Height / Me.Picture1.Width
    If Me.Picture3.Width <= Me.Picture1.Width And Me.Picture3.Height <= Me.Picture1.Width Then
        Me.Picture2.Width = Me.Picture3.Width
        Me.Picture2.Height = Me.Picture3.Height
        Me.Picture2.Left = (Me.Picture1.Width - Me.Picture3.Width) / 2
        Me.Picture2.Top = (Me.Picture1.Height - Me.Picture3.Height) / 2
    ElseIf Me.Picture3.Width > Me.Picture1.Width Or Me.Picture3.Height > Me.Picture1.Height Then
        If B1 >= B2 Then  '也就是说应该按照高度缩放

            Me.Picture2.Top = 0
            Me.Picture2.Height = Me.Picture1.Height
            Me.Picture2.Width = Me.Picture2.Height / B1
            Me.Picture2.Left = (Me.Picture1.Width - Me.Picture2.Width) / 2

        Else
            Me.Picture2.Left = 0
            Me.Picture2.Width = Me.Picture1.Width
            Me.Picture2.Height = Me.Picture1.Width * B1
            Me.Picture2.Top = (Me.Picture1.Height - Me.Picture2.Height) / 2

        End If
    End If

    Picture2.PaintPicture Picture3.Picture, 0, 0, Picture2.Width, Picture2.Height, 0, 0, Picture3.Width, Picture3.Height

End Sub



点击下载---田草博客--PictureBox自动缩放图片

PictureBox 带滚动条

Sub YSCCLL(Frm As Form)
    With Frm
        Frm.Picture2.Picture = LoadPicture(App.Path + "\" + Combo1.Text)
        If .Picture2.Height > .Picture1.Height And .Picture2.Width > .Picture1.Width Then
            '图片尺寸高宽均大于图片框的尺寸
            .Picture2.Left = 0
            .Picture2.Top = 0
            '水平滚动条
            With .HScroll1
                .Enabled = True
                .Max = Frm.Picture2.Width - Frm.Picture1.Width
                .LargeChange = .Max / 2
                .Value = .Max / 2
            End With
            '垂直滚动条
            With .VScroll1
                .Enabled = True
                .Max = Frm.Picture2.Height - Frm.Picture1.Height
                .LargeChange = .Max / 2
                .Value = .Max / 2
            End With

        ElseIf .Picture2.Height > .Picture1.Height And .Picture2.Width <= .Picture1.Width Then
            '图片的高度超过图片框的高度
            .Picture2.Left = 0
            .Picture2.Top = 0
            .HScroll1.Enabled = False
            '垂直滚动条
            With .VScroll1
                .Enabled = True
                .Max = Frm.Picture2.Height - Frm.Picture1.Height
                .LargeChange = .Max / 2
                .Value = .Max / 2
            End With
            .Picture2.Left = (.Picture1.Width - Frm.Picture2.Width) / 2
        ElseIf .Picture2.Height <= .Picture1.Height And .Picture2.Width > .Picture1.Width Then
            '图片的宽度超过图片框的宽度
            .Picture2.Left = 0
            .Picture2.Top = 0
            .VScroll1.Enabled = False
            '水平滚动条
            With .HScroll1
                .Enabled = True
                .Max = Frm.Picture2.Width - Frm.Picture1.Width
                .LargeChange = .Max / 2
                .Value = .Max / 2
            End With
            .Picture2.Top = (.Picture1.Height - Frm.Picture2.Height) / 2
        Else
            '图片的尺寸均小于等于图片框的尺寸
            .VScroll1.Enabled = False
            .HScroll1.Enabled = False
            .Picture2.Left = (.Picture1.Width - Frm.Picture2.Width) / 2
            .Picture2.Top = (.Picture1.Height - Frm.Picture2.Height) / 2
        End If
    End With
End Sub


点击下载---田草博客--PictureBox带滚动条



[本日志由 田草 于 2007-06-20 08:55 PM 编辑]


暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:1*8=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©