rm2.Pview.ScaleWidthform2.HScpic.SmallChange=form2.Pscroll.Width\20form2.HScpic.LargeChange=form2.Pscroll.Width\10EndIfIfform2.Pscroll.Height<form2.Pview.HeightThen'判断是否给图片加垂直滚动条form2.Pscroll.Top=(form2.Pview.ScaleHeight-form2.Pscroll.Height)\2form2.VScpic.Visible=TrueElseform2.Pscroll.Top=0form2.VScpic.Visible=Trueform2.VScpic.Value=0form2.VScpic.Max=form2.Pscroll.Height-form2.Pview.ScaleHeightform2.VScpic.SmallChange=form2.Pscroll.Height\20form2.VScpic.LargeChange=form2.Pscroll.Height\10EndIfEndSub PrivateSubtext1_Change()'检索图片File1.Pattern=Text1.TextLabel2.Caption="文件数目:"&Str(File1.ListCount)&"个文件"EndSub 'mand1_Click()EndEndSub(2)form2窗体完整程序代码PrivateSubHScpic_Change()'托动水平滚动条Pscroll.Left=-HScpic.ValueEndSub PrivateSubVScpic_Change()'托动垂直滚动条Pscroll.Top=-VScpic.ValueEndSub 'mand1_Click()
全文预览
