• Viernes 29 de Marzo de 2024, 14:30

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - luciano2

Páginas: [1] 2 3
1
A parte del método que te dice Arkantos, una forma rápida es utilizando el método GetString del recordset para traer todos los registros como una sola cadena. Luego los volcás en el archivo, de esta manera te ahorrás el bucle

Seria algo asi

   
    Datos = rs.GetString(adClipString, -1, ",", vbCrLf, "(NULL)")
   
    Open Path For Output As #1
    ' escribe
    Print #1, Datos

....saludos

2
Visual Basic 6.0 e inferiores / Re: Uso Del Control Tabstrip
« en: Domingo 12 de Agosto de 2007, 10:10 »
Hola, con la colección Tabs y la propiedad selected

'añade 4
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add

' selecciona la tercera
TabStrip1.Tabs(3).Selected = True

PD: también puede ser por elkey, en ves del indice. por ej :

Private Sub Form_Load()
TabStrip1.Tabs.Add , "key1"
TabStrip1.Tabs.Add , "key2"
TabStrip1.Tabs.Add , "key3"
TabStrip1.Tabs.Add , "key4"

TabStrip1.Tabs.Item("key3").Selected = True

End Sub


..saludos

3
Visual Basic 6.0 e inferiores / Re: Recibir Parametros De Una Aplicacion
« en: Domingo 29 de Abril de 2007, 12:22 »
Gracias epa

no conocia esas constantes "mensajes" para usar con SendMessage y poder manejar el maximizado y minimizado de una ventana


Saludos

4
Visual Basic 6.0 e inferiores / Re: Como Limpiar Textbox Y Combos
« en: Domingo 29 de Abril de 2007, 12:18 »
Aunque se puede acceder al borrado del combo o cajas de texto. con  SenMessage ( no se como )

.. no es necesario usar un api para este caso

solamente tenés que indicar el ListIndex del cbo en -1

Combo1.ListIndex = -1


saludos



------------------------------------------------------

Recursos visual basic

5
Visual Basic 6.0 e inferiores / Re: Recibir Parametros De Una Aplicacion
« en: Viernes 27 de Abril de 2007, 00:45 »
Otra forma es con DDE o con un Exe Activex ( depende lo que quieras hacer claro )

...saludos


Pd: Hola Epa, si tenés un ejemplo sobre subclasificacion referente a este tema, me gustaria si podés que me mandes un ejemplo , saludos

-----------------------------------------------------------------------------------------


Recursos visual basic

6
Visual Basic 6.0 e inferiores / Re: Instancias De Ctl En Tiempo De Ejecución
« en: Miércoles 25 de Abril de 2007, 20:49 »
Hola

No estoy seguro, pero creo que para crearlo en tiempo de ejecución con Controls.add, el control debe estar compilado, registrado en el sistema, y tenés que saber el Id para pasarle como paraémtro al ,Add

Yo lo haria con Load, por ej.

Colocás una instancia en tu form. El mismo tiene que ser parte  de un matriz, por eso agregale a la propiedad index, un 0

Código: Text
  1.  
  2.  
  3. ' creás uno
  4. Load UserControl11(1)
  5.  
  6. UserControl11(1).Visible = True
  7. UserControl11(1).Move 0, 0, 1000, 1000
  8.  
  9.  
  10. ' otro mas
  11. Load UserControl11(2)
  12.  
  13. UserControl11(2).Visible = True
  14. UserControl11(2).Move 0, 1500, 1000, 1000
  15.  
  16.  
  17.  


saludos

7
VBA / Re: Conectar Un Dataenviroment En Un Msflexgrid
« en: Sábado 21 de Abril de 2007, 05:13 »
Hola, podés probar ( aunque no lo probé nunca con DEnvironment), en ves de usar el clásico Flex, usar el Hierarchical Flexgrid, y en ves de añadir los registros a mano, lo asignás al Datasource de igual modo que lo hacés con el DataGrid.

Probalo


saludos

8
Visual Basic 6.0 e inferiores / Re: Sacar Icono Que Queda Colgado Al Lado De La Hora
« en: Miércoles 28 de Marzo de 2007, 03:14 »
Hola intenta cuando terminás el programa, finalizarlo con End y con



Set TuFormulario = Nothing



..saludos



-----------------------------------------------------------------------------

9
Visual Basic para principiantes / Re: Api's Para El Control Del Puntero Del Raton
« en: Miércoles 28 de Marzo de 2007, 03:11 »
Hola amigo, buscá ejemplos de las funciones mouse_event  y MouseEventEx

Pd: no se si habrá otras, seguro que si, pero con esas podés hacer lo buscás


...saludos






Recursos visual basic

10
Visual Basic 6.0 e inferiores / Re: Como Mando Mails Con Arhvs Adjuntos???
« en: Domingo 25 de Marzo de 2007, 22:16 »
Hola,  te paso un ejemplo usando una libreria nativa de windows para poder enviar correo.

Si utilizás el SMtp de gmail, te va a funcionar perfecto con este ejemplo por que yo lo he probado y funciona sin problemas

Enviar correo en visual basic con Microsoft CDO

Cualquier duda avisa


Espero que te sirva el ejemplo  ..saludos

11
Visual Basic 6.0 e inferiores / Re: Datagrid
« en: Lunes 12 de Marzo de 2007, 09:17 »
Hola, mirá si te entendí bien, buscá un ejemplo en esta página que permite Autoajustar encabezados de columna en un datagrid


saludos

12
Visual Basic 6.0 e inferiores / Re: Ayuda Con Listas Y Matrices
« en: Jueves 8 de Marzo de 2007, 01:23 »
Bueno te doy un par de pistas de como podés hacerlo

Para poder utilizar un array en forma dinámica, (no podés usar un array fijo por que no conocés la cantidad de líneas a llenar en el array) , a la matriz la tenés que declarar asi:

Dim LaMatriz () As TipoDeDato

... en este caso sería de tipo String

Dim LaMatriz () As String

Para indicar en tiempo de ejecución cual va a ser la dimensión de la misma ( será la cantidad de lineas del textbox) ... lo tenés que ahcer con la instrucción Redim

por ejemplo

Redim LaMatriz (n elementos )

Si la matriz contiene datos antes de resdimensionarla, (para no perder los datos), como en el caso anterior, se agrega a la instrucción Redim la palabra Preserve

redim Preserve LaMatrix(nElementos)

... esto depende de lo que quieras hacer, si te importa o no perder los datos o mantenerlos


Ahora , para poder obtener todas las lineas del textbox, podés usar una función llamada Split. Esta función te devuelve un array con los elementos de una variable ( en este caso la variable es el textbox con las lineas) , y te separa las mismas mediante el delimitador que le indiques. En este caso el delimitador es el caracter de salto de carro ( vbCrlf o VbNewLine)

por ejemplo, en este array se llena con todas las lineas de un text1 ( obviamente el TBox con la propiedad MultiLine )

'Array dinámico
Dim Lineas() As String

' Llena el array
Lineas = Split(text1.Text, vbNewLine)


Ahora para poder recorrer los elementos dentro del vector, lo podés ahcer en un for next desde el primer elemento hasta el último. usando LBound y Ubound

ej:


Código: Text
  1.  
  2.  
  3. Dim Lineas() As String
  4.  
  5. Lineas = Split(Text1.Text, vbNewLine)
  6.  
  7. Dim i As Integer
  8.  
  9. 'Recorre
  10. For i = LBound(Lineas) To UBound(Lineas)
  11.     ' Muestra el valor
  12.     MsgBox Lineas(i)
  13.  
  14. Next
  15.  
  16.  
  17.  


saludos

13
Visual Basic 6.0 e inferiores / Re: Pasar Paramentros A Programa Visual
« en: Jueves 8 de Marzo de 2007, 01:07 »
Hola

Tenés que usar la función Command de visual basic

Fijate en la ayuda o buscá en google, es muy fácil usarla

igual te paso un ejemplo


Esto en el Form Load

Código: Text
  1.  
  2. If Len(Command) Then
  3.    MsgBox Command, vbInformation
  4.    ' Acá coloca el código
  5. End If
  6.  
  7.  


saludos



Recursos visual basic

14
Visual Basic 6.0 e inferiores / Re: Cadenas??????
« en: Jueves 15 de Febrero de 2007, 02:00 »
Te paso dos formas ( La primera solo si es un path)


La primera con el api GetFileTitle
Código: Text
  1.  
  2. Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
  3. Function Extraer(PAth) As String
  4.    
  5.     Dim Buffer As String
  6.     Buffer = String(255, 0)
  7.     GetFileTitle PAth, Buffer, Len(Buffer)
  8.     Extraer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
  9.    
  10. End Function
  11.  
  12. Private Sub Command1_Click()
  13. MsgBox Extraer("c:\carpeta\carpeta\carpeta\archivo.htm")
  14. End Sub
  15.  
  16.  
  17.  

La segunda con la funcion InstrRev de visual basic

Código: Text
  1.  
  2. Function Extraer(Cadena, Delimitador As String) As String
  3.    
  4.     Extraer = Right(Cadena, Len(Cadena) - InStrRev(Cadena, Delimitador))
  5.        
  6. End Function
  7.  
  8. Private Sub Command1_Click()
  9. MsgBox Extraer("c:\carpeta\carpeta\carpeta\archivo.htm", "\")
  10. End Sub
  11.  
  12.  
  13.  


saludos

Recursos visual basic

15
Visual Basic 6.0 e inferiores / Re: Compartir Carpeta...
« en: Jueves 15 de Febrero de 2007, 01:47 »
Hola, estás poniendo mal las comillas

probalo asi

Código: Text
  1.  
  2.  
  3. Text1.Text = "Tu Recurso compartido"
  4.  
  5. Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = '" & Text1.Text & "' ")
  6.  
  7.  
  8.  


..saludos


-----------------------

Recursos visual basic

16
Hay dos formas de averiguar en tiempo de ejeción desde visual basic ( por lo menos las que conozco) para saber si está instalado el word

Una es mediante el registro

La otra, es crear una referencia en tiempo de ejecución, si te da un error en el momento de crearla es por que no pudiste acceder por que no está instalada

Código: Text
  1.  
  2.     On Error Resume Next
  3.     Set ObWord = CreateObject("Word.Application")
  4.    
  5.     If Err Then
  6.        MsgBox "no está instalado", vbInformation
  7.     Else
  8.        MsgBox "está instalado", vbInformation
  9.        err.clear 'Limpia el error
  10.     End If
  11.    
  12.  
  13.  


..espero que te sirva .saludos


Recursos visual basic

17
Visual Basic para principiantes / Re: 2 Proyectos
« en: Martes 13 de Febrero de 2007, 06:02 »
Hola

una forma en visual basic es mediante dde ( intercambio dinámico de datos )

te paso un ejemplo para sacar una idea

Intercambio de datos entre ejecutables


..saludos

18
Visual Basic 6.0 e inferiores / Re: Acceso A Mails De Microsoft Oulook
« en: Miércoles 7 de Febrero de 2007, 01:57 »
Hola, mirá no sabría darte un ejemplo, pero para acceder a Outllok desde vb, lo podés hacer con automatización

Para buscar ejemplos de Outlook en google, poniendo "outlook.application"

.. te van a salir muchos enlaces, no se si vas a encontrar justo lo que buscás , pero te van a salir bastantes ejemplos como para ojear


saludos


Recursos visual basic

19
Visual Basic 6.0 e inferiores / Re: Curiosidad En El Combobox
« en: Miércoles 31 de Enero de 2007, 00:21 »
Hola, no se puede hacer sin indicarlo en el código

Tampoco le veo cual es el problema, en indicarlo en el Load

Combo1 = Combo1.List(0)


saludos


Recursos Visual basic

20
VBA / Re: Componente Activex
« en: Martes 30 de Enero de 2007, 01:22 »
Hola si querés enviarme el ocx, mandalo que lo pruebo a ver si le encuentro la falla


saludos


----------------
Recursos visual basic

21
Visual Basic 6.0 e inferiores / Re: Ocultar Iconos Del Systray
« en: Sábado 13 de Enero de 2007, 05:21 »
Hola, mirá acabo de hacer un ejemplo que te puede servir para sacar una idea

Lo colgué acá

Ocultar y mostrar systray

si bien decís que querés ocultar "solo algunos íconos", el ejemplo " oculta todos "

Lo que se me viene a la cabeza ahora, es que uses el api EnumChildWindows por ejemplo para recorrer las demás ventanas hijas a partir de una ventana padre. (en el Api guide tenes un ejemplo del uso de EnumChildWindow, es muy facil usarlo)

En este caso la ventana padre sería la que en el código utiliza el nombre de clase llamado "Syspager".  Ese hwnd es el de la bandeja de sistema

Luego al enumerar las ventanas, podés obtener el caption de las mismas con GetWindowText. Esto es para saber que icono "a partir del caption" debes ocultar o no, no se si me explico

Luego para ocultar y mostrar usá el Api ShowWindow pasandole el Hwnd de cada icono

Esto no lo probé pero puede funcionar, es una idea

Espero que te sirva, cualquier duda escribe a ver si te podemos ayudar

22
Hola, no será un problema de permisos ??


saludos


-------------------------

Recursos visual basic

23
Visual Basic para principiantes / Re: Combo
« en: Viernes 22 de Diciembre de 2006, 17:09 »
El error está acá: -->> abre As ADODB.Recordset

Te faltó el Dim ...

Dim abre As ADODB.Recordset


saludos



-----------------------------

Recursos Visual basic

24
Visual Basic 6.0 e inferiores / Re: Camara Web
« en: Sábado 16 de Diciembre de 2006, 05:32 »
Hola, no tengo camara web por lo tanto nu pude probarlo, pero te paso un programita que lee del registro info sobre los dispositivos de la pc, está bastante bueno, fijate lo puse en este enlace:

obtener información de la pc en visual basic


..contame si te andubo ..saludos

25
Visual Basic 6.0 e inferiores / Re: Saber Q Formulario Llamo
« en: Martes 28 de Noviembre de 2006, 16:27 »
Otra forma, para no handar declarando variables, es utilziar la propiedad Tag


saludos


---------------------

Recursos vb

Páginas: [1] 2 3