VB程序设计说明.pdf

选题介绍及意义，程序模块及功能，程序流程图，程序源码及注释，程序的后续

完善及存在问题，设计程序的心得体会

一．选题说明及意义

用VB实现备忘录的基本功能，包括记事本，屏幕抓图，数字时钟和日历等

功能，利用VB中的诸多控件，例如

PictureBox,Label,CommendButton,Timer,CommendDialog,RichTextBox等，

完成VB程序的诸多功能的实现，创建功能较为完善的记事本，并具有一定

辅助功能，对于利用此软件的人能够具有一定的便利。

二．程序模块及功能实现流程

三．部分程序代码

1.屏幕截图部分

PrivatDeclarFunctionGetDCLibuser32(ByValhwndAsLong)

AsLong

PrivatDeclarFunctionStretchBltLibgdi32(ByValhdcAsLong,

ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,ByValnHeight

AsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,

1

ByValnSrcWidthAsLong,ByValnSrcHeightAsLong,ByValdwRopAsLong)

AsLong

PrivateSubCommand1_Click()

DimwScreenAsLong

DimhScreenAsLong

DimwAsLong

DimhAsLong

Picture1.Cls

wScreen=Screen.Width\Screen.TwipsPerPixelX

hScreen=Screen.Height\Screen.TwipsPerPixelY

‘定义截屏的长度和宽度等于屏幕实际长宽

Picture1.ScaleMode=vbPixels

w=Picture1.ScaleWidth

h=Picture1.ScaleHeight

hdcScreen=GetDC(0)

r=StretchBlt(Picture1.hdc,0,0,w,h,hdcScreen,0,0,wScreen,

hScreen,vbSrcCopy)

‘

StretchBlt，函数名。该函数从源矩形中复制一个位图到目标矩形，必要时按目

标设备设置的模式进行图像的拉伸或压缩。

EndSub

PrivateSubCommand2_Click()‘另存为按键代码

Me.Picture=Me.Image

CommonDialog1.Filter=BMP文件(*.bmp)|*.bmp|JPG文件

(*.jpg)|*.jpg

CommonDialog1.ShowSave

CommonDialog1.Flags=H2+H4+H8

‘H2使用长文件名

2

H4隐藏只读复选框。

H8强制对话框将对话框打开时的目录置成当前目录

IfCommonDialog1.FileNameThen

SavePictureMe.Picture,CommonDialog1.FileName

EndIf

EndSub

PrivateSubCommand3_Click()‘退出按键代码

Form3.Hide

form6.Show

EndSub

2.登陆部分

OptionExplicit

DimNpassAsInteger

Privat