|
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
1
« en: Domingo 12 de Agosto de 2007, 10:16 »
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
« 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
« 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
« 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
« 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
« 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 ' creás uno Load UserControl11(1) UserControl11(1).Visible = True UserControl11(1).Move 0, 0, 1000, 1000 ' otro mas Load UserControl11(2) UserControl11(2).Visible = True UserControl11(2).Move 0, 1500, 1000, 1000
saludos
7
« 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
« 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
« 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
« 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 CDOCualquier duda avisa Espero que te sirva el ejemplo ..saludos
12
« 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: Dim Lineas() As String Lineas = Split(Text1.Text, vbNewLine) Dim i As Integer 'Recorre For i = LBound(Lineas) To UBound(Lineas) ' Muestra el valor MsgBox Lineas(i) Next
saludos
13
« 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 If Len(Command) Then MsgBox Command, vbInformation ' Acá coloca el código End If
saludos Recursos visual basic
14
« 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 Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer Function Extraer(PAth) As String Dim Buffer As String Buffer = String(255, 0) GetFileTitle PAth, Buffer, Len(Buffer) Extraer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1) End Function Private Sub Command1_Click() MsgBox Extraer("c:\carpeta\carpeta\carpeta\archivo.htm") End Sub
La segunda con la funcion InstrRev de visual basic Function Extraer(Cadena, Delimitador As String) As String Extraer = Right(Cadena, Len(Cadena) - InStrRev(Cadena, Delimitador)) End Function Private Sub Command1_Click() MsgBox Extraer("c:\carpeta\carpeta\carpeta\archivo.htm", "\") End Sub
saludos Recursos visual basic
15
« en: Jueves 15 de Febrero de 2007, 01:47 »
Hola, estás poniendo mal las comillas probalo asi Text1.Text = "Tu Recurso compartido" Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = '" & Text1.Text & "' ")
..saludos ----------------------- Recursos visual basic
16
« en: Jueves 15 de Febrero de 2007, 00:34 »
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 On Error Resume Next Set ObWord = CreateObject("Word.Application") If Err Then MsgBox "no está instalado", vbInformation Else MsgBox "está instalado", vbInformation err.clear 'Limpia el error End If
..espero que te sirva .saludos Recursos visual basic
17
« 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
« 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
« 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
« 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
« 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 systraysi 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
« en: Jueves 4 de Enero de 2007, 19:58 »
Hola, no será un problema de permisos ?? saludos ------------------------- Recursos visual basic
23
« 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
« 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
« en: Martes 28 de Noviembre de 2006, 16:27 »
Otra forma, para no handar declarando variables, es utilziar la propiedad Tag saludos --------------------- Recursos vb
|
|
|