Option Explicit
Public xold As Single
Public yold As Single
Public disegna As Boolean
Dim passo As Integer
Dim direzione As String
Dim gomma As String
Private Sub cmdsalva_Click()
Dim nome As String, nome1
nome1 = Trim(InputBox("inserisci il nome del file da salvare"))
If nome1 <> "" Then
nome = App.Path & "\" & Trim(nome1) & ".bmp"
Picture1.AutoRedraw = True
SavePicture Picture1.Image, nome
Else
Exit Sub
End If
End Sub
Private Sub Command1_Click()
Picture1.Cls
End Sub
Private Sub Command10_Click()
Picture1.DrawWidth = 3
Label11.Caption = "3"
End Sub
Private Sub Command11_Click()
Picture1.DrawWidth = 4
Label11.Caption = "4"
End Sub
Private Sub Command12_Click()
Picture1.DrawWidth = 5
Label11.Caption = "5"
End Sub
Private Sub Command13_Click()
Picture1.ForeColor = QBColor(4)
Label9.Caption = "marrone"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command14_Click()
Picture1.ForeColor = QBColor(5)
Label9.Caption = "viola scuro"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command15_Click()
Picture1.ForeColor = QBColor(13)
Label9.Caption = "viola"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command16_Click()
Picture1.DrawWidth = 7
Label11.Caption = "7"
End Sub
Private Sub Command17_Click()
Picture1.DrawWidth = 8
Label11.Caption = "8"
End Sub
Private Sub Command18_Click()
Picture1.DrawWidth = 9
Label11.Caption = "9"
End Sub
Private Sub Command19_Click()
Picture1.DrawWidth = 10
Label11.Caption = "10"
End Sub
Private Sub Command2_Click()
Picture1.ForeColor = vbGreen
Label9.Caption = "verde"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command20_Click()
Picture1.ForeColor = &H80FF&
Label9.Caption = "arancione"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command21_Click()
Picture1.ForeColor = &H808080
Label9.Caption = "grigio"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command22_Click()
Picture1.ForeColor = &HFFC0FF
Label9.Caption = "rosa"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command23_Click()
Picture1.ForeColor = vbWhite
Label9.Caption = "bianco"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command24_Click()
Picture1.ForeColor = &HFFFF80
Label9.Caption = "azzurro"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command25_Click()
Picture1.ForeColor = &HC0C0C0
Label9.Caption = "grigio chiaro"
Label9.ForeColor = &H808080
Label3.ForeColor = &H808080
End Sub
Private Sub Command26_Click()
Picture1.ForeColor = &HC000&
Label9.Caption = "verde scuro"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command27_Click()
Picture1.ForeColor = &H8080FF
Label9.Caption = "rosso chiaro"
Label3.ForeColor = Picture1.ForeColor
Label9.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command28_Click()
Command33.BackColor = &H404040
Picture1.BackColor = vbBlack
Label13.Caption = "nero"
Label13.ForeColor = Picture1.BackColor
gomma = "nero"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command29_Click()
Picture1.BackColor = &H80
Label13.Caption = "marrone"
Command33.BackColor = &H80
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command3_Click()
Picture1.ForeColor = vbRed
Label9.Caption = "rosso"
Label3.ForeColor = Picture1.ForeColor
Label9.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command30_Click()
Command33.BackColor = vbWhite
Picture1.BackColor = vbWhite
Label13.Caption = "bianco"
Label13.ForeColor = vbWhite
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command31_Click()
Command33.BackColor = &HC00000
Picture1.BackColor = &HC00000
Label13.Caption = "blu"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command32_Click()
Command33.BackColor = vbRed
Picture1.BackColor = vbRed
Label13.Caption = "rosso"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command33_Click()
Label9.ForeColor = vbBlack
Label9.Caption = "gomma"
If Label9.Caption = "gomma" Then
Label15.Caption = "Stai usando la gomma"
Label9.FontBold = True
End If
Picture1.ForeColor = Picture1.BackColor
End Sub
Private Sub Command34_Click()
Command33.BackColor = &H80FF&
Picture1.BackColor = &H80FF&
Label13.Caption = "Arancione"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command35_Click()
Command33.BackColor = &H80FF80
Picture1.BackColor = &H80FF80
Label13.Caption = "Verde"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command36_Click()
Command33.BackColor = &HFFFF&
Picture1.BackColor = &HFFFF&
Label13.Caption = "Giallo"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command37_Click()
Command33.BackColor = &HFF80FF
Picture1.BackColor = &HFF80FF
Label13.Caption = "Rosa"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command38_Click()
Command33.BackColor = &H808080
Picture1.BackColor = &H808080
Label13.Caption = "Grigio"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command39_Click()
Command33.BackColor = &HFFFF00
Picture1.BackColor = &HFFFF00
Label13.Caption = "Azzurro"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command4_Click()
Picture1.ForeColor = vbBlue
Label9.Caption = "blu"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command40_Click()
Command33.BackColor = &HC0FFC0
Picture1.BackColor = &HC0FFC0
Label13.Caption = "Verde Chiaro"
Label13.ForeColor = Picture1.BackColor
gomma = "gomma"
If Label9.Caption = "gomma" Then
Label9.ForeColor = vbBlack
Picture1.ForeColor = Picture1.BackColor
End If
End Sub
Private Sub Command5_Click()
Picture1.ForeColor = vbYellow
Label9.Caption = "giallo"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command6_Click()
Picture1.DrawWidth = 6
Label11.Caption = "6"
End Sub
Private Sub Command7_Click()
Picture1.ForeColor = vbBlack
Label9.Caption = "nero"
Label9.ForeColor = Picture1.ForeColor
Label3.ForeColor = Picture1.ForeColor
End Sub
Private Sub Command8_Click()
Picture1.DrawWidth = 1
Label11.Caption = "1"
End Sub
Private Sub Command9_Click()
Picture1.DrawWidth = 2
Label11.Caption = "2"
End Sub
Private Sub Form_Load()
passo = 30
direzione = "sx"
Label11.Caption = "1"
Label13.Caption = "bianco"
Label9.Caption = "nero"
gomma = "bianco"
Label13.ForeColor = vbWhite
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.Caption = ""
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Sei sicuro di voler uscire?", vbYesNo, "esci") = vbNo Then
Cancel = True
Else
End
End If
End Sub
Private Sub Label9_Change()
If Label9.Caption = "gomma" Then
Label9.FontSize = 20
Label10.FontUnderline = True
Label10.Caption = "spessore gomma"
Else
Label10.FontUnderline = False
Label10.Caption = "spessore tratto "
Label9.FontSize = 14
End If
End Sub
Private Sub mnucanc_Click()
Picture1.Cls
End Sub
Private Sub mnucoltratto_Click()
colore.ShowColor
Picture1.ForeColor = colore.Color
End Sub
Private Sub mnucoord_Click()
If mnucoord.Checked = True Then
mnucoord.Checked = False
Else
mnucoord.Checked = True
End If
End Sub
Private Sub mnudata_Click()
If mnudata.Checked = False Then
mnudata.Checked = True
Else
mnudata.Checked = False
End If
If mnudata.Checked = True Then
Label7.Visible = True
Else
Label7.Visible = False
End If
End Sub
Private Sub mnudefault_Click()
Picture1.DrawWidth = 1
Picture1.ForeColor = vbBlack
Picture1.BackColor = vbWhite
Label11.Caption = "1"
Label9.Caption = "nero"
Label9.ForeColor = vbBlack
Label13.Caption = "bianco"
Label13.ForeColor = vbWhite
Command33.BackColor = vbWhite
End Sub
Private Sub mnuexit_Click()
Dim ris As Integer
ris = MsgBox("sei sicuro di voler uscire?", vbQuestion + vbYesNo, "uscita dal programma")
If ris = vbYes Then
End
End If
End Sub
Private Sub mnusfin_Click()
colore.ShowColor
Form1.BackColor = colore.Color
If Form1.BackColor = &HFF00& Then
Label5.ForeColor = vbBlue
Label6.ForeColor = vbBlue
Label7.ForeColor = vbBlue
Else
Label6.ForeColor = &HFF00&
Label5.ForeColor = &HFF00&
Label7.ForeColor = &HFF00&
End If
If Form1.BackColor = &H0& Then
Label1.ForeColor = vbBlue
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlue
Else
Label3.ForeColor = vbBlack
Label1.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End If
End Sub
Private Sub mnuora_Click()
If mnuora.Checked = False Then
mnuora.Checked = True
Else
mnuora.Checked = False
End If
If mnuora.Checked = True Then
Label6.Visible = True
Else
Label6.Visible = False
End If
End Sub
Private Sub mnusfondo_Click()
colore.ShowColor
Picture1.BackColor = colore.Color
End Sub
Private Sub mnuopen_Click()
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If disegna Then
Label15.Caption = "Non stai disegnando"
Else
Label15.Caption = "Stai disegnando"
End If
xold = X
yold = Y
disegna = Not (disegna)
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mnucoord.Checked = True Then
Label3.Visible = False
Label2.Visible = False
Else
Label3.Visible = True
Label2.Visible = True
End If
Label3.Caption = X & "," & Y
If disegna Then
Picture1.Line (X, Y)-(xold, yold)
xold = X
yold = Y
Label3.Caption = X & "," & Y
End If
End Sub
Private Sub Timer1_Timer()
If Label5.ForeColor = &HFF00& Then
Label5.ForeColor = vbBlack
Else
Label5.ForeColor = &HFF00&
End If
If Label5.Left + Label5.Width + passo > 1035 Then
direzione = "dx"
End If
If Label5.Left - passo < 0 Then
direzione = "sx"
End If
Select Case direzione
Case "sx"
Label5.Left = Label5.Left + passo
Case "dx"
Label5.Left = Label5.Left - passo
End Select
End Sub
Private Sub Timer2_Timer()
Label6.Caption = "Ore ----> " & Time
Label7.Caption = "Data--> " & Date
End Sub
