Mensajes

como podria hacer para que me carge el ini en un textbox?

bueno, cogi este codigo de esta web, pero hay cosas que me dan error

Código [Seleccionar] Expandir

Leer y escribir un fichero Ini:


Declaraciones generales en un módulo:

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
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

Leer en "Ejemplo.Ini":

Private Sub Form_Load()
    Dim I As Integer
    Dim Est As String
    Est = String$(50, " ")
    I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")
    If I > 0 Then
        MsgBox "Tu Nombre es: " & Est
    End If
End Sub

Escribir en "Prueba.Ini":

Private Sub Form_Unload(Cancel As Integer)
    Dim I As Integer
    Dim Est As String
    Est = "Ejemplo - Apartado"
    I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
End Sub

las declaraciones del modulo me da todas por malas

y luego

Código [Seleccionar] Expandir

    I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")

esto tambien me da error

ya lo consegui, os explico

2 forms, 1 para el splash

en el del splash ponemos 1 timer  y interval esta bien en 5000

Código [Seleccionar] Expandir


    Unload Me
    Form1.Show

luego en las propiedades de form1 se pone visible en false

y en form1 en Private Sub Form_Load()  se pone en

Código [Seleccionar] Expandir

Splash.Show

y ya esta, para personalizar el splash para que no tenga bordes podemos hacer

para que salga centrado (en las propiedades del form)

Código [Seleccionar] Expandir

StartUpposition    2-CenterScreen

Código [Seleccionar] Expandir

Border Style    1-Fixed Style

hola, aver si me podeis decir como hacer un splash o imagen de carga, es decir, cuando ejecutas el programa, te sale una ventanita que por ejemplo pone, Visual Basic 6, (como en VB en realidad) y empieza a cargar todos los componentes, pues aver como puedo hacer eso

ske lo estoy usando 

ok, gracias, con el 1er code ya lo consegui, todo lo demas ya lo tenia

gracias

hola, tengo 1 drivelistbox , 1 dirlistbox y un Textbox,

necesito que me deje elegir la unidad con el drivelistbox, y me lo carge en el dirlistbox,

como lo hago???

e provado esto, pero no anda

Código [Seleccionar] Expandir

Drive1.Drive = Dir2.Path

enviar el formulario

en las propiedades del form, abajo pone

Visible: True

pues lo pones en false y se ejecuta pero no aparece

miren, yo ya tengo una pagina, es un codigo fuente, que lo que hace que te viene ya echo el formulario para enviar post a un foro, lo que me hace falta es que cada 5 segundos haga la funcion de alt+s en el navegador, hace esto 2 veces y luego vuelve a la pagina anterior,como lo podria hacer?