microsoft.public.es.vb Google Group

Re: Comparar Objetos

2010-03-19T23:32:27Z

"Jorge Ochoa" <JorgeOc...@discussions.micros oft.com> escribió en el mensaje
La solución más simple es agregarle a cada objeto una función Compare(elOtro
As X) que devuelva 1 si es mayor que el otro, 0 si son iguales o -1 si es
menor.
No es que te vas a ahorrar gran cosa, pero al menos no tendrás que escribir

Comparar Objetos

2010-03-19T20:56:07Z

como estan amigos
mi problema es que tengo que comparar dos objectos de vb 6.0 pero mo quiero
estar propiedad por propiedad
if Obj1.Codigo=obj2.Codigo
if Obj1.Nombre=obj2.Nombre
if Obj1.Direccion=obj2.Direccion
es que son muchas propiedades y michos objetos diferentes Clientes contratos
Facturas
gracias

Re: CURSO PARA PROGRAMAR EN RED CON VISUAL BASIC 6. LIBERADO.

2010-03-19T17:34:42Z

alguien a bajado el archivo?
lo digo por si no viene con alguna sorpresa, como virus o un mensaje
con si quieres acceder al archivo primero paga xxxx dolares a la
cuenta de xxxxxxxxxxxxxxxxxx y te paso la clave.
Pregunto, porque ya me ha pasado antes, no aca pero si en otros lados.
que hablan del super manual y cuando uno quiere acceder primero tiene

Re: Hora llegada fichero a filelistbox

2010-03-19T15:04:42Z

Lo que debes hacer es contar con un mecanismo que te indique
si hay algun archivo nuevo. Prueba esto, veamos si te funciona:
dim intCuenta as Integer 'Max 32K archivos
Cuando entres al event del timer:
'Consigue el numero de archivos listados en el filelist (File1)
intCuenta = File1.ListCount
'Aqui haces lo que haces para actualizar la lista de archivos

Re: Crear Instanacias de un Formulario

2010-03-18T21:12:10Z

Hola Leonardo,
Gracias por tu respuesta, pero queria comentarte que con respecto al segundo
caso, mira me pasa lo siguiente, trabajo en VB6.0 sp6, tengo un proyecto y
este tiene un form MDI y un form MDIChild, ok... entonces.. el frm child
digamos qeu se llama FrmFactura, entocnes al llamarlo del menu principal, le

Re: Crear Instanacias de un Formulario

2010-03-18T20:54:53Z

Yo también me corrijo, se puede cambiar el procedimiento FormNuevo por una
función si se desea obtener que Index se otorgo a la nueva instancia:
Function FormNuevo() As Integer
Dim fIndex As Integer
fIndex = FindFreeIndex()
FormNuevo = fIndex
oFrm(fIndex).Tag = fIndex
oFrm(fIndex).Caption = "Instancia:" & fIndex

Re: Crear Instanacias de un Formulario

2010-03-18T19:59:51Z

"Leonardo Azpurua" <l e o n a r d o (arroba) e x m v p s (punto) o r g>
escribió en el mensaje news:uM$mvLtxKHA.2012@TK2MSFTNGP04.phx.gbl...
y por supuesto, faltó:
Me.numero = maxNumero + 1
o tal vez mejor, en FrmOrigen:
Private p_Numero As Integer
Public Property Get Numero() As Integer

Re: Crear Instanacias de un Formulario

2010-03-18T19:42:50Z

"Emerson" <emito2...@gmail.com> escribió en el mensaje
Hola,
Una opción es la que te da Victor.
La otra es, simplemente, recorrer la colección Forms y contar la cantidad de
fomrularios del tipo que tienes abiertos:
Dim f as Form
For each f In Forms
If f.Name = "FrmOrigen" And Not f Is Me Then

Re: uso de recordset

2010-03-18T19:48:26Z

Gracias amigo por tu sugerencia lo voy a tomar en cuenta.
Te voy a agradecer mucho, si por favor pudieras darme algunos alcances a las
preguntas que te hago abajo.
Muchas gracias de antemano
No estoy usando vinculación de los controles con los orígenes de datos.
Para llenar uno de los 3 combobox lo hago asi:

Re: Crear Instanacias de un Formulario

2010-03-18T18:54:05Z

Hola,
Una forma es usar un arreglo dimensionado como el formulario en cuestión, en
tu caso seria As FrmOrigen
Te paso algo de código de un ejemplo en VB3 adaptado para tu caso:
En un modulo bas:
Global FState() As Boolean
Global oFrm() As New FrmOrigen
Sub FormNuevo ()
Dim fIndex As Integer
fIndex = FindFreeIndex()

Crear Instanacias de un Formulario

2010-03-18T18:09:54Z

Hola a todos, tengo la siguiente consulta:
Tengo un formaularioA, y quisiera que cada vez que lo llame del menu, este
cree una instancia y se muestre,bueno eso lo consigo con :
Dim oFrm As New FrmOrigen
oFrm.Show
hasta ahi todo bien, pero pasa que cuando abro mas de una vez, me gustaria
saber como saber cuantas isntancias voy creando, o cuantas veces se ha hecho

Re: Base de datos en servidor con 2003 server

2010-03-18T17:17:54Z

Buenas,
Gracias por la resuesta. Lo he intentado y aún me pide clave y usuario
(registre usuario y equipo en AD). Pienso que me falta algo que
configurar y por eso estoy probando. (ademas debi suspender esto por
unos dias, por ello no habia respondido)
Como opción alterativa los he logrado activar con archivo bat. en cada

Re: Personalizar tamaño y posición programas de programas externos

2010-03-18T16:14:58Z

Ignacio muchas gracias, el ejemplo estuvo perfecto. Comparto para
todos el ejemplo para modificar el tamaño de la calculadora:
En un modulo pegar estas lineas:
Declare Function MoveWindow Lib "user32.dll" (ByVal hWnd As _
Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal
nHeight As _

Re: Hora llegada fichero a filelistbox

2010-03-18T14:21:44Z

Lo que necesitas es como un explorador de archivos en modo detalles?

Re: Personalizar tamaño y posición programas de programas externos

2010-03-18T09:40:14Z

¡Hola otra vez, Begginer!
Para recuperar el handle de la ventana de tu aplicación sólo tienes
que saber su título y luego utilizar la API FindWindow.
Añade a tu código en declaraciones:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long