|
|
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 - Cyclop
Páginas: 1 2 3 [4] 5 6 ... 13
76
« en: Sábado 19 de Febrero de 2005, 21:14 »
Ir al menu Formulario/Agregar Metodo
Suerte
Cyclopz
78
« en: Sábado 19 de Febrero de 2005, 02:52 »
Se puede hacer usando el ActiveX Winsock, busca mas informacion en esta page http://www.winsockvb.com/Salu2 Cyclopz
79
« en: Sábado 19 de Febrero de 2005, 02:41 »
Prueba esto, no se si funcionara pero lo hice en una maquina que no tiene VB Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") bin = ReadKey("HKCU\MiCarpeta\MiRegistroBinario") For n = 0 To UBound(bin) Me.Print Chr(bin(n)) Next Function ReadKey(ByVal sPath As String) As String ReadKey = WSHShell.RegRead(sPath) End Function Sub CreateKey(ByVal sPath As String, ByVal sValue As String) WSHShell.RegWrite sPath, sValue End Sub Sub DeleteKey(ByVal sPath As String) WSHShell.RegDelete sPath End Sub
Suerte Cyclopz
80
« en: Viernes 18 de Febrero de 2005, 17:04 »
Usa el WScript es mas facil
Salu2
Cyclopz
81
« en: Viernes 18 de Febrero de 2005, 17:02 »
buscalo en www.pscode.com ahi hay buenos ejemplos. Salu2 Cyclopz
82
« en: Jueves 10 de Febrero de 2005, 17:33 »
La otra forma seria que conviertas los reportes en PDF, busca en google frx2pdf
hay unos componetes pero cuestan un poco caros.
Salu2
Cyclopz
83
« en: Domingo 6 de Febrero de 2005, 02:07 »
Usa el ActiveX RichEdit
Suerte
Cyclop
84
« en: Viernes 4 de Febrero de 2005, 21:59 »
Seguramente estas haciendo un PACK y ahi se te cierra, solo pon delete y esta blesca SET DELETE OFF
Suerte
85
« en: Viernes 4 de Febrero de 2005, 20:35 »
Aca encontre unos programas en pscode espero que te sirva
86
« en: Viernes 4 de Febrero de 2005, 20:31 »
Se hace con el tri pero hay que cargarle los datos con un procedimiento recursivo usando el objecto FileSystemObject.
Espero te ayude
Salu2
Cyclop
87
« en: Miércoles 2 de Febrero de 2005, 17:15 »
Ya, pues que sepas que te sobra el bucle y repites algo ya dicho:
También podrías optar por validar el texto mediante el evento en un lostfocus o en un validate (mejor). Te llegaría con una línea así:
Text1.Text = LTrim(Replace(Text1.Text, Chr(32) & Chr(32), Chr(32))
De todas formas con esto obligas al desaparecido Cmps360 a programar una validación. El mismo...
Abur. Si pero esto funciona solo si tiene 2 espacios en blanco (Chr(32) + Chr(32)), y si tiene 3? 4? o mas? Salu2
88
« en: Miércoles 2 de Febrero de 2005, 17:12 »
Logicamente que es una alternativa mas ... que no pretende ser un estilo ni un estandar de validacion.
Salu2
Cyclopz
89
« en: Martes 1 de Febrero de 2005, 23:27 »
Hacer esto tantas veces como sea posible ' Reemplazamos dos espacios en blanco con uno Do While InStr(1,sString, " ") > 0 sString = Replace(sString, " ", " ") Loop
Salu2
90
« en: Domingo 30 de Enero de 2005, 20:09 »
No seria mejor hacer un TRIM al final.
Salu2
Cyclopz
91
« en: Domingo 23 de Enero de 2005, 20:15 »
Ya no uses SET COLOR en su reemplazo existe la propiedad BackColor y ForeColor
Salu2
Cyclop
92
« en: Lunes 17 de Enero de 2005, 20:59 »
Yo lo manejo asi Tengo un Grid asignado a la tabla que deseo buscar por ejemplo: Productos En el evento init del formulario Use Productos In 0 Alias Productos Order Descripcion Shared This.Grid.Refresh()
En el evento IntercativeChange del TextBox Set Key To This.Value In Productos ThisForm.Grid1.Refresh()
Salu2 Ojala te sirva
93
« en: Lunes 17 de Enero de 2005, 20:51 »
El el evento InteractiveChange del Combo1 pones esto: Set Key To This.Value In dbfLista ThisForm.Grid1.Refresh()
Salu2
94
« en: Viernes 14 de Enero de 2005, 01:18 »
Tienes que definirlo en el Modulo Bas
Salu2
Cyclop
95
« en: Viernes 14 de Enero de 2005, 01:10 »
Te indica que la variable es del tipo string, y sirve para que cuando grabes un dato en un archivo binario, no incluya la referencia.
Salu2
96
« en: Viernes 14 de Enero de 2005, 01:03 »
Comprime tus ejecutables, funciona como el winzip solo que para exe, el aspack te reduce en un 50% del tamaño original.
Salu2
97
« en: Viernes 14 de Enero de 2005, 01:01 »
Te recomiendo que bajes el Aspackwww.aspack.comSalu2
98
« en: Jueves 13 de Enero de 2005, 18:25 »
Seria mejor asi 'Grabar datos Open "datos.dat" For Binary As #1 sclave$ = "" For z = 1 To Len(txtSave) caracter = Mid(txtSave.Text, z, 1) sclave$ = scalve$ + EnDeCryptSingle(Asc(caracter)) Next Put #1, , sclave$ Close #1 ' Leer datos Open "datos.dat" For Binary As #1 sclave$ = Space(255) Get #1, , sclave$ Close #1
Suerte
99
« en: Jueves 6 de Enero de 2005, 00:29 »
busca la palabra encrypt en www.pscode.com/vb Suerte Cyclopz
100
« en: Martes 4 de Enero de 2005, 21:48 »
Yo encontre un ejemplo en pscode que lo hacia con puro apis del windows, deajme buscarlo y luego telo envio
Páginas: 1 2 3 [4] 5 6 ... 13
|
|
|
Mostrar Mensajes
