【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Ex8_12.frm”一文，供大家参考学习!
VERSION 5.00
Begin VB.Form Ex8_12
AutoRedraw = -1 'True
Caption = "奥运福娃"
ClientHeight = 3870
ClientLeft = 60
ClientTop = 450
ClientWidth = 5535
LinkTopic = "Form1"
ScaleHeight = 3870
ScaleWidth = 5535
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Align = 2 'Align Bottom
AutoRedraw = -1 'True
Height = 585
Left = 0
ScaleHeight = 525
ScaleWidth = 5475
TabIndex = 0
Top = 3285
Width = 5535
Begin VB.Image Image7
Height = 495
Left = 4800
Stretch = -1 'True
Top = 0
Width = 615
End
End
Begin VB.Shape Shape1
Height = 1335
Left = 240
Top = 240
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 5
Left = 3600
Picture = "Ex8_12.frx":0000
Stretch = -1 'True
Top = 1680
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 4
Left = 1920
Picture = "Ex8_12.frx":20A4
Stretch = -1 'True
Top = 1680
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 3
Left = 240
Picture = "Ex8_12.frx":35DF
Stretch = -1 'True
Top = 1680
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 2
Left = 3600
Picture = "Ex8_12.frx":4ED2
Stretch = -1 'True
Top = 240
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 1
Left = 1920
Picture = "Ex8_12.frx":66F3
Stretch = -1 'True
Top = 240
Width = 1575
End
Begin VB.Image Image1
Height = 1335
Index = 0
Left = 240
Picture = "Ex8_12.frx":7DDA
Stretch = -1 'True
Top = 240
Width = 1575
End
End
Attribute VB_Name = "Ex8_12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Shape1.Visible = False '隐藏正方形框
Image7.Visible = False '隐藏图像框Image7
End Sub
Private Sub Image1_Click(Index As Integer)
'将正方形框控件包围选中的图像框
Shape1.Left = Image1(Index).Left
Shape1.Top = Image1(Index).Top
Shape1.Visible = True '显示图像框
Picture1.Cls '清除图像框中的图片和文本
Picture1.FontSize = 14 '设置图像框上文本字体的大小
Select Case Index '根据所选图的不同打印不同的信息
Case 0
Picture1.Print "福娃贝贝"
Case 1
Picture1.Print "福娃晶晶"
Case 2
Picture1.Print "福娃欢欢"
Case 3
Picture1.Print "福娃迎迎"
Case 4
Picture1.Print "福娃妮妮"
Case 5
Picture1.Print "奥运五环与福娃们"
End Select
Image7.Picture = Image1(Index).Picture '将所选图像复制到图像框Image7中
Image7.Visible = True '显示图像框Image7
End Sub
上一篇：
Ex8_11.frm
下一篇：
锦鲤送不停 猎豹汽车嗨翻“疯狂购车季”
2013-9-1
