'<nombre>' no es un miembro de '<nombreClase>'
Publicado por David (5 intervenciones) el 23/09/2011 19:51:07
Hola, soy nuevo en la programación en VB y estoy trabajando en la programación en tres capas, he elaborado dos modulos de un sistema (ya trabajand bien) y los tome de base para el de contactos, tengo las capas de datos y de negocios y el fragmento de codigo que adjunto es en la de presentación, me brinca el error siguiente
Error 1 'ObtieneContactos' no es un miembro de 'Contactos_Presentacion_.Contactos'. C:\...\Contactos(Presentacion)\Contactos.vb 7 49 Contactos(Presentacion)
ya me había pasado con otro modulo pero no recuerdo como lo solucioné, no se si me haga falta darle doble clic a alguno de los elementos de la ventana de diseño para que se genere algún evento o que onda, en el modo de diseño ya edite el datagridView y ya se genero el ContactosBindingSource, ojala me puedan ayudar, Gracias.
Imports Contactos_Negocios_
Public Class Contactos
Private Contactos As New Contactos
Private Sub Contactos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
ContactosBindingSource.DataSource = Contactos.ObtieneContactos()
'AQUI MARCA EL ERROR EN LO SUBRAYADO Catch ex As Exception
'En caso de error mandamos el mensaje de error en un messagebox
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Error 1 'ObtieneContactos' no es un miembro de 'Contactos_Presentacion_.Contactos'. C:\...\Contactos(Presentacion)\Contactos.vb 7 49 Contactos(Presentacion)
ya me había pasado con otro modulo pero no recuerdo como lo solucioné, no se si me haga falta darle doble clic a alguno de los elementos de la ventana de diseño para que se genere algún evento o que onda, en el modo de diseño ya edite el datagridView y ya se genero el ContactosBindingSource, ojala me puedan ayudar, Gracias.
Imports Contactos_Negocios_
Public Class Contactos
Private Contactos As New Contactos
Private Sub Contactos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
ContactosBindingSource.DataSource = Contactos.ObtieneContactos()
'AQUI MARCA EL ERROR EN LO SUBRAYADO Catch ex As Exception
'En caso de error mandamos el mensaje de error en un messagebox
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Valora esta pregunta


0