| Forum: VB.NET |
Thema:
Treeview- Problem bei Afterselect |
Von:
paul meier (
28.10.2005 06:50) |
Hi,
ich verstehe es nicht. der code klappt in allen Projekten, aber diesmal eben nicht:
[code]
Private Sub tvw_vorlagen_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles tvw.AfterSelect
Dim Tz As Kontakt_Treenode
Tz = CType(e.Node, Kontakt_Treenode)
txtext = Tz.Text
End Sub
[/code]
Fehler bei Ctype: InvalidCastException
Allerdings sieht der Code, der durch Doppelklick auf tvw entsteht,so aus:
[code]
Private Sub tvw_vorlagen_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvw_vorlagen.AfterSelect
Dim Tz As Kontakt_Treenode
Tz = CType(e.Node, Kontakt_Treenode)
txtext = Tz.Text
End Sub
[/code]
die Kontakt_Treenodklasse:
[code]
Public Class Kontakt_Treenode : Inherits TreeNode
Private k1_kid As Integer
Private k1_name As String
Private k1_vname As String
Private k1_firma As String
Private k1_tel As String
Private k1_email As String
Private k1_anrid As Integer
Public Sub New(ByVal kontakt_id As Integer, ByVal name As String, ByVal vname As String, ByVal firma As String, ByVal tel As String, _
ByVal email As String, ByVal anr_id As Integer)
MyBase.New()
kontakt_id = k1_kid
name = k1_name
vname = k1_vname
firma = k1_firma
tel = k1_tel
email = k1_email
anr_id = k1_anrid
End Sub
Public Property kontakt_id() As Int32
Get
Return k_id
End Get
Set(ByVal value As Int32)
k_id = value
End Set
End Property
Public Property name() As Int32
Get
Return kname
End Get
Set(ByVal value1 As Int32)
kname = value1
End Set
End Property
Public Property vname() As Int32
Get
Return kvname
End Get
Set(ByVal value1 As Int32)
kvname = value1
End Set
End Property
Public Property firma() As String
Get
Return kfirma
End Get
Set(ByVal value4 As String)
kfirma = value4
End Set
End Property
Public Property tel() As String
Get
Return ktel
End Get
Set(ByVal value4 As String)
ktel = value4
End Set
End Property
Public Property email() As String
Get
Return kemail
End Get
Set(ByVal value4 As String)
kemail = value4
End Set
End Property
Public Property anr_id() As String
Get
Return anred_id
End Get
Set(ByVal value4 As String)
anred_id = value4
End Set
End Property
End Class
[/code]
Was ist falsch?
Gruß paul!
www.firmsoftware.de
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
