rtext.frm

一款漂亮的控件。 快

VERSION 5.00
Begin VB.Form frmRtext 
   Caption         =   "旋转文字"
   ClientHeight    =   5385
   ClientLeft      =   1080
   ClientTop       =   1470
   ClientWidth     =   4905
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5385
   ScaleWidth      =   4905
   Begin VB.CommandButton Command3 
      Caption         =   "环绕"
      Height          =   315
      Index           =   2
      Left            =   4040
      TabIndex        =   5
      Top             =   4920
      Width           =   735
   End
   Begin VB.CommandButton Command3 
      Caption         =   "环绕调整"
      Height          =   315
      Index           =   1
      Left            =   3000
      TabIndex        =   4
      Top             =   4920
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "拱形"
      Height          =   315
      Index           =   0
      Left            =   2090
      TabIndex        =   3
      Top             =   4920
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Caption         =   "垂直"
      Height          =   315
      Left            =   1140
      TabIndex        =   2
      Top             =   4920
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "放射状"
      Height          =   315
      Left            =   120
      TabIndex        =   1
      Top             =   4920
      Width           =   855
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   4575
      Left            =   120
      ScaleHeight     =   4515
      ScaleWidth      =   4635
      TabIndex        =   0
      Top             =   120
      Width           =   4695
   End
End
Attribute VB_Name = "frmRtext"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim foo As Integer
Picture1.Cls
For foo = 0 To 360 Step 45
  Picture1.Refresh
  'Picture1.Cls
  RotateText foo, Picture1, "Arial", 24, 2400, 2400, "     Visual Basic"
  DoEvents
Next foo

End Sub

Private Sub Command2_Click()
Dim foo As Integer
Picture1.Cls
Picture1.fontname = "arial"
Picture1.Fontsize = 8

For foo = 0 To 3
    RotateText 270, Picture1, "Arial", 8, Picture1.ScaleWidth, foo * Picture1.TextWidth("Visual Basic   "), " Visual Basic"
Next foo
End Sub

Private Sub Command3_Click(index As Integer)
Picture1.Cls
Select Case index
Case 0 'center on top: degree = -1
    Picture1.fontname = "arial"
    Picture1.Fontsize = 40
    Picture1.FontBold = True
    TextCircle Picture1, "Visual Basic", Picture1.ScaleWidth / 2, Picture1.ScaleHeight, Picture1.ScaleHeight * 0.8, -1
Case 1 'adjust circle size to fit text length: degree = -2
    Picture1.fontname = "arial"
    Picture1.Fontsize = 12
    Picture1.FontBold = True
    TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's Journal ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.3, -2
Case 2 'start at point: degree = 0 to 360
    Picture1.fontname = "arial"
    Picture1.Fontsize = 12
    Picture1.FontBold = True
    TextCircle Picture1, "VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's Journal VBPJ Visual Basic Programmer's Journal  VBPJ Visual Basic Programmer's ", Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, Picture1.ScaleHeight * 0.5, 90

End Select

End Sub

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub