计算机二级VB基础知识辅导

上学吧：考试资料下载：程序设计基础:窗体属性程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。（一）启动VB：单击“开始”－“程序”－“MicrosoftVisualBasic6.0中文版”选择“标准EXE”，单击“打开”进入窗口。（二）VB窗口1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。（1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令）（2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。（3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。）4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。（1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。（2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。（3）小窗口：在右侧有三个纵向排列的窗口。①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口；②下面是属性窗口，属性是一个对象的名称、大小、颜色等等；③最下面是布局窗口，里面显示程序运行时的位置，拖动里面的小框可以改变程序的显示位置。4、下面修改窗体的属性，在右侧的属性窗口中找到Caption项，在它右边的格子里点一下鼠标左键，然后输入“窗体”两个字，观察一下工作区中的窗体的标题是否已经改变，Caption是设置一个应用程序的窗口标题，再在属性窗口中找到BackColor项，单击右边格子里的黑色三角按钮上点击一下鼠标左键，在弹出的面板上边的一行文字中选择“调色板”标签，选中浅紫色，观察一下工作区中间的窗体的变化。单击工具栏上的启动按钮，运行一下我们的程序，看一下这个窗口，还不错吧？单击“关闭”按钮（或者Alt＋F4），回到窗体中，在属性窗口中找到Icon项，在右边的格子里点一下鼠标左键再点一下三个小点，在弹出的“加载图标”对话框中，点击“向上”上学吧：考试资料下载：按钮退一步，再选择打开Common，再选择打开Graphics，再选择打开Icon，再打开Misc，在里面找一个图标，单击打开，再看一下工作区中的窗体的标题栏左侧是否有一个图标。单击“启动”按钮，运行一下程序，然后最小化，看一下任务栏上的图标找到我们的程序，单击一下图标恢复窗口。关闭程序回到属性窗口，找到Picture属性，在右边的格子里单击一下鼠标左键，打开“加载图片”对话框，找一幅较大的背景图片打开，观察一下工作区窗体的变化。单击“启动”按钮运行一下程序，很漂亮的一个窗口是吧？关闭程序，同样再修改Font属性和ForeColor属性，属性都是按照字母排序的，在最后的WindowState属性中选择2－Maxing最大化，运行一下程序看一下效果。如何保存自己的程序呢？方法是在“文件”菜单中选择“保存工程”或者点击工具栏上的磁盘按钮，保存文件到自己的文件夹（如果没有就新建一个）以“MyForm”为文件名（如果能用中文就输入汉字“窗体”）。保存两次，一次是窗体，另一次是工程。保存好的程序要编译成可以在Windows下运行的可执行程序，方法是选择“文件”菜单中的“生成工程1.exe”命令，以“窗体”为文件名保存文件到自己的文件夹，这个程序关闭VB后也可以运行，退出VB，打开自己的文件夹，找到程序，运行一下看看。本节主要讲述了VB的基本窗口和窗体属性，以后会经常用到。API在VB中应用之技巧集锦API在VB中应用之技巧集锦API函数在VB中得到了充分的运用，同时也让无数VB爱好者沉溺于其中。以下是笔者几年来收集整理的几十个API函数在VB中应用的实例，现在写出来与大伙分享，希望能对大伙有所帮助。1、如何让窗体总在最前面？*API函数声明DeclareFunctionSetWindowPosLibuser32(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong注释：常量声明PrivateConstSWP_NOSIZE=&H1PrivateConstSWP_NOMOVE=&H2PrivateConstHWND_TOPMOST=-1PrivateConstHWND_NOTOPMOST=-2注释：在某个form里写：SetWindowPosme.hWnd,WND_TOPMOST,0,0,0,0,SWP_NOMOVE注释：或下面SetWindowPosme.hWnd,WND_TOPMOST,0,0,0,0,SWP_NOSIZE2、使用API函数sendmessage，获得光标所在行和列。Subgetcaretpos(byvalTextHwnd&,LineNo&,ColNo&)上学吧：考试资料下载：注释：TextHwnd为TextBox的hWnd属性值，LineNo为所在行数，ColNo为列数dimi&,j&,k&注释：获取起始位置到光标所在位置字节数i=SendMessage(TextHwnd,&HB0&,0,0)j=i/2^16注释：确定所在行LineNo=SendMessage(TextHwnd,&HC9&,j,0)+1注释：确定所在列k=SendMessage(TextHwnd,&HBB&,-1,0)ColNo=j-k+1Endsub3、如何以某种颜色填充某区域？*API函数声明PrivateDeclareSubFloodFillLibgdi32_(ByValhDCAsLong,ByValXAsLong,ByValYAs_Long,ByValcrColorAsLong注释：设(fillx,filly)为此区域内任一点注释：Color为某种颜色FloodFillPicture1.hDC,fillx,filly,Color4、如何关闭计算机？*API函数声明DeclareFunctionExitWindowsLibUser(ByValdwReturnCodeAsLong,ByValwReservedAsInteger)AsInteger注释：执行DimDUMMYDUMMY=ExitWindows(0，0)5、如何获取Windows目录和System目录？注释：复制以下代码到一模块中PublicDeclareFunctionGetWindowsDirectoryLibkernel32AliasGetWindowsDirectoryA(ByVallpBufferAsString,ByValnSizeAsLong)AsLongPublicDeclareFunctionGetSystemDirectoryLibkernel32AliasGetSystemDirectoryA(ByVallpBufferAsString,ByValnSizeAsLong)AsLong注释：在程序中调用DimWindowsDirectoryAsString,SystemDirectoryAsString,xAsLongWindowsDirectory=Space(255)SystemDirectory=Space(255)x=GetWindowsDirectory(WindowsDirectory,255)x=GetSystemDirectory(SystemDirectory,255)MsgBoxWindows的安装目录是:+WindowsDirectory+,系统目录是:+SystemDirectory6、如何建立简单的超级连接？*API函数声明PrivateDeclareFunctionShellExecuteLibshell32.dllAliasShellExecuteA上学吧：考试资料下载：(ByValhWndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong注释：打开某个网址ShellExecute0,open,注释：给某个信箱发电子邮件ShellExecutehwnd,open,mailto:[e-mail],vbNullString,vbNullString,07、如何得知TextBox中文字所有的行数？*API函数声明DeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPublicConstEM_GETLINECOUNT=&HBA注释：在程序中调用LineCnt=SendMessage(ctl.hwnd,EM_GETLINECOUNT,0,0)注释：LineCnt即为此TextBox的行数。8、如何设置ListBox的水平卷动轴的宽度？*API函数声明ConstLB_SETHORIZONTALEXTENT=&H194PrivateDeclareFunctionSendMessageLibuser32AliasSendMessageA_(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,_lParamAsAny)AsLong注释：调用CallSendMessage(List1.hwnd,LB_SETHORIZONTALEXTENT,400,ByVal0&)注释：注意400是以象素为单位，你可以根据情况自行设定。9、如何交换鼠标按键？*API函数声明DeclareFunctionSwapMouseButton&Libuser32_(ByValbSwapaslong)要交换鼠标按键，将bSwap参数设置为True。要恢复正常设置，将bSwap设置为False。然后调用函数就可以交换和恢复鼠标按键了。10、如何让窗体的标题条闪烁以引起用户注意？在窗体中放一个Timer控件Timer1,设置其Inteval=200*API函数声明PrivateDeclareFunctionFlashWindowLibuser32(ByValhwndAsLong,ByValbInvertAsLong)AsLong注释：在窗体中写下如下代码:PrivateSubTimer1_Timer