|
|
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 - Shiquilla
Páginas: 1 2 3 [4] 5 6 ... 9
76
« en: Miércoles 10 de Agosto de 2005, 09:36 »
Gracias Zareth por el código, al final lo hize con: lsMaquina = Trim(Environ$("COMPUTERNAME")) lsDominio = Trim(Environ$("USERDOMAIN"))
Pero gracias por contestar, y por lo de antes no pasa nada  . Saludos,
77
« en: Martes 9 de Agosto de 2005, 17:59 »
Hola Zareth, eso ya sabía.. preguntaba para saberlo por VB6... gracias de todas formas.
Saludos,
78
« en: Martes 9 de Agosto de 2005, 11:54 »
Buenos días, estoy intentado saber si el PC pertenece a un Dominio o a un Grupo de trabajo, y si es asi saber cuál es su nombre (de Dominio o Grupo de trabajo). El dominio he conseguido sacarlo, pero sólo para los windows 2000 en adelante, ¿alguien sabe como sacar el nombre del dominio si es Windows 9x? Y bueno, la pregunta de antes, cómo saber si pertenece a un dominio o un grupo de trabajo, y si pertenece a un grupo de trabajo saber el nombre. Muchas gracias de antemano. Saludos, 
79
« en: Viernes 22 de Julio de 2005, 22:28 »
RadicalEd, no pregunto por crackear mochilas, preguntaba si hay mochilas programables.. porque como hay de diferentes tipos cada una con ciertas caracteristicas pues preguntaba si hay mochilas programables, que les puedas meter código y así poder hacer una licencia que tengo que hacer.
Gracias de antemano.
Saludos,
80
« en: Viernes 22 de Julio de 2005, 12:22 »
Buenas de nuevo, quería haceros una pregunta, ¿Hay DONGLES programables? (No tienen por qué ser de aladdin)
Saludos,
81
« en: Viernes 22 de Julio de 2005, 09:58 »
Buenas, para imprimir lo único que necesitas es hacer un bucle por todas las filas que tenga. Para recorrer la ListView: Dim loItem As ListItem For Each loItem In lsvLista.ListItems 'Aqui hacer la impresión como la vayas a hacer 'En word o directamente por impresora o como lo vayas a imprimir Next
Saludos,
82
« en: Miércoles 20 de Julio de 2005, 08:03 »
Mmm, yo quería saber si alguien lo utiliza o ha utilizado en alguno de sus programas... y si es seguro ya que he visto muchas formas de emularlo.
Gracias a los dos por contestar de todas formas.
Saludos,
83
« en: Martes 19 de Julio de 2005, 11:59 »
Buenas, quería saber si alguien utiliza este sistema para proteger sus aplicaciones para saber si es eficaz, si es fácil de romper el sistema de validación... no sé, un poco de todo. En concreto pregunto por el sistema Aladdin HASP HLGracias de antenamo. Saludos,
84
« en: Martes 19 de Julio de 2005, 08:38 »
En el Form1: Option Explicit Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form2.msDescargarFormulario End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form2.Top = Me.Top + Y + Picture1.Top + 300 Form2.Left = Me.Left + X + Picture1.Left Form2.Show End Sub
En el Form2: Option Explicit Public Sub msDescargarFormulario() On Error Resume Next Unload Me On Error GoTo 0 End Sub
Saludos,
85
« en: Lunes 18 de Julio de 2005, 10:23 »
Hola, estoy buscando algún software (de pago o libre) que sirva para conectarse de forma remota a otro pc pudiendo controlar éste y además que se pueda establecer comunicación por micrófono. Estoy buscando una cosa parecida a VNC pero además quiero que se pueda establecer comunicación por micrófono. Lo quiero para hacer demos a clientes, si alguien sabe de algún programa que haga esto se lo agradecería que me lo comunicara. Saludos,
86
« en: Lunes 18 de Julio de 2005, 08:16 »
La propiedad MousePointer del objeto es para poner la mano o lo que quieras.
Saludos,
87
« en: Sábado 16 de Julio de 2005, 12:58 »
Buenas, para abrir un cajón portamonedas, tienes que tener en cuenta dónde va conectado el cajón.
Dependiendo de la impresora se abre de una forma u otra (yo lo tuve que hacer con una dll de la propia impresora), fíjate en la documentación que venga en la impresora (Aunque en mi caso no sirvió de mucho xD).
Sobre la impresión, se hace tal y como ha dicho HurryCrack pero tienes que tener en cuenta también las fuentes que utilizes, ya que usando fuentes de la impresora imprime más rápido.
Saludos,
PD: Me acabo de fijar que este mensaje es de hace mucho, supongo MindEye que ya habrá conseguido abrirlo.
88
« en: Sábado 16 de Julio de 2005, 12:42 »
Abrir un formulario de forma Modal es para que sólo esté activo ese formulario, es decir, que si tienes 3 formularios abiertos y uno está de forma modal, a los otros dos restantes no puedes acceder hasta que descargues el Modal.
Sobre lo de aprender a usarlo, no sé a qué te refieres, y sobre lo de deshabilitarlo tampoco lo entiendo porque si abres un formulario de forma Modal lo abres de forma modal y ya está. No es una propiedad que puedas cambiar.
Saludos,
89
« en: Sábado 16 de Julio de 2005, 12:35 »
Form1.Top = Me.Top + Image.Top Form1.Left = Me.Left + Image.Left Form1.Show
Saludos,
90
« en: Viernes 15 de Julio de 2005, 08:01 »
Sé que lo que he hecho es sólo un ejemplo, pero en ese ejemplo ves que no puedes tratar una cadena de texto (sería la operación a realizar) y que se ejecute la operación, porque para VB eso es un String.
Entonces tienes que crearte funciones para desglosar esa cadena de texto, por eso mi ejemplo estaba así.
Es definitiva, si tú pones en código de VB tienes que A=2 y B=3, todas las operaciones que hagas con esas variables si que te las realizará, pero ten en cuenta que para VB lo que estás recuperando (hablando de recuperar la operación de un fichero de texto) es un String.
Saludos,
91
« en: Jueves 14 de Julio de 2005, 12:22 »
Yo utilizo el Wise Installation System.
Saludos,
92
« en: Jueves 14 de Julio de 2005, 12:19 »
Para guardar valores:
SaveSetting NombreAplicacion, NombreSeccion, NombreKey, ValorKey
Ejemplo:
SaveSetting "AppPrincipal", "Principal", "Fuente", txtPropiedades(7).Text
Para recoger esos valores:
VBLE = GetSetting(NombreAplicacion, NombreSeccion, NombreKey)
Ejemplo:
txtPropiedades(7).Text = GetSetting ("AppPrincipal", "Principal", "Fuente")
Saludos,
93
« en: Jueves 14 de Julio de 2005, 12:03 »
Option Explicit Private Sub Form_Load() Dim A As Integer Dim B As Integer Dim variable As String A = 2 B = 3 Open App.Path & "\" & "ecuacion.txt" For Input As #1 Input #1, variable Close (1) msRealizarOperacion variable, A, B End Sub Private Sub msRealizarOperacion(lsOperacion As String, A As Integer, B As Integer) Dim lnOperacion As Long Dim lsLetra As String lsLetra = Mid(lsOperacion, 1, 1) lnOperacion = mfnOperacion(lsOperacion) If lsLetra = "A" Then 'A*B Select Case lnOperacion Case 1 'Multiplicar Text1.Text = A * B Case 2 'Dividir Text1.Text = A / B End Select Else 'B*A Select Case lnOperacion Case 1 'Multiplicar Text1.Text = B * A Case 2 'Dividir Text1.Text = B / A End Select End If End Sub Private Function mfnOperacion(lsOperacion As String) If InStr(1, lsOperacion, "*") Then 'Multiplicar mfnOperacion = 1 ElseIf InStr(1, lsOperacion, "/") Then 'Dividir mfnOperacion = 2 End If End Function
No se me ocurre hacerlo de otra forma aunque esto es sólo un ejemplo... Saludos,
94
« en: Jueves 14 de Julio de 2005, 11:43 »
La única forma que queda, si no quieres fichero ni base de datos, es almacenar el valor de las variables en ell registro del sistema.
Si te decides por eso te mando un ejemplo para leer y escribir en el registro.
Saludos,
95
« en: Miércoles 6 de Julio de 2005, 11:26 »
Buenas, para convertir un valor texto a numérico sería la función CDbl()Una cosa, la condicion que pones no la entiendo.. ¿Costo =SUM(Costo)? On Error GoTo errImprimir CrystalReport.DataFiles(0) = "C:\Base\base.mdb" CrystalReport.SelectionFormula = "CDbl({Tabla.Costo})=SUM(CDbl({Tabla.Costo})) CrystalReport..ReportFileName = "C:\Base\RptCosto.rpt" CrystalReport.WindowState = crptMaximized CrystalReport.Action = 1 End If
Saludos,
96
« en: Lunes 4 de Julio de 2005, 18:54 »
Utiliza la función CONVERT o CAST de SQL Server y vigila que en la tabal de SQL Server el tamaño del campo de la tabla sea el que tiene que ser. Uso de CAST:CAST ( expression AS data_type )
CONVERT ( data_type [ ( length ) ] , expression [ , style ] )
Saludos,
97
« en: Lunes 4 de Julio de 2005, 18:33 »
Vale, creo que lo he entendido.. Yo haría algo así.. Option Explicit Private mnContador As Integer Private Sub Command1_Click() Dim lnI As Integer Dim lsLetra As String Dim lsFrase As String lsFrase = Text1.Text For lnI = 1 To Len(lsFrase) Step 1 lsLetra = Mid(lsFrase, lnI, 1) msTratarLetra lsLetra Next lnI End Sub Private Sub msTratarLetra(lsLetra As String) mnContador = mnContador + 1 If lsLetra = "A" Then If mnContador = 4 Then 'Tratamiento Else 'Tratamiento End If If mnContador Mod 2 = 1 Then 'Tratamiento Else 'Tratamiento End If If mnContador > 4 Then 'Tratamiento mnContador = 0 End If End If End Sub
No te recomiendo usar Timer, porque creo que cuando estás en un bucle no se ejecuta el timer hasta que haya acabado. No sé si poniendo un DoEvents para que haga los eventos te lo hará.. yo lo haría así. Espero haberte ayudado. Saludos,
98
« en: Domingo 3 de Julio de 2005, 21:19 »
Te faltaba un espacio para que no se juntara el WHERE. Strconsord = "SELECT ordentrab.ordtrab, ordentrab.fecha, " & _ "ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _ "ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _ "ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _ "ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _ "ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _ "FROM ordentrab" & _ " Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _ " ORDER BY ordentrab.fechapen" CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly
Saludos,
99
« en: Domingo 3 de Julio de 2005, 16:20 »
¿Sobre qué base de datos estás atacando? Si es SQL Server podrías utilizar la función CONVERT y así limitarlo a 2 decimales. CONVERT ( data_type [ ( length ) ] , expression [ , style ] )
Ejemplo: SELECT * FROM Tabla WHERE CONVERT(Numeric(10,2), CampoDecimal) <= 4.57
Saludos,
100
« en: Domingo 3 de Julio de 2005, 16:14 »
¿Podrías explicarlo mejor? ¿o poner parte del código? Saludos,
Páginas: 1 2 3 [4] 5 6 ... 9
|
|
|
Mostrar Mensajes
