📄 010104.htm
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>vb study</title>
<style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="98%">
<tr>
<td width="100%"><a href="#">你的位置</a>:<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">基本控件</a></td>
</tr>
<tr>
<td width="100%">
<p align="center">通用属性</td>
</tr>
<tr>
<td width="100%"><br>
图形方法:<br>
在图形方法中,首先要确定坐标系统和度量单位,可通过对象的scalemode属性改变坐标度量单位,有七种可选单位(缺省为1-缇)。一般用3(象素)。<br>
cls:如picture1.cls 清空对象(对象内部清屏)<br>
pset:画点并指定颜色。格式:<br>
对象名.pset(点的坐标x,y),点的RGB颜色<br>
picture1.pset(1000,500),RGB(255,0,0)<br>
point:查看某个点的颜色值(一个8位以内的长整数)。格式:<br>
对象名.point(点的坐标x,y)<br>
x=picture1.point(1240,5910)<br>
<br>
line:画线,矩形(加B)或画填充框(加BF)。格式:<br>
对象名.line(x1,y1)-(x2,y2),颜色,B或BF <br>
如果加上B或BF,则表示画矩形,B表示用指定颜色在两坐标间画矩形 框,但矩形框内部不进行颜色填充,而加BF,则用指定颜色填满整个矩形块。<br>
Picture1.Line (100, 100)-(1000, 1000), RGB(244, 244, 0), BF<br>
画了一个黄色矩形块。<br>
circle:画圆,椭圆或圆弧。格式:<br>
对象名.circle(x,y圆心坐标),半径,颜色,圆弧起点,圆弧终点,椭圆纵横比<br>
picture1.circle(1000,500),400,RGB(0,0,255)<br>
圆弧起点与终点在-2pi到2pi值之间(以度为单位)。<br>
★ 打开或运行本机磁盘上指定的程序、文件(夹)、Internet地址等,功能与开始菜单"运行"相同,格式:Shell "Rundll32.exe URL.dll,FileProtocolHandler 路径及文件名",1例如: Shell "rundll32.exe url.dll,Fileprotocolhandler c:\windows",1 打开文件夹。<br>
Shell "rundll32.exe url.dll,Fileprotocolhandler http://www.cctv.com/",1 打开网页。<br>
Shell "rundll32.exe url.dll,Fileprotocolhandler c:\美女.bmp",1 使用关联程序打开文件。 <br>
在Windows2000中怎么不可以?<br>
★ 指定对象所属的容器,用set关健字和对象的Container属性:,如要把在窗体form1中的一个按纽改放到picture1中去,那么用 Set Command1.Container = Picture1.可以作为容器的有Form,Picture和Frame.格式:set 对象名.Container=容器名<br>
★ 与绘图有关的属性(Form窗体或Picture对象):<br>
CurrentX和CurrentY:设置当前光标的位置。如在指定位置进行输出。如:<br>
Form1.CurrentX = 40:Form1.CurrentY = 50:Print "aaaaaaaaaaaa"<br>
drawmode:选择绘图时线条颜色的产生方法(位与,或,。覆盖等)共16种。<br>
drawstyle:设置画线的线型(有0-6种,0与6为实线,1为虚线,2为点线,3,4,5为点虚线)。<br>
drawwidth:画线的宽度。<br>
autoredraw:自动重画。(?:绘图是否在内存中直接分配空间来存放该图形信息,以便在被遮住等情况发生而重新显示时自动调用内存进行图形恢复。如果为节省内存不要这项功能,就要在代码中用paint事件来实现。)<br>
★ 通用属性与事件一则:对象的CausesValidation属性和Validate事件,这两个总是在一起使用:validate事件在对象即将失去焦点前发生,在此事件中如果设一个参数Cancel=True的话,那么窗体中其他预先设好的causesvalidation属性为true的对象就不能获得焦点(缺省时都为true),因此可用来选择性地限制某些对象,直到关健对象的Validate事件cancel等于False为止。如:<br>
Private Sub Form_Load()<br>
Command1.CausesValidation = False<br>
Text2.CausesValidation = True 这个对象将受到限制<br>
End Sub<br>
Private Sub Text1_Validate(Cancel As Boolean) 在缺省情况下,cancel总为false<br>
If Text1.Text <> "1234" Then<br>
MsgBox "密码错误!", , "错误"<br>
Cancel = True<br>
End If<br>
End Sub<br>
运行时,如果你输入的不是1234,那么当你试图将焦点改变到text2时(如鼠标单击或用TAB键等),就会出现"密码错误"提示,并使焦点仍在text1中。<br>
★ 通用属性:定制度量刻度的四个属性:<br>
scaleleft,scaletop:自定义设置对象内绘图区域左上角坐标,缺省为0,0。如果进行了设置,则该对象内所有的绘图方法都将基于左上角的新坐标值进行,如原在左上角为0,0下form1.pset(100,50)画了一点,改变form1.scaleleft=100,form1.scaletop=50后,这个点就跑到左上角去了。<br>
scalewidth,scaleheight:自定义设置对象内绘图区域宽度和高度。现有的绘图区域将根据这两个属性设置的值,确定新的单位刻度。如随便设form1.scalewidth=100,则不管怎样,反正就是将绘图区的宽width划分成100等份,每份就是新的单位刻度(还可设为负数)。<br>
当以上四个属性中的任何1个被人为地改变后,其ScaleMode属性自动变为0用户自定义型。<br>
★ 控件的通用属性几则:<br>
HelpContextID:设置上下文编号,为程序提供上下文帮助,格式:<br>
对象.HelpContextID=编号<br>
hWnd:返回窗体或控件的句柄。[还有hdc是设备场景句柄]<br>
parent:返回本对象的上一级对象。如对象command1放在form1中,那么<br>
command1.parent.Cls 就是父窗口form1清屏。等价于form1.cls<br>
利用parent属性,可以将对象作为参数来传递。<br>
★ 对象的Drag方法:对象的手工拖动操作。<br>
拖放:1,自动拖放--只要将要拖动对象的Dragmode属性设为1自动拖放,此时对象不再响应鼠标事件,如Click事件等。专等按下鼠标的拖动操作发生。<br>
2,手工拖放--常用此方法。首先把要拖动对象的Dragmode属性为0,在代码中使用Drag方法启动开始拖放。格式:对象.。Drag vbBeginDrag(值1),到达目的地后,用Drag方法终止拖放,格式:对象。Drag vbEndDrag(值2),当然终止也可不用代码写明,只要抬起鼠标,拖放就会终止。<br>
★ 窗体和图像框的paint事件:当对象在屏幕中被移动,改变尺寸或清除,且对象的AutoDraw属性为False时. 就会触发Paint事件, <br>
★ 通用事件一则:dragover事件:当用户使用鼠标拖动源对象,并在目标对象上移动时,目标对象上引发该事件。格式:<br>
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)<br>
<br>
End Sub<br>
source和X以及Y好理解,source为源对象,X,Y为鼠标相对于该控件的位置。而state参数,返回源对象在目标对象内拖动的状态,为0表示源对象正向目标对象范围内拖动(拖入),为1表示源对象正向目标范围外拖动(拖出),为2表示源对象在目标范围内从一个位置移到了另一位置(移动)。注:它与DragDrop事件的区别在于:DragOver事件当源对象在目标对象范围内拖动过程中连续不断被触发,而DragDrop事件当源对象在目标对象范围内,同时松开鼠标时的一刹那触发。
<p align="center">
<br>
< <a href="010103.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="010201.htm">下一页</a>
><br>
</p>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -