如何不失真地显示长、宽超过32768缇的图片.txt

VB技巧问答10000例 VB技巧问答10000例

用 两 个 Picture Box和 滚 动 条 来 做 ， 但 是 好 象 无 法 成 功 ... 溢 出 ... 
    是 因 为 : 0 <= HVScrollBar.Min <= HVScrollBar.Value <= HVScrollBar.Max <= 32767 
    而 : PictureBox的 Width与 Height是 应 该 可 以 可 以 > 32767缇 的 ,不 信 可 以 试 试 : PictureBox.Width=65536 ! 
    所 以 仅 是 由 于 "滚 动 条 " 的 问 题 引 起 的 "溢 出 "! 
    可 编 写 如 下 代 码 解 决 : 
    (参 阅 MSDN： 《 Scroll Bar 控 件 方 案 ： 创 建 可 滚 动 的 图 形 视 口 》 ) 
     
    N为 一 适 当 的 倍 (Integer)数 : 
    ... 
    HScroll1.Max = (Picture2.Width - Picture1.Width) \ N '<=32767缇 
    VScroll1.Max = (Picture2.Height - Picture1.Height) \ N '<=32767缇 
    ... 
     
    Private Sub HScroll1_Change() 
    Picture2.Left = -HScroll1.Value * N 
    End Sub 
     
    Private Sub VScroll1_Change() 
    Picture2.Top = -VScroll1.Value * N 
    End Sub 
<END>