'----------------------------------------
'[SpaSpa Source Code]
'配布・改変は自由に行って下さい
'メールでご連絡頂ければ幸いです
'CopyRight(C)1998-1999カジ
'	mailto: r-kaji@geocities.co.jp
'----------------------------------------

Option Explicit
'変数の宣言
Dim strColor As String, strSize As String
Dim strKekka As String
'strKekkaは後から追加した変数

Private Sub comMake_Click()
'コマンドボタンが押されたときの処理

'Select文を使って色の指定
    Select Case cboColor.Text
        Case "黒"
            strColor = "black"
        Case "赤"
            strColor = "red"
        Case "青"
            strColor = "blue"
        Case "黄"
            strColor = "yellow"
        Case "緑"
            strColor = "green"
        Case Else
            strColor = "black"
    End Select
    
'If文を使ってサイズの指定
    If cboSize.Text = "9" Or "12" Or "24" Or "72" Then
        strSize = cboSize.Text
    ElseIf cboSize.Text = "ｻｲｽﾞ" Then
        strSize = "12"
    Else
        strSize = "12"
    End If

'下記の４行は改良前のもの
'上の２行で文字列をテキストボックスに表示させ
'下の２行でクリップボードにコピーする
    'txtKekka.Text = "<SPAN STYLE=" & """" & "font:" & strSize _
    '& "pt;color:" & strColor & """" & "> <SPAN>"
    'Clipboard.Clear
    'Clipboard.SetText txtKekka.Text

'下記は改良後のもの
'結合した文字列は表示せずに変数に代入して
'変数の文字列をクリップボードにコピーする
'テキストボックスの名前もtxtEnterに変えてます
    strKekka = "<SPAN STYLE=" & """" & "font:" & strSize _
    & "pt;color:" & strColor & """" & ">" & txtEnter.Text & "<SPAN>"
    Clipboard.Clear
    Clipboard.SetText strKekka

End Sub

Private Sub Form_Load()
'FormがLoadされたとき（起動時）の処理

'変数の初期化は行った方がよい
    strColor = "black"
    strSize = "12"
    strKekka = "" '追加した変数・初期値は空欄
    
'コンボボックスの内容を入れる
    cboSize.AddItem 9
    cboSize.AddItem 12
    cboSize.AddItem 24
    cboSize.AddItem 72
End Sub