bueno hice una funcion que (segun mi poco conocimiento) deberia buscar y un caracter, y si lo encuentra escribir otro en un richtextbox aparte. El problema es que no funciona y queria saber si alguien me podria explicar que estoy haciendo mal.

    Private Sub Remplazar(ByVal RichTextBox As Object, ByVal Texto As String, ByVal Texto2 As String)
 
        Dim Pos As Integer
 
        If Len(Texto) Then
            For Pos = 0 To Pos < Len(RichTextBox1.Text)
                If Chr(Pos) = Texto Then
                    RichTextBox2.Text = RichTextBox2.Text & Texto2
                End If
            Next
        End If
    End Sub
 

Editado: habia puesto mal el codigo antes ya que habia empezado a intentar ver donde estaba el problema.

o sea
yo lo que quiero saber es xq en uno se usa la funcion call y en el otro se lo hace de otra forma?
se puede hacer de cualquier forma?

hola el otro dia buscando codigos para trabajar con archivos .ini que me pudieran ayudar y servir de guia encontre este, pero hay una cosa que no entendi:

 Option Explicit  
 
Const APPLICATION As String = "MiPrograma"  
 
Dim m_Left As Single  
Dim m_Top As Single  
Dim m_Width As Single  
Dim m_Height As Single  
 
Dim Path_Archivo_Ini As String  
 
'Función api que recupera un valor-dato de un archivo Ini   
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _   
    ByVal lpApplicationName As String, _   
    ByVal lpKeyName As String, _   
    ByVal lpDefault As String, _   
    ByVal lpReturnedString As String, _   
    ByVal nSize As Long, _   
    ByVal lpFileName As String) As Long  
 
'Función api que Escribe un valor - dato en un archivo Ini   
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _   
    ByVal lpApplicationName As String, _   
    ByVal lpKeyName As String, _   
    ByVal lpString As String, _   
    ByVal lpFileName As String) As Long  
 
 
'Lee un dato _   
-----------------------------   
'Recibe la ruta del archivo, la clave a leer y _   
 el valor por defecto en caso de que la Key no exista   
Private Function Leer_Ini(Path_INI As String, Key As String, Default As Variant) As String  
 
Dim bufer As String * 256   
Dim Len_Value As Long  
 
        Len_Value = GetPrivateProfileString(APPLICATION, _   
                                         Key, _   
                                         Default, _   
                                         bufer, _   
                                         Len(bufer), _   
                                         Path_INI)   
 
        Leer_Ini = Left$(bufer, Len_Value)   
 
End Function  
 
'Escribe un dato en el INI _   
-----------------------------   
'Recibe la ruta del archivo, La clave a escribir y el valor a añadir en dicha clave   
 
Private Function Grabar_Ini(Path_INI As String, Key As String, Valor As Variant) As String  
 
    WritePrivateProfileString APPLICATION, _   
                                         Key, _   
                                         Valor, _   
                                         Path_INI   
 
End Function  
 
 
Private Sub Form_Load()   
 
    'Path del fichero Ini   
    Path_Archivo_Ini = App.Path & "\config.ini"  
 
    ' Lee las Key y  Les envia el valor por defecto por si no existe   
    m_Left = Leer_Ini(Path_Archivo_Ini, "Left", 0)   
    m_Top = Leer_Ini(Path_Archivo_Ini, "Top", 0)   
    m_Width = Leer_Ini(Path_Archivo_Ini, "Width", 5000)   
    m_Height = Leer_Ini(Path_Archivo_Ini, "Height", 5000)   
 
    'Posiciona el formulario con los valores del archivo Ini   
    Move m_Left, m_Top, m_Width, m_Height   
 
End Sub  
 
Private Sub Form_Unload(Cancel As Integer)   
 
    'Escribe en el archivo Ini   
 
    'Posición del Form   
    Call Grabar_Ini(Path_Archivo_Ini, "Left", Me.Left)   
    Call Grabar_Ini(Path_Archivo_Ini, "Top", Me.Top)   
 
    'Tamaño del formulario   
    Call Grabar_Ini(Path_Archivo_Ini, "Width", Me.Width)   
    Call Grabar_Ini(Path_Archivo_Ini, "Height", Me.Height)   
 
End Sub  
 

porque en el evento load del form no se llama a la funcion Leer_Ini, mientras que en el evento Unload del form si se lo hace?

gracias

a mi cargando archivos mp3 me anda :S
no te falta algun codec??? o algo asi?

yo necesitaria que los objetos dentro del form no se transparenten con el mismo, como puedo hacerlo???

gracias x la respuesta
el contenido serian 2 shapes
y adentro de los shapes hay otras cosas
labels picturebox image etc

hay alguna manera de hacer el form transparente, pero que a la vez se vea su contenido ???

oks, gracias
igual todavía no pude entender xq no me anda el slider
:S
me salta error en la misma linea

Private Sub WMP_OpenStateChange(ByVal NewState As Long)
 
Slider.Min = 0
 
Slider.Max = WMP.currentMedia.duration 'linea que tira error :S
 
End Sub
 
 

oks
perdon por tantas preguntas y la ignorancia pero en el codigo:

mcisendstring("play *.*",0,0,0)

que serian los 3 ceros del final?

gracias x la respuesta voy a tratar de aplicarla a ese codigo
pregunta:
las matrices hacen que el programa use menos recursos, corra mas rapido o algo asi, o simplemente es para simplificar el codigo???