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

实现窗体内部的左右移动 -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
在Report Builder中增加自定义函数-Delphi资料 在Win2000 Beta下安装Delphi 在Word插入字符-Delphi资料 注册表中几个对编程特别有用的地方-Delphi资料 资源文件在DELPHI中的使用 自制替换指定串函数-Delphi资料 API函数快速入门API函数简介-VB资料 API函数快速入门怎样在VB中声明和使用API函数 API函数在VB开发中的应用 API函数在VB中的应用 API实现完美的图片出现效果-VB资料 ListView控件特效-VB资料 Office 95 API 的企业开发者指南-VB资料 SENDMESSAGE函数巧应用 -VB资料 VB 与Windows API 讲座(五) VB5 未公开的函数 VB5.0与Windows API 间的呼叫技巧 VB5中回调函数的使用方法 VB的API编程精粹(二) VB的API编程精粹(一) VB调用API函数技巧快速选择全部项目 VB调用API函数使窗口保持在最上层 VB中调用Windows API的注意事项 VB中访问API函数之防错技巧 VB中利用API函数实现特殊窗体的两种方法 VB中用API函数实现文件夹列表 WIN32 API-VB资料 WIN32 API的分类介绍 -VB资料 Win95系统API函数大揭秘 作者:何发武 -VB资料 把图标放在WIN95的系统托盘中-VB资料 打开/关闭光驱门-VB资料 大家的ID也太不工整太没创意了吧?有点乱七八糟的!看我的多好! 一个简单的问题???? 用Table过滤数据,在线等待!!! 请问有没有办法通过c#连接到Internet上的某个数据库(用c#的工具) 清纯女孩不为人知的一面(未成年勿入) 菜鸟在线求助:=》》 大家好。有事请教 还是billboard里的 关于透明色 关于页面的连接问题 不好意思,问这个问题? 求教,关于网页的东东,急!!!!!!!!!!!!!!! 表间数据复制问题 关于远程控制的一个问题 那里有PB6.0可供免费下载? 关于 电视卡 压缩MPEG文件的问题 CComboBox为何不能下拉,属性已设为Drop List 菜鸟问题,怎样用photoshop画出的矩形有3D边框?没分了,请帮忙 急!磁盘检测出错?在线 有关限制插入操作的问题(SQL Server 2000),救急! 蓝星梦工厂的电视卡 怎样把"34444"->34444? 构造函数初级问题 求串口联网方法! 爱情和事业是不是真的水火不容不可兼得??? 窗体里的数据能不能排序呢 救急,为什么我设置的fnOpenModal参数无效? 如何修改listview中的值? 经常去联众下围棋的兄弟进来,问个问题 用jbuilder怎样把htc文件打包到web application中去? 求助高手指点:用vb实现把结果输出到已定制的word表格中 用200百分问个很菜的问题 关于超星的问题 探讨:如何把软件开发工作为我们一生的事业 ocx问题?参数传递 用200百分问个很菜的问题 请问谁能告诉我一个制作从模糊到清晰运动的源代码或地址? 改变对话框中菜单区的背景色,急 弱智问题:我修改一个打印报表的数据窗口格式,修改后的新问题是它每次打印时接着纸的最上面, IE不能打开新窗口。是什么道理? java下如何得到当前程序(application)的路径?很急!! 组件调用问题? 初学者问题, 简单!! 为什么struts的中文资料如此之少??哪位知道有哪些中文书籍?电子书最好!! 我想做一个报表之类的东西,能在网页上显示,大家给点提示,有现成的例子最好,先谢了 请教各位大大 一个关于消息映射的郁闷 如何在Remote Data Module中使用ADOCommand? 真失败...关于优化pl/sql的问题 为什么名字空间下没有ADO 如何获得一个文件的完整URL地址? 谁能详细的讲讲我不明白的例子。我开ID送1000分。我把ID给费了。一定要搞懂 Applet从html中读取参数信息????? 以一个三棱柱的任2个顶点做直线,共有15条,其中异面直线有几条?择优看不懂你的回答哦````四面体为什么是C6?不是C8吗 宋朝人口到底有多少? 假如你是西汉汉武帝时期的考生,除了学习儒家经典以外,会学习法家经典吗? 过三棱柱任意两顶点的直线共15条,其中异面直线有几条 金属化聚丙烯膜安规电容上有一行印字:40/110/56/C有什么意义?要换一颗电容,耐压和容量相同,但印字是40/100/21,不清楚这些印字的意义,谁知道它们表示的都是什么,意义为何? 周游相近的词( 有一个人去旅行,他带了五个动物,分别是,狮子,猴子,牛,绵羊,马,他途经沙漠时,被沙有一个人去旅行,他带了五个动物,分别是,狮子,猴子,牛,绵羊,马,他途经沙漠时,被沙尘暴吹走了所有的粮食, 桃花心木的启示 错失良机后的心情是怎样的, 跳岛游 ISLAND HOPPING怎么样 在桃花心木中我得到什么启示 女朋友个性签名是《时光,浓淡相宜;人心,远近相安.这就是最好的生活》我的写什么好呢? 通过家乡变化赞美党的作文 急求郑州市主城区共分几个区,每个区的分界线是什么,最好说出详细的路为为分界线, 关于满足作文的素材,或者是:知足者常乐 ISLAND HOPPING怎么样 亚欧分界线穿过哪个城市 满足与不满足 作文可以写它们的区别,也可选择一个针对它写一篇文章.有人说知足者常乐,但是不满足也可以催人奋进.认为哪个对呢?字数不多,六百多,呵Thanks. 我方认为是不知足者常乐,可是要找几个辩驳反方的问题, esprit怎么念? 渤海与黄海的分界线怎么画?是哪两个城市的连线?是烟台与旅顺么? 知足者常乐 作文 电井、水井建筑面积怎么计算 你认为叙利奥是个什么性格的孩子,谁知道, 《拿破仑与欧洲》读后感不少于2000字 有谁学建筑的 谁能给我设计个建筑图 长80m宽26m大小的空地,中间有个电...有谁学建筑的谁能给我设计个建筑图长80m宽26m大小的空地,中间有个电线杆,在设计一个生产车间,库房,办公室(这三个 滚动轴承的结构简图有标准代号?如果有,是什么? 辩论,不知足者常乐不知足者常乐如何辩倒知足者常乐,需要提供资料 关于廉政的格言 调心球轴承有哪两种结构 拿破仑传得读后感600字 Dolphin Island是什么意思 树欲静,如何对待风不止? 风欲静而树不止子欲养而亲不待什么意思 PAMILACAN ISLAND DOLPHIN WATCHING怎么样 滚动轴承部件的轴向固定方法有几种 经过棱柱每个顶点有几条边 的主要内容要自己的话 滚动轴承的基准制与一般零件的基准制有什么区别 名人传读后感5000字 help me! 蓝色海豚岛主题 Esprit 这个牌子有多大?怎么样?知名度如何? 为什么国家货币印多了就会通货膨胀?关于货币和同伙膨胀之间的详细关系,有哪位大哥能简明扼要的给小弟解释下么 海豚岛的读后感 作者:克拉克 500字(优美语句至少要有三句)小女子万分感激『注意』●《是海豚岛》哦!不是《蓝色海豚岛》● 谁有知足常乐的事例,或者是关于知足常乐的作文, 八棱柱有几个顶点 电容,电阻主要用于哪些产品上? “知足与不知足”为话题的作文稍微好点就ok 四棱柱有几个顶点 廉政的解释 作文《学会知足》 Elephant Island 求翻译~在南极洲 坚定的信心,能使平凡的人们,做出惊人的事业.对于凌驾命运之上的人来说,信心就是生命的主宰的意思? 生活需要知足作文 过三棱柱任意两个顶点的直线共15条 其中异面直线有几条 廉明解释廉明自律是什么意思?谢谢! 简析儒家,法家,道家思想主张及其对秦,西汉两朝统治决策产生的影响 过三棱柱任意两个顶点的直线共有15条,其中异面直线共有()对. 刚正廉明的解释 西汉后为何法家与儒家互为表里 朝鲜美林骑马俱乐部竣工 女兵骑马英姿多国抗议被美监听通讯 印度:总理无手美国情报机构或已监听默克尔电话长达十摩萨德特工的各种“不靠谱”杭州到长沙10月底到11月机票最低0浙大一院:人感染H7N9禽流感病毒疫李某某强奸案二审31日开庭 律师称未李某某案31日二审开庭 辩护律师身份违停超过65秒自动抓拍 萧山启用杭首奥巴马参观学校旁听课程 揶揄国会议员伊朗边境发生武装冲突 14名边防人员国防部:日方若击落中国无人机 中方将德国小伙:德国政府可没收空置7年房屋中国记协严厉谴责陈永洲涉嫌虚假报道等伊朗处死16名反政府组织囚犯 回应边中联重科:看过央视才知陈永洲案情人民日报评陈永洲事件:守住记者职业底湖南三干部偷拍县委书记续:视频曾选择卡梅伦为美监听辩护摩根大通花大钱了官司港澳记者将走访浙江产业集聚区延长石油升至第432位西安城市建设职业学院违规招生被通报批李玮峰:老将发挥是绝对亮点中铁·水映加州 突围别墅市场暴毙之后……通用时代 压哨抽射获胜“天台”不够用,他冲上高速了带着帐篷、啤酒,爽了把7∶1原来logo是这意思最佳射手湖北孝感人大主任坠亡两周前巡视组宣布还好,头脑发热仍是一种硬通货踢球如何防止踝关节损伤叫做内马尔的稻草他以为电视信号出问题了巴西不哭虐哭巴西 德国人都“不敢相信”湾田·国际 后发制人龙湖·湘风原著 “传控+射门”完美嫁可怜的大英格兰再中枪张呈栋:德国队胜在整体
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘