说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

实现窗体内部的左右移动 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
实现窗体内部的左右移动 -VB资料
'分割区的宽度
Private Const SPLITTERWIDTH = 45
'最小移动宽度
Private Const HMIN = 15
'picLeft和picRight的宽度相对于窗体的比例
Private Percent As Single
'正在拖动的标志
Private DragFlag As Boolean

'每次拖动后需要重排窗体上的控件
Private Sub RedrawMe()
Dim NewWidth As Single
' 忽略窗体缩小的情况
If WindowState = vbMinimized Then Exit Sub
NewWidth = (ScaleWidth - SPLITTERWIDTH) * Percent
Picleft.Move 0, 0, NewWidth, ScaleHeight
Picright.Move NewWidth + SPLITTERWIDTH, 0, ScaleWidth - NewWidth - SPLITTERWIDTH, ScaleHeight
End Sub

Private Sub Form_Load()
'PicLeft和PicRight的MousePointer=1
Percent = 0.5
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragFlag = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'定义鼠标为vbSizeWE型
MousePointer = vbSizeWE
Percent = X / ScaleWidth
RedrawMe
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragFlag = False
MousePointer = 0 '此行语句实际没有起作用
End Sub
为什么谷歌要一直为摩托罗拉烧钱? 远见卓识,像CEO一样编写代码! [探讨]如何成为有代码洁癖的程序员? 消灭Bug!十款免费移动应用测试框架推荐 协同软件供应商Atlassian推出JIRA服务台 振奋人心!iOS和Android版BBM应用首日下载量冲破1000万次 十款开源的数据库管理工具 360联合多家IDC成立“安全防黑联盟” 国内百万网站受益 腾讯云如何玩转手游数据分析 成都站免费抢票 直接拿来用!10款实用Android UI工具 第14届英特尔投资全球峰会 新投16个项目逐一看 2013中国Linux内核开发者大会亮点汇总 UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% MDCC 2013垂直行业应用与O2O专题论坛透露劲爆话题 专访豌豆荚产品设计团队:Design Hackathon是绞尽脑汁之后的海阔天空 首日报名爆满超300 向C++大师Lippman提问征集 做华为合伙人:华为开发者联盟沙龙(北京站)即将开幕 Windows XP发行12周年 我仍年轻而你已垂暮 2013浏览器市场份额:Chrome领衔,Firefox、IE相去甚远 人人网陈弢:从RecSys2013看大数据和移动给推荐系统带来的挑战 继续紧逼Oracle:在占领谷歌等公司之后,MariaDB迈向企业端 移动周报:十款最实用的Android UI设计工具 如果存储变量使用过多的参数的话,是不是就会得不到提高速度的效果了?? 我的linux可以访问操作系统是98的机器,但不能访问w2k,why??? 超高技术难题,手写的数据窗口数据源代码问题 哪里有source inside,或者是source navigator 谁知道ISO8583的标准 对象,实例,reference有什么区别吗 程序员有时间交女朋友吗????????? 怎样做才能使后面的子程序在前面子程序已经画好的图形里添加画线? 哪里有VC6的英文版下载呀,市场上买不到英文的呀 大家说说看,vc连接access的应用程序,用什么做显示数据好。 有没有雷锋?! ccnuxjg(阿木) 各位高人,我GG考我一个谜语,限我今天答复,请大家帮帮我。(四字成语) 怎样删除重复的行(mssql) 一个页面,如何实现左边为链接信息,右边为内容? 关于模式对话框的问题 项目实战两问,关于操作系统和光盘运行,高手请进! 怎样判断发信成功 CDONTS.NewMail 在杭州搞JSP的,请进来交换QQ,邮件!我们需要交流! 如何用sendmessage让一个窗口最小化 我想把COM+组件的客户端安装包打到install shield 的安装包中,并且自动安装com+客户端安装包,可是。。。。 word2000中不能使用打印功能,为什么? CSDN是怎么了,三天两头出问题啊~!!!!!!!!!!!!!!!!!!!!!!!!!!!!! OleContainer.SaveToFile的文件用Word怎么打不开? vb的多线程如何实现? 这句话是什么意思!!!! 有个女孩问我的代码理论问题……紧急!!有请各路大仙 指针与数组常通用,但一个存值,一个存地址,能不能讲一下他们的内存如何分配,怎样互用的 我一和女朋友有矛盾时,就感到浑身无力,什么也做不下去,脑袋乱七八糟的,做什么都不专一,直到问题解决,不知大家有没有和我有一样感觉的? 海星是南京大学的吗? 请问。vb有没有字体选择的控件(.ocx) 请问在该专区里有没有四川绵阳水校到深圳的王师兄!huan_91_cn@china.com 游戏爱好狂们注意:有没有愿意建立游戏网页!!! 各位大虾请帮忙!!谢谢!!!!! 有关数据报表的处理,采用EXCEL 听说所有Enterprise Manager工具都允许简单地通过单击鼠标来切换身份 怎么恢复? 在数据库中建立临时表来进行数据操作,我对它在使用时何时建立何时删除不太了解,能给我说明一下吗? 如何在触发器中调用存储过程(sql server 或者 oracle)(无内容) 请问哪里有完整版的sql server下载,不要钱的,不要序列号的??? 请较两个英文短语的理解 我要做个套打的程序,希望高手可以提示一点思路,能用QR吗? 加载驱动的问题!! 请教DELPHI中的打印机设置问题,各位师兄请进来看一下! 急问:怎样编程实现打开已保存的quickreport文件(*.QRP)?主要是得到保存的文件名后如何处理打开操作 请问这语句的意思? 在用Rose进行系统分析的过程中,如何对界面的进行详细描述? 谁知道Kylix要在linux内核2.?版本以上才能安装?? 急死菜鸟拉,大家帮帮忙呀 高分求助!!!配置Tomcat4.0 请问那里有php聊天程序?能适合虚拟主机(Unix)、无数据库 (高二物理)电源电动势与电源电压的区别是什么呢?书上有:“电源的电动势等于电源没有接入电路时两极间的电压.”1 这句话中所说的电压是指电源内部电压呢还是外部电压呢?2 电源接入 为什么霜前冷雪后寒 再生胶价格 电源电动势给解释一下? 天然橡胶垫的硬度怎样选择? 高强力再生胶有什么作用? 在CAD图纸里面,铁的硬度和加工方法怎么表示?想加工一小滚轮,硬度要高,不知如何表达 电压接近电源电动势说明了什么是两点间电压 ANSYS WORKBENCH 如何定义硬度为85的天然橡胶减震块的材料属性需要在workbench环境下定义一个硬度为85的天然橡胶减震块的属性.由于我没有相应的数据,就在材料库里边选了workbench自带的mooney-rivli 一件工作,甲单独做要10天,乙单独做要15天,丙要20天,现三人合作中途级休息几天,结果一共用六天,甲中途休息了几天? 一项工程,甲单独做要15天,乙单独做要20天.现在甲乙合做2天后,乙队抽走.甲队还要几天完成? 5个厚天然橡胶硬度65大概怎么卖的 电动势和电压的区别是什么 一项工程,甲队独做20天完成,乙队独做15天完成,现在甲现在先独做5天,剩下的由甲乙合作,还需几天完成?请回答,并写出步骤 怎样理解电源电压和电动势的方向? 电动势和电势差有何异同?如何区别 “霜前冷,雪后寒”告诉我们什么道理? 电动势是什么,通俗点. 海市蜃楼的形成 "霜前冷,雪后寒"包含了什么道理? 什么汽车什么奔驰在什么马路上 扩句 为什么会产生海市蜃楼? 你听说过“霜前冷,雪后寒”吗?从科学的角度分析这句话的含义是A.霜形成之前的气温一定比下雪后低B.霜形成的气温一定比雪形成时的气温低C.霜后的气温一定比霜形成前高,雪后气温一定比 一项工程,甲乙两队合做要12天完成,现在甲队独做18天,余下的由乙接着做,8天正好做完,如果由甲独做这项工程,要多少天完成? 初二关于磁的一切总结, 俗话说:“霜前冷,雪后寒”请简单叙述它的道理 为什么人们常说“霜后冷,雪后寒”? 初二物理第一章【具体】的总结超具体的,越具体的越好, NBR低硫硫化体系是什么意思?什么是低硫硫化? 它到底是多少克,密度是天然橡胶体积 = 7.8809110e+04 毫米^3曲面面积 = 3.0771309e+04 毫米^2密度 = 9.5000000e-01 公斤 / 毫米^3质量 = 7.4868654e+04 公斤这东西在proe中计算的,但是实际那个产品的重量是多 霜前冷,雪后寒的道理 常见的硫化体系主要的化合物是哪些? 苯的密度大还是天然橡胶的密度大?苯和天然橡胶的溶解度参数是多少?回答者请注明资料出处. 一项工程,如果单独做,甲需10天完工,乙需15天完工,丙需20天完工.现在三人合作一项工程,甲独做需10天完成,乙单独做需15天完成,丙单独做需20天完成.现在三人合作,中途甲先休息一天,乙在休息 怎样理解电压、电量、电流的概念、区别?1楼不详细,我要他们的概念(定义) “宽广的马路上,各式各样的汽车在穿梭来往”改成比喻句 现在有一项工程,甲单独做30天,如果甲和乙合作需要20天,现在甲做了15天,然后乙来完成,还需要几天? 电压的概念是什么 汽车开得快用什么比喻句 异戊二烯制天然橡胶的方程 差模电压和共模电压的定义分别是什么?它们有什么区别? 把”汽车开向前方”改成比喻句 一项工程甲独做30天完成,乙独做15天完成,丙独做20天完成.现在三人合作,中途甲因事休息,这样完成任务一共用了8天,问甲休息了几天?一项工程甲独做30天完成,乙独做15天完成,丙独做20天完 一项工程,单独完成,甲队需要15天,乙队需要20天.现在甲、乙两队合作甲、乙两队各休息了几天,所以用了11天改成12天,已知甲队休息了3天,乙队休息了?天 蜗牛能对外界的刺激做出反应,即具有______________答案具体一点. 一项工作甲工程队单独施工需要30天才能完成,乙队单独需要20天才能完成.现在由甲队单独工作5天,剩下的工一项工作甲工程队单独施工需要30天才能完成,乙队单独需要20天才能完成.现在由甲 一项工程,单独完成,甲队需要15天,乙队需要20天.现在甲、乙两队合作途中甲、乙两队各休息了几天所以用了12天才完成了全工程.又已知甲队休息了3天,求乙队休息了多少天? 如果用铅笔碰蜗牛,蜗牛会做出相应的反应.这说明什么意义?初一的科学作业本第2章第三题. 电动势和电压有什么区别 汽车在马路上慢慢地行驶改为比喻句 十五的月亮像什么?求比喻句. 请问:电动势与电压有什么区别? 一项工程,单独完成,甲队需要15天,乙队需要20天.现在甲乙两队合作,因中途甲乙两队各休息了加添,所以用了12天才完成全工程.已知甲休息了3天,乙队休息了几天? 汽车奔驰的扩写句子速答! 电源电动势和电源电压有什么区别 为什么霜前冷,雪后寒 十五的月亮圆.改为比喻句. 海市蜃楼的成因是( )A.光的直线传播B.光的漫反射C.光的折射D.光的色散 为什么"霜前冷,雪后寒"? 谁有高强力再生胶配方?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn