网页功能: 加入收藏 设为首页 网站搜索  
像ACDSee一样用鼠标拖曳大于窗体的图片
发表日期:2003-07-21作者:[] 出处:  

本站之前也提供了一个类似的程序,但是那个程序限制当图片比窗体小时,必须将图片置于窗体左上角,否则程序执行会有问题。以下提供的程序去除了这个限制,同时当图片比窗体小时会将图片置于窗体中央,这样看起来比较美观。

Option Explicit

Private gX As Long, gY As Long

Private Sub Form_Load()

Image1 = LoadPicture("c:winntwinnt256.bmp") '这个路径可能要改

FitForm Image1

End Sub

Private Sub Form_Resize()

Call CenterImage(Image1)

End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

gX = X

gY = Y

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Not Button = vbLeftButton Then Exit Sub

Dim dx As Long, dy As Long, ax As Long, ay As Long, t As Long, l As Long, tt As Long, ll As Long

With Image1

dy = Y - gY

dx = X - gX

ll = .Left

tt = .Top

l = Abs(ll)

t = Abs(tt)

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 像ACDSee一样用鼠标拖曳大于窗体的图片
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2018 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00367