Option Explicit
Dim i As Integer
Dim maiuscolo As Boolean
Dim cd As New ShowFont
Private Sub cmdchar_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
suono.FileName = App.Path & "\bip.wav"
If maiuscolo Then
cmdchar(Index).BackColor = vbYellow
Text1.Text = Text1.Text & UCase(cmdchar(Index).Caption)
Else
cmdchar(Index).BackColor = vbYellow
Text1.Text = Text1.Text & LCase(cmdchar(Index).Caption)
End If
End Sub
Private Sub cmdchar_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
cmdchar(Index).BackColor = &H80C0FF
End Sub
Private Sub cmdinvio_Click()
Text1.Text = Text1.Text & vbCrLf
End Sub
Private Sub Cmdmaiuscolo_Click()
If Not maiuscolo Then
Cmdmaiuscolo.BackColor = vbRed
maiuscolo = True
Cmdmaiuscolo.Caption = "Maiuscolo"
Else
Cmdmaiuscolo.Caption = "Minuscolo"
Cmdmaiuscolo.BackColor = &H80C0FF
maiuscolo = False
End If
End Sub
Private Sub cmdspazio_Click()
Text1.Text = Text1.Text & Chr(32)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 70
cmdchar(13).BackColor = vbYellow
Case 71
cmdchar(14).BackColor = vbYellow
Case 72
cmdchar(15).BackColor = vbYellow
End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 70
cmdchar(13).BackColor = &H80C0FF
Case 71
cmdchar(14).BackColor = &H80C0FF
Case 72
cmdchar(15).BackColor = &H80C0FF
End Select
End Sub
Private Sub Form_Load()
maiuscolo = False
End Sub
Private Sub mnucarattere_Click()
With Form1.Text1
cd.hOwner = Me.hWnd
cd.FontName = .FontName
cd.FontSize = .FontSize
cd.Italic = .FontItalic
cd.Bold = .FontBold
cd.Underline = .FontUnderline
cd.StrikeThru = .FontStrikethru
cd.RGBResult = .ForeColor
cd.ShowFont
If cd.FontAnnulla = False Then
.FontName = cd.FontName
.FontSize = cd.FontSize
.FontItalic = cd.Italic
.FontBold = cd.Bold
.FontUnderline = cd.Underline
.FontStrikethru = cd.StrikeThru
.ForeColor = cd.RGBResult
End If
End With
End Sub
Private Sub Text1_Click()
Text1.Text = Text1.Text & ""
End Sub