Temas

Hola, xq cuando pongo un icono en el TabPage de un TabControl la imagen se ve pobre y con falta de colores??...

los iconos 32x32 png los utilizo desde un ImageList 32x32

aclaro que NO pasa lo mismo cuando lo pongo en en PictureBox. El problema es cuando lo pongo en el TabPage

Saludos,

Hola, Amigos

Mi pregunta es simple. ¿como puedo saber que dicho archivo.mdb es con el que mi aplicación interactuará?

Es para que mi aplicación  no ejecute otro archivo.mdb con el mismo nombre.

Habrá algún código que se pueda poner en el arcchivo.mdb que pueda leer mi aplicación.

algo así como:

Código [Seleccionar] Expandir


MiAplicacion.exe v1.0 (Ejecute solo)  BaseDeDatos.mdb v1.0
MiAplicacion.exe v1.1 (ejecute solo)  BaseDeDatos.mdb v1.1

y así sucesivamente...

Saludos,
Pedro

[TABLA: Transacciones:]

Hola tengo estas dos tablas y deseo hacer un selección:

TABLA: Transacciones:

Código [Seleccionar] Expandir


ID ReservaID Importe
1    1               100
2    1               200
3    2               400
4    2               500

TABLA:Reservas:

Código [Seleccionar] Expandir


ReservaID     Cliente
1               Juan
2               Pedro

Lo que deseo hacer es una listado así:

Código [Seleccionar] Expandir

Reservas.ReservaID              Cliente            Transacciones.Importe
1                              Juan                300
2                              Pedro               900

E intentado con estos códigos, pero no me sale.

Código [Seleccionar] Expandir

Select Reservas.ReservaID, Reservas.Cliente, Sum(Transacciones.Importe) As Importe From Reservas Left Join Transacciones On Reservas.ReservaID = Transacciones.ReservaID Group By Transacciones.ReservasID

Hola, Alguien sabe como se puede hacer esta clase:

Código [Seleccionar] Expandir

Dim miPerro As New Perro
With miPerro
     .Nombre = "Mario"
     .Raza = "Boxer"
     .Edad = 1
End With
Perros.Agregar(Perro)


La clase perros lo hago sin problema.  lo que no puede hacer es como enviar la clase perro. como hago para que una propiedad de la clase perros reciba como parametro otra clase.

[Call TreeView_AfterSelect()]

'Hola como llamo a TreeView_AfterSelect desde un Button1
'En VB.60 bastaba con Call TreeView_AfterSelect()
'En VB.NET tiene dos parametros y ya he intentado con:

Código [Seleccionar] Expandir

Call TreeView1_AfterSelect(me, TreeViewEventArgs.Empty)
Call TreeView1_AfterSelect(TreeView1, TreeViewEventArgs.Empty)
Call TreeView1_AfterSelect(Nothing, Nothing)


y no funciona con ninguno de los tres.

Código [Seleccionar] Expandir

Private Sub TreeView_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
    'codigo que lista en un ListView1 de acuerdo al nodo seleccionado
    'ListView1.Items.Clear
    'Etc, etc
End Sub


'muchos botones uno de ellos es button1 que hace actualizar

Código [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Call TreeView1_AfterSelect(TreeView1, TreeViewEventArgs.Empty) '<<  E R R O R
End Sub


Lo que hace el Button1.Clik es llamar al Sub TreeView_AfterSelect así pueda cargar nuevamente listado es decir actualizar el listado.

[ChkEnviado.Enabled=True]

Código (vbnet) [Seleccionar] Expandir


Private Sub chkEnviado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkEnviado.CheckedChanged
 If chkEnviado.Checked = True Then
    If MsgBox("¿Estas seguro que esta factura esta enviada?", CType(MsgBoxStyle.Question + MsgBoxStyle.YesNo, MsgBoxStyle)) = MsgBoxResult.No Then
       chkEnviado.Checked = False
    End If        
 End If
End If


Hasta aquí ni un problema. Hasta que cuando edito la factura enviada, con el btnEditar. Activo: ChkEnviado.Enabled=True y la desseleciono manualmente: chkEnviado.Checked = False

Luego presiono en el btnCancelar para restablecer los datos y me sale el mensaje como si ubiera precionado en el chkEmitido.

Mi pregunta es pues como hago para que no aparezca ese mensaje cuando preciono el boton cancelar.

Hola, alguien sabe como puedo saber si un formulario esta cargado..

Tengo un ListView con un listado de Clientes.

Código (vbnet) [Seleccionar] Expandir

Dim myForm As New frmCliente
With myForm
    .Show()
End With

Lo que deseo saber es cargar un formulario por cliente. Es decir, si el cliente1 ya esta cargado en el FrmCliente. pues no dejar cargar otras ves.


En VB.60 se podía hacer con la coleccion Forms, pero en VB.Net no hay.
Alguna idea....


Nota: los formularios cliente no estan en un MDI
Saludos,

Hola, vengo de VB6.0 quería saber la equivalencia de:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Call Command2_Click
End Sub

Private Sub Command2_Click()
    MsgBox "HI"
End Sub


Estoy intentando hacer lo mismo en VB.Net y tira error..

Código [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Button2_Click()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("HI")
End Sub


ALguién sabe como hacer eso...
Saludos...

Hola quiero hacer un cuadrado con medinas de 168x245 pero no sé donde esta la opción de Hancho y Altura. Estoy utilizando las herramientas: Marco rectangular, Rectágulo y transformación libre. Todas estas me permiten hacer un cuadro, pero no se activa en ninguna parte de la pantalla las opciones de Ancho y Altura, así cono lo hace en Corel Drawn.

Saludos..






edit: cambio el titulo ñ_ñ

Hola como puedo devolver un valor al cerrar una ventana modal

'Formulario Principal

Código [Seleccionar] Expandir


Dim UsuarioLegitimo As Boolean
Dim F As New FormComprobarUsuario

UsuarioLegitimo = F.Show VbModal



Cuando llego esta parte del codigo se carga un nuevo FormConprobarUsuario, que por cierto tiene dos TextBox (Usuario y contraseña), y dos Botones (aceptar y cancelar)... el obejetivo es que si, despues de validar, el usuario es correcto devuelva True y sino False.

Alguna idea, he intentado muchas maneras pero no me salen resultados..

Hola, estoy pasandome de programar en vb6.0 a Vb.Net y me preguntaba si se el area de trabajo se puede cambiar a como se mostraba eb vb6.0. es decir sin esos tabs.

Cuando abro muchas ventanas y códigos el Tab de vb.net se llena y me es dificil estar buscando. si alguién sabría como cambiarlo a vista ventanas. osea cada form y codigo en una ventana distinta. asi la podré minimizar...

[sCadena]

Hola tengo un lío. bueno más claro no entiendo. Estoy leyendo el ID3 "La información de Titulo, Autor, etc" que viene en los MP3. Pues resulta que encontré un código que extrae los último 128 bytes del MP3, que es donde se guarda los TAG's.

Código [Seleccionar] Expandir


Dim sFile As String
Dim sCadena As String
sFile = App.Path & "Wow.mp3"

Open sFile For Binary As 1#
    Get 1#, LOF(1) - 127, sCadena
Close 1#

MsgBox sCadena



con el código anterior estoy suponiendo que coje los ulitmos 128 bytes y lo almacena en sCadena. Una vez almacenado pensaba extraer los datos usando MID, pero al mostrar sCadena no muestra nada. Sin enbargo, cuádo a sCadena lo declaro como Type recién muestra  el TAG

Código [Seleccionar] Expandir

Private Type TAG
    Header As String * 3
    Titulo As String * 30
    Artista  As String * 30
    Album  As String * 30
    Ano  As String * 4
    Comentario As String * 30
    Genero  As Byte
End Type

Dim sFile As TAG
Dim sCadena As String
sFile = App.Path & "Wow.mp3"

Open sFile For Binary As 1#
    Get 1#, LOF(1) - 127, sCadena
Close 1#

MsgBox sCadena.Titulo


Alguién me podría explicar porque al declarar sCadena como String no devuelve nada y al declararla como Type sí?? 

O será que los binarios no soportan String??

Hola, alguién sabe como quitar una tabulación en el editor de VB. es que cuando seleccionas una porcion de código y precionas tabular avanza un espacio o tabulación.

Alguién sabe como hacer lo contrario?...

Hola. Tengo un formulario "FormCliente" que tiene una variable Publica ID
Ejecuto al Cliente:

Código [Seleccionar] Expandir

Dim IDcliente As Long
IDcliente = CLng(Val(lsv.SelectedItem.Text))
Dim MiCliente As New FormCliente
With MiCliente
    .ID = IDcliente
    .Show
End With

Hola Queria saber como puedo hacer que una funcion devuelva un variable de Type

Código [Seleccionar] Expandir

Enum eDatos
  IDdocumento
  Nombre
  Apellidos
End Enum

Type Tdatos
  IDdocumento As Long
  Nombre As String
  Apellidos As String
End Type

Function Cliente (eDatos) As Tdatos
    Select Case eDatos
    Case IDdocumento
        Cliente = 1
    Case Nombre
        Cliente = "Pedro"
    Case Apellidos
        Cliente = "Sánchez"
    End Select
End Function


Lo que deseo con la funcion es que pasando algun opcion del eDatos me devuelva la informacion con su respectiva variable Type. Osea si elijo IDdocumento me devuela un long y si selecciono Nombre o Apellidos me devuelva un String.

Como de vincularle a que devulvea un Long o un String??

hola verán quería que me ayudaran como declarar correctamente una variable que se usara en un bucle For, en este caso la variable mensaje.
la variable mensaje lo he declarado siempre y cuando exista un 5 en el bucle para ahorrar memoria; ya que, tambien pude declararlo antes de inicar el bucle, pero en este último ya estaría metiendo a la memoria, la variable mensaje, sin saber si existe o no.

resulta que en este código funciona perfectamente tanto si la variable mensaje lo declaro antes de iniciar el bucle o como también en el momento en que se cumpla la condición.

Código [Seleccionar] Expandir

Dim i As Long
Dim MostrarMensaje As Boolean

For i = 0 To 10
    If i = 5 Then
        Dim Mensaje As String
        Mensaje = "Sí, existe 5"
        MostrarMensaje = True
    Else
        MostrarMensaje = False
    End If
Next i

If MostrarMensaje = True Then
    MsgBox Mensaje, vbInformation
End If



PERO en este otro no funciona debido a que la variable es un contador. no se supone que cada ves que se declara una variable enpienza en null y el valor que se le asige será la variable inicial?

Código [Seleccionar] Expandir

Dim i As Long

For i = 0 To 3
    If i > 0 Then
        Dim j As Long
        Dim suma As Long
        For j = 0 To i
            suma = suma + j
        Next j
    End If
    MsgBox "La suma desde (0) hasta (" & i & ") es: " & suma
Next i

lo correcto que mostraría el mensaje en cada (For i) sería:

Código [Seleccionar] Expandir

(caso i=0) la suma desde (0) hasta (0) = 0
(caso i=1) la suma desde (0) hasta (1) = 1
(caso i=2) la suma desde (0) hasta (2) = 3 y NO ( 4)
(caso i=3) la suma desde (0) hasta (3) = 6 y NO (10)

el problema esta en que al cunplir la condicion y declarar la variable suma. ésta no incia con cero ya que suma lo que se obtuvo en el (For i) anterior.

Pues de aqui mi confusión. no se supone que se permite úncamente una variable en un procedimiento..? mi lógica es que cada ves que i > 0 destruye a la declaración y declara la misa variable.. o es que vasandose en que debe haher solo una variable con el mismo nombre en un procedimiento. una ves cunplida la condición al leer la linea de código "Dim suma As Long" verifica si se declaro en el For anterior, y si es así pasa por alto esa linea de código?

es esto cierto o que, ayuda?? :?

Hola, saben.. he instalado el SQL server Compact Edition 3.5 SP1 para trabajar con VB.NET

He instalado el Visual Estudio 2008 y ya viene incluido el SQL server Compact Edition 3.5 SP1. lo que no entiendo es como creó la base de datos de en forma diseño al estilo de Acces.

Ahora mismo puedo crear sólo desde código y com no veo la base de datos pues da cosa si estará bien o no.

Tengo que instalar alguna herramienta o algo así para crear base de datos de forma diseño???

Saludos,

[otras incluso detienen todo el sistema operativo]

Hola estuve leyendo varios tutoriales sobre el los cuadros de dialogo. donde dice: unos se detienen toda la aplicación hasta que el usuario responda al cuadro de dialogo y otras incluso detienen todo el sistema operativo.


Pues he buscado y no encuentro como es que detengo todo windows con un cuadro de dialogo....  lo que intento hacer es un chat privado entre un server y cliente cifrado lo mensajes, etc. Lo detener todo el sistema sería por ejemplo si estoy en una cabina publica y pues aunque mis mensajes salgan cifrados y si hay un keylogger en la pc pues de nada serviria, no?.. por eso  es que al ejecutar mi chat privado pues la pc no haga nada.

Hola en VB.60 se podia visualizar el texto final de un TextBox Multiline, similar al Mesenger que cada ves que des enter se agrega el mensaje en la ventada de conversación y automaticamente se situaa al último mensaje ingresado.

VB 6.0

Código [Seleccionar] Expandir

Text1.Selstar=Len(Text1.Text)

Ahora en VB.NET utilizo:

Código [Seleccionar] Expandir

TextBox1.SelectionStart = Len(TextBox1.Text)

y ni caso...  ¿Alguna referencia?

Hola porque en algunas páginas sale el cartelito amarillo que dice  "Intener explorer inpidio que esta pagina weba ejecutara Script y controles active x....." y en otras no cuando en ambas páginas hay codigo Java Scrip como por ejemplo:

En esta página de Microsoft hay javascript pero no sale el cartelito ese..
http://www.microsoft.com/es/es/default.aspx

Mientras que si voy a otras paginas me sale ese cartelito amarillo

Ayuta..

Hola quiero hacer una consulta SQL con parametros de una Funcion que he creado pero me sale el error:

Código [Seleccionar] Expandir


La funcion 'Estado' no esta definida en la expresión

SQL

Código [Seleccionar] Expandir

"Where sEstadoProyecto(ID_Trabajos)"

Hola, amigos

Veran tengo tres Formularios:


FormPrincipal
FormCliente
FormDocumentos


El FormCliente tiene TextBox como: TextNombres, TextApellidos, TextDocumento, etc. Y lo ejecuto desde FormPrincipal con el código siguiente:

Código [Seleccionar] Expandir

Dim MiFormCliente As New ForCliente
With MiFormCliente
.Show
End With

Una vez cargado el nuevo Formulario, relleno los TextBox y cuando me sitúo en el TextDocumento, preciono Ctrl + Enter para cargar el FormDocumentos que contiene un ListBox con los documentos comunes como: DNI, Pasaporte, Licencia de conducir, etc.

Bueno, pues al dar DobleClik en el ListBox no se como pasar los datos del documento seleccionado porque el FormCliente lo he creado con el código que ya dije anteriormente. He intentado con:

Código [Seleccionar] Expandir

With FormCliente
     .TextDocumento.Text = Listado.Text
     .TextDocumento.Tag = Listado.ItemData(Listado.ListIndex)
End With
y

Código [Seleccionar] Expandir

With MiFormCliente
     .TextDocumento.Text = Listado.Text
     .TextDocumento.Tag = Listado.ItemData(Listado.ListIndex)
End With

y no me pasa los datos. Ayuda por favor alguna sugerencia o solución..

Holas,

veran tengo un form1 y un form2

lo que hago es al clikar en form1 el form2 se ejecute.

lo que deseo saber es que al clickar en el form2 me salga un mensaje con el nombre del formulario que lo ha invocado.

claro que puede puedo guardar la informacion en el tag del form2, pero me gustaría saber si hay una funcion, parametro, etc que pueda dar esa informacion....

saludos..

Hola como puedo hacer esto en Net he buscado en todas partes y no me sale ni una...

Código [Seleccionar] Expandir

IF RS.RecordCount > 0 Then
    MsgBox RR.RecordCount & " " & "Clientes encontrados"
End If

Hola, saben si se puede cambiar la apariencia de los controles a como se veian en el vb.6.0 xq en la opcion, por ejemplo de TexBox, BordeStyle seleciono Fixed3D, pero sigue plano y con borde celeste. en que opcion se puede poner para que se vea la caja de texto undido, bajo relieve, como en el vb6.0

Saludos,

Hola, he instalado el Visual Estudio y al iniciar por primera vez, me ha salido la siguiente pantalla:



Al ir a toda prisa he pinchado en Microsoft Visual C++, pero el lenguaje que vengo estudiando es Visual Basic. ademas se ve mejor que siempre salga esa ventana ya que permite seleccionar el lenguaje que vas a utilzia, cosa que no siempre se usa el mismo.

Hay alguna manera de restablecer eso?. Ya que, ahora cada ves que ejecuto carga directamete el C++

Saludos,

Hola a todos. solo quería saber cuanta informacion se puede almacenar en cada casilla de una array unidimencional:

Lo que ocurre es que estoy pasando los datos de tres campos por Winsock al cliente. Pero me arroja error en una fila donde los tres campos estan con datos. de ahí que creo que a lo mejor es porque hay mucha informacion?

'Server

Código [Seleccionar] Expandir

Dim Transmitir As String
Transmitir = Hoja1 &  "|" & Hoja2 & "|" & Hoja3
Winsock1.SendData Transmitir

Cliente

Código [Seleccionar] Expandir

Dim Transmicion As String
Dim Datos() As String

Winsock1.GetData Transmicion, vbString

Datos = Split(Transmicion, "|")

Text1.Text= Datos(0)
Text2.Text= Datos(1)
Text3.Text= Datos(2)

Hay 20 filas con datos en el primer campo. Solo en la fila 16 los tres campos estan con datos. con información de una hoja Word. Y justo ahi salta un error y pasa a la fila 17. Salta porque capuré el error.

Será porque en la fila 16 hay mucho texto?, ayuda porfa...

[CLIENTES]

Hola, amigos.

Saben tengo una tabla "CLIENTES" con los campos "CLIENTE" y "CIUDAD". Lo que deseo es mostrar los clientes sin repeticiones y la ciudad con repeticiones. Para ello he utlilizado:

Código [Seleccionar] Expandir


RS.Open "SELECT DISTINCT CLIENTE  FROM CLIENTES", DBConex, adOpenStatic, adLockReadOnly
If RS.RecordCount > 0 Then
    Dim list_item As ListItem
    Do While Not RS.EOF
         Set list_item = ListView1.ListItems.Add(, , ,)
         list_item.SubItems(1) = RS!CLIENTE
         list_item.SubItems(2) = RS!CIUDAD
         RS.MoveNext
         DoEvents
    Loop
End If
RS.Close
Set RS = Nothing


Luego al cargar a un ListView me dice que el campo CIUDAD no existe. Por ello modifique la consulta y agregue "DISTINCT CLIENTES, CAMPOS". Lo malo es que no me muestra los datos que se repiten en el campo CIUDAD.

¿alguna sugerencia?

Saludos,
Pedro Jerí

Hola, amigos.

Tengo un tabla clientes. lo que deseo es enviar todo el contenido al cliente. alguna manera de enviar todo en un bloque?

Lo que he intentado es hacer un For a la tabla y enviar de uno en uno, pero mucho codigo y ademas como que puede fallar, por ejemplo si envio 200 filas.


Laguna sugenrencia de como hacerlo....

Gracias,

Hola, veran tengo que hacer un consulta SQL del tipo

Código [Seleccionar] Expandir

"Select * From Flores WHERE Estado IN ('Pendiente','Enviado,'Entregado','Anulado')"


Los datos los cojo de 4 Check's. Mi difcultad esta en obtenerlos ya que tengo que hacer varios IF's ....

Código [Seleccionar] Expandir

IF Check1=1 And Check2=1 AND Check3=1 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=1 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=0 AND Check4=1
IF Check1=1 And Check2=0 AND Check3=0 AND Check4=0
.
.
.
....como veran boy haciendo muchos IF para cada caso, cosa que me enrreda. Hay alguna manera mas simple de hacer esto?

[Albaran]

Hola, amigos.

Veran, tengo una base de datos con tablas Albaran y RecibosDePago. y las ID's de cada tabla son autonumericas. Pues mi problema esta en que al crear un Albaran tambien tengo que crear un ReciboDePago, pero mi problema esta que como relaciono el Albaran con RecibosDePago, si cada uno generan sus ID automáticamente.

he pensado en una ves guardado el albaran, ya se genera la ID. y esta ID tendria que asignarla al ReciboDePago. Pero para eso tendría que cerrar el albaran, luego buscarlo y abrirlo. cosa que asi ya sabria el ID que se asigno a mi albaran. luego recien crear el ReciboDepaGO.. pues como veran estoy hecho un lio.. ayuda porfavor..

Hola tengo un DataReport con datos y en una parte quiero que se muestre un codigo de barras. Para ello estoy Usando el Tipo de Fuente Interleaved 2 de 5.

Pero al cargar en el formulario me sale un error:

Código [Seleccionar] Expandir

Error al ajustar líneas de texto en el control Etiqueta37

Estoy Usando el Código:

Código [Seleccionar] Expandir

Dim lcstart As String
Dim lcstop As String
Dim barralargo As String
Dim lccar As String
Dim lni As Long

lcstart = Chr(40)
lcstop = Chr(41)
barralargo = 1234567890

For lni = 1 To Len(barralargo) Step 2
    If Val(Mid(barralargo, lni, 2)) < 50 Then
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 48)
    Else
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 142)
    End If
Next
barralargo = lcstart + lccar + lcstop

.Sections("Sección1").Controls("Etiqueta37").Caption = "*" & barralargo & "*"


En un formulario lo Uso:

Código [Seleccionar] Expandir

Label1.FontName = "i2of5txt"
Label1.FontSize = 72
Label1.AutoSize = True

Label1.Caption = "*" & barralargo & "*"

Y funciona correctamente, pero no se que pasa con el data report.. ayuda porfavor..

Hola, saben.. deseo cargar toda una tabla a un listview, pero como saber lla cantidad de Camppos y sus respectivos nombres?

Hola, sabes tengo un RichTextBox con un informe con formatos: colores, tamaño, etc. Todo eso lo guardo en un campo de tipo memo, en acces, pero al cargar los datos nuevamente al RichTextBox desaparee todos los formatos

Como hago lo cargo para que se vea en el RichTextBox con los mismos formatos en que guarde los datos en la tabla.

NOta: los datos los guardo con RichTextBox.TextRTF

Hola, saben estoy haciendo un video de imagenes cn adobe premiere pro CS3, pero las imagenes que cargo se ven mal. Por ahi en un foro lei que DESDE PHOTOSHOP SE PUEDE EXPORTAR IMAGENES PREPARADAS PARA ADOBE PREMIERE PRO CS3, Y ASI NO SE DISTORCIONEN LAS IMAGENES. estuve indangando, pero no me ayudo.. POrfa. si alguien sabes como preparar  imagenes en photoshop para utiliarlos en adobe premiere pro. le estare agradecido..


Saludos,
Padarinis

Hola, Este Codigo me resgistra los OCX

Código [Seleccionar] Expandir


Option Explicit
Public Declare Function RegComCtl32 Lib "KewlButtonz.ocx" Alias "DllRegisterServer" () As Long
Public Declare Function UnRegComCtl32 Lib "KewlButtonz.ocx" Alias "DllUnregisterServer" () As Long
Public Const S_OK = &H0
Sub RegisterComCtl32()
On Error GoTo Err_Registration_Failed
    If RegComCtl32 = S_OK Then
        MsgBox "Archivo registrado"
    Else
        MsgBox "Archivo no registrado"
    End If
    Exit Sub
Err_Registration_Failed:
MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub
Sub UnRegisterComCtl32()
On Error GoTo Err_Unregistration_Failed
    If UnRegComCtl32 = S_OK Then
        MsgBox "Archivo desregistrado"
    Else
        MsgBox "Archivo no desregistrado"
    End If
Exit Sub
Err_Unregistration_Failed:
MsgBox "Error: " & Err.Number & " " & Err.Description
End Sub



El OCX es KewlButtonz.ocx, pero en este codigo esta ingresado directamente.. como aria para pasarlo como variable... ese decir que diga por ejemplo ArchivoOCX y ya le paso el nombre con cun ComanDialog

Hola, miren que tengo que guardar La ID y el DATO de una tabla en un combo. Lo he intentado con:

Código [Seleccionar] Expandir

Combo1.AddItem "PEDRO" 'Nombre
Combo1.ItemData(.Combo1.NewIndex) = 10 'Codigo del nombre

Combo1.AddItem "JUAN" 'Nombre
Combo1.ItemData(.Combo1.NewIndex) = 11 'Codigo del nombre

Esto me resulta erfectamente, pero no me sale para guadar el ID de tipo String, por ejemplo

Código [Seleccionar] Expandir

Combo1.AddItem "PERU" 'Pais
Combo1.ItemData(.Combo1.NewIndex) = "PE" 'Codigo del pais

Combo1.AddItem "CHILE" 'Pais
Combo1.ItemData(.Combo1.NewIndex) = "CL" 'Codigo del pais

Me arroja el sgte error.. "Llamada a procedimiento o argumentos no validos".. lo que estuve notando es que creo que solo se puede guardar la ID como tipo Numerico, y como yo le estuve metiendo un valor String me arroja error.

¿como puedo hacer para guardar un dato String?


En la web enconre esto...

Código [Seleccionar] Expandir

Estoy llenando un combobox con este codigo:     CmbBox.Items.Add(New
ListItem(texto, valor))


---------------
Do While DR.Read()
    CmbEspec.Items.Add(New ListItem(DR.Item("DESCRIPCION"),
DR.Item("COD_ESPEC")))
Loop
---------------


Me dice "ListItem no esta definido"


Donde esta el error en lo que estoy tratando de hacer???


Gracias,


Edwin.

Saludos,
Pedro

[ID_PAIS PAIS]

Hola,
Mas que ayuda pido una sugerancia.

Supongamos que tengo dos tablas: Paises y Ciudades

Tabla Paises

ID_PAIS    PAIS
PE              PERU
ES              ESPAÑA
IT               ITALIA

Tabla Ciudades

ID_PAIS ID_CIUDAD  CIUDAD
PE           LIM              LIMA
ES           MAD             MADRID
ES           BCN             BARCELONA
IT            ROM            ROM

Bien, en el combo1 cargo el listado paises y en el combo2 cargo el listado ciudades, de modo que al seleccionar un pais, autonmaticamente se carguen en el combo2 las ciudades correspondientes a este.

Mi pregunta es como o donde cargo el Id_Pais de la tabla paises si el combo1 me da solo para cargar un campo. pensaba cargarlo asi mas o menos..

PERU (PE)
ESPAÑA (ES)
ITALIA (IT)

O

PE - PERU
ES - ESPAÑA
IT -  ITALIA

O

(PE) PERU
(ES) ESPAÑA
(IT) ITALIA

O

Tambien cargaria en un combo1 solo las ID_PAIS y en otro combo el PAIS
de modo que al seleccionar un pais tambien se seleccione el Id_Pais que estaria invisible, realizar la busqueda a partir de este dato.

¿Cual de las tres es la mejor manera de trabajar o con que modo generalmente se trabaja?

Mi otra pregunta es, una vez guardado el ID_Pais en otra tabla y si deseo modificar esta tabla tendria que cargar en el formulario los paises y ciudades, pero como aria para que el combo muestre automaticamente el pais y ciudad que he guardado.

En palabras podriamos decirle que se cargue todos los paises y ciudades posicionate en el pais x y ciudad x.

Saludos,

El siguiente codigo me da el ERROR 5 LLAMADA A PROCEDIMEINTOS O ARGUMENTOS NO VALIDOS.

Código [Seleccionar] Expandir

Private Sub Form_Load()
For i = 1 To 3
    Combo1.AddItem i
Next i
Combo1.ListIndex = 1
End Sub

Private Sub Combo1_Click()
If Combo1.Text = 1 Then Text1.SetFocus
If Combo1.Text = 2 Then Text2.SetFocus
If Combo1.Text = 3 Then Text3.SetFocus
End Sub

EL ERROR ES QUE EN EL EVENTO Private Sub Form_Load() HE ASIGNADO Combo1.ListIndex = 1 Y COMO EN EL EVENTO Private Sub Combo1_Click() SE vaya AL FOCO DE LOS TEXT''S. COMO ES LOGICO NO PUEDE IR AL FOCO PORQUE AUN EL FOMULARIO NO ESTA CARGADO. PARA ELLO TENDRIA QUE ESTAR EN EL EVENTO Form_Activate().

COMO PUEDO SABER QUE EL FORMULARIO YA ESTE CARGADO. ASI ASIGNARIA QUE SOLO CUANDO EL FORM YA ESTE CALCULADO CORRA LOAS PROCEDIMEINTOS COMO AQUI...

Código [Seleccionar] Expandir

Private Sub Combo1_Click()
IF ME.ACTIVATE = TRUE THEN
   If Combo1.Text = 1 Then Text1.SetFocus
   If Combo1.Text = 2 Then Text2.SetFocus
   If Combo1.Text = 3 Then Text3.SetFocus
END IF
End Sub


BUENO DE QUE MANERA SE PUEDE HACER DE QUE  IF ME.ACTIVATE = TRUE THEN SE HAGUE REALIDAD. ES DECIR QUE CODIGO SE PONE PARA SABER QUE EL FORMULARIO YA ESTE CARGADO..

''Tengo la tabla CLIENTES con los campos:
''NOMBRE
''APELLIDOS
''CIUDAD

Código [Seleccionar] Expandir

Dim Rs As New Recordset
Rs.Open "Select DISTINCT (NOMBRE)  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic
If Rs.RecordCount > 0 Then
    Dim Cadena As String
    For i = 1 To Rs.RecordCount
        Cadena = Cadena & Rs!Ciudad & " " & Rs!Telefono & Chr(13)
        Rs.movenext
    Next i
MsgBox Cadena
End If

Hay 30 Registros.. al cargar a la cadena me dice que no encuentra los campos Rs!Ciudad y Rs!Telefono.

Luego modifique a:

Código [Seleccionar] Expandir

Cadena = Cadena & Rs!Nombre & Chr(13)
Ahora si me funciona. cargo 15 registros, pero no me sirve obtener solo los nombres, sino que tambien los apellidos y ciudad aunque se repitan..

¿como puedo hacer para que me muestre todos los campos y que no se repitan los valores del campo Nombre.?

Tambien intente com:

Código [Seleccionar] Expandir

Rs.Open "Select DISTINCT (NOMBRE), Apellidos, Ciudad  From CLIENTES ", DBConex, adOpenStatic, adLockOptimistic

Cargo los 30 registros sin validar nada... es decir con repeticiones en el campo nombres...

Holas, veran estoy exportando el contenido de un Listview a EXcel. Tengo un ''
problema al Aliner las celdasIzqueirda, centrarm, derecha
gracias por la yuda desde ya..

Código [Seleccionar] Expandir

Private Sub ExportarListadoMSExcel()
Dim AppExcel As Object    
Set AppExcel = CreateObject("Excel.application")
With AppExcel
   .Visible = True
   .Workbooks.Add '' Agregamos un Libro Nuevo

   Dim nFila As Integer
   nFila = 1 '' Agregos los titulos a nuestra columnas
   .Cells(nFila, 1) = "Id"
   .Cells(nFila, 2) = "Pais"
   .Cells(nFila, 3) = "Estado"
   Dim i As Long
   For i = 1 To Me.ListView1.ListItems.Count
       nFila = nFila + 1
       .Cells(nFila, 1) = Me.ListView1.ListItems(i).Text
       .Cells(nFila, 2) = Me.ListView1.ListItems(i).ListSubItems(1).Text
       .Cells(nFila, 3) = Me.ListView1.ListItems(i).ListSubItems(2).Text
   Next i
   
   .range("A1:C1").Font.Bold = True
   .range("A1:C1").Interior.Color = RGB(192, 200, 200)
   .Cells.EntireColumn.AutoFit

   '' ************* ERROR AL ALINEAR ayuda porfa.. **********************
   .Range("C1").TextAlign = fmTextAlignCenter
   .Range("A1:H1").HorizontalAlignment = xlCenter
   .cell(1,).TextAlign = fmTextAlignCenter
   '' ************************************************

   .ActiveWorkbook.SaveAs App.Path & "listado.xls" ''Guardas la hoja actual

End With

End Sub

Por alguna razon no me funciona esta consulta..

SQL = "Where FechaOperacion BETWEEN #" & FechaInicio & "# And #" & FechaFin & "#"

SQL = "Where FechaOperacion = #" & CDate(FechaInicio) & "#"

Holas, Veran tengo un formulario MDI Padre con un fomrulario MDCHILD. Etse Child contiene un listado. Y un command Button que llaman a un formulario buscar con:

Esta Funciona
FormBuscar.Show VBModal (Pero no es lo que deseo)

FormBuscar.Show, FormMDIChilListados
Esta me arroja error...

Alguien, sabe como solucionar esto?.

Super Control List View en Visual Basic

Hola, me preguntaba si hay el Super Control Lis View en Visual Basic 6.00

Aqui el ejemplo en VB2005:

http://www.elguille.info/colabora/NET2005/ewing_Outlook_ListView.htm

Hola

Si alguien me podria decir si se puede poner iconos en varias columnas en el listview

Saludos,