无框窗体移动最简法（程序）

2016-02-19 20:15 7 1 收藏

get新技能是需要付出行动的，即使看得再多也还是要动手试一试。今天图老师小编跟大家分享的是无框窗体移动最简法（程序），一起来学习了解下吧！

【 tulaoshi.com - 编程语言】

Dimi,x1AsDouble,y1AsDouble,x2AsDouble,y2AsDouble
　　PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　i=1
　　x1=X
　　y1=Y

EndSub

PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　Ifi=1Then
　　x2=X-x1 form1.lift
　　y2=Y-y1 form1.top
　　form1.movex2,y2

EndIf
　　EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　i=0

EndSub

来源:http://www.tulaoshi.com/n/20160219/1623157.html

看过《无框窗体移动最简法（程序）》的人还看了以下文章更多>>

递归清空窗体上所有文本框,下拉框中的文本

标签：编程语言网络编程

{* 单元说明：递归清空窗体上所有文本框，下拉框中的文本。作者：笔名：易一英文名：yeeyee E-Mail ： jane1437@163.com 创建时间：&...

用VB设计聚焦框程序

标签：编程语言网络编程

什么是聚焦框？在Windows中是这样解释的：当某个按钮被按下或某个控件正在使用时，由一个长方形的虚线框聚焦在此按钮或控件上来提示用户它正起作用。但是并非所有的控件在任何时候都能得到焦点（即得到聚焦框），有时我们在日常的编程中也许会用到它，用来提示用户一些必要的信息。这时你可以这样做：说明:在以下程序中可以使Picture控件得...

书房字画讲究无框装饰画

完美家庭所推出的无框装饰画，是目前新流行的装饰画的一种表现形式,它摆脱了边框的束缚，与传统的家居装饰画形成鲜明对比，无拘无束，与墙面浑然一体，而种类繁多的亮丽的画面图案，更使室内整体散发出现代时尚的气息。书房字画讲究无框装饰画该无框装饰画奉行以优雅、精简为上之风，使人不知觉中便融入画面之情景。产品背...

快速关闭无响应程序进程

标签：电脑入门

使用Windows的朋友一定遇到过，电脑中的程序在运行的过程中，因为种种原因经常没有响应，就需要到进程列表中将无响应的程序关闭。但是在众多进程中快速找到无响应的进程不是一件容易的事情，需要花费半天的时间才能够找到。如果你一直为这个事而困惑的话，可以试试一款名字为Process Manager的软件，利用它可以快速关闭无响应程序进程。先将...

无模式对话框的创建分析

标签：编程语言网络编程

在编程过程中,对话框经常用到,但对无模式和模式对话框的创建和销毁过程,经常有误解,下面提高一个无模式对话框的例子来剖析无模式对话框的形成: 无模式对话框与有模式对话框不同的是在创建后其他窗口都可以继续接收用户输入，因此无模式对话框有些类似一个弹出窗口。创建无模式对话框需要调用 BOOL CDialog::Create( UINT nIDTemplate, CWnd* ...

查看更多精彩>>