form1.frm

来自「vb源码大全」· FRM 代码 · 共 83 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5160
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6675
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5160
   ScaleWidth      =   6675
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "文本演示"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5280
      TabIndex        =   1
      Top             =   4560
      Width           =   1215
   End
   Begin VB.PictureBox Picture1 
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4305
      Left            =   120
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   4245
      ScaleWidth      =   6270
      TabIndex        =   0
      Top             =   120
      Width           =   6330
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Picture1.Print
    Picture1.Print
    Picture1.Print
    Picture1.Print "    爱真的需要勇气 来面对流言蜚语"
    Picture1.Print
    Picture1.Print "    只要你一个眼神肯定 我的爱就有意义"
    Picture1.Print
    Picture1.Print "    我们都需要勇气 去相信会在一起"
    Picture1.Print
    Picture1.Print "    人潮拥挤我能感觉你 放在我手心里你的真心"
    Picture1.Print
    Picture1.Print "    如果我的坚强任性 会不小心伤害了你"
    Picture1.Print
    Picture1.Print "    你能不能温柔提醒"
    Picture1.Print
    Picture1.Print "    我虽然心太急 更害怕错过你"
    Picture1.Print

End Sub