说明白点啊。
对象
form——窗体
pointer——指针
picturebox——图片框
label——标签
textbox——文本框
frame——框架
commandbutton——命令按钮
optionbutton——单选按钮
checkbox——复选框
listbox——列表框
hscrollbar/vscrollbar——水平/垂直滚动条
timer——计时器
drivelistbox——驱动器列表框
dirlistbox——目录列表框
filelistbox——文件列表框
shape——形状
line——直线
image——图像
data——数据
OLE——对象链接与嵌入
commondialog——通用对话框
grid——表格
VB基本数据类型
byte——字节
boolean——布尔
integer——整形
long——长整形
single——单精度型
double——双精度型
currency——货币类型
date——日期
object——对象
string——字符串
variant——变体型
转换函数
int(x)——求不大于x的最大整数
fix(x)——截取尾数
hex(x)——把十进制数转换成十六进制数
oct(x)——把十进制数转换成把进制数
asc(x)——返回x（x为一字符串）中第一个字符的ASCII码
chr(x)——把x的值转换成为ASCII字符
str(x)——把x的值转换成字符串
val(x)——把字符串x转换成为数值
cint(x)——把x的值四舍五入取整
ccur(x)——把x的值四舍五入为货币类型
cdbl(x)——把x的值转换为双精度数
clng(x)——把x的值四舍五入为长整型数
csng(x)——把x的值转换为单精度数
cvar(x)——把x的值转换为变体类型值
数学函数
sin(x)——返回x的正弦值
cos(x)——返回x的余弦值
tan(x)——返回x的正切值（注意：前三个函数中x的单位均为弧度^_^）
atn(x)——返回x的反正切值
abs(x)——返回x的绝对值
sgn(x)——返回x 的符号（负数为-1，0为0，正数为1）
sqr(x)——返回x的平方根
exp(x)——求e的x次方
rnd[(x)]——产生随机数（一般和randomize搭配使用^_^）
log(x)——返回x的自然对数（即lg3，注意这一点和数学上的差异^_^）
时间和日期函数
now——返回系统日期/时间
day(d)——返回当前的日期
weekday(d)——返回当前的星期
month(d)——返回当前的月份
year(d)——返回当前的年份
hour(t)——返回当前小时
minute(t)——返回当前分钟
second(t)——返回当前秒
timer——返回从午夜开始已经过的秒数
time——返回当前时间
字符串函数（打得我好辛苦T_T）
ltrim(S)——去掉S左边的空格
rtrim(S)——去掉S右边的空格
trim(S)——去掉S两边的空格
left(S,n)——取S左部n个字符
mid(S,p,n)——从p开始取S的n个字符
right(S,n)——取S右部n个字符
len(S)——测试字符串的长度（字符）
lenb(S)——测试字符串的长度（字节）
string(n,S)——返回由n个S首字符组成的字符串
space(n)——返回n个空格
instr(n,S1,S2)——在S1中查找S2
ucase(S)——把S转换为大写字母
lcase(S)——把S转换为小写字母
窗体属性
autoredraw——自动重画
backcolor——背景颜色
borderstyle——边框类型
caption——标题
controlbox——控制框
enabled——允许
font——字形(具有子属性，如fontsize——字体大小 fontname——字体类型 fontcolor——字体颜色 fontbold——加粗 fontitalic——倾斜 fontstrikethru——加删除线 fontunderline——加下划线)
forecolor——前景颜色
height/width——高/宽
icon——图标
maxbutton/minbutton——最大/小化按钮
name——名称
picture——图形
top/left——顶边/左边距离
visible——可见性
windowstate——窗口状态
窗体事件
click——单击
dblclick——双击
load——装入
unload——卸载
activate/deactivate——活动/非活动
paint——绘画
与print(输出)方法有关的函数和方法
tab[(n)]——把光标移到由n指定的位置
spc(n)——跳过n个空格
space(n)——返回n各空格
cls——清除
move——移动
format——格式输出
inputbox——输入对话框函数
msgbox——信息对话框函数或语句
其他那些标准控件的属性就不一一举出了，告诉你一个方法，在窗体上选中某个控件，那个控件的属性会在属性列表框里出现，你选中某个属性，关于这个属性的解释会在属性列表框的下半部分被列出来。
（呼呼，不小的工程啊，都是我一个字一个字的敲进去的，那叫一个累。。。VB其实很好学的，不知亲下半年是不是要参加等级考试，我们下半年就要考了，也算是给自己复习一遍好了。后头那些比较偏的鼠标键盘事件过程，菜单、对话框、多窗体程序设计，以及文件方面的就暂时没有给出来，先把这些基础的掌握吧。亲要加油啊，也不枉费我那么辛苦的归纳和输入。。。）
把下面代码保存为Form1.frm文件，然后双击该文件运行。运行后输入进程ID，点“开始监视”，然后按F7即可进行进程的挂起和继续动作了。VERSION 5.00
Begin VB.Form frmMain
Caption = "Form1"
ClientHeight= 3105
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3105
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "停止监视"
Height = 495
Left= 2520
TabIndex= 2
Top = 1920
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "开始监视"
Height = 495
Left= 840
TabIndex= 1
Top = 1920
Width = 1215
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval= 100
Left= 1920
Top = 1320
End
Begin VB.TextBox txtPid
Height = 375
Left= 1800
TabIndex= 0
Text= "123"
Top = 240
Width = 1695
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PROCESS_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Declare Function NtSuspendProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long
Private Declare Function NtResumeProcess Lib "ntdll.dll" (ByVal hProc As Long) As Long
Private hProcess As Long, ProcStat As Boolean
Private Sub cmdSuspend_Click() '挂起
If IsNumeric(txtPid.Text) Then
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(txtPid.Text))
If hProcess <>0 Then
NtSuspendProcess hProcess
CloseHandle hProcess
End If
End If
End Sub
Private Sub cmdResume_Click() ' '继续
If IsNumeric(txtPid.Text) Then
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, CLng(txtPid.Text))
If hProcess <>0 Then
NtResumeProcess hProcess
CloseHandle hProcess
End If
End If
End Sub
Private Sub Command1_Click()
ProcStat = False
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If (GetAsyncKeyState(vbKeyF7) And &H7FFF) <>0 Then
If ProcStat = True Then
cmdResume_Click
ProcStat = False
Else
cmdSuspend_Click
ProcStat = True
End If
End If
End Sub
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）