使用vcard代码生成vb代码... [英] Generate vb code with vcard code...

查看：109
本文介绍了使用vcard代码生成vb代码...的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我还有2种形式:

frmRelaties(来自我的数据库的关系)
frmVCard，将信息显示为VCard.

我在表格1上的代码是:

显式选项

''Er wordt gebruik gemaakt van een Odbc Connectie:
导入系统
导入System.IO
导入System.Data
导入System.Data.Odbc
导入System.Data.DataTable
导入System.Data.Odbc.OdbcDataReader
导入System.Data.Odbc.OdbcDataAdapter
导入System.Data.Odbc.OdbcCommand
导入System.Data.Odbc.OdbcConnection

''Onderstaan​​de代码是frmRelaties格式的
公共类frmRelaties

''Onderstaan​​de代码laat zien wat er gebeurd tijdens het laden van frmRelaties.
Public Sub frmRelaties_Load(发送为System.Object，发送为System.EventArgs)处理MyBase.Load

lstRelaties.Items.Clear()

''Het Maken Van de Kolommen.
lstRelaties.Columns.Add("Nummer"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Relatiesoort"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Naam"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Voornaam"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Adres"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add(邮政编码"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Woonplaats"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Telefoon"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add("Mobiel"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add(传真"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add(电子邮件"，73，Horizo​​ntalAlignment.Left)
lstRelaties.Columns.Add(网站"，73，Horizo​​ntalAlignment.Left)

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

''数据库信息公开数据库.
Dim cnn As OdbcConnection = odbcnn()

''Selecteerd de records.
昏暗的突击队作为新的OdbcCommand(_
"SELECT * FROM Relaties OR BY BY B22_relnr"，_
cnn)
''WHERE B22_rel_soort =``D''

昏暗的阅读器As OdbcDataReader = commando.ExecuteReader()
阅读器读取时读取()

``数据库中的数据源数据库''，
昏暗的gegevens作为新的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)

循环

''Sluit de connectie
cnn.Close()

结束子

私有函数odbcnn()作为OdbcConnection

``DSN是数据源名称.数据库是opgeslagen.
Dim ConnectionString As String ="DSN = BISSDATA; UID = stage; PWD = egast;"

''打开青少年数据库连接器.
昏暗的cnn作为新的OdbcConnection(ConnectionString)
cnn.Open()

''吉夫·德·康尼·特鲁格(Geeft de connectie terug.)
返回cnn

最终功能

"通过Het菜单"Bestand"实现V卡制作:
私有子mnuMaakVCard_Click(发送者为System.Object，e为System.EventArgs)处理mnuMaakVCard.Click

如果lstRelaties.SelectedItems.Count> 0然后

数据库中的子项目". vbTab zorgt voor ruimte tussen twee项目op 1 regel和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

如果结束

''正在调查V卡的制造商:
如果MsgBox("Wi-u v-Card maken?"，36，"Maak V-Card")= MsgBoxResult.Yes然后

frmVCard.Show()

其他
退出子
如果结束
结束子

私有Sub btnMaakVCard_Click(发送者为System.Object，e为System.EventArgs)处理btnMaakVCard.Click

``Ven Card v.d.m.v. de knop"V-Card Maken":
如果lstRelaties.SelectedItems.Count> 0然后

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

如果结束

''正在调查V卡的制造商:
如果MsgBox("Wi-u v-Card maken?"，36，"Maak V-Card")= MsgBoxResult.Yes然后

frmVCard.Show()

其他
退出子
如果结束
结束子

私有Sub lstRelaties_MouseDoubleClick(发送者为System.Object，e为System.Windows.Forms.MouseEventArgs)处理lstRelaties.MouseDoubleClick

''Ven Card Maken遇见了dubbele muisklik op de gewenste亲戚:
如果lstRelaties.SelectedItems.Count> 0然后

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

如果结束


''正在调查V卡的制造商:
如果MsgBox("Wi-u v-Card maken?"，36，"Maak V-Card")= MsgBoxResult.Yes然后

frmVCard.Show()

其他
退出子
如果结束
结束子

私有子mnuAfsluiten_Click(发送者为System.Object，e为System.EventArgs)处理mnuAfsluiten.Click

"通过het菜单"Bestand"实现的应用:
关闭()
结束子

结束类


这样很好！如果我单击这三个按钮之一，那么您将看到带有所选关系的VCard信息的表格2.

电子名片的代码为:

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:

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



现在，我需要将VCard代码输入VB.net..



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

推荐答案

没有答案，所以我会寻找自己
no answers so i will look for myself


我已经解决了这个问题我的自我
I have Sol ved this problem by my self


这篇关于使用vcard代码生成vb代码...的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

查看全文
相关文章
其他开发语言最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆