Generate vb code with vcard code...

Question

0.00/5 (No votes)

See more:

I've still got 2 forms:

frmRelaties (relations from my database)
frmVCard, to display the information as VCard.

my code on form 1 is:

Option Explicit On

'Er wordt gebruik gemaakt van een Odbc Connectie:
Imports System
Imports System.IO
Imports System.Data
Imports System.Data.Odbc
Imports System.Data.DataTable
Imports System.Data.Odbc.OdbcDataReader
Imports System.Data.Odbc.OdbcDataAdapter
Imports System.Data.Odbc.OdbcCommand
Imports System.Data.Odbc.OdbcConnection

'Onderstaande code is voor de form frmRelaties
Public Class frmRelaties

'Onderstaande code laat zien wat er gebeurd tijdens het laden van frmRelaties.
Public Sub frmRelaties_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

lstRelaties.Items.Clear()

'Het maken van de kolommen.
lstRelaties.Columns.Add("Nummer", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Relatiesoort", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Naam", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Voornaam", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Adres", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Postcode", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Woonplaats", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Telefoon", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Mobiel", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Fax", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("E-mail", 73, HorizontalAlignment.Left)
lstRelaties.Columns.Add("Website", 73, HorizontalAlignment.Left)

'Het aanpassen van de eigenschappen.
lstRelaties.FullRowSelect = True
lstRelaties.GridLines = True
lstRelaties.HideSelection = True
lstRelaties.MultiSelect = False
lstRelaties.View = View.Details

'De benodigde informatie ophalen vanuit de database.
Dim cnn As OdbcConnection = odbcnn()

'Selecteerd de records.
Dim commando As New OdbcCommand( _
"SELECT * FROM Relaties ORDER BY B22_relnr ", _
cnn)
'WHERE B22_rel_soort = 'D'

Dim reader As OdbcDataReader = commando.ExecuteReader()
Do While reader.Read()

'Onderstaande gegevens worden uit de database gehaald en vullen de kolommen die zijn aangemaakt.
Dim gegevens As New ListViewItem(reader.Item("B22_relnr").ToString)
gegevens.SubItems.Add(reader.Item("B22_rel_soort").ToString)
gegevens.SubItems.Add(reader.Item("B22_naam").ToString)
gegevens.SubItems.Add(reader.Item("B22_voornaam_etc").ToString)
gegevens.SubItems.Add(reader.Item("B22_adres").ToString)
gegevens.SubItems.Add(reader.Item("B22_postcode").ToString)
gegevens.SubItems.Add(reader.Item("B22_plaats").ToString)
gegevens.SubItems.Add(reader.Item("B22_telefoon1").ToString)
gegevens.SubItems.Add(reader.Item("B22_mobielnr").ToString)
gegevens.SubItems.Add(reader.Item("B22_faxnummer").ToString)
gegevens.SubItems.Add(reader.Item("B22_email").ToString)
gegevens.SubItems.Add(reader.Item("B22_www_adres").ToString)
lstRelaties.Items.Add(gegevens)

Loop

'Sluit de connectie
cnn.Close()

End Sub

Private Function odbcnn() As OdbcConnection

'DSN is de Data Source Name. Dit verwijst naar de locatie waar de database is opgeslagen.
Dim ConnectionString As String = "DSN=BISSDATA;UID=stage;PWD=egast;"

'Open een database connectie.
Dim cnn As New OdbcConnection(ConnectionString)
cnn.Open()

'Geeft de connectie terug.
Return cnn

End Function

'Een V-Card maken via het menu "Bestand":
Private Sub mnuMaakVCard_Click(sender As System.Object, e As System.EventArgs) Handles mnuMaakVCard.Click

If lstRelaties.SelectedItems.Count > 0 Then

'De "SubItems" betreft de informatie uit de database. vbTab zorgt voor ruimte tussen twee items op 1 regel en vbCrLf zorgt voor een nieuwe regel.
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(2).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(3).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(4).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(5).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(6).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(7).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(8).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(9).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(10).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(11).Text

End If

'Een bevestiging om de V-Card te maken:
If MsgBox("Wilt u de V-Card maken?", 36, "Maak V-Card") = MsgBoxResult.Yes Then

frmVCard.Show()

Else
Exit Sub
End If
End Sub

Private Sub btnMaakVCard_Click(sender As System.Object, e As System.EventArgs) Handles btnMaakVCard.Click

'Een V-Card maken d.m.v. de knop "V-Card Maken":
If lstRelaties.SelectedItems.Count > 0 Then

frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(2).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(3).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(4).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(5).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(6).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(7).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(8).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(9).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(10).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(11).Text

End If

'Een bevestiging om de V-Card te maken:
If MsgBox("Wilt u de V-Card maken?", 36, "Maak V-Card") = MsgBoxResult.Yes Then

frmVCard.Show()

Else
Exit Sub
End If
End Sub

Private Sub lstRelaties_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lstRelaties.MouseDoubleClick

'Een V-Card maken met een dubbele muisklik op de gewenste relatie:
If lstRelaties.SelectedItems.Count > 0 Then

frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(2).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(3).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(4).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(5).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(6).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(7).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(8).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(9).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(10).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(11).Text

End If

'Een bevestiging om de V-Card te maken:
If MsgBox("Wilt u de V-Card maken?", 36, "Maak V-Card") = MsgBoxResult.Yes Then

frmVCard.Show()

Else
Exit Sub
End If
End Sub

Private Sub mnuAfsluiten_Click(sender As System.Object, e As System.EventArgs) Handles mnuAfsluiten.Click

'Sluit de applicatie via het menu "Bestand":
Close()
End Sub

End Class

This works fine! if i click on one of the 3 buttons then you will see form 2 with the VCard information of the relationship you have selected.

The Code for a VCard is:

CSS

BEGIN:VCARD
FN:Mr. John P. Smith, Jr.
TITLE:General Manager
ORG:XYZ Corp.;North American Division;Manufacturing
ADR;POSTAL;WORK:;;P.O. Box 10010;AnyCity;AnyState;00000;U.S.A.
LABEL;POSTAL;WORK;ENCODING=QUOTED-PRINTABLE:P.O. Box 10010=0D=0A=
Anywhere, TN  37849=0D=0A=U.S.A.
ADR;PARCEL;WORK:;133 Anywhere St.;Suite 360;AnyCity;AnyState;00000;U.S.A.
LABEL;POSTAL;WORK;ENCODING=QUOTED-PRINTABLE:133 Anywhere St.=0D=0A=
Anywhere, TN  37849=0D=0A=U.S.A.
TEL;Work;VOICE;MESG;PREF:+1-234-456-7891 x56473
TEL;Home:+1-234-456-7891
TEL;Pager:+1-234-456-7891
TEL;Cell:+1-234-456-7891
TEL;Modem;FAX:+1-234-456-7891,,*3
EMAIL;Internet:webmaster@anywhere.com
URL:http://www.anywhere.com/mrh.vcf
UID:http://www.anywhere.com/mrh.vcf
TZ:-0500
BDAY:1997-11-29
REV:20090401T065518
VERSION:2.1
END:VCARD

Now i need to get the VCard code into VB.net..
is someone have an idea how?

Posted 4-Apr-12 20:50pm

OdeJong

Add a Solution

Comments

ZurdoDev 5-Apr-12 8:13am

What do you mean get it into vb.net?

OdeJong 5-Apr-12 9:57am

i want to make it possible to make the text in my textbox save as a v-card that i can open with any email client en send it by mail

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OdeJong · Accepted Answer · 2012-04-10T01:27:00

Solution 1

no answers so i will look for myself

Posted 10-Apr-12 1:27am

OdeJong

OdeJong · Accepted Answer · 2012-04-10T01:29:00

Solution 2

I have Sol ved this problem by my self

Posted 10-Apr-12 1:29am

OdeJong