Vb-视频总结

    视频内容主要是针对Vb进行一个详细的介绍和告知大家如何去操作中调用代码以及如何正确的运行和书写，每个视频都是有详细的介绍和讲解，里面的主要内容： 常用系统函数、窗体事件、窗体之间的相互传递、以及什么是全局对象、定义的相关内容、分类、API函数的使用等等，下面就列举几项。

常用函数：

常用系统函数（语句）-3

伪随机数

Randomize（number）        

Rnd（number）

>序列中的下一个随机数

=0最近生的数

<0每次都用number做种子生成相同的结果

无序列中的下一个随机数

随机整数的生成

固定序列数的生成

字符串处理函数（）语句）-4

Left（string，length）Right（string，length）Mid（string，start（，length））

LTRIM RTRIM TRIM

Len（string）LenB（string）

UCASE（string）LCASE（string）

STR

InStr（{start}，string1，string2{compare}）

InStrB（{start}string1.string2{compare}）

Join（list{ delimiter}）Split（...）

Forrmat（expression{format{firstdayofweek{，Firstweekofyear}}}）

StrConv（string，conversion，LCID）

日期时间函数

DATE=#2001-12-31#

YEAR MONTH DAY HOUR MINUTE SECOND

WEEKDAY

NOW

DateSerial（year，month，day）

DateValue（date）

DateDiff（interval，date1，date2{，firstdayofweek{，firstweekofyear}}）

TimeSerial（hour，minute，second）

·Time Value（time）

路径（文件）函数

Dir{（pathname{，attributes}）}

CurDir{（pathname{，attributes}）}

ChDir{（drive）}

ChDrive drive

Kill pathname

MkDir path

RmDir path

FileCopy Source,Dest

Name...As...

常用系统函数（语句）-7

颜色

-RGB（red，green，blue）

 Red，green，blue：0--255

-QBColor（color）

Color；0-15

-颜色常数：vbRed,vbBlue，vbwhite，vbBlack,...

集窗体间的相互传递

MIDI应用程序

MDIForm及子窗体的建立和设置

窗体数组

窗体间的数据传递

用变量来传递的在要使用在模块中的变量，不能在窗体中加载变量

窗体间的互相传递，限制的最少全局变量最可能少使用，

通过show进行一个显示一个传递的一个窗口，先后顺序当单机按钮的时候显示多文档的界面窗体

全局对象

说明：（例）

-类                         对象实例

-Form1                      Form1.MyFomr

-CommandButton              Command1，cmdOk

基本组成

-属性，方法，（事件 ）

特点

示例

-app：（应用程序：应用）

-Screen：（屏风-网屏）屏幕下面显示

-Err：（错误）

-Clipboard：（剪切板）

-Forms：（表单、窗体）

-Printer（s）：（印刷机、印表机）

-Debug：（除错，调试工具）

App对象

主要属性

-Path,（）exeName（文件名），hInstance（实例句柄），PrevInstance（上个实例句柄）

-Major（主版本号）,Minor,（副版本号）Revision（次版本号）

-ThreadID（）

应用示例

-取得当前程序的所在目录的同名txt文件

-禁止多个实例运行

-获得程序的版本号

示例

  MsgBox App.Path & "\" & App.EXEName & ".txt"、

Screen对象

主要属性

-Height，width（单位：Twip）

1 -TwipsperpixeIx（返回水平），TwipsperpixeIy（或垂直）

2   -MousePointer（鼠标指针），MouseIcon（鼠标图标）

应用示例

-显示当前显示器的分辨率

1.  MsgBox Screen.Width / Screen.TwipsPerPixelX & "X" & Screen.Height / Screen.TwipsPerPixelX '通过屏幕的宽度除以屏幕水平位置上每个像素占多少特威，就可以得到水平上多少像素，同样的方法也知道垂直水平上的特威

2.   Screen.MousePointer（鼠标指针） = vbHourglass（沙漏）

 Screen（屏幕下）.MousePointer （鼠标指针）= vbDefault（不执行）

ClipBoard（clipboard）对象

主要方法:

-SetText （设置文本、字符串）data（资料）,textformat（格式，格式化磁盘）

-GetText(textformat)-是获取文本的格式命令，它可能允许从已有的文本中提取并返回特定的格式

-SetData data,picformat-是设置图像数据格式的命令，它可能允许将图像数据转换成指定的格式并存储。

-GetData(picformat)-是获取图像数据的命令，它可能允许从系统中获取指定格式的图像数据

-GetFormat(dataformat)-是获取数据格式的命令，它可能允许从已有的数据中提取并返回特定的数据格式。

应用示例

-文本的复制和黏贴  

Private Sub mnuCopy_Click()

Clipboard.SetText Text1.SelText ‘子程序用于复制被选中的文本到剪贴板。它使用Text1控件的SelText属性来获取被选中的文本，并使用Clipboard.SetText方法将其设置到剪贴板中。

End Sub

Private Sub mnupaste_Click()  ‘子程序用于从剪贴板中获取文本，并将其黏贴到Text2控件中，它首先检查剪贴板中是否有文本（通过检查其格式是否为vbCFText），如果，则使用Clipboard.GetText方法获取文本，并将其设置为Text2的SelText属性

If (Clipboard.GetFormat(vbCFText)) Then

Text2.SelText = Clipboard.GetText 'clipboar（剪切板）

 End If

End Sub  

  通过以上让我们对VB有了一些全新的认识，知道每个属性的用途和功能实现的过程，知道每个软件的背后都是由代码进行实现的。