VB学习心得二范文.doc

VB学习心得二范文 VB学习心得（二）7.光驱出入api如下Private DeclareFunction CDdoorLibwinmm.dllAliasmciSendStringA_(ByVal lpstrCommandAs String,ByVal lpstrReturnStringAs String,_ByVal uReturnLengthAs Long,ByVal hwndCallbackAs Long)As Long调用时这样Call CDdoor(set CDAudiodoor open,0,0,0)打开Call CDdoor(set CDAudiodoor closed,0,0,0)关闭8.窗口闪烁【1】代码如下Private DeclareFunction FlashWindowExLibuser32(p As FLASHWINFO)As LongPrivate ConstFLASH_STOP As Integer=&H0Private ConstFLASH_CAPTION AsInteger=&H1Private ConstFLASH_TRAY AsInteger=&H2Private ConstFLASH_ALL AsInteger=FLASH_CAPTION OrFLASH_TRAY PrivateType FLASHWINFOcbSize As LongFLASHWINFO类型的大小，可以用Len(FLASHWINFO)获取，在vb6中是20hwnd As Long要闪烁的窗体的句柄dwFlags As Long闪烁方式(标题或/和状态栏)uCount As Long闪烁次数dwTimeout As Long闪烁时间间隔(毫秒),设置为0则使用系统默认的时间间隔End TypePrivate SubForm_click()Dim FIAsFLASHWINFOFI.cbSize=Len(FI)FI.dwFlags=FLASH_ALL FI.dwTimeout=0FI.hwnd=Me.hwnd FI.uCount=3FlashWindowEx FIEnd Sub【2】Private DeclareFunction FlashWindowLibuser32(ByVal hwndAs Long,ByVal bInvertAs Long)As Long类型为Long，如窗口在调用前处于活动状态，则返回TRUE（非零）。 参数，类型及说明hwnd Long，要闪烁显示的窗口的句柄。 bInvert Long，TRUE（非零）表示切换窗口标题；FALSE返回最初状态。 例如FlashWindow Me.hwnd,True放到timer里效果9.捕获按键有一个API函数可以用来捕获操作系统中的按键Private DeclareFunction GetAsyncKeyStateLibuser32(ByVal vKey As Long)AsIntegervKey keycode放到timer里用返回值Long，自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。 具体参考MSDN10.vb主板唱歌主板喇叭鸣叫！代码Private DeclareFunction BeepLibkernel32(ByVal dwFreqAs Long,ByVal dwDurationAsLong)AsLongFunction playsnd(ByVal xAsLong,yAsLong)Beep x,y*3DoEvents EndFunction使用时这样playsnd900,50playsnd频率，时间频率限制在37-32767,持续时间以毫秒为单位注1s=1000ms11.vb基础-单选/多选框的应用嘿嘿，这个是我初学VB时写的、VB中的控件可以更改其他对象的属性。 命令是p1.Width=3255p1是图片的名称，Width表示高度，3255是数值。 此例表明了将p1的高度更改为3255。 这是单选框，复选框可以是If Check1.Value=Checked Thenp1.Visible=True Elsep1.Visible=False End If由此延伸出了if的用法.IF的用法基本语句if.then.else.end if还可以连环用If age=Then MsgBox(不能留空),vbOKOnly,ALARMEElse IfIsNumeric(age)=False Then MsgBox(必须是数字),vbOKOnly,ALARMEElse If age120ThenMsgBox(不真实),vbOKOnly,ALARMEElse MsgBox你的年龄是&age,岁,vbOKOnly,你的年龄End If End IfEndIf晕了吧，这样就好多了这是if的“连环计”附WinSock例子1.服务端注服务端可以整客户端_Private SubCommand1_Click()Winsock1.SendData Text2.Text Text1=Text1+系统+Text2.Text+vbCrLf Text2=End SubPrivate SubCommand2_Click()Winsock1.SendDatazhengEnd SubPrivate SubCommand3_Click()Winsock1.SendDatazheng2End SubPrivate SubForm_Load()With Winsock1.RemoteHost=Winsock1.LocalIP要连接到的计算机名.RemotePort=1010要连接到的端口号.LocalPort=1011该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯.Bind1011将该Winsock控制绑定到该本地端口End WithEnd SubPrivate SubWinsock1_DataArrival(ByVal bytesTotalAsLong)Dim aAs StringWinsock1.GetData aText1=Text1+用户+a+vbCrLf End Sub2.客户端Private SubCommand1_Click()Winsock1.SendData Text2.Text Text1=Text1+用户+Text2.Text+vbCrLf Text2=End SubPrivate SubForm_Load()With Winsock1.RemoteHost=Winsock1.LocalIP要连接到的计算机名.RemotePort=1011要连接到的端口号.LocalPort=1010该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯.Bind1010将该Winsock控制绑定到该本地端口End WithEndSubPrivate SubWinsock1_DataArrival(B