Foxtable(狐表) → 用户栏目 → 专家坐堂 → 例子提法错误


  共有3021人关注过本帖树形打印复制链接

主题：例子提法错误
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/30 15:04:00 [只看该作者]

以下是引用刘林在2018/11/30 13:07:00的发言：
老师我看了，我现在不是改变取景框大小，是要拖动改变取景框的位置，没懂得什么意思,该么办？

 

看懂19楼的例子，然后，你可以添加一个小的label控件，点击左键移动这个lable的时候，对应移动你的取景框，即可。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/12/1 9:41:00 [只看该作者]


全局代码public:
Public Sub linebox_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim linebox = sender 
If e.Delta > 0 Then
  linebox.Width += 50
    linebox.Height += 50
    linebox.Top -= e.Y / linebox.Height * 50
  linebox.Left -= e.X /linebox.Width * 50
Else
    linebox.Width -= 50
    linebox.Height -= 50
    linebox.Top += e.Y / linebox.Height * 50
    linebox.Left += e.X / linebox.Width * 50
End If
End Sub



afterload事件
Dim linebox As System.Windows.Forms.panel  = e.Form.Controls("linebox").basecontrol
AddHandler linebox.MouseWheel, AddressOf linebox_MouseWheel

mousemove事件
If e.Button = MouseButtons.Left Then
    If e.Sender.Name ="linebox" Then
        e.Sender.Left += e.x - vars("x")
        e.Sender.top += e.y - vars("y")
    End If
End If

 
mousedown事件
If e.Button = MouseButtons.Left Then
    If e.Sender.Name = "linebox" Then
        vars("x") = e.X
        vars("y") = e.Y
        vars("currCtl") = e.Sender.Name

    End If
End If


老师这样子点linebox拖动还是没有反应，应该怎么改
 回到顶部
帅哥，在线噢！
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106212 积分：540183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/1 10:26:00 [只看该作者]

测试没有问题。给panel加上背景色或者边框就看出效果了

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/12/1 10:30:00 [只看该作者]

加了的，但不能实现拖动

 回到顶部
帅哥，在线噢！
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106212 积分：540183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/1 11:09:00 [只看该作者]

上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/12/1 12:10:00 [只看该作者]

老师就是一楼的那个实例，我的想法就是不用滑动条来控制取景框，而是可拖动这样更方便，请老师帮指导一下
[此贴子已经被作者于2018/12/1 12:11:02编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106212 积分：540183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/1 12:17:00 [只看该作者]

请重新上传你修改后有问题的实例

 回到顶部
帅哥，在线噢！
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106212 积分：540183 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/1 12:18:00 [只看该作者]

注意panel不要放到图片框里面

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/12/1 17:35:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:摄像头拍照_201812011736.zip


老师请看一下，我把事件代码加了就是想将红色的选景框能用鼠标拖放,谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1936 积分：14844 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2018/12/1 17:55:00 [只看该作者]

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
“UserCode”的类型初始值设定项引发异常。
未能加载文件或程序集“DirectX.Capture, Version=1.0.5047.29294, Culture=neutral, PublicKeyToken=null”或它的某一个依赖项。系统找不到指定的文件。


因加了照相，系统发布后重新升级时出现这个错误是什么原因？

把这个Public _Cams As DCap.Filters = New DCap.Filters()

 改为了Public _Cams As DCap.Filters

系统启动时没问题了,但打开窗口就又出现上面错误，（有摄像头的，关键问题是在项目里是没有问题，可以照相, 但发布后就出问题了）



 

[此贴子已经被作者于2018/12/1 21:58:13编辑过]
 回到顶部
总数 38 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询