offsetrect如何用AUTORWARE画函数图象
offsetrect 时间:2021-01-14 阅读:(
)
怎样锁定热踺
'画两个按钮,使用如下代码 Option Explicit Private Type RECT left As As Long right As Long bottom As Long End Type Private Type POINT x As Long y As Long End Type Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Sub ClipCursor Lib "user32" (lpRect As Any) Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT) Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) Private Sub Form_Load() Command1.Caption = "限制" Command2.Caption = "解除" End Sub Private Sub Command1_Click() Dim client As RECT Dim upperleft As POINT Dim hWnd As Long '查找标题为“form1”的窗口 hWnd = FindWindow(vbNullString, "Form1") GetClientRect hWnd, client upperleft.x = client.left upperleft.y = ClientToScreen hWnd, upperleft OffsetRect client, upperleft.x, upperleft.y ClipCursor client End Sub Private Sub Command2_Click() ClipCursor ByVal 0& End Sub Private Sub Form_Unload(Cancel As Integer) ClipCursor ByVal 0& End Sub可能会比较难 参考资料: /question/344784620.html谁能告诉我这样一个问题???pagecontrol的底面颜色怎么改变??????
你如果想改变tabsheet 的颜色:放一个Panel在tabsheet上,修改 Panel的颜色就可以。
如何在对话框中加上ToolBar
CToolBar m_wndToolBar; step3: 在CDialog::OnInitDialog中添加如下代码: // 创建工具条并调入资源 if(!m_wndToolBar.Create(this) || !m_wndToolBar.LoadToolBar(IDR_TOOLBAR1)) { TRACE0("Failed to Create Dialog Toolbar
"); EndDialog(IDCANCEL); } CRect rcClientOld; // 久客户区RECT CRect rcClientNew; // 加入TOOLBAR后的CLIENT RECT GetClientRect(rcClientOld); // // Called to reposition and resize control bars in the client area of a window // The reposQuery FLAG does not really traw the Toolbar. It only does the calculations. // And puts the new ClientRect values in rcClientNew so we can do the rest of the Math. //重新计算RECT大小 RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0,reposQuery,rcClientNew); // All of the Child Windows (Controls) now need to be moved so the Tollbar does not cover them up. //所有的子窗口将被移动,以免被TOOLBAR覆盖 // Offest to move all child controls after adding Tollbar //计算移动的距离 CPoint ptOffset(rcClientNew.left-rcClientOld.left, ); CRect rcChild; CWnd* pwndChild = GetWindow(GW_CHILD); //得到子窗口 while(pwndChild) // 处理所有子窗口 {//移动所有子窗口 pwndChild-GetWindowRect(rcChild); ScreenToClient(rcChild); rcChild.OffsetRect(ptOffset); pwndChild-MoveWindow(rcChild,FALSE); pwndChild = pwndChild-GetNextWindow(); } CRect rcWindow; GetWindowRect(rcWindow); // 得到对话框RECT rcWindow.right += rcClientOld.Width() - rcClientNew.Width(); // 修改对话框尺寸 rcWindow.bottom += rcClientOld.Height() - rcClientNew.Height(); MoveWindow(rcWindow,FALSE); // Redraw Window RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0);引文来源如何用AUTORWARE画函数图象
Authorware函数分类
Autorware的系统函数有大致有18类:Character(字符管理函数)、CMI(计算机学习管理函数)、(File)文件管理函数、Framework(框架管理函数)、Ceneral(一般目的函数)、Graphic(绘图函数)、Icons(图标管理函数)、Jump(跳转函数)、Language(编程语言函数)、List(列表排序索引函数)、Math(数学运算函数)、Network(网络管理函数)、OLE(管理函数)、Platform(平台管理函数)、Target(目标函数控制图标的属性)、Time(时间管理函数)、Video(视频管理函数)、Xtras(使用、控制Xtras文件,取得Xtras文件信息)。
一、数学函数
ABS()
格式:number:= ABS(x)
说明:返回x的绝对值。
ACOS()
格式:number:= ACOS(x)
说明:返回x的反余弦函数值,x的值的范围为0~Pi。
ArrayGet
格式:result:= ArrayGet(n)
说明:读取一个排列中的第n个单元,并将它赋给变量result,该单元可以是一个字符串或数字。
Array()
格式:MyArray:= Array(value, dim1 [, dim2, dim3, ...dim10])
说明:该函数用来创建一个列表,可以创建多维列表。
ArraySet(n, value)
格式:ArraySet(n, value)
说明:将Value的值插入到一个排列列表中第n的位置。
ASIN
格式:number:= ASIN(x)
说明:计算x的反正弦值。
ATAN
格式:number:= ATAN(x)
说明:计算x的反正切值。
Average
格式:
1. Value:= Average(anyList)
2. Value:= Average(a [, b, c, d, e, f, g, h, i, j])
说明:取得参数列表中各参数的平均值。
COS
格式:number:= COS(angle)
说明:计算x的余弦值,将值赋给number,其中x为角度,单位是弧度。
EXP
格式:number:=EXP(x)
说明:将的e次幂x的值赋给number.
EXP10
格式:number:=EXP10(x)
说明:将10的x次幂的值赋给number.
Fraction
格式:result:=Fraction(number)
说明:该函数返回number数值中的小数点后的内容,包括小数点。
例如:Result:= Fraction(12.34),Result 的值为“.34”。
INT
格式:number:= INT(x)
说明:对数x取整,例如:INT(3.14) 返回值 3。
INT("1a2b3c") 返回值123。
LN
格式:number:= LN(x)
说明:该参数x取自然对数的值。
LOG10
格式:number:= LOG10(x)
说明:该函数返回x的以10为底的对数的值。
Max
格式:value:= Max(anyList)
value:= Max(a [, b , c, d, e, f, g, h, i, j])
说明:取列表中,或各参数中的最大值。
Min
格式:value:= Min(anyList)
value:= Min(a [, b, c, d, e, f, g, h, i, j])
说明:返回列表中,或各参数中的最大值。
MOD
格式:number:= MOD(x, y)
说明:该函数返回x/y的余数。
例如:将24小时制的时间转化为12小时制的时间:Hours:= Mod(2300/100,12)
Number
格式:number:= Number(x)
说明:该函数将参数x转化为一个实型或整型的数值。
例如:Number("1a2b3c") 返回值为123。
Random
格式:number:= Random(min, max, units)
说明:该函数产生范围在min 之间max,小数点后类似units的随机数。
Real
格式:realNum:= Real(x)
说明:将参数x转化为实型。
Round
格式:number:= Round(x [, decimals])
说明:该函数按照decimals设定的小数位数来实现四舍五入的算法。
Sign
格式:number:= Sign(x)
说明:当x为负时,该函数返回值为-1。
当x为0时,该函数返回值为0。
当x为正时,该函数返回值为1。
SIN
格式:number:= SIN(angle)
说明:该函数取角度的正弦值。
SQRT
格式:number:= SQRT(x)
说明:该函数返回参数x的平方根。
Sum
格式:value:= Sum(anyList)
value:= Sum(a [, b, c, d, e, f, g, h, i, j]),
说明:该函数返回列表中或各参数(最多10个)的值的累加。
例如List:= [10, 20, 30]
TotalValue:= Sum(List),其值为60。
TAN
格式:number:= TAN(angle)
说明:该函数返回角度angle的正切值。
二、列表函数
AddLinear
格式:AddLinear(linearList, value [, index])
说明:该函数的作用是将Value插入到Linearlist(线型列表)中。
如果该线型列表是一个有序的列表,则Value被按照一定的规则插入到合适的位置。
如果该列表为一个无序的列表,则将Value插入的列表的最后。
如果index的值为1,则Valve被插入到列表第一个。
如果index的值超过列表中的个数,则越界的个数用零补全,然后再插入Value。
AddProperty
格式:AddProperty(propertyList, #property, value [, index])
说明:该函数的作用是将属性或值插入到属性列表中。
Array()
格式:MyArray:=Array(value,dim1[dim2,dim3,dim4,…dim10])
说明:该函数用来创建一个列表,并可以为多维的列表.
CopyList
格式:newList:= CopyList(anyList)
说明:该函数实现列表的完全拷贝,生成一个新的列表。
DeleteAtIndex
格式:DeleteAtIndex(anyList, index)
说明:该函数按照索引从列表中删除一个特定的元素。
例如:anyList:= [1, 2, 3],DeleteAtIndex(anyList, 1),anyList 的值改变为[2, 3]。
DeleteAtProperty
格式:DeleteAtProperty(propertyList, #property)
说明:该函数删除在列表中第一个具有特定属性的元素。
FindProperty
格式:index:=FindProperty(propertyList, #property, [index])
说明:该函数返回具有属性的列表中,从index往后第一个具有特定属性的字符串的位置。
FindValue
格式:
index:= FindValue(anyList, value [, index])
说明:该函数返回在列表中,从index往后寻找第一个具有指定值的字符串的位置。
如果没有寻找到同value相同的字符串或anylist参数不是一个列表,则该函数返回值为“0”。
InflateRect
格式:InflateRect(rectangle, widthChange, heightChange)
说明:该函数改变指定矩形的大小,widthChange为对宽度的变化值,heightChange为对矩形高度的改变值,负值为对矩形大小的缩小,正值为对矩形大小的增加。
每一单位数值代表两个像素。
Intersect
格式:newRectangle:= Intersect(rectangle1, rectangle2)
说明:从两个矩形的交叉点,创建一个新的矩形。
List
格式:List(value)
说明:将指定值从当前数据类型转变成列表型,所出现的语法错误将被存储在系统变量EvalStatus和EvalMessage中。
ListCount
格式:number:=OffsetRect(rectangle,x,y)
说明:返回anyList指定的列表中元素的数目。
如果anyList参数不是列表,返回值为0。
OffsetRect
格式:NewRectangle:= OffsetRect(rectangle, x, y)
说明:该函数的作用是按照rectangle的形状复制一个矩形,矩形的位置由原矩形的位置和参数x,y来决定,参数x,y是新矩形相对原矩形移动的位置,当x大于零时,新建矩形在原矩形的右边,当y大于零时,新建矩形在原矩形的下方。
当参数小于零时,位置相反。
Point
格式:MyPoint:= Point(x, y)
说明:在屏幕坐标(x,y)上创建一个点。
PointInRect
格式:result:= PointInRect(rectangle, point)
说明:如果指定的点point在矩形rectangle内,该函数返回值为TRUE,否则为FALSE。
PropertyAtIndex
格式:Property:= PropertyAtIndex(propList, index)
说明:该函数返回在具有属性的列表中选择由index所指定的元素。
Rect
格式:MyRect:= Rect(value1, value2, value3, value4)
MyRect:= Rect(point, point)
说明:利用指定的值或点来绘制矩形。
SetAtIndex
格式:SetAtIndex(anyList, value, index)
说明:该函数用来替换指定列表中指定位置的元素的值。
SortByProperty
格式:SortByProperty(propertyList1[, propList2,..., propList10][, order])
说明:将属性列表按照属性和标记作为标准来排序,将参数order设置为TRUE时,对列表进行升序排列,当order设置为FALSE时,对列表进行降序排列。
SortByValue
格式:
SortByValue(anyList1 [, anyList2, ..., anyList10], [order])
说明:该函数的作用同上一函数的作用基本相同,对列表中的元素按照它们的值和标记来进行排序分类,将参数order设置为TRUE时,对列表进行升序排列,当order设置为FALSE时,对列表进行降序排列。
UnionRect
格式:NewRect:= UnionRect(rectangle1, rectangle2)
说明:该函数返回矩形rectangle1,rectangle2中最小的一个。
ValueAtIndex
格式:ValueAtIndex(anyList, index)
说明:该函数返回指定列表中指定位置的值。
tmhhost放出了2021年的端午佳节+618年中大促的优惠活动:日本软银、洛杉矶200G高防cn2 gia、洛杉矶三网cn2 gia、香港200M直连BGP、韩国cn2,全都是高端优化线路,所有这些VPS直接8折,部分已经做了季付8折然后再在此基础上继续8折(也就是6.4折)。 官方网站:https://www.tmhhost.com 香港BGP线路VPS ,200M带宽 200M带...
触摸云触摸云(cmzi.com),国人商家,有IDC/ISP正规资质,主营香港线路VPS、物理机等产品。本次为大家带上的是美国高防2区的套餐。去程普通线路,回程cn2 gia,均衡防御速度与防御,防御值为200G,无视UDP攻击,可选择性是否开启CC防御策略,超过峰值黑洞1-2小时。最低套餐20M起,多数套餐为50M,适合有防御型建站需求使用。美国高防2区 弹性云[大宽带]· 配置:1-16核· ...
数脉科技怎么样?昨天看到数脉科技发布了7月优惠,如果你想购买香港服务器,可以看看他家的产品,性价比还是非常高的。数脉科技对香港自营机房的香港服务器进行超低价促销,可选择10M、30M的优质bgp网络。目前商家有优质BGP、CN2、阿里云线路,国内用户用来做站非常不错,目前E3/16GB阿里云CN2线路的套餐有一个立减400元的优惠,有需要的朋友可以看看。点击进入:数脉科技商家官方网站香港特价阿里云...
offsetrect为你推荐
怎么改ip怎么修改IP地址google地球打不开谷歌地球现在为什么打不开了weipin唯品会的唯品币是干什么用的?金山杀毒怎么样金山杀毒怎么样?万网核心代理我想买个域名和空间,我一朋友给我介绍万网代理环宇网络空间商,他们的空间稳定吗,价格怎么样,咨询师的服显卡温度多少正常显卡温度是多少才算正常的?今日热点怎么删除youku今日热点怎么卸载淘宝店推广淘宝店铺推广有哪些渠道?数据库损坏数据库损坏是怎么回事啊?如何清理ie缓存怎么清理IE缓存
域名网站 免费ddos防火墙 dux 流量计费 服务器是干什么的 电信主机 上海电信测速网站 架设邮件服务器 英国伦敦 浙江服务器 godaddy中文 免费网站加速 reboot 删除域名 傲盾代理 挂马检测工具 瓦工技术 ddos攻击软件 ddos攻击教程 小米电视主机 更多