test.frm

vb源码大全

VERSION 5.00
Begin VB.Form frmTest 
   Appearance      =   0  'Flat
   Caption         =   "竖排文本"
   ClientHeight    =   3825
   ClientLeft      =   4350
   ClientTop       =   1590
   ClientWidth     =   6120
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   6120
   Begin VB.PictureBox Picture2 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000005&
      Height          =   9375
      Left            =   5520
      ScaleHeight     =   9375
      ScaleWidth      =   555
      TabIndex        =   3
      Top             =   0
      Width           =   550
   End
   Begin VB.PictureBox picLogo 
      AutoRedraw      =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000005&
      Height          =   9375
      Left            =   0
      ScaleHeight     =   9375
      ScaleWidth      =   555
      TabIndex        =   0
      Top             =   0
      Width           =   550
   End
   Begin VB.Label Label1 
      Caption         =   "人面不知何处去"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1440
      TabIndex        =   2
      Top             =   240
      Width           =   2775
   End
   Begin VB.Label Label2 
      Caption         =   "桃花依旧笑春风"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1320
      TabIndex        =   1
      Top             =   2520
      Width           =   2895
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim cL As New cLogo
Dim gl As New cLogo
Dim hl As New cLogo

Private Sub Form_Load()
    cL.DrawingObject = picLogo
    cL.Caption = "      去年今日此门中               "
    hl.DrawingObject = Picture2
    hl.Caption = "      人面桃花相映红               "
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    picLogo.Height = Me.ScaleHeight
    Picture2.Height = Me.ScaleHeight
    Picture2.left = Me.ScaleWidth - Picture2.Width
    On Error GoTo 0
    cL.Draw
    hl.Draw

End Sub