Buenas foreros, nuevamente les traigo una inquietud

Esta inquietud esta relacionada con un tema que toque hace poco tiempo, mas precisamente sobre EbExecuteLine con lo cual tendria solucionado mis problemas, pero luego de informarme mas a fondo me entero de que esta api solo funciona si en el equipo se encuentra instalado Visual Basic 6.0 incluso teniendo instalado el vb6 probe generando un exe del project y no funciono, o sea solo funciona ejecutando en debug, por lo que mi consulta es: Existe alguna forma de hacer ue marche sin estos obstaculos de no ser asi, existe algun sustituto de esta api que sea mas funcional?, gracias amigos de antemano por su ayuda y por su tiempo.-

Buenas nuevamente colegas.

En esta ocacion mi consulta es acerca del entorno de programacion, habitualmente programo en Vb6 y recientemente instale en mi equipo el Visual Studio 2005 y luego intente convertir un proyecto de vb6 a 2005 pero cuando intento iniciar la depuracion me emite un mensaje: "Errores al generar. Desea continuar y ejecutar la ultima version generada?  SI/NO, obviamente se generaron errores en la conversion, por ejemplo en la siguiente guncion me inserto los siguientes mensajes:

Public Function Importe(ByRef Vimporte As Object) As Decimal
      Dim vvalor As Object
      On Error GoTo Hay_err_err
      Dim Vcon As Object
      Dim Vcat As Object
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto vvalor. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      vvalor = 1
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      Vcon = Busqueda("Convenio", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Form_Liquidacion.txtlegajo. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Busqueda(). Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'      Vcat = Busqueda("Categoria", "Tbl_Empleados", "legajo=" & Form_Liquidacion.txtlegajo & "")
      DBpath = My.Application.Info.DirectoryPath & "\datos\tablas.mdb"
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcon. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'UPGRADE_WARNING: No se puede resolver la propiedad predeterminada del objeto Vcat. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'      strsql = "SELECT * FROM Tbl_C_importes WHERE categoria=" & Vcat & "and convenio=" & Vcon
      db = DAODBEngine_definst.OpenDatabase(DBpath, False, False, ";pwd=" & MiPass)
      rst = db.OpenRecordset(strsql)
      
      rst.MoveFirst()
      rst.MoveLast()
      
      Select Case Vimporte
         Case 1
            Importe = rst.Fields("Importe1").Value
         Case 2
            Importe = rst.Fields("Importe2").Value
         Case 3
            Importe = rst.Fields("Importe3").Value
         Case 4
            Importe = rst.Fields("Importe4").Value
         Case 5
            Importe = rst.Fields("Importe5").Value
         Case 6
            Importe = rst.Fields("Importe6").Value
         Case 7
            Importe = rst.Fields("Importe7").Value
         Case 8
            Importe = rst.Fields("Importe8").Value
         Case 9
            Importe = rst.Fields("Importe9").Value
         Case 10
            Importe = rst.Fields("Importe10").Value
      End Select
      
Hay_err_exit:
      
      'Cerramos los Objetos...
      rst.Close()
      db.Close()
      
      'Desvinculamos los objetos...
      'UPGRADE_NOTE: El objeto rst no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
      rst = Nothing
      'UPGRADE_NOTE: El objeto db no se puede destruir hasta que no se realice la recolección de los elementos no utilizados. Haga clic aquí para obtener más información: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6E35BFF6-CD74-4B09-9689-3E1A43DF8969"'
      db = Nothing
      
Hay_err_err:
      
      Select Case Err.Number
         Case 3024
            MsgBox("Es imposible localizar la base de datos en la ruta determinada: " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & "  e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
            Exit Function
            Resume Hay_err_exit
            
         Case 3078
            MsgBox("Es imposible encontrar la tabla requerida. " & vbCrLf & vbCrLf & "Verifique que exista o que se encuentre en la ruta:" & My.Application.Info.DirectoryPath & "\datos" & "  e intente nuevamente", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "Aviso!")
            Exit Function
            Resume Hay_err_exit
         Case 3071
            Importe = 0
            
            
      End Select
   End Function

Bueno, las consultas son:

1-Como soluciono lo de los erroresÇ?
2-por que se generan si es el mismo codigo?
3- Es mejor Visual Studio 2005 que vb6 clasico?

Gracias de antemano por sus respuestas.-

Hola foreros!

antes que nada , gracias de antemano por su ayuda y por su tiempo.

La cuestion seria que intento darle formato a las filas del listvieew, el formato seria una fila color celeste, una color blanca, una color celeste, otra blanca, etc, etc.... y asi en todas las filas.

seria eso posible..?

Buenas compañeros, nuevamente les consulto:

Tengo por un lado la siguiente funcion:

Public Function Suma(F1, F2)
Suma = F1 + F2
End Function

y en un boton de commando tengo:

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Private Sub Command1_Click()
Dim cadena As String

cadena = "Form1.text1 =" & Suma(2,2)

code = EbExecuteLine(StrPtr(cadena), 0&, 0&, 0)

End Sub

Como resultado al presionar el boton, en el text1 obtengo el resultado esperado o sea 4, pero si en lugar de pre-escribir la funcion y sus paramentros en la linea:

cadena = "Form1.text1 =" & Suma(2,2)

escribo

 cadena = "Form1.text1 =" & txtformula

para poder yo escribir la funcion que deseo utilizar en determinado momento y los parametros que necesite como por ejemplo suma(222,333) no me devuelve ningun valor, o sea la consulta seria como consigo que me devuelva el valor de la ejecucion de la funcion que yo escribo en el txtformula ?, gracias de antemano por su ayuda.

Hola!

Bueno colegas, he intentado de todo con la parte de creacion y ejecucion de las formulas de los conceptos que es lo unico que me faltaria en un sistema de sueldos que estoy creando desde hace tiempo, incluso intente con el ScriptControl pero no logre adaptarlo a mi necesidad ya que no consegui hacer que ejecute funciones complejas entre otros, ademas busque en infinidad de sitios sin exito algun ejemplo o documentacion, se habla muy poco de este tipo de sistemas en la red, es por todo esto que apelo al conocimiento  de todos en este sitio para que puedan darme una manito con esto, con lo que sea, un articulo, un ejemplo, un sitio que trate el tema cualquier cosa sera bienvenido, gracias de antemano por su tiempo.-

Hola!, nuevamente yo, antes que nada les agradezco mucho su tiempo y su ayuda.-
 
 
La cuestion es que necesito pasarle a la funcion Mid los argumentos desde los argumentos de otra funcion valga la redundancia,  esto es lo que intento:
 

Public Function BuscarHijos(P1 As Integer) As Variant
On Error GoTo Hay_err_err
 
    DBpath = App.Path & "\datos\tablas.mdb"
 
   strsql = "SELECT Max(mid(jerarquia, ["& P1 &"],2)) as Resultado FROM tbl_generaciones Where Mid(Jerarquia,1,1)=" & Mid(Me.txtpariente, 1, 1)
 
 
        Set db = DBEngine.OpenDatabase(DBpath, False, False, ";pwd=mipass")
     Set rst = db.OpenRecordset(strsql)
 
       rst.MoveFirst
        rst.MoveLast
     'Si no hay registros coinvertimos el null en cero para
     'poder sumarle 1
     If IsNull(rst!Resultado) Then
     BuscarHijos = 0
     'si hay registros devolvemos el max
     Else
     BuscarHijos = rst!Resultado
     End If
 
End Function

Ais como esta la ejecuto pero no me da resultado, nuevamente gracias por su ayuda.

Hola colegas!
 
 
Alguien sabe de que manera puedo insertar una imagen de fondo en un control Treeview, o sea no en el form si no dentro del control, gracias de antemano.-

Hola foreros!

Nuevamente apelo a su conocimiento por que ami las ideas se me acabaron y ya no se como hacerlo.

Resulta que tengo un formulario MDI al cual quiero asgnarle una imagen como fondo de pantalla, el problema es que la resolucion o tamaño de esta es menor que el tamaño del formulario es por eso que les consulto: De que manera podria distribuir o estirar la imagen de tal manera que cubra todo el espacio tal como se hace con los fondo de pantalla de windows, de antemano gracias por su tiempo.-

Hola compañeros, estoy a full hoy!
 
Alguien sabe si es posible desde mi pc forzar un formulario para que se abra en un aquipo x de la red interna¿?, es para un servicio de mensajeria interna en el que estoy trabajando, el formulario que forzariamos es el que contendria el mensaje, el mensaje seria un registro almacenado en una base de datos, de antemano gracias por su tiempo y por su ayuda.
 
Pd.:Y por su pasciencia...

Buenas colegas!

La cuestion ahora es , es posible asignar a cada item de un listview una imagen diferente?, como lo logro?, gracias de antemano.