Wenas a ver si m podeis ayudar:

Dim imgI As ListImage
Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture("open.bmp"))
TreeView1.ImageList = ImageList1

¿Que esta mal? ( error 35617 - Imagelist debe iniciarse antes de usarla).
ese codigo lo he copiado de otro programa y no da error

en Resumen.
como puedo agregar iconos a un Imagelist desde codigo

muchas gracias
--
[A-T-B]

Wenas a ver si m podeis ayudar:

Dim imgI As ListImage
Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture("open.bmp"))
TreeView1.ImageList = ImageList1

¿Que esta mal? ( error 35617 - Imagelist debe iniciarse antes de usarla).
ese codigo lo he copiado de otro programa y no da error

en Resumen.
como puedo agregar iconos a un Imagelist desde codigo

muchas gracias

Tengo una gran duda...

¿Existe la posivilidad de crear una applicacion en VB que corra como
servicio de Win2000 y WinServer?

En java existen los Thread (que son hilos) y que ademas permiten la
opcion de Daemon, osea demonios.

¿Pero en VB nunca he escuchado de ninguno de estos terminos?
¿Estas opciones son soportadas por VB6?

----------------------------------------------------------------
Hice una aplicacion (en VB) y la puse como servicio de Win pero me
arroja un lindo error al intentar ejecutarla (nunca se ejecuta),
porque no responde en el tiempo esperado, en resumen no arroja un
error... porque tengo entendido que la opcion de Daemon en definitiva
lo que hace es arrojar un tipo de error definido que le indica a S.O.
que esa aplicacion es un Daemon y que la trate como tal.

La misma aplicacion la hice en java y funciona correctamente.
(porque aca esta seteado como Daemon)
----------------------------------------------------------------

Les agradeceria que me indicaran como hacer que mi aplicacion en VB
corra como Servicio de Win.


gracias...

Gracias Efren, pero lo que me comentas ya esta configurado en los pc's y aun
asi sigo con esos problemas.

Muchas gracias.
Saludos

Gustavo

----- Original Message -----
From: "Efren Lugo" <frenolugo@...>
To: <vbasicworld@yahoogroups.com>
Sent: Saturday, July 03, 2004 8:05 PM
Subject: Re: [VBASICWORLD] Offtopic: problema en red


> Qeu tal, Mira, el problema que tu tienes yo lo tenia
> tambien cuando reparaba maquinas, a veces cuando hay
> w2k, o winxp, sucede que necesitas configurar el DNS
> Para que se puedan ver entre si las pc's, imagino que
> ya tienes configurado la puerta de enlace, en las pc's
> que se conectan atraves de tu server de internet
> share, bueno solo necesitas configurar la puerta de
> enlace que sea la misma que la ip con la que estas
> compartiendo y LAS DIRECCIONES DNS INVENTALAS TU O SI
> TIENES IP FIJA PUES PONLE LAS QUE TE DA TU SERVIDOR DE
> INTENERNET.... SALUDOS.
>
>
>
> =====
> ELL
>
> _________________________________________________________
> Do You Yahoo!?
> La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.
http://net.yahoo.com.mx
>
>
> Web: http://www.mundovb.net
>
> Para darte de baja envía un mensaje a:
> vbasicworld-unsubscribe@yahoogroups.com
> Enlaces a Yahoo! Grupos
>
>
>     vbasicworld-unsubscribe@yahoogroups.com
>
>     http://es.docs.yahoo.com/info/utos.html
>
>
>

Qeu tal, Mira, el problema que tu tienes yo lo tenia
tambien cuando reparaba maquinas, a veces cuando hay
w2k, o winxp, sucede que necesitas configurar el DNS
Para que se puedan ver entre si las pc's, imagino que
ya tienes configurado la puerta de enlace, en las pc's
que se conectan atraves de tu server de internet
share, bueno solo necesitas configurar la puerta de
enlace que sea la misma que la ip con la que estas
compartiendo y LAS DIRECCIONES DNS INVENTALAS TU O SI
TIENES IP FIJA PUES PONLE LAS QUE TE DA TU SERVIDOR DE
INTENERNET.... SALUDOS.



=====
ELL

_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.
http://net.yahoo.com.mx

Hola a todos; perdonen el offtopic pero tengo un problema que no he podido
solucionar en una red.

La red:
* 3 PC's y un hub
* 1 Windows 2000 y 2 Windows 98 SE (una tarjeta de red por máquina)
* esta instalado el protocolo TCPIP
* numeros IP: estáticos, 192.168.0.x
* el Win2000 tiene conexión a Internet ADSL compartida con ICS (por defecto
ICS se instala como servidor DHCP, pero cambié la configuración para ip's
estáticos)
* todos los pc's tienen configurado el mismo grupo de trabajo
* 1 impresora se encuentra en uno de los Win98SE compartida

El problema y algunas cosas confusas:
* desde los pcs algunos pings fallan; pero no ocurre que el ping que falla
es siempre el mismo, lo que indicaría un problema físico, por ejemplo.
* utilizando el PCAnywhere puedo conectarme a cualquiera de los pcs sin
problema
* todas las pcs pueden usar la conexión compartida a internet sin problemas
* la impresora que esta conectada no puedo usarla desde la red (esta
compartida, verifiqué contraseñas etc.)

Alguna sugerencia? Supongo que hay un problema de configuración, no es un
problema físico. Si fuera un problema físico no podría conectarme con el
PCAny ni tampoco tendrían conexión a internet.
Firewalls: he probado deshabilitarlos y tampoco puedo conectarme a la
impresora o carpetas compartidas: por lo tanto no es problema de firewall.

Desde ya muchas gracias.


Saludos

Hola buenas,

a ver si me podeis ayudar

estoy haciendo un "Explorador de Windows"
se que se hace con el ListView ( esk m interesa añadir iconos ...)
cual es el codigo para que todos los archivos de un Directorio se pongan
en el LISTVIEW ?
y los archivos de todas subcarpetas de un Directorio ?.

tb necesito saber cual es el comando para saber el directorio desde donde
esta instalado el programa.

muchas gracias

--
[A-T-B]

Hola a todos!!!

Les escribo en esta oportunidad porque tengo una duda urgente, ya que
en la Universidad me están pidiendo un programa que permita localizar
una palabra dentro de un texto de al menos una página llena de
caracteres, utilizando para ello una secuencia de letras
equidistantes. El programa deberá tomar cada palabra del texto
original (que imagino será almacenado en una base de datos), eliminar
los espacios en blanco y signos de puntuación, y convertir el texto
en una sola palabra larga de cientos de caracteres. El planteamiento
propuesto por el profesor es el siguiente:

Se empieza con el primer carácter de la palabra que se desea
encontrar dentro del texto, la cual enseguida la localizará el
programa. La segunda letra es buscada. La distancia entre la primera
letra y la segunda es uns SLE (secuencia de letras equidistantes).
Luego compara el tercer carácter de la palabra calculando la
distancia entre las dos primeras, si la tercera coincide con la que
hay, perfecto, continúa con la cuarta. En caso de que no, se aumenta
la distancia en 1, y asi hasta que encuentre la palabra completa.

Tomenos como ejemplo la palabra "AVE":

La distancia hipotética entre la primera y segunda es de 30 letras,
el programa mira si desde "V" a "E" (tercera letra) hay 30 letras, si
no hay 30, entonces incrementa la distancia entre la primera letra,
es decir "A" y la "V", y así opera hasta que encuentra la
palabra "AVE", que hipotéticamente hablando, se encuentran las 3
letras a una distancia de 41. Entonces se dice que el SKIP de "ABA"
es de 41.

¿Creen que puedan ayudarme? Gran parte de la nota de este semestre
depende de este ejercicio, del cual este planetamiento es sólo la
primera parte del trabajo, pues falta una segunda parte que nos la
darán probablemente mañana, pero primero hay que presentar esto.

Gracias anticipadas, amigos...

José.

Hola a todos(as)... estoy desarrollando un programa que debe chequear
cada 2, 5 o mas minutos la BD y si encuentra un registro nuevo
notificar o avisar en el Systray el nuevo registro encontrado
---> algo asi como cuando entra un email nuevo en Hotmail <---, pero
esa parte no se como iniciarla... tengo adelantado mucho codigo de
hecho he realizado algunas pruebas, pero no doy en el blanco....
alguien me puede dar ideas... como para dar el primer paso???? o
quiza un trozo de codigo, para que se me alumbre el genio?????....

gracias de antemano

Ruben

-----Mensaje original-----
De: Yunior Morales R. [mailto:omega18347@...]
Enviado el: Viernes, 04 de Junio del 2004 01:58 p.m.
Para: vbasicworld@yahoogroups.com
Asunto: [VBASICWORLD] ¿Cómo capturo la dirección de la barra de dirección del navegador activo?

Hola a todos:

 

Necesito conseguir la dirección que el usuario escriba en la barra de dirección del navegador de Internet que se esté utilizando.

 

¿Cómo puedo hacerlo?

 

Que la mucha buena suerte siempre les acompañe.

Buenos Días:

	 Text1.Text = Calendar1.Value

Atte
Gutiérrez Flores Johnny
Email: Jgutierrez@...
Cel:   974 - 42760
Analista - Programador

-----Mensaje original-----
De: zuzto69 [mailto:noemy_aka_negra@...]
Enviado el: Sábado, 12 de Junio de 2004 06:30 p.m.
Para: vbasicworld@yahoogroups.com
Asunto: [VBASICWORLD] Calendario en VB6


Hola, estoy creando una aplicación en VB6 y en ella uso el
calendario (MsCal.ocx) y me gustaría sacar a un TextBox la fecha que
marque en el calendario, ¿me podeis explicar cómo se hace? Gracias
de antemano.

Un saludo



Web: http://www.mundovb.net

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@yahoogroups.com
Enlaces a Yahoo! Grupos


      vbasicworld-unsubscribe@yahoogroups.com

       http://es.docs.yahoo.com/info/utos.html

Hola, estoy creando una aplicación en VB6 y en ella uso el
calendario (MsCal.ocx) y me gustaría sacar a un TextBox la fecha que
marque en el calendario, ¿me podeis explicar cómo se hace? Gracias
de antemano.

Un saludo

----- Original Message -----

From: mtkvbnet

To: vbasicworld@yahoogroups.com

Sent: Friday, June 11, 2004 11:09 AM

Subject: [VBASICWORLD] RE: Toggle buttons

Hola,
Por el momento solo se me ocurre esto:
El Office XP tiene un dll llamado FM20 que entre otras tiene el
Toggle
que te hace falta . Si tienes Office instalado :
Click derecho sobre el cuadro de herramientas – componentes –
controles –
Microsoft Forms 2.0 Object Library
Si no tienes el Office, mándame un email y te envío esta
librería.
Claro que también podemos construirlo de alguna manera pero no he
mirado
a fondo este asunto.
Saludos.


--- En vbasicworld@yahoogroups.com, "jorgsae" <jorgsae@z...>
escribió:
> Hola a todos:
>
> ¿Alguien sabría cómo podría hacer un toggle button en
Visual
Basic? Ya
> sabéis, el típico botón biestado, como los del panel de
componentes
> del entorno de desarrollo de Visual. Es que, no sé si será el
calor o
> qué, pero soy incapaz de encontrar un botón así, pero me
parece
> extrañísimo que no esté...
>
> Muchas gracias de antemano y un saludo...



Web: http://www.mundovb.net

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@yahoogroups.com

Hola,
Por el momento solo se me ocurre esto:
El Office XP tiene un dll llamado FM20 que entre otras tiene el
Toggle
que te hace falta . Si tienes Office instalado :
Click derecho sobre el cuadro de herramientas – componentes –
controles –
Microsoft Forms 2.0 Object Library
Si no tienes el Office, mándame un email y te envío esta
librería.
Claro que también podemos construirlo de alguna manera pero no he
mirado
a fondo este asunto.
Saludos.


--- En vbasicworld@yahoogroups.com, "jorgsae" <jorgsae@z...>
escribió:
> Hola a todos:
>
> ¿Alguien sabría cómo podría hacer un toggle button en
Visual
Basic? Ya
> sabéis, el típico botón biestado, como los del panel de
componentes
> del entorno de desarrollo de Visual. Es que, no sé si será el
calor o
> qué, pero soy incapaz de encontrar un botón así, pero me
parece
> extrañísimo que no esté...
>
> Muchas gracias de antemano y un saludo...

Hola a todos:

¿Alguien sabría cómo podría hacer un toggle button en Visual Basic? Ya
sabéis, el típico botón biestado, como los del panel de componentes
del entorno de desarrollo de Visual. Es que, no sé si será el calor o
qué, pero soy incapaz de encontrar un botón así, pero me parece
extrañísimo que no esté...

Muchas gracias de antemano y un saludo...

Hola,
Tengo un problema con la expresión ALTER TABLE, para renombrar una
columna y/o una Tabla en una Base de Datos Acces desde VB.

He buscado por todas las partes en internet y casi todos coinciden
en como hacerlo  pero …. No funciona.

Para aclarar … he adjuntado el siguiente Ejemplo:

Option Explicit

Private Sub Command1_Click()
'PRIMERO HAY QUE AÑADIR UNA REFERENCIA AL PROYECTO
'Microsoft ActiveX Data Objects 2.7 library   .... es la que tengo yo
'…. Tambien un boton …. Claro :)
     Dim BaseDatos As String
     Dim SQL As String
         'BaseDatos = "X:\Carpeta_Donde_Esta\La_BaseDatos.mdb"
     Dim cnn As New ADODB.Connection
         With cnn
             .ConnectionString = _
                 "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=" & BaseDatos & ";"
             .Open

                 'Esta funcciona bien
'SQL = "CREATE TABLE NombreTabla;"
                 'Esta tambien funcciona
'SQL = "ALTER TABLE NombreTabla ADD NombreColumna text(25);"

'--------------------------------------------------------------------
                 'AQUI ESTA LA PROBLEMA ... ESTAS DOS NO FUNCCIONAN
                 'Me sale el siguente error: "Error de sintaxis en la
                 'instrucción ALTER TABLE"

'SQL = "ALTER TABLE NombreTabla RENAME COLUMN NombreColumna TO _
NuevoNombreColumna;"

'SQL = "ALTER TABLE NombreTabla RENAME TO NuevoNombreTabla;"
'--------------------------------------------------------------------
             .Execute SQL
             .Close
         End With
      Set cnn = Nothing
End Sub


He dejado todo sobre el mismo botón "Command1" para no complicar
Hay que "jugar" con el "'" del comentario para probar una por una
las expresiones

GRACIAS

----- Original Message -----

From: Paul P. Garcia

To: programador basic ; vbe basic ; world basic ; CanalVB elista

Sent: Tuesday, June 01, 2004 2:38 PM

Subject: [VBASICWORLD] host e-mail (help me)

Saludos.

 

Como estan amigos de la lista. Nuevamente recuro a ustedes para que me puedan ayudar en las siguientes consultas.

 

1- Si voy a enviar un e-mail de: login@...   a: login@... ¿Cual es el HOST al que debo conectarme? con login@...?

 

Ejemplo: si tengo que enviar de: login@...  a: login@... ¿Cual es host al que debo conectarme? con smtp.wanadoo.es, o con smtp.mail.yahoo.es?

Es lo mismo si me piden autentificacion?

 

2- Como puedo saber si una cuenta de e-mail existe?

 

3- Al enviar un e-mail OUTLOOK Express, como sabe con que host debo conectarse. Supongo que debe tener una base de datos, de todos los host. Si es asi. ¿Como puedo conectarme con su base de datos?

 

4- Cuales son los tipos de archivos que reconoce el protocolo Mime-Version 1.0?

 

5- Me podrian confirmar si el ejemplo de abajo, es para codificar en Base 64. Si no es asi me podrian enviar un ejemplo para codificar en base 64. Lo necesito para poder enviar e-mail con archivo adjunto.

Public Function UUEncodeFile(strFilePath As String) As String

    Dim intFile         As Integer      'file handler
    Dim intTempFile     As Integer      'temp file
    Dim lFileSize       As Long         'size of the file
    Dim strFilename     As String       'name of the file
    Dim strFileData     As String       'file data chunk
    Dim lEncodedLines   As Long         'number of encoded lines
    Dim strTempLine     As String       'temporary string
    Dim i               As Long         'loop counter
    Dim j               As Integer      'loop counter
   
    Dim strResult       As String
    '
    'Get file name
    strFilename = Mid$(strFilePath, InStrRev(strFilePath, "\") + 1)
    '
    'Insert first marker: "begin 664 ..."
    strResult = "begin 664 " + strFilename + vbCrLf
    '
    'Get file size
    lFileSize = FileLen(strFilePath)
    lEncodedLines = lFileSize \ 45 + 1
    '
    'Prepare buffer to retrieve data from
    'the file by 45 symbols chunks
    strFileData = Space(45)
    '
    intFile = FreeFile
    '
    Open strFilePath For Binary As intFile
        For i = 1 To lEncodedLines
            'Read file data by 45-bytes cnunks
            '
            If i = lEncodedLines Then
                'Last line of encoded data often is not
                'equal to 45, therefore we need to change
                'size of the buffer
                strFileData = Space(lFileSize Mod 45)
            End If
            'Retrieve data chunk from file to the buffer
            Get intFile, , strFileData
            'Add first symbol to encoded string that informs
            'about quantity of symbols in encoded string.
            'More often "M" symbol is used.
            strTempLine = Chr(Len(strFileData) + 32)
            '
            If i = lEncodedLines And (Len(strFileData) Mod 3) Then
                'If the last line is processed and length of
                'source data is not a number divisible by 3, add one or two
                'blankspace symbols
                strFileData = strFileData + Space(3 - (Len(strFileData) Mod 3))
            End If
           
            For j = 1 To Len(strFileData) Step 3
                'Breake each 3 (8-bits) bytes to 4 (6-bits) bytes
                '
                '1 byte
                strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j, 1)) \ 4 + 32)
                '2 byte
                strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j, 1)) Mod 4) * 16 _
                               + Asc(Mid(strFileData, j + 1, 1)) \ 16 + 32)
                '3 byte
                strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j + 1, 1)) Mod 16) * 4 _
                               + Asc(Mid(strFileData, j + 2, 1)) \ 64 + 32)
                '4 byte
                strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j + 2, 1)) Mod 64 + 32)
            Next j
            'replace " " with "`"
            strTempLine = Replace(strTempLine, " ", "`")
            'add encoded line to result buffer
            strResult = strResult + strTempLine + vbCrLf
            'reset line buffer
            strTempLine = ""
        Next i
    Close intFile

    'add the end marker
    strResult = strResult & "`" & vbCrLf + "end" + vbCrLf
    'asign return value
    UUEncodeFile = strResult
   
End Function

 

Gracias de antemano.

Cualquier comentario es bienvenido.

---

Correo Yahoo!: 6MB, más protección contra el spam ¡gratis!

Web: http://www.mundovb.net

Para darte de baja envía un mensaje a:
vbasicworld-unsubscribe@yahoogroups.com