|
|
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 - Jose Arriagada
Páginas: 1 ... 3 4 [5] 6 7 ... 15
101
« en: Miércoles 15 de Junio de 2005, 19:25 »
Los controles tipo grilla no permite el acceso directo a modificar. Debes realizar una simulación, que es facil de encontrar en varios sitios, buscando por "editar msflex".
Existe un control que permite realizar todo tipo de manipulación y que es excelente, se llama vsspread y es de Farpoint. Puedes conseguir el trial y ver que tal te va con el.
102
« en: Miércoles 25 de Mayo de 2005, 01:18 »
Para lo que estas pidendo, es mejor usar el control Microsoft Rich Text Box Control 6.0 (\\system32\RICHTX32.OCX)
Carga este control en un formulario, un command y usa el siguiente codigo:
Private Sub Command1_Click()
archivo = App.Path & "\MIARCHIVO"
RichTextBox1.SaveFile archivo
End Sub
Private Sub Form_Load()
archivo = App.Path & "\MIARCHIVO"
If Dir(archivo, vbArchive) <> "" Then
RichTextBox1.LoadFile archivo
End If
Command1.Caption = "Guardar"
End Sub
103
« en: Miércoles 25 de Mayo de 2005, 01:13 »
Para que podamos ayudarte, siempre es bueno anexar a tu explicacion el mensaje tal cual te lo envia el compilador, asi es mas facil para nosotros al tener una idea de lo que puede estar pasandote.
104
« en: Sábado 14 de Mayo de 2005, 02:14 »
105
« en: Viernes 29 de Abril de 2005, 15:29 »
No me funciono, significa que te arrojo error, o no hizo nada?
Tal como dice, pacegar, debes igualar el color background del option con el control que lo contenga.
Podrias adjuntar el formulario que tiene tu problema, para ver que podemos ver y corregir para ayudarte.
106
« en: Martes 26 de Abril de 2005, 21:57 »
Private Sub Form_Load()
Option1.BackColor = Me.BackColor
End Sub
107
« en: Jueves 21 de Abril de 2005, 00:52 »
if dir("C:\IMAGENES\imagen1.jpg",vbArchive)="" then
'NO SE ENCUENTRA
else
'SI SE ENCUENTRA
endif
108
« en: Jueves 21 de Abril de 2005, 00:48 »
Lamento informarte que "huele" a lo lejos una tarea de algun curso, y que por ende, dificilmente encontraras el codigo que haga lo que requieres.
A lo mas, podras encontrar los algoritmos que te permiten hacer la primera parte, que es ordenar, usando diferentes estrategias, pero en cuanto al resto es parte de tu "ingenio"
109
« en: Jueves 7 de Abril de 2005, 01:01 »
Se puede ejecutar un programa automáticamente al iniciar Windows si lo colocas en uno de estos sitios:
Archivo WIN.INI, bloque [WINDOWS], claves RUN y LOAD
Se pone el nombre del programa que quieres que se ejecute, incluida su ruta completa, a la derecha del signo igual de una de estas claves.
Si se usa la clave RUN el programa debería ejecutarse en una ventana normal, si se usa la clave LOAD el programa debería ejecutarse minimizado.
Se pueden poner varios programas separando sus nombres con un espacio en blanco.
El programa se ejecutará para cualquier usuario del equipo.
Archivo SYSTEM.INI, bloque [BOOT], clave SHELL
Esta clave se usa para especificar el programa que se cargará como entorno operativo. Normalmente este programa será EXPLORER.EXE, pero se puede poner cualquier otro. Curiosamente esta clave admite la carga de dos programas (lo narmal es especificar un sólo programa como entorno operativo). Mucho cuidado, es un buen sitio para esconder la ejecución de un virus.
Se pone el nombre del programa que quieres que se ejecute, incluida su ruta completa, a la derecha del signo igual.
Si se pone un segundo programa, su nombre se debe separar del primero con un espacio en blanco.
El programa se ejecutará para cualquier usuario del equipo.
Carpeta "WINDOWS\Menú Inicio\Programas\Inicio"
Se pone el programa o un acceso directo al mismo en esta carpeta. Esto hace que el programa sea visible en la estructura de menús del botón "Inicio".
En el caso de tener activada la gestión multiusuario el programa que se ponga aquí sólo se ejecutará para el usuario predeterminado.
Carpeta "WINDOWS\All Users\Menú Inicio\Programas\Inicio"
Se pone el programa o un acceso directo al mismo en esta carpeta. Este programa no será visible en la estructura de menús del botón "Inicio".
El programa que se ponga en esta carpeta se ejecutará para todos los usuarios en el caso de tener activada la gestión multiusuario.
Carpeta "WINDOWS\PROFILES\<USUARIO>\Menú Inicio\Programas\Inicio"
Se pone el programa o un acceso directo al mismo en esta carpeta. Esto hace que el programa sea visible en la estructura de menús del botón "Inicio" del usuario.
El programa que se ponga aquí sólo se ejecutará para el usuario elegido dependiendo de la carpeta de '<USUARIO>' especificada.
Carpeta "Documents ans Settings\<USUARIO>\Menú Inicio\Programas\Inicio"
Esta carpeta sólo se encuentra en sistemas Windows NT/2000/XP.
Se pone el programa o un acceso directo al mismo en esta carpeta. Esto hace que el programa sea visible en la estructura de menús del botón "Inicio" del usuario.
El programa que se ponga aquí sólo se ejecutará para el usuario elegido dependiendo de la carpeta de '<USUARIO>' especificada.
Carpeta "Documents ans Settings\All users\Menú Inicio\Programas\Inicio"
Esta carpeta sólo se encuentra en sistemas Windows NT/2000/XP.
Se pone el programa o un acceso directo al mismo en esta carpeta. Esto hace que el programa sea visible en la estructura de menús del botón "Inicio".
El programa que se ponga en esta carpeta se ejecutará para todos los usuarios.
Clave del registro [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
Se crea un nuevo valor de cadena con el nombre que se quiera y se le asigna el nombre del programa, incluida la ruta completa si es necesario.
Se pueden crear tantas entradas como sea necesario siempre que no tengan el mismo nombre.
Este programa sólo se ejecutará para el usuario activo en el momento de establecer el valor en la clave.
Clave del registro [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce]
Se crea un nuevo valor de cadena con el nombre que se quiera y se le asigna el nombre del programa, incluida la ruta completa si es necesario.
Se pueden crear tantas entradas como sea necesario siempre que no tengan el mismo nombre.
Este programa sólo se ejecutará "una vez" para el usuario activo en el momento de establecer el valor en la clave.
Clave del registro [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run]
Se crea un nuevo valor de cadena con el nombre que se quiera y se le asigna el nombre del programa, incluida la ruta completa si es necesario.
Se pueden crear tantas entradas como sea necesario siempre que no tengan el mismo nombre.
Este programa se ejecutará para cualquier usuario del equipo.
Clave del registro [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce]
Se crea un nuevo valor de cadena con el nombre que se quiera y se le asigna el nombre del programa, incluida la ruta completa si es necesario.
Se pueden crear tantas entradas como sea necesario siempre que no tengan el mismo nombre.
Este programa sólo se ejecutará "una vez" para el primer usuario del equipo desde el momento de establecer el valor en la clave.
Te sirve?
110
« en: Miércoles 6 de Abril de 2005, 22:08 »
En el boton agregas la imagen en la propiedad Picture y cambias la propiedad Style a 1-Graphical y listo
111
« en: Martes 29 de Marzo de 2005, 16:08 »
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "No puede ejecutar otra instancia de este programa"
End
End If
End Sub
112
« en: Jueves 24 de Marzo de 2005, 17:24 »
Agregar filas en tiempo de ejecucion
msflexgrid1.maxrows=msflexgrid1.maxrows+1
posicionarse en la ultima fila
msflexgrid1.row=msflexgrid1.maxrows
En forma identica para las columnas...
113
« en: Lunes 21 de Marzo de 2005, 15:27 »
En vez de usar un textbox, debes usar el control MS Rich Textbox, que te permite darle formato a tu texto, guardarlo y cargarlo en forma directa.
Cargalo en la barra de herramientas, usando Proyecto->Componentes y marcando el control Microsoft Rich TextBox Control 6.0.
Agregalo en tu formulario.
Para cargarlo, usas :
RichTextBox1.LoadFile = <Ruta y Nombre del Archivo>
Para guardarlo, usas:
RichTextBox1.SaveFile = <Ruta y Nombre del Archivo>
Espero te sirva...
115
« en: Lunes 21 de Febrero de 2005, 20:27 »
Hola amigos;
Cuando uno escucha musica Mp3, todos los decodificadores te permiten visualizar la informacion interna del archivo, como por ejemplo, titulo, autor, año, y otras.
Mi idea es poder obtener esta informacion, poder modificarla y volverla a archivo mp3, sin necesidad de abrir un lector de archivos mp3.
Alguien sabe donde encuentro informacion relacionada?
Gracias
116
« en: Miércoles 9 de Febrero de 2005, 21:41 »
No entendi nada....
117
« en: Lunes 7 de Febrero de 2005, 13:37 »
Lo que ocurre es que tienes un loop sin una condicion de termino en caso que encuentres lo que buscas.
Private Sub Command1_Click()
Dim conf As Integer
DIM FLAG AS INTEGER
FLAG=1
Open App.Path & "\datos.dat" For Input As 1
Do While Not EOF(1) AND FLAG=1
Input #1, namec
Input #1, direc
Input #1, telc
Input #1, emc
Input #1, comc
If Text6.Text = namec Then
FLAG=0
Text1.Text = namec
Text2.Text = direc
Text3.Text = telc
Text4.Text = emc
Text5.Text = comc
MsgBox "La ficha de " & Text6.Text & " ha sido encontrada", vbInformation + vbOKOnly, "Información"
Else
Call huhu
End If
Loop
Close #1
End Sub
118
« en: Viernes 4 de Febrero de 2005, 17:51 »
Existen tres controles que permiten hacer esto:
DriveListBox
DirListBox y
FileListBox
Pega estos tres controles en el orden que te señalo, y agregar el siguiente codigo:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Y Prueba
119
« en: Miércoles 12 de Enero de 2005, 22:26 »
Gracias por las todas las respuestas y dedicacion a estas.
Probando con el DoEvents, encontre una falla.
Si utilizan el siguiente codigo:
Private Sub Command1_Click()
Command1.Tag = 1
For a = 1 To 10000
DoEvents 'linea que te decia
List1.AddItem Format(Time, "hh:mm:ss")
If CDbl(Command1.Tag) = 0 Then
Exit For
End If
Next
End Sub
Private Sub Command2_Click()
MsgBox "hola"
End Sub
Private Sub Command3_Click()
Command1.Tag = 0
End Sub
Private Sub Form_Load()
Command1.Tag = 1
End Sub
Se daran cuenta que:
- Al presionar command1, se ejecuta la insercion de registros con la hora en list
- Al presionar command2, se muestra un mensaje, hasta aqui, todo ok.
- Pero si al presionar command2, esperamos unos segundos (10 aprox) y presionamos "Aceptar", el proceso que estaba haciendo command1, continua.
Y podran darse cuenta, que mientras se estaba esperando que se presione "Aceptar", el proceso command1 se detiene, y ellos simplemente revisando los registros de tiempo que se insertaron en el list, veran que existe en alguna parte entre un registro y otro un periodo de 10 seg aprox, y esto es producto de que estaba esperando "Aceptar"
La respuesta esta cerca, pero aun no he podido realizar procesos paralelos.
Gracias.
120
« en: Miércoles 12 de Enero de 2005, 22:16 »
Cuando leas usa INPUT
INPUT #1, Caracter
121
« en: Miércoles 5 de Enero de 2005, 14:05 »
Amigos:
Tengo el siguiente problema:
En un command1, tengo instrucciones que realizan algunos procesos sobre tablas y calculos varios.
Esto se demora su tiempo.
Para aprovechar esto, quiere tener la posibilidad de poder presionar otro command2 que realice otro tipo de acciones.
Es posible?
Ya que al presionar el command1, no puedo hacer nada hasta que el proceso termine.
Existe alguna forma?
Podrian decirme como, o indicarme donde encontrar algun codigo de ejemplo.
Gracias
122
« en: Viernes 31 de Diciembre de 2004, 14:49 »
Hola amigos
Planteo la siguiente consulta, a pesar que no tiene que ver con VB, pero como se que son muchos al igual que yo, que no solamente estamos trabajando con VB, si no que en mas de alguna oportunidad nos hemos encontrado con otros problemas por resolver, les planteo la siguiente:
Me consegui el software Fastlynx 3.3 trial, que solo transfiere 10 archivos o 10 MB entre PC's.
Alguno de ustedes tiene el serial (o donde conseguirlo)
Gracias
123
« en: Lunes 6 de Diciembre de 2004, 16:59 »
Podrias ser mas especifico.
124
« en: Jueves 2 de Diciembre de 2004, 22:41 »
USA UNA VARIABLE DE CONTROL PARA SABER SI YA PASO POR EL BEGIN TRANS
Public Sub MUESTRA()
On Error GoTo Err
Dim cnn1 As ADODB.Connection
Dim rstTitles As ADODB.Recordset
Dim strCnn As String
Dim strTitle As String
Dim strMessage As String
DIM FLAG AS INTEGER
FLAG=0 'No hay inicio de BEGIN TRANS
' Open connection.
strCnn = "Provider=sqloledb;" & _
"Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
' Open Titles table.
Set rstTitles = New ADODB.Recordset
rstTitles.CursorType = adOpenDynamic
rstTitles.LockType = adLockPessimistic
rstTitles.Open "titles", cnn1, , , adCmdTable
rstTitles.MoveFirst
cnn1.BeginTrans
FLAG=1 'YA ENTRO AL BEGIN
' Loop through recordset and ask user if she wants
' to change the type for a specified title.
Do Until rstTitles.EOF
If Trim(rstTitles!Type) = "psychology" Then
strTitle = rstTitles!title
strMessage = "Title: " & strTitle & vbCr & _
"Change type to self help?"
' Change the title for the specified
' employee.
If MsgBox(strMessage, vbYesNo) = vbYes Then
rstTitles!Type = "self_help"
rstTitles.Update
End If
End If
rstTitles.MoveNext
Loop
cnn1.CommitTrans
EXIT SUB
ERR:
CALL ManejadordeError
End Sub
Function ManejadordeError()
MsgBox "El servidor SQL Server está presentando problemas" + Chr(10) + _
"Causas posibles:" + Chr(10) + _
"-Puede que haya problemas con la conexion de la red" + Chr(10) + _
"-Puede ser que la Base de Datos o alguna de sus tablas tenga problemas de acceso" + Chr(10) + _
"Por favor localize al Adminstrador del Sistema lo antes posible, para que corrija el error" + Chr(10) + _
CStr(Err.Number) & " " & Err.Description, vbInformation
IF FLAG=1 THEN
CnSQLconexion.RollbackTrans
END IF
end function
125
« en: Miércoles 1 de Diciembre de 2004, 21:34 »
Enviame un mensaje a arcangel_gabriel@123mail.cl indicando que quieres el skin y te envio uno excelente. Y GRATIS
Páginas: 1 ... 3 4 [5] 6 7 ... 15
|
|
|
Mostrar Mensajes
