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

实现窗体内部的左右移动 -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
专访腾讯反病毒实验室:揭秘TAV引擎,哈勃分析系统两大利器 Cocos Studio v2.0 Beta0正式发布!多维升级,合三为一 环信即时通讯云获3000万融资 用于研发运维 苹果谷歌都无力?前员工开发跨设备无缝同步应用 带你看会带你飞!MDCC 2014移动开发者大会参会指南 Meteor 1.0发布 构建更好的Web应用 【专访】敏捷专家吴穹:敏捷测试的行业应用与实战解析 英特尔中国研究院最新成果亮相 展示智能衣服瓷杯机器人等创新作品 Node.js 打造实时多人游戏框架 深圳微信开发者大会购票企业特征分析 上门汽车服务“e保养”完成A轮500万美元融资 Docker之父Solomon Hykes谈项目开发的初衷和挑战 浪潮是如何实现单日5000台x86服务器交付互联网的? Bootstrap 3.3.0发布 版本4不再支持IE8 漏洞预警:FTP曝严重远程执行漏洞 影响多个版本Unix 【简讯】W3C小组宣布HTML5标准制定完成 AMD发布GPUPerfAPI 2.14,GPU性能检测更Easy! 开放能力升级——微信公众号登陆授权开启公测! 百度最“智能”的新型推荐技术——智能因子分解机 消灭Bug!18款最佳的问题跟踪管理应用程序 Google Analytics为什么会这么快 【MDCC 2014】Xamarin深入体验营——开发实战大揭秘 【MDCC 2014】电信技术专场:运营商与开发者如何合作共赢 【MDCC 2014】高德LBS大赛闭幕式暨颁奖典礼:下一个50亿应用花落谁家? MDCC 2014移动开发者大会开幕:全生态系统齐聚 开发者成主角 蓝港互动有限公司董事长&首席执行官王峰:移动互联网泛娱乐化趋势 多盟联合创始人&总裁张鹤:多盟DSPAN助力开发者高效变现 创新工场联合创始人汪华:移动互联网时代的跃迁式增长 阿里巴巴集团UC移动事业群总裁俞永福:AMAP Inside——更专业、更开放 《程序员+》移动应用上线 启动“2014 MDCC十大人气应用/产品评选活动” 微软开发体验与平台合作事业部大中华区DX部门总经理Srikanth Raju:基于云的跨平台开发 请问如何在状态栏中显示图片? unicode和utf8的文件格式、区别等学习资料?! 请问listview的排序问题!!!!!!!!!!???????????????????????????? 奇怪的问题,急!!!!!!!! 有没有客家人?进来报道一下。 帮忙看几行代码是什么错误? 请问listview的排序问题!!!!!!!!!!???????????????????????????? 其实如今的中国,一个字就可以概括 再VC7中加入对话框的问题 TCP连接发送数据如何限制一个连接的最大速度? win2003 cdk??? 机子无法启动,各位大虾帮帮忙! 在一个FORM里面绘制了GDI对象,怎样将FORM中的选定的区域转换为位图呢? 心情不好,放分。 安装win 98时,提示“没有足够的常规内存”,该如何解决?? 奇怪的查询问题,既没有出错,也没有正确结果。 一个很基础的指针问题,为什么非要转化为一个二级指针再转化为一级指针呀,才能 想自己动手写一个论坛,请大虾推荐几本asp入门书籍 想比较一下corba webservice dcom的异同,作为论文发表如何 如何编程实现对共享文件的进行访问监视? 如何改变select-sQl查询窗的名字啊,默认是“查询”,能否改成自已喜欢的? 求助:做程控滤波器(模拟)可以用哪些芯片??? 请问取整用 那个函数? 快 C# Builder 1.0 企业版BT下载! 很容易的问题,送分了模态对话框问题 这个API调用没胡有语 错误,但为什么在打印出来好多小四方格呀,我以前也遇到 过,不知什么原因 pb8.0与java VM安装问题请教! 请教高手,我将整个目录的文件写到一个ListBox1里,想按字母顺序写入!! 一个页转到另一个页后,另一个页的地址栏上将汉字转换成了%%%%类似的东西,如何解决? form 标签里的 enctype="multipart/form-data" 是什么意思? 哪有jsp的免费空间?最好支持ftp的 我在程序里写了insert语句也执行成功了,但在sql explorer的data里却找不到该条记录?但insert相同记录却也提示记录重复?interbase数据 求解一水晶报表打包后的问题? 我出差了,才回来看了一眼可用分大大的多了,可是信誉分才有56了,怎么办呀!! rh8的文本界面能不能显示中文啊 请问一个命名管道的问题 一个简单的报表问题!请各位来帮忙解决! 各位老大帮我看看啊,什么都好了,就差这个了。 如何为动态创建的控件添加事件过程? C# Builder 1.0 企业版BT下载! 水晶报表求和 作软件需不需要认证?需要,不需要,我们只是讨论一下,不要这么认真 请问当我单击某个按钮时,如何设置此时的鼠标状态??? sql语言里:条件not in 与not exist有什么区别? 三级上机考试模拟软件怎么用? 怎样学API???????? 一个数据查询的问题,在线等待 在哪里可以下载Screnc.exe?急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急!急 菜鸟问题, GCC 编译出的目标码中函数前面有没有下划线呀? 如何实现一个表单的自动提交? 请教各位,如何在powerpoint 中用vb宏向幻灯片中写入文本 在三角形ABC中,(a+b+c)(c+b-a)=3ac 则a=? 请问cherish是什么意思? I am deeply grateful to you all for your sincere kindness! You're always_______to me.l'm really grateful to your_______.(kind) If it is very hot,I usually___.A.go skating BIf it is very hot,I usually___.A.go skating B.go rowing C.eat ice creams CHERISH的中文意思是什么? cherish是什么意思啊?大神们帮帮忙 某单位有工作人员48人,其中女性占总人数37.5%,后来又调来女性若干人,这时女性人数恰好是总人数的40%,问调来几名女性?开始有女性是48*37.5%=18 男性30人,调整后男性是1-40%=60% 总人数是30/60%=50 某单位业务人员、管理人员、后勤服务人员人数之比依次为15∶3∶2.为了了解该单位职员的某种情况采用分层抽样方法抽出一个容量为n的样本,样本中业务人员人数为30,则此样本的容量n为 我国政府编制内政府工作人员大概多少人?比例是多少?其他国家情况怎么样?人数还有比例.thank u 木已凉兮,这四个字有什么含义吗? 约旦河西岸推进环保 巴以或实现“环境巴官员称以色列炮击加沙地带 一名武装万圣节作掩护 女子藏毒南瓜闯加拿大海万圣节作掩护 女子藏毒南瓜闯加拿大海俄八旬老汉野外斗熊 被摔下悬崖后逃出奥巴马豪华座驾“野兽”细节曝光【图】津巴布韦教师涉猥亵性侵多名男生 用\女子坚持每天喝3升水 4周后外貌似年大型科技公司虎视美国医保网站改造律师:斯诺登在俄找到网站工作 今日开尼日尔移民车沙漠抛锚 致90人脱水而教练手掐队员脖子还有多少公共财产在晦暗处运行奥巴马宣布将在欧洲增加军事存在这一生,深海作证安吉丽娜·朱莉现身上海BMWxDrive开启“智能全驱体验肃宁尚村附近单身女子接连遭抢团伙专职替人“出气”当街打伤老人乘联会:5月车市异常偏好 自主现复苏衡水东大门“补伤口” 预计俩月完工丰田中国携4款福祉车参展
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘