programa para dibujar en windows xD

[cassiani]

 ¡Sin dejar escapar algo!  tratando imprevistos...

Código [Seleccionar] Expandir

Private Sub CmdGuardar_Click()
On Error Resume Next
Dim Resp As String
    With CommonDialog1
        .CancelError = True 'Esto hará que VB devuelva un error al pulsar Cancelar
        .FileName = "Nuevo Imagen de mapa de bits"
        .Filter = "Archivos BMP|*.bmp|Archivos JPG|*.bmp|Todos|*.*"
        .ShowSave
        'Si no se ha producido ningún error, es que NO se ha pulsado Cancelar
        If Err.Number = 0 Then
            If .FileName <> "" Then
                If ExisteArchivo(.FileName) Then
                    If MsgBox("El archivo ya existe," & vbCrLf & _
                    "¿desea sobreescribirlo?" _
                    , vbQuestion + vbYesNo) = vbYes Then _
                    SavePicture Picture1.Image, .FileName
                Else
                    SavePicture Picture1.Image, .FileName
                End If
            End If
        End If
    End With
    '-------------------------->> Control de Errores <<------------------------------
    'Es buena costumbre volver a ponerlo a cero... así dejamos de detectar errores
    Err = 0 'cancelamos el error/ 0 es que no hay error
    On Local Error GoTo 0 'sirve si queremos dejar de detectar errores
End Sub

Public Function ExisteArchivo(Archivo As String) As Boolean
On Error Resume Next
    ExisteArchivo = IIf(Dir$(Archivo) = "", False, True)
End Function

¡S4lu2!

[Chefito]

Jajajaja....como sigamos asi, veo que hacemos el programa entero 

[cassiani]

Jajajaja....como sigamos asi, veo que hacemos el programa entero 

Ja, ja, parece que si... ¡que locura! 

[Sancho.Mazorka]

Existe algo llamado BUSCADOR y buscabas como hacer un Paint hubieses encontrado porque esto ya se hablo y ensima yo hice y postee como respuesta el MiniPaint. Aunque lo de ustedes esta bueno tambien!

http://rapidshare.com/files/43341754/MiniPaint.rar


Sancho.Mazorka