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        =   6
      Top             =   4200
      Width           =   1455
   End
   Begin VB.ComboBox cboFont
      Height          =   300
      Left            =   7680
      TabIndex        =   2
      Text            =   "10"
      Top             =   75
      Width           =   1095
   End
   Begin VB.CommandButton cmdExit
      Caption         =   "&Exit"
      Height          =   375
      Left            =   2160
      TabIndex        =   5
      Top             =   4200
      Width           =   1455
   End
   Begin VB.ComboBox cboType
      Height          =   300
      Left            =   5760
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   75
      Width           =   1335
   End
   Begin RichTextLib.RichTextBox rtbResult
      Height          =   3615
      Left            =   600
      TabIndex        =   3
      Top             =   480
      Width           =   8175
      _ExtentX        =   14420
      _ExtentY        =   6376
      _Version        =   393217
      ScrollBars      =   3
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"Form1.frx":000C
      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          =   360
      Left            =   600
      TabIndex        =   0
      Top             =   45
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   635
      _Version        =   393217
      MultiLine       =   0   'False
      AutoVerbMenu    =   -1  'True
      TextRTF         =   $"Form1.frx":00A4
      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        =   4
      Top             =   4200
      Width           =   1455
   End
   Begin VB.Label Label4
      AutoSize        =   -1  'True
      Caption         =   "Font:"
      Height          =   195
      Left            =   7200
      TabIndex        =   10
      Top             =   120
      Width           =   360
   End
   Begin VB.Label Label3
      AutoSize        =   -1  'True
      Caption         =   "Show:"
      Height          =   180
      Left            =   120
      TabIndex        =   9
      Top             =   495
      Width           =   450
   End
   Begin VB.Label Label2
      AutoSize        =   -1  'True
      Caption         =   "Type:"
      Height          =   195
      Left            =   5280
      TabIndex        =   8
      Top             =   120
      Width           =   405
   End
   Begin VB.Label Label1
      AutoSize        =   -1  'True
      Caption         =   "Word:"
      Height          =   195
      Left            =   105
      TabIndex        =   7
      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 Form_Load()
    Call initControlsContent
    cboType.ListIndex = 7
    rtbWord.Text = "あい"
    rtbWord.Font.Charset = 128
    rtbResult.Font.Charset = 128
    cboFont.Text = intFontSize
    rtbResult.Font.Size = Val(cboFont.Text)
    rtbResult.SelColor = lngFontColor
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 + 200
    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 Form_Unload(Cancel As Integer)
    Call saveToIniFile
End Sub

Private Sub rtbWord_Change()
    clsJpw.Word = rtbWord.Text
    cboType.ListIndex = clsJpw.WordType
    rtbWord.Font.Size = 8
    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 cmdAbout_Click()
    MsgBox "JPWordDea1.0" & vbCrLf & vbCrLf & _
           "Author: sysdzw" & vbCrLf & _
           "Email: sysdzw@163.com" & vbCrLf & _
           "Home: http://www.symental.com" & vbCrLf & vbCrLf & _
           "2009/4/17", vbInformation
End Sub

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

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

Private Sub cboFont_Click()
    rtbResult.Font.Size = Val(cboFont.Text)
    intFontSize = Val(rtbResult.Font.Size)
End Sub
'init combobox's Content
Private Sub initControlsContent()
    cboType.AddItem "Noun"
    cboType.AddItem "Adjective"
    cboType.AddItem "Verb1"
    cboType.AddItem "Verb2"
    cboType.AddItem "Verb3Ka"
    cboType.AddItem "Verb3Sa"
    cboType.AddItem "AdjVerb"
    cboType.AddItem "Unkown"
   
    cboFont.AddItem "8"
    cboFont.AddItem "9"
    cboFont.AddItem "10"
    cboFont.AddItem "12"
    cboFont.AddItem "15"
    cboFont.AddItem "20"
    cboFont.AddItem "30"
    cboFont.AddItem "50"
End Sub