在vb程序设计中,单击图片框时在图片框中显视"单击图片框"如何编写代码实现这一过程

1、打开VB6.0开发软件，新建一个标准exe工程；

2、在设计界面上添加一个Picturebox控件；

3、双击添加的Picturebox控件，进入代码编辑界面，输入如下代码：

Private Sub Picture1_Click()

Picture1.Print "显示图片框"

End Sub

4、运行工程，单击图片框，可以看到图片框内出现了“显示图片框”的显示。

你创建两个窗体form1,form2,form1内添加一个picturebox,在form1中添加如下代码，运行后form1中有一个picturebox

控件，picturebox中有一个窗体form2.

Private

Declare

Function

SetParent

Lib

"user32"

(ByVal

hWndChild

As

Long,

ByVal

hWndNewParent

As

Long)

As

Long

Private

Sub

Form_Load()

SetParent

Form2.hWnd,

Picture1.hWnd

Form2.Show

End

Sub

1、登录界面要求

（1）相关参数更改

尺寸： Size：（390,280）

无边框设计： FormBorderStyle：None

窗体启动位置： StartPosition：CenterScreen

窗体名： Text：管理员登录

（2）添加picturebox：

铺满顶部：Dock参数为Top

背景图片：修改BackgroundImage，图片设置为拉伸BackgroundImageLayout：stretch

添加标题

Label

——Text：企业级MIS综合平台

——backcolor：用取色器取背景色，同化

——ForeColor：字体颜色

添加其他元素并修改颜色

加入close方法

2、总结

登录窗体设计

（1）添加新登录窗体，让窗体无边框

（2）图片控件，设置图片拉伸方式

（3）按钮的扁平化设计

（4）文本框边框设计

---