|
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 - F_Tanori
Páginas: 1 ... 67 68 [69] 70 71 ... 83
1702
« en: Martes 5 de Diciembre de 2006, 06:59 »
la puedes abrir en modo exclusivo USE latabla EXCLUSIVE Saludos
1703
« en: Martes 5 de Diciembre de 2006, 06:48 »
Pues cambia la variable Function joa_txt(joa_txt1 As String, Optional joa_txt2 As String, Optional joa_txt3 As String,numero as string) On Error GoTo Err_Error Dim joa_NA joa_NA = FreeFile sPath="Y:\"& numero &".txt" Open sPath For Append As #joa_NA Print #joa_NA, joa_txt1 ' escribe el 1er parametro en el archivo If Not IsMissing(joa_txt2) Then Print #joa_NA, joa_txt2 ' escribe el 2du parametro en el archivo If Not IsMissing(joa_txt3) Then Print #joa_NA, joa_txt3 ' escribe el 3er parametro en el archivo Close #joa_NA Exit_EtqiuetaError: Exit Function Err_Error: MsgBox "Error Nº " & Err.Number & " programa: Contabilidad" & Chr(13) _ & Err.Description, vbCritical + vbOKOnly, "Aviso de Error" Resume Exit_EtqiuetaError End Function
Sera esa tu duda? Cualquier cosa avisanos Saludos
1704
« en: Lunes 4 de Diciembre de 2006, 11:16 »
sería algo así como hacer esto:
como 1*0=2*0, entonces 1=2 lo cual es falso yo soy muy mal matematico pero no seria lo mismo 1*0=2*0 0=0 ? entonces 1=2? la verdad yo no se es una duda
1705
« en: Lunes 4 de Diciembre de 2006, 08:21 »
Me permito comenzar las felicitaciones mi nuestro amigo ArKantos gran colaborador en este foro asi como al compañero sicorixQue se la pases bien muchas felicidades Y sigan aportando
1706
« en: Sábado 2 de Diciembre de 2006, 08:40 »
<script> var isIE = document.all?true:false; var isNS = document.layers?true:false; function validar(e) { var key =(isIE) ? e.keyCode : e.which; if (key==13) { alert("Enter"); return true; } return false; } </script> <form name="frmCaptura1"> <input type="text" name"t1" onkeydown="validar(event);"> </form>
Yo he usado ese código, pero probando con Firefox 2.0 si me ha funcionado keyCode pero ahi esta por si ayuda en algo, o tal vez ya esta solucionado con la modificacion de tu mensaje anterior Saludos
1707
« en: Sábado 2 de Diciembre de 2006, 02:02 »
CulpabilidadYChantaje (CYC's). Este es un maravilloso aspecto del programa que viene integrado desde que Esposo 1.0 salió de su programa matriz.
Esto indica que Esposo 1.0 debe tomar TODA la responsabilidad de toda culpa y problema, cualquiera que sea la causa. Para activar esta maravillosa función solamente escribe el siguiente comando: "C://YANOMEQUIERESVERDAD?.EXE
Yo pienso que deberia ser algo asi C:\>CulpabilidadYChantaje.exe /YANOMEQUIERESVERDAD?
1708
« en: Viernes 1 de Diciembre de 2006, 20:04 »
Es mejor ShellExecute porque ejecuta una aplicacion por accion asociada Esto tambien funciona Solo que seria "casarse" con el Internet exporer pero es una opcion en alguna ocasion puede servir Private Sub Command1_Click() Navegador = Environ("programfiles") & "\Internet Explorer\iexplore.exe" Shell Navegador & " http://foros.solocodigo.com/index.php", vbNormalFocus End Sub
Saludos
1709
« en: Viernes 1 de Diciembre de 2006, 19:49 »
de nada me preguntaba ¿porque no publicas la solucion? pudiera ayudar a alguien mas Aqui dejo una Function ExisteCarpeta(sPath As String) As Boolean On Error GoTo NoExiste GetAttr sPath ExisteCarpeta = True Exit Function NoExiste: ExisteCarpeta = False End Function Private Sub Command1_Click() If ExisteCarpeta("C:\windows") Then MsgBox "Existe" End If End Sub
Existen mas opciones Saludos
1710
« en: Viernes 1 de Diciembre de 2006, 11:46 »
1711
« en: Jueves 30 de Noviembre de 2006, 19:16 »
Tambien se puede desplegar asi Private Sub Command1_Click() Me.Combo1.SetFocus SendKeys ("%{down}") End Sub
Saludos
1712
« en: Jueves 30 de Noviembre de 2006, 07:03 »
Vaya modales asi le respondes a tus maestros cuando no saben alguna duda? tu duda es sencilla, solo hay que estudiar , y este foro es para ayudar puedes investigar es sencillo mira puedes comenzar buscando aqui www.google.com ( ya le hicieron un 'tributo' www.sangoogle.com ) cuando tengas dudas reales, y buena educacion vuelve y conversamos entre todos Saludos
1713
« en: Jueves 30 de Noviembre de 2006, 06:18 »
hola Para seleccionar un elemento de un combo/list se utiliza la propiedad ListIndex (inicia en 0 hasta n=numero de elementos) Ej. Saldudos
1714
« en: Miércoles 29 de Noviembre de 2006, 23:19 »
y si olvidaste el form Pues para componer un color, es un numero Long ejemplo 65535=Amarillo RGB=RED GREEN BLUE / ROJO VERDE AZUL esto es en RGB (255,255,0) entonces cuando no sabes la combinacion del RGB hay que darle 'reversa' entonces se aplica el Long_a_RGB para obtener los colores por separado apartir del long (65535) devolveria 255,255,0 osea amarillo Saludos
1715
« en: Miércoles 29 de Noviembre de 2006, 10:39 »
Otra puede ser crear una rutina pública en un .bas y lo que haces es llamarla desde todo formulario en el que quieras abrir el form2 eso es lo que tambien se me viene a la mente ej. Modulo Option Explicit Function AbrirVentana(ByRef frm As Form, Optional Modal As Boolean = False, Optional Propietario As Form) As String Dim Resultado If Modal Then If IsMissing(Propietario) Then frm.Show vbModal, Propietario Resultado = Propietario.Name Else frm.Show vbModal Resultado = "" End If Else frm.Show Resultado = "" End If AbrirVentana = Resultado End Function
en un Form Option Explicit Private Sub Command1_Click() Dim NombreFormPropietario As String NombreFormPropietario = AbrirVentana(Form2,,Me) If Len(NombreFormPropietario) > 0 Then MsgBox NombreFormPropietario End If End Sub
Saludos
1716
« en: Miércoles 29 de Noviembre de 2006, 10:20 »
1717
« en: Miércoles 29 de Noviembre de 2006, 10:13 »
mofar si sabia , gracias por la explicacion en que no estas de acuerdo camarada? , hay usuarios muy sencibles o no recuerdas el post del otro dia , a veces es por la diferecia de expresiones, que no entieneden el sarcasmo, o camaraderia, y algunos no leen bien , o mala ortografia en fin hay de todo en este foro, pero simpre hay que aclarar las cosas, con el buen sentido , aunque a veces se suba poquito , llegaremos a una conclusion, es cuestion de que hwicz empiece a conocer la comunidad, y no bardeamos, de que pais es eso (bardear)? Saludos
1718
« en: Miércoles 29 de Noviembre de 2006, 08:31 »
Es cotorreo yo creo que neorent nos entendio perfectamente y sabe que siempre intentamos ayudar y no bardeamos a nadie ni nos mofamosya entenderas amigo hwicz ya que te integres mas al foro, hay direfencias de expresiones por cada pais, que generan conflictos pero ya iras agarrando 'el hilo', a veces si se poner, 'rudo' el asunto , pero no pasa nada , las discuciones son buenas para defender ideas que es bardear? que es mofar? Saludos
1719
« en: Miércoles 29 de Noviembre de 2006, 01:13 »
La variable que resulta debe ser cadena dim nami2 as stringnami2 = Format(nami, "0000000000") porque si es numerico y le agregas ceros a la izquierda los elimina Saludos
1721
« en: Martes 28 de Noviembre de 2006, 20:37 »
Puedes usar FORMAT Ej. Private Sub Command1_Click() Numero=200 resultado = Format(Numero, "00000000") End Sub
Saludos
1722
« en: Martes 28 de Noviembre de 2006, 20:31 »
No se como lo habrá hecho. miraste el movieclip? muy buen trabajo Tierno_xxx
1723
« en: Martes 28 de Noviembre de 2006, 20:16 »
1- en visual basic las cadenas comienzan de 1 cadena="cadena" for c=1 to len(cadena) letra=mid(cadena,c,1) next c
2- el for en visual lleva esta estructura FOR variablecontrol= desde to hasta [step 1] <--- opcional es el incremento por default 1 instrucciones dentro del for NEXT variablecontrol 3- NO puedes hacer esto: For inic = inic To grande debes de usar otra variable de control For i=inic to grande 4- La funcion Mid espera dos parametros obligatorios y 1 opcional mid(Cadena,inicio,[longitud]) si inicio vale 0 entonces marca ese error (podi vale 0) (porque las cadenas inician en 1 ) si no llevan punto decimal no es necesario que sean doble 5- nami = num1.Text para tomar este valor utiliza nami = val(num1.Text) o nami = cdbl(num1.Text) Saludos
1724
« en: Martes 28 de Noviembre de 2006, 19:48 »
que es podi?
que valores puede tener?
pudes colocar el procedimiento/funcion complet@?
Saludos
1725
« en: Martes 28 de Noviembre de 2006, 19:43 »
Me parece Muy bueno, para guiarse rapido, y no lo querias poner para todos
Páginas: 1 ... 67 68 [69] 70 71 ... 83
|
|
|