Mensajes

Amigos les cuento, tengo el siguiente código, que me permite cambiar archivos de una carpeta a otra y ademas ir mostrando diferentes imágenes al revisar las opciones:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
'Si está seleccionado el Option1 se ejecuta la siguiente condición
If Option1.Value = True Then
   Kill "C:\destino\unknow_00053.fnt"
      MsgBox "Fuente por defecto"
End If

'Si está seleccionado el Option2 esta
If Option2.Value = True Then
FileCopy "C:\fnt\F2\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

'Si está seleccionado el Option3 se ejecuta esta otra
If Option3.Value = True Then
FileCopy "C:\fnt\F3\unknow_00053.fnt", "C:\destino\unknow_00053.fnt"
MsgBox "Fuente cambiada"
End If

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
Image3.Visible = False
Image2.Visible = False
Image1.Visible = True
End Sub

Private Sub Option2_Click()
Image3.Visible = False
Image2.Visible = True
Image1.Visible = False
End Sub

Private Sub Option3_Click()
Image3.Visible = True
Image2.Visible = False
Image1.Visible = False

Así se ve el programa:



Lo que quiero es que al elegir una opción, se cree un archivo ini, recordando la opción escogida, por lo tanto, si elijo la fuente 2, al cerrar y abrir el programa, este muestre la opción escogida.

Gracias amigos 

Con este VB Shaped Form Creator lo puedes hacer fácil.

bájalo de aquí  http://www.byalexv.co.uk/


saludos

Perfecto, muchas gracias

Amigos, les cuento, buscando nuevos diseños para mi pograma, me encontre con esto:



Un diseño que me gustaría implementar, mi duda es si ¿se puede lograr algo como esto en vb6?, es decir poder ajustar el contorno del form a una imagen, o lograr algo parecido

gracias  

Yo tampoco pude, asi que envés de textbox use un control webbrowser, si te interesa, te doy el código amigo

Tienes toda la razon 

muchas gracias tema resuelto

Podrías hacer algo como esto

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Msxml2 As Object
Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0")
Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False
Msxml2.send
Text1.Text = Msxml2.responseText
End Sub


Saludos

Me funciono perfecto, el problema es que al cambiar el contenido del archivo en el servidor, no cambia en el textbox, sigue mostrando el anterior :S

Es como si descargara el archivo y después tomara los datos de ahí y no del servidor.

Muchas gracias

Mi consulta es la siguiente, tengo un código que me muestra en un textbox el contenido de un archivo.txt que esta en mi pc, mi pregunta es.

Como podría hacer lo mismo con un archivo de texto que esta en un servidor ?

El codigo es este:

Código [Seleccionar] Expandir

Private Sub Form_load()
    Dim linea As String
    Dim c As String
   
' Muestra en textbox el contenido de archivo local version.txt

    Open "c:/version.txt" For Input As #1
    linea = ""
    Me.Text4.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text4.Text = Me.Text4.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text4.Text = Me.Text4.Text + linea
    Close #1
   
  ' Muestra en textbox el contenido de  archivo version.txt desde servidor
   
    Open "http://miweb/updatepatch/version.txt" For Input As #1
    linea = ""
    Me.Text3.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text3.Text = Me.Text3.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text3.Text = Me.Text3.Text + linea
    Close #1   

End Sub

Así se ve en mi programa:



Muchas, pero muchas gracias por la paciencia

Enviado desde mi GT-I9300 usando Tapatalk

Una ultima inquietud 

esto lo comprendo perfectamente

Código [Seleccionar] Expandir

Shell "Smart_Updater.exe /auto"
End

pero como podría abrir el "Smart_Updater.exe" si este se encuentra un nivel antes que mi programa

Supongamos que el programa "Smart_Updater.exe" se encuentra en:

C:\Archivos de programa\Launcher\Smart_Updater.exe

y mi programa se encuentra en:

C:\Archivos de programa\Launcher\Val\Miprograma.exe

pero sin tener que especificar un ruta, por que la ruta del programa, puede ir variando en cada pc

Espero hacerme entender

Hay que hacer algunas modificaciones, se me ocurre lo siguiente:

Subir a tu FTP un archivo llamado version.txt dentro del fichero poner por ejemplo 1.1
El ejecutable principal de tu programa tendrá almacenada su versión actual, por ejemplo 1.0. El programa descarga el fichero version.txt y compara el 1.1 con 1.0, al ser distintos lanza un mensaje para que se active el lanzador. Te lo voy a escribir en pseudo-codigo:

Código (vb) [Seleccionar] Expandir


Sub Main()
MyVersion = "1.0"
FTP_Version = DownloadFile("version.txt")
If MyVersion <> FTP_Version Then
  If MsgBox "Hay una nueva version, deseas actualizar?" = vbYes Then
   Shell "smartupdater.exe /auto"
   End
  End If
End Sub


Sería eso a groso modo, evidentemente tienes que codearlo bien, con su sintaxis y todo. De todas fromas (sin acritud) desconozco ese "proyecto" importante que estás haciendo, pero si no eres capaz ni de programar una función similar... significa que no debe ser un "proyecto importante" como dices xD

He leído varios posts tuyos y tienes dudas de nivel-1. No quieras empezar una casa por el tejado

jajaj pero a pesar de ser muy novato, he logrado un programa que cumple a cabalidad algunas fusiones ha tenido una buena acogida.

El problema, es que todo lo he aprendido por ensayo y error, pero aun no aprendo la sintaxis, por ende mis dudas básicas.

Mi objetivo es aprender a programar en vb6, pero necesito el programa a corto plazo gracias por la ayuda, intentare agregarlo a mi programa

Amigo una ultima petición y no te fastidio mas  como tengo que hacerlo, para que aparezca el actualizador automáticamente, cuando haya una nueva versión??

Es decir que el programa se ejecute en segundo plano, verifique si hay actualización, si hay se lanza el mensaje de que hay nuevas actualizaciones y si no hay, que el actualizador se cierre y continué todo normal.

Si es mucho trabajo, no te preocupes, con lo que hiciste estoy muy contento