欢迎光临 - 嗷嗷叫的老马 - 很久以前写的一个代码:图片框显示大图片时自动添加滚动条

2007 年 12 月

站点统计

日志：516 篇
评论：331 篇
留言：31 篇
收藏夹：0 个书签
会员数:149 人

编程随笔

很久以前写的一个代码:图片框显示大图片时自动添加滚动条 [ 2006-11-16 | 作者：马大哈 | 来自：本站原创]

点击下载此文件

不知道什么时候写的......

在图片过大时就派上用场了.

大虫吃小虫?????????? 我老了???????????????????暴暴汗!!!!

马大哈于 2007-01-19 02:10 PM 发表评论：

不客气

121 于 2007-01-19 12:21 PM 发表评论：

谢谢你啊，搞定拉

马大哈于 2007-01-18 05:32 PM 发表评论：

Private Sub ShowHV() '检测是否显示滚动条的过程. 这个过程需要周期性地调用其实是可以在事件里面处理的,我偷了懒. 我是用定时器周期性调用的,你分析一下我的代码就知道了.

121 于 2007-01-18 09:06 AM 发表评论：

对不起，上面是所有的代码，我就是把你其它的代码删除，然后在Form_Load中增加了一句调图语句，发现滚动条不显示了

121 于 2007-01-18 09:03 AM 发表评论：

Private Sub Form_Load() Me.Show Pic2.Top = 0 Pic2.Left = 0 Pic2.Height = 0 Pic2.Width = 0 Set Pic2.Picture = LoadPicture("C:\Documents and Settings\daneil\桌面\s2007116182820\1.jpg") Pic2.ScaleMode = vbPixels Pic2.AutoRedraw = True End Sub Private Sub VS1_Scroll() Pic2.Top = 0 - VS1.Value End Sub Private Sub VS1_Change() Pic2.Top = 0 - VS1.Value End Sub Private Sub HS1_Change() Pic2.Left = 0 - HS1.Value End Sub Private Sub HS1_Scroll() Pic2.Left = 0 - HS1.Value End Sub Private Sub ShowHV() '检测是否显示滚动条的过程. Cmd1.Height = HS1.Height Cmd1.Width = VS1.Width If Pic2.Height >= Pic1.ScaleHeight - 250 Then VS1.Max = Pic2.Height - Pic1.ScaleHeight + 250 VS1.SmallChange = VS1.Max / 5 VS1.LargeChange = VS1.Max / 10 VS1.Top = 0 VS1.Left = Pic1.ScaleWidth - VS1.Width VS1.Height = Pic1.ScaleHeight - 250 Cmd1.Move VS1.Left, VS1.Height Cmd1.Visible = True VS1.Visible = True Else VS1.Visible = False End If If Pic2.Width >= Pic1.ScaleWidth - 250 Then HS1.Max = Pic2.Width - Pic1.ScaleWidth + 250 HS1.SmallChange = HS1.Max / 5 HS1.LargeChange = HS1.Max / 10 HS1.Top = Pic1.ScaleHeight - HS1.Height HS1.Width = Pic1.ScaleWidth - 250 HS1.Left = 0 Cmd1.Move HS1.Width, HS1.Top Cmd1.Visible = True HS1.Visible = True Else HS1.Visible = False End If If HS1.Visible = False And VS1.Visible = False Then Cmd1.Visible = False Else Cmd1.Visible = True End If End Sub

马大哈于 2007-01-16 06:30 PM 发表评论：

你怎么弄的?? 我没有发现这个问题. 这里是我改的SSTAB版: 点击下载此文件就是添加了个SSTAB,再把PIC1放在里面.

121 于 2007-01-16 11:01 AM 发表评论：

你说的这个方法我试过，发现图片完全无法控制在SSTAB范围内

马大哈于 2007-01-15 04:07 PM 发表评论：

滚动条需要自己写你只需要把我代码里面的图片框与滚动条放在SSTAB里面就行了具体的代码可能需要调整一下

121 于 2007-01-15 03:01 PM 发表评论：

我看了一下，sstab里面也没有自带的滚动条啊。能不能给个简单的示范啊，谢谢

马大哈于 2007-01-15 02:12 PM 发表评论：

tabstrip控件不能作为容器使用,这是一大缺点. 你可以使用SSTAB控件,它可以作为容器包含别的控件.

121 于 2007-01-15 08:51 AM 发表评论：

你好，你这个是在form窗体上实现的，如果在一个tabstrip上面如何根据tabstrip的大小来调整图片大小啊。我安装你上面的方法发现图片无法控制在tabstrip下面