|
|
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.
Temas - Jimbenit
76
« en: Martes 14 de Octubre de 2008, 17:25 »
Hola a todos   Bien, tengo una duda sobre Visual Basic 2005.
Necesito incluir un msgbox en el evento del data grid viw cuendo este agrega automaticamente la ultima fila de una tabla. es decir:
Cuando edito ultima fila, DataGridView agrega ultima fila (automaticamente) y cuando esto suceda aparezca un msgbox. Cual es el evento (del DataGridView) donde debo agregar esta linea de codigo del msgbox?Saludos.
77
« en: Viernes 10 de Octubre de 2008, 21:08 »
Que tanto recurso consume VB6 frente a VB2005?... que tan bueno es programar en VB 2005 cuando la misma aplicación se puede desarrollar en VB6, que tan ventajosos es hacerlo en VB2005?Podrian colocar sus comentarios?, me interesa mucho leerlos. Gracias.
78
« en: Martes 7 de Octubre de 2008, 00:31 »
Puedo incluir API's de windows en el VB2005???
Como puedo hacer esto??
79
« en: Lunes 6 de Octubre de 2008, 17:44 »
Me gustaria saber como hacen ustedes para mejorar la apariencia de sus aplicaciones... Yo acostumbro a usar un "Skin" cuando deseo mejorar la apariencia de alguna de mis aplicaciones de VB6P.D.- Me podrian decir como adjunto una imagen de mi PC a esta pagina?
80
« en: Viernes 3 de Octubre de 2008, 22:39 »
Esto es algo que me gustaria saber de ustdes?Que tanto tiempo te conectas a diario en SoloCodigo y como le haces para trabajar si tanto tiempo estas aqui?  Saludos a todos los de SOLOCODIGO
81
« en: Martes 30 de Septiembre de 2008, 21:14 »
Me gustaria escuchar de ustedes cual(es) es(son) la(s) ventaja(s) de Java sobre Visual Basic 6 Enumerenlas...
82
« en: Martes 30 de Septiembre de 2008, 20:59 »
Ando buscando el manual en español del Inno Setup Compiler en Español (es que no soy tan bueno con el ingles), alguien lo tiene?
83
« en: Martes 23 de Septiembre de 2008, 18:12 »
Si, si... ya se.. yase... Ya se que me van a decir: "Hey, ya publicaste eso, ¡No hagas SPAN!", pero lo posteo de nuevo solo por que el titulo de ese post no decia lo que realmente necesitaba (Y no se como editar el titulo) y tal vez muchos no lo leian ( o no lo abrian) por creer que ese tema ya lo dominan o sencillamente no les interesa.Bueno la duda es: Hola a todos... he estado mirando post anteriores que hablen sobre metodos graficos (Me han aclarado algunas cosas) pero ninguno me contesta la siguiente pregunta:Bueno, quiero imprimir un formulario que tenga 3 picturebox, el codigo utlizado es:Pero cuando el formulario se imprime, se imprime lo siguiente:* El contenido en el formulario (quiero decir, el area correspondiente al formualrio )
* Se imprime el contenido del Picture1 (atencion, son 3 PictureBox)
* El contenido del segundo picturebox no se imprime, como tampoco el contenido del tercero Me gustaria que se imprimiera el contenido del formulario, incluyendo el contenido de los picture, de los 3 PictureBox y no solo de uno)Invito a hacer el siguiente ejemplo (para que se me entienda):Coloquen en un formulario 3 PictureBox, y copien y peguen el siguiente codigo:Private Sub Form_Load() Me.Picture1.AutoRedraw = True Me.Picture1.ScaleMode = 6 Me.Picture2.AutoRedraw = True Me.Picture2.ScaleMode = 6 Me.Picture3.AutoRedraw = True Me.Picture3.ScaleMode = 6 Me.Picture1.Line (0, 0)-(20, 20) Me.Picture2.Line (0, 0)-(20, 20) Me.Picture3.Line (0, 0)-(20, 20) Me.PrintForm End Sub
84
« en: Miércoles 17 de Septiembre de 2008, 18:53 »
Hola a todos... Bueno... mi duda es la siguienete, estoy haciendo un grafico con el metodo LINE de VB6 en un Picture, pues la duda es: Como puedo mandar a imprimir el contenido de este PictureBox?Cualquier sugerencia sera bien recibida...
Saludos.
85
« en: Viernes 12 de Septiembre de 2008, 20:45 »
Aveces es necesario procesar cadenas de texto, sé que muchos de ustedes se han encontrado con que tienen que diseñar funciones o sub-procedimientos para poder procesar cadenas de texto de una manera muy especial. Pues este post lo hice con la intencion para que publiquen sus funciones (esas que ustedes han diseñado) que trabajen con cadenas de TEXTO. Empiezo yo. En cierta ocasion tuve que diseñar una funcion que me pasara una cadena de texto en sus equivalentes ASCII, pero con un formato especial, por ejemplo: "Hola mundo"El resultado debia ser:
10,72,111,108,97,32,109,117,110,100,111
Donde el primer numero indica el numero de caracteres de la cadena y los demas numeros son sus equivalentes ASCII
La funcion es la siguiente:
Function CadenaASCII(CadenaNormal As String) As String 'Esta funcion recibe una cadena y como resultado da 'El numero de caracteres con los caracteres pasados a sus valores 'de la tabla ASCII 'EJEMPLO: 'CadenaASCII("YAIR") 'da como resultado '4,89,65,73,82 'Donde el primer numero (4), es el numero de caracteres 'Y los siguientes numeros son las letras en sus valores ASCII Dim NumLet As Long Dim LetrASCII As String Dim Cadena As String Cadena = CadenaNormal Cadena = Trim(Cadena) NumLet = Len(Cadena) For i = 1 To NumLet LetrASCII = Asc(Mid(Cadena, i, 1)) If NumLet = 1 Then CadenaASCII = LetrASCII ElseIf i = 1 Then CadenaASCII = LetrASCII & "," ElseIf i = NumLet Then CadenaASCII = CadenaASCII & LetrASCII Else CadenaASCII = CadenaASCII & LetrASCII & "," End If Next i CadenaASCII = NumLet & "," & CadenaASCII End Function
Publiquen las suyas!!
saludos.
86
« en: Miércoles 10 de Septiembre de 2008, 15:17 »
Ya se que muchos saben aplicar la transparencia a los formularios, pero se han preguntado si todos saben? Bueno, para los que no saben aqui les dejo la oportunidad para que la apliquen a sus proyectos... Copia el siguiente codigo en un modulo standar: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NOV 6 / 2007 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@ @@@@ '@@@ ESTE MODULO SIRVE PARA DAR TRASPARIENCIA A FORMULARIOS @@@@ '@@@ @@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Option Explicit 'Declaración del Api SetLayeredWindowAttributes que establece _ la transparencia al form Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long 'Recupera el estilo de la ventana Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long 'Declaración del Api SetWindowLong necesaria para aplicar un estilo _ al form antes de usar el Api SetLayeredWindowAttributes Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const WS_EX_LAYERED = &H80000 'Función para saber si formulario ya es transparente. _ Se le pasa el Hwnd del formulario en cuestión Public Function Is_Transparent(ByVal hWnd As Long) As Boolean On Error Resume Next Dim Msg As Long Msg = GetWindowLong(hWnd, GWL_EXSTYLE) If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then Is_Transparent = True Else Is_Transparent = False End If If Err Then Is_Transparent = False End If End Function 'Función que aplica la transparencia, se le pasa el hwnd del form y un valor de 0 a 255 Public Function Aplicar_Transparencia(ByVal hWnd As Long, _ Valor As Integer) As Long Dim Msg As Long On Error Resume Next If Valor < 0 Or Valor > 255 Then Aplicar_Transparencia = 1 Else Msg = GetWindowLong(hWnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, Msg 'Establece la transparencia SetLayeredWindowAttributes hWnd, 0, Valor, LWA_ALPHA Aplicar_Transparencia = 0 End If If Err Then Aplicar_Transparencia = 2 End If End Function '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@ AHORA DEBES COLOCAR EN EL FORMULARIO, @@@@@@@@@ '@@@@@@@ EN EL EVENTO "LOAD" LA SIGUIENTE INSTRUCCIÓN : @@@@@@@@@ '@@@@@@@ Call Aplicar_Transparencia(Me.hWnd, 150) @@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
por ultimo, en el evento Form_load , llama este procedimiento: Call Aplicar_Transparencia(Me.hWnd, 150) siendo 150 el nivel de trasparencia, el nivel minimo es 0 (es decir, el formulario es completamente invisible) el valor maximo es 255 (es decir, el formulario no tiene nada de transparencia. Espero que les sirva... saludos.
87
« en: Martes 9 de Septiembre de 2008, 18:47 »
Ya se, ya se... Ya se que muchos manipulas los achivos .INI, seguramente ya tienes sus funciones, bueno para estos no este mensaje... Este mensaje es para aquellos que aun tienen errores en su codigo de como manejar los archivos .INI Copien lo siguiente en un modulo standar. '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ARCHIVO INI EN VB6.0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ [NILSON JIMENEZ] @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 28/ENERO/2008= @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ I N I @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Public Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpString As Any, _ ByVal lpFileName As String) As Long Public Function GetINI(ArchivoINI As String, Seccion As String, Clave As _ String, Default) Dim Temp As String * 256 Dim Longitud As Integer Temp = Space$(256) Longitud = GetPrivateProfileString(Seccion, Clave, Default, Temp, 255, ArchivoINI) GetINI = Left$(Temp, Longitud) End Function Sub WriteINI(ArchivoINI As String, Seccion As String, Clave As String, Valor) Dim n As Integer Dim Temp As String Temp = Valor 'Reemplazar todos los caracteres CR/LF con espacios For n = 1 To Len(Valor) If Mid$(Valor, n, 1) = vbCr Or Mid$(Valor, n, 1) = vbLf Then Mid$(Valor, n) = " " End If Next n n = WritePrivateProfileString(Seccion, Clave, Temp, ArchivoINI) End Sub '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ AHORA SOLO PARA "LEER" UN DATO DE INFORMACIÓN SOLO TIENE QUE COPIAR @@@@@@@@ '@@@@@@@ LA SIGUIENTE INTRUCCIÓN EN EL LUGAR DONDE QUIERA INSERTAR EL DATO @@@@@@@@ '@@@@@@@ GetINI(DireccionINI, "Sectores", "Clave", "?") @@@@@@@@ '@@@@@@@ @@@@@@@@ '@@@@@@@ EJEMPLO: @@@@@@@@ '@@@@@@@ Nom_Usu = GetINI(DireccionINI, "Sectores", "NombreUsuario", "?") @@@@@@@@ '@@@@@@@ La variable Nom_Usu debe almacenar la información que se encuentre @@@@@@@@ '@@@@@@@ en [Sectores] NombreUsuario= @@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ PARA "GUARDAR" UN DATO DE INFORMACIÓN SOLO TIENE QUE INSERTAR LA @@@@@@@@@ '@@@@@@@ SIGUIENTE INSTRUCCIÓN... @@@@@@@@@ '@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "Clave", Nom_Usu) @@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@ EJEMPLO: @@@@@@@@@ '@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "NombreUsuario", Nom_Usu) @@@@@@@@@ '@@@@@@@ La variable que inserta la información a guardar es Nom_Usu, esta @@@@@@@@@ '@@@@@@@ información se guarda en [Sectores] NombreUsuario= @@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Las intrucciones de como manejar estas funciones estan indicadas en el mismo modulo como comentarios... Bueno... saludos y espero que les sirva.
88
« en: Martes 26 de Agosto de 2008, 20:55 »
Estas dos funciones pueden servirles a muchos, esta las hice hace unos meses, espero que les guste. Es para crear un bloc de notas donde puedes guardar información y luego recuperar, la información guardada se almacena en un orden de filas y columnas. Estas funciones debesw colocarlas en un modulo Estandar y luego llamarlas desde cualquier parte de tu programa. Para Super Novatos: * Abre Visual Basic en un proyecto Estandar en blanco * Ves al menu "Proyecto" y luego en "Agregar modulo" Se edespliega una ventana llamada "Agregar Modulo", dale click en Abrir * Copia y pega el siguiente codigo en esa ventana: Function LeerDatoMATRIZ(Colum As Long, Fila As Long, RutaArchivo As String) As Variant 'Lee datos de una cadena separada por comas.. ejemplo: ' xxxxx, xxxxx, xxxxx , xxxxx, etc... Dim NumLine As Long Dim Cadena1 As String Dim Cadena As String Dim Dato As Variant If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, "Archivo de Texto creado para guardar información" & vbCrLf & "jimbenit@hotmail.com" Close #1 End If Open RutaArchivo For Input As #1 'Copia la fila completa en la variable cadena While Not EOF(1) Line Input #1, Cadena1 NumLine = NumLine + 1 If NumLine = Fila Then Cadena = Cadena1 End If Wend Close #1 Dim NumLet As Long Dim Cont As Long Dim Letr As String Dim PosComas() As Long Dim NumCarac As Long NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then Exit Function 'Columna vacia ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i If Colum = UBound(PosComas()) + 1 Then 'Escribe el dato buscado en la variable dato Dato = Mid(Cadena, PosComas(Colum - 1) + 1) Else Dato = Mid(Cadena, PosComas(Colum - 1) + 1, PosComas(Colum) - 1 - PosComas(Colum - 1)) End If 'El siguiente bloque de código elimina las comillas 'del principio y final de la variable Dato. NumLet = Len(Dato) If Left(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 2) End If NumLet = Len(Dato) If Right(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 1, NumLet - 1) End If LeerDatoMATRIZ = Dato End Function Sub EscribirDatoMATRIZ(Colum As Long, Fila As Long, Dato As Variant, RutaArchivo As String) 'Guarda datos en un bloc notas en forma de comas... utiliza el bloc 'como una matriz ordenada por filas y columnas... [Mayo 5 / 2008] Dim Contador As Double Dim Vector() As Variant Dim Caracter As String Dim Max As Double Dim Linea As Long Dim Cadena As String Dim NumLet As Long Dim Letr As String Dim Cont As Long Dim PosComas() As Long Dim Pedazo1 As String Dim Pedazo2 As String Dim Comas_Add As Long If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, "Archivo de Texto creado para guardar información" & vbCrLf & "jimbenit@hotmail.com" Close #1 End If Linea = Fila For j = 1 To 2 'Introduce todas las lineas del Bloc notas en un Vector llamado Vector() Open RutaArchivo For Input As #1 While Not EOF(1) 'Cuenta las lineas del Bloc Notas Line Input #1, Caracter i = i + 1 If j = 1 Then Contador = i ElseIf j = 2 Then 'Si j = 2 , se escriben las lineas dentro del vector Vector(i) = Caracter End If Wend Close #1 If j = 1 Then If Linea > Contador Then 'Define el tamaño del vector ReDim Vector(1 To Linea) Max = Linea Else ReDim Vector(1 To Contador) Max = Contador End If i = 0 End If Next j For i = 1 To Max 'Obtiene la fila en string separada por comas If i = Fila Then Cadena = Vector(i) End If Next i 'Obtención de las posiciones de las comas '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then 'Columna vacia Comas_Add = Colum - (Cont + 1) For i = 1 To Comas_Add Cadena = Cadena & ", " Next i Cont = Colum - 1 End If NumLet = Len(Cadena) ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 'Añadiendo el dato a la cadena [Elimina el dato anterior en esa posición] If Cont = 0 Then Cadena = Dato ElseIf Colum = 1 Then 'Coloca el dato al principio Cadena = Dato & Mid(Cadena, PosComas(1)) ElseIf Colum = UBound(PosComas()) + 1 Then 'Coloca el dato al final Cadena = Mid(Cadena, 1, PosComas(Colum - 1)) & Dato Else Pedazo1 = Mid(Cadena, 1, PosComas(Colum - 1)) Pedazo2 = Mid(Cadena, PosComas(Colum)) Cadena = Pedazo1 & Dato & Pedazo2 End If 'Escribiendo en el Bloc Notas Open RutaArchivo For Output As #1 For i = 1 To Max If i = Linea Then Vector(i) = Cadena Print #1, Vector(i) Else Print #1, Vector(i) End If Next i Close #1 End Sub
* Cierra la venta de codigo *Dale doble click en el formulario: Debe abrirse la venta codigo con las palabras Private Sub Form_Load() End Sub
y escribe esta linea en medio de las lineas anteriores Call EscribirDatoMATRIZ(4, 5, "Hola mundo!!", "C:/MiBlocNotas.txt")
*Ejecuta tu aplicación y luego ves a tu disco local C: y veras un archivo de texto con el nombre MiBlocNotas Saludos.
|
|
|
Mostrar Mensajes
