Mensajes

Muchisimas grx por tu respuesta, pero el mensaje en si no era el de que me buscaran las cosas y me las plasmaran, aqui, mas bien si alguien tenia conocimiento de algun manual que explicara el FSO y bueno nunca estaba de mas algun ejemplo, pq ejemplos si encontre...Pero vamos q grx por tu respuesta...

Agrego esto que grx a ti vi...

Salu2   http://www.recursosvisualbasic.com.ar/htm/tutoriales/fso.htm

Bueno... me alegra haberte servido de algo. Échale un vistazo a este enlace de acá, creo que no se te ocurrió buscar dentro de este mismo subforo :
http://foro.elhacker.net/index.php/topic,12377.0.html

¡S4lu2!

en vb si ejecutara en vez de ese codigo, un archivo .bat Y le pusiera vbHide despues, ocultaría la ventana de ejecución del archivo.bat?

Efectivamente, prueba a hacerlo:

Código [Seleccionar] Expandir

Shell "Tu_Bat.Bat", vbHide

[no di con uno que recoja algo como esto]

estuve mirando la contribuciones y los lugares de referencia pero no di con uno que recoja algo como esto

Parece que no buscaste bien, una cosa es que te ayudemos con la solución de un problema y otra muy diferente que busquemos la información por ti. 

Resultados de 2 minutos de busqueda acotando que me detuve un momento a tomar un poco de agua refrescante.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/35.htm

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/13.htm

Lo demas obviamente lo buscas tu, solo queria que notaras que "El que busca encuentra"

"Usar google no es tan dificil"...

se me ocurrio insertar el comando "Now()" como nombre de la imagen asi cada imagen que se vaya creando tendra de nombre algo asi:

01:44 p.m. 01/03/2008.jpg
03:22 p.m. 01/03/2008.jpg
07:59 p.m. 03/03/2008.jpg

pero  pues no me funciona,ya eh intentado poner Now() como nombre de salida para la imagen y pues no me funciona

Quizás no concatenaste.

Código (vb) [Seleccionar] Expandir

MsgBox "Now.jpg" 'Sin concatenar

MsgBox Now & ".jpg" 'Concatenado

Supongo que los que sepan mucho del tema van a ver que es algo super newbie, empezé hace poco a programar y la verdad no soy de entender las cosas rápido, tardo bastante en aprender bien las cosas pero este tema me interesa mucho u por eso le pongo mucho empeño.

¡Si! es algo muy básico, igual te doy una mano...

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Dim Operando1 As String, Operando2 As String
Dim CadenaConcatenada As String
   
    'Almacenamos en variables tipo String los operandos
    Operando1 = InputBox("Ingrese el Operando 1:", "Curso VB", "")
    Operando2 = InputBox("Ingrese el Operando 2:", "Curso VB", "")
   
    'Concatenamos los operandos
    CadenaConcatenada = Operando2 & " " & Operando1
    MsgBox CadenaConcatenada 'Mostrando la cadena concatenada
End Sub

Te dejo de tarea el pasarlo a la etiqueta de texto, usa un label (nada de otro mundo), investiga a medida que practiques y veras que aprendes rapido.

PD: Esta es una excepción, no creas que acá se le hace la tarea a los demás, sin animo de ofender o molestar.

¡S4lu2!

Cancel siempre va a ser igual a cero una vez entre en el "EVENTO Unload", solo cambiara si se lo indicamos, la comparación deberia hacerse con vbNo en lugar de vbYes. Mira este ejemplo:

Código [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
    Cancel = (MsgBox("¿Realmente desea Salir?", vbQuestion + vbYesNo, _
                   "Esta intentando salir del programa") = vbNo)
End Sub

¡S4lu2!

[Gracias a C@ss¡@n¡ por el código]

Gracias a C@ss¡@n¡ por el código, y espero que no te hayas molestado que lo reutilizase y completase (ya que su respuesta está muy bien).
Saludos.

No es nada, ¿molestarme? ¿porque? "el conocimiento es libre" asi debe ser y asi será siempre, al contrario, me da gusto que un código mio sirva como base para la elaboración de uno un poco mas complejo, es mas, "en la unión esta la fuerza" ¿no es que dicen?

No segui repondiendo porque estaba en clase, pero no hace falta ya hicieron el trabajo.

¡S4lu2!

como hacer una rutina que, al darle a un boton,  me cambie la hora del sistema por  el texto que yo haya puesto en un textbox

Prueba con esto, suponiendo que lo que coloques en un textbox sea una fecha valida:

Código [Seleccionar] Expandir

Option Explicit

Private Sub Cambiar_Time(cadena As String)
On Error GoTo nError
    Time = Format(cadena, "hh:mm:ss AmPm")
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub CmdCambiarHora_Click()
    Cambiar_Time (Text1.Text)
End Sub

Private Sub Form_Load()
    Text1.Text = "11:06:00"
End Sub

¡S4lu2!

Quiero abrir un archivo,pero eso ya se quiero que vaya leyendo los datos y cuando encuentre estos caracter "***"lo visualice los datos en un text1 hasta esos caracteres,y siga leyendo apartir de hay hata encontrar otravez "***" y lo visulice en un text2 desde "***" hasta "***".No se si me explique bien,son datos que tengo que separar desde esos caracteres "***" hasta "***" son datos diferentes que tengo que separar del mismo archivo.

No te entendi bien, pruebalo y dime si es lo buscabas...

Código [Seleccionar] Expandir

Option Explicit

Private Sub CmdBuscarCadena_Click()
Dim Canal As Integer, N As Integer, N2 As Integer
Dim Cadena As String
    Canal = FreeFile
    Open "prueba.txt" For Input As #Canal 'Abrir archivo
        Do Until EOF(Canal) 'Hacer hasta que cierre el archivo
            Text1.Text = Input$(LOF(Canal), #Canal)
        Loop
    Close #Canal 'Cerramos el archivo
    N = InStr(1, Text1.Text, "***") 'Buscando el primer ***
    N2 = InStr(N + 3, Text1.Text, "***") 'Buscando el segundo ***
    Text2.Text = Mid(Text1.Text, N + 3, N2 - (N + 3)) 'Extrayendo la cadena
End Sub


¡S4lu2!

a mi no me importa que se hable también de vb.net aquí (mejor, así vamos aprendiendo algo de .net )....aunque seguramente te podrán contestar mejor temas de .net en el subforo de .net (lo que no significa que aquí no hayan también personas que puedan ayudarte perfectamente).
Saludos.

No ¡error! eso solo crearia un gran desorden dentro de este subforo, por eso justamente se creo el de .net, vamos a organizarnos cada cosa en su lugar, si preguntan .net debe ser alla, aqui vb. ¡sin animos de molestar!

Acá hay muchos que no tienen ningun problema en responder, en ese caso se le aconsejaria postear por alla y se le responde.

Dime tu Chefito si no es la mejor manera de trabajar  ¡S4lu2!