2011年计算机等考二级VB辅导知识技巧总结(14)

　　样例程序

　　在Visual Basic中开始一个新的工程，采用缺省的方法建立Form1。

　　创建一个新的模块，采用缺省的方法建立Module1.Bas。

　　将如下的声明语句和常量添加到Module1.Bas模块中：

　　Option Explicit

　　Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

　　Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long,

　　ByVal nPos As Long) As Long

　　Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long,

　　ByVal nPos As Long) As Long

　　Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA"

　　(ByVal hMenu As Long,ByVal nPosition As Long, ByVal wFlags As Long,

　　ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

　　Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

　　Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

　　Declare Function CreateCompatibleBitmap Lib "gdi32"

　　(ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

　　Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,

　　ByVal hObject As Long) As Long

　　Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long,

　　ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC

　　As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

　　Public Const SRCCOPY = &HCC0020

　　Public Const MF_BYPOSITION = &H400&

　　Public Const MF_BITMAP = &H4&

　　注意上面的声明语句需要书写在一行内。

　　在Form1上添加4个图形框控件，将它们的Name属性设置为Picture1，将它们的Index属性依次设置为0，1，2，3，将它们的AutoRedrew属性设置为True，将它们的AutoResize属性设置为Ture，以及将它们的Visable属性设置为False。

　　将上面的4个图形框控件的Picture属性依次设置为Face1.ico，Face2.ico，Face3.ico，Face4.ico。

　　在Form1上添加第一个菜单项，将它的标题设置为“[&F]文件”，名称设置为mnuFile。在其下添加一个子菜单项，将它的标题设置为“[&E]退出”，名称设置为mnuExit。

　　在Form1上添加第二个菜单项，将它的标题设置为“[&A]脸谱”，名称设置为mnuFace。在其下添加4个子菜单项，分别将改4个子菜单项的名称设置为“[N]正常”，“[&S]微笑”，“ [&L]大笑”，以及“[&O]悲伤”。将它们的名称设置为“mnuFaceSel”，并相应将这4个子菜单项的索引设置为0，1，2，3。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总