form1.frm

日语各种词性变形工具

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1 
   Caption         =   "JPWordDeal"
   ClientHeight    =   5925
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10500
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5925
   ScaleWidth      =   10500
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdAbout 
      Caption         =   "&About ..."
      Height          =   375
      Left            =   7320
      TabIndex        =   10
      Top             =   4200
      Width           =   1455
   End
   Begin VB.ComboBox cboFont 
      Height          =   315
      ItemData        =   "Form1.frx":000C
      Left            =   7680
      List            =   "Form1.frx":0031
      TabIndex        =   9
      Text            =   "10"
      Top             =   75
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "&Exit"
      Height          =   375
      Left            =   2160
      TabIndex        =   4
      Top             =   4200
      Width           =   1455
   End
   Begin VB.ComboBox cboType 
      Height          =   315
      ItemData        =   "Form1.frx":005F
      Left            =   5760
      List            =   "Form1.frx":007B
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   75
      Width           =   1215
   End
   Begin RichTextLib.RichTextBox rtbResult 
      Height          =   3615
      Left            =   600
      TabIndex        =   2
      Top             =   480
      Width           =   8175
      _ExtentX        =   14420
      _ExtentY        =   6376
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"Form1.frx":00C0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin RichTextLib.RichTextBox rtbWord 
      Height          =   315
      Left            =   600
      TabIndex        =   0
      Top             =   75
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   556
      _Version        =   393217
      Enabled         =   -1  'True
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"Form1.frx":0158
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "&OK"
      Height          =   375
      Left            =   600
      TabIndex        =   3
      Top             =   4200
      Width           =   1455
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Font:"
      Height          =   195
      Left            =   7200
      TabIndex        =   8
      Top             =   120
      Width           =   360
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "Result:"
      Height          =   195
      Left            =   60
      TabIndex        =   7
      Top             =   495
      Width           =   435
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Type:"
      Height          =   195
      Left            =   5280
      TabIndex        =   6
      Top             =   120
      Width           =   405
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Word:"
      Height          =   195
      Left            =   105
      TabIndex        =   5
      Top             =   135
      Width           =   435
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim clsJpw As New JPWordDeal

Private Sub cmdAbout_Click()
    MsgBox "JPWordDea1.0" & vbCrLf & vbCrLf & _
           "Author: sysdzw" & vbCrLf & _
           "Email: [e-mail]" & vbCrLf & _
           "Home: http://www.symental.com" & vbCrLf & vbCrLf & _
           "2009/4/17", vbInformation
End Sub

Private Sub Form_Load()
    cboType.ListIndex = 7
    rtbWord.Text = "偄傞"
    rtbWord.Font.Charset = 128
    rtbResult.Font.Charset = 128
    Call cboFont_Change
End Sub

Private Sub Form_Resize()
    On Error GoTo err1
    cmdOk.Top = Me.ScaleHeight - cmdOk.Height - 100
    cmdExit.Top = cmdOk.Top
    cmdAbout.Top = cmdOk.Top
    cmdAbout.Left = Me.ScaleWidth - cmdAbout.Width
    rtbWord.Width = Me.ScaleWidth * 0.5
    Label2.Left = rtbWord.Left + rtbWord.Width + 100
    cboType.Left = Label2.Left + Label2.Width + 100
    Label4.Left = cboType.Left + cboType.Width + 100
    cboFont.Left = Label4.Left + Label4.Width + 100
    rtbResult.Move rtbResult.Left, rtbResult.Top, Me.ScaleWidth - rtbResult.Left, Me.ScaleHeight - cmdOk.Height - 100 - rtbResult.Top - 100
err1:
End Sub

Private Sub rtbWord_Change()
    clsJpw.Word = rtbWord.Text
    cboType.ListIndex = clsJpw.WordType
    Call cmdOk_Click
End Sub

Private Sub cmdOk_Click()
    clsJpw.Word = rtbWord.Text
    clsJpw.WordType = cboType.ListIndex
    rtbResult.Text = clsJpw.Result
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cboType_Click()
    clsJpw.WordType = cboType.ListIndex
    Call cmdOk_Click
End Sub

Private Sub cboFont_Change()
    rtbResult.Font.Size = cboFont.Text
End Sub

Private Sub cboFont_Click()
    rtbResult.Font.Size = cboFont.Text
End Sub