Mensajes

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.

Código (vbnet) [Seleccionar] Expandir

    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:

Código (vb) [Seleccionar] Expandir

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

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir

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