Générateur de cv

Soyez le premier à donner votre avis sur cette source.

Vue 11 424 fois - Téléchargée 1 487 fois

Description

Tout est dans le titre, ceci est un générateur de CV.
Possibilité d'ouvrir des fichiers .rtf et .txt.
Codé sous Visual Basic 2010 Express.

Source / Exemple :


'CECI EST UN MORCEAU DE CODE
Imports Microsoft.Win32

Public Class Form1

    Private MonImage As Bitmap = New Bitmap(122, 158) 'Je crée un BitMap : MonImage
    Dim g As Graphics = Graphics.FromImage(MonImage)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Vue.Show()
        Vue.plan.Text = (vbCrLf + nom.Text + " " + prenom.Text + vbCrLf + adresse.Text + vbCrLf + cp.Text + " " + ville.Text + vbCrLf + _
                     vbCrLf + "Téléphone : " + tel.Text + vbCrLf + "Mobile : " + mobile.Text + vbCrLf + mail.Text + _
                     vbCrLf + "Né le " + dateN.Text + " à " + villeN.Text + vbCrLf + vbCrLf + _
                     vbCrLf + vbCrLf + vbCrLf + vbCrLf + _
                     fonct.Text + vbCrLf + vbCrLf + vbCrLf + _
                     etudeDip.Text + vbCrLf + etude.Text + vbCrLf + vbCrLf + vbCrLf + _
                     Label15.Text + vbCrLf + expP.Text + vbCrLf + vbCrLf + _
                     Label16.Text + vbCrLf + langues.Text + vbCrLf + vbCrLf + vbCrLf + _
                     Label17.Text + vbCrLf + autres.Text)
        Vue.photoRecup.Image = MonImage

        'Clipboard.SetImage(MonImage)
        'Vue.plan.Paste()
    End Sub

    Private Sub photo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles photo.Click
        Dim pic As Image

        OpenFileDialog2.Filter = "(*.jpg)|*.jpg|(*.png)|*.png|(*.gif)|*.gif"
        If OpenFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
            photo.SizeMode = PictureBoxSizeMode.Zoom
------------------------------------------------------------------------------------------------------------

Public Class Vue

    Private checkPrint As Integer

    Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
        checkPrint = 0
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        ' Print the content of the RichTextBox. Store the last character printed.
        checkPrint = plan.Print(checkPrint, plan.TextLength, e)

        ' Look for more pages
        If checkPrint < plan.TextLength Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
    End Sub

    Private Sub btnPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPageSetup.Click
        PageSetupDialog1.ShowDialog()
    End Sub

'LA SUITE DANS LE .zip

Conclusion :


Générateur sympathique mais avec un seul problème :
on ne peut pas imprimer la photo. =(

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
6
Date d'inscription
vendredi 7 janvier 2011
Statut
Membre
Dernière intervention
18 février 2011

Des améliorations sont en cours. J'essaie notamment de régler le problème de la photo.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.