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. =(
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.