🚀 go-pugleaf

Questo converte i bmp in ico




Option Explicit
' ****************
'
' ****************

Private Sub cmdBmp_Click()
    On Error Resume Next

    cdlg.ShowOpen

    If Err.Number = 0 Then
        txtBitmap = cdlg.FileName
    End If

End Sub

Private Sub cmdChiudi_Click()
    End
End Sub

Private Sub cmdGo_Click()
    Call SavePicture(picICO.Picture, txtIcona)
End Sub

Private Sub Form_Load()

End Sub

Private Sub picDisplayer_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    If Button = 1 Then
        picICO.Cls
        picMask.BackColor = picDisplayer.Point(X, Y)
        ListICO.ListImages.Remove (1)
        ListICO.MaskColor = picMask.BackColor
        ListICO.UseMaskColor = True
        ListICO.ListImages.Add , , picDisplayer.Picture
        Set picICO.Picture = ListICO.ListImages(1).ExtractIcon
    End If
End Sub

Private Sub txtBitmap_Change()

    If Dir(txtBitmap.Text) <> "" And txtBitmap <> "" Then
        ListICO.ListImages.Clear
        Call ListICO.ListImages.Add(, , LoadPicture(txtBitmap))
        txtIcona = txtBitmap.Text
        txtIcona = Left(txtIcona, Len(txtIcona) - 4) & ".ico"
        picDisplayer.Cls
        picDisplayer.Picture = LoadPicture(txtBitmap)
    End If
End Sub