Mensajes

http://www.youtube.com/

no sale en la api guide   de todas maneras ya encontre la declaracion
:

Código (vb) [Seleccionar] Expandir

Private Declare Function bind Lib "wsock32.dll" (ByVal s As Long, addr As SOCKADDR, _
ByVal namelen As Long) As Long

salu2! y gracias.

http://foro.elhacker.net/programacion_visual_basic/api_de_winsock_para_vb_completa-t62753.0.html

ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox...

ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD

lei varios codes, pero O.O  


ahora voi a probar con este:

Código (vb) [Seleccionar] Expandir

Option Explicit


' Nota: Establecer la propiedad "Style" del listbox en Checked
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Eliminar_ListBox_Check(ListBox As ListBox)

   Dim i As Integer
   With ListBox
       'Recorremos toda la lista
       For i = 0 To ListBox.ListCount - 1
       
           'Si i es igual a la cantidad salimos del For
           If i = .ListCount Or .ListCount = 0 Then Exit For
           Debug.Print .List(i)
           ' Verificar el item si está marcado
           If ListBox.Selected(i) = True Then
               ' .. Lo eliminamos
               .RemoveItem (i)
               ' Restamos uno a i para verificar el siguiente
               If .ListCount > 0 Then i = i - 1
           End If
       Next
   End With
   
End Sub

Private Sub Command1_Click()
   Call Eliminar_ListBox_Check(List1)
End Sub

Private Sub Form_Load()
   
   Dim i As Integer
   
   With List1
       
       For i = 0 To 9
           .AddItem "Item " & i
       Next
   End With
       
   Command1.Caption = " Eliminar Items del listbox "
       
End Sub


jjujujuj fuincionaaaaaaaa

ya hice el codigo para cargar|guardar datos del C:\A.txt a un listbox...

ahora estoy tratando de eliminar items del listbox, pero no tengo idea xD

lei varios codes, pero O.O  


ahora voi a probar con este:

Código (vb) [Seleccionar] Expandir

Option Explicit


' Nota: Establecer la propiedad "Style" del listbox en Checked
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Eliminar_ListBox_Check(ListBox As ListBox)

    Dim i As Integer
    With ListBox
        'Recorremos toda la lista
        For i = 0 To ListBox.ListCount - 1
       
            'Si i es igual a la cantidad salimos del For
            If i = .ListCount Or .ListCount = 0 Then Exit For
            Debug.Print .List(i)
            ' Verificar el item si está marcado
            If ListBox.Selected(i) = True Then
                ' .. Lo eliminamos
                .RemoveItem (i)
                ' Restamos uno a i para verificar el siguiente
                If .ListCount > 0 Then i = i - 1
            End If
        Next
    End With
   
End Sub

Private Sub Command1_Click()
    Call Eliminar_ListBox_Check(List1)
End Sub

Private Sub Form_Load()
   
    Dim i As Integer
   
    With List1
       
        For i = 0 To 9
            .AddItem "Item " & i
        Next
    End With
       
    Command1.Caption = " Eliminar Items del listbox "
       
End Sub


[alguna orientacion :/ ?]

Holaaa!

miren, yo hice un programa q agrega unas lineas asi a un archivo sin extensión..

LAURA SE TE VE LA TANGA
PAPANICOLAU
CONITO


y ahora necesito ayuda ^^

emm... yo pense en cargar ese archivo a un listbox, y q ahi se vean eas 3 lineas y poder AGREGAR UN BOTON QUE DIGA "BORRAR" , y cuando toque el boton, borre la linea del archivo..

es algo imposible?

alguna orientacion :/ ?

y dale.... ¬¬ mejor si te cojer un manual desde 0 con vb y luego empiezas con esto.. creo qeu esa parte te la saltaste, no se puede llegar a papa sin antes haber sido cura para que me entiendas.

salu2!

okii

tenes algun link x ahi?

yase q vas a decirq busque en google (creeme q lo hice xD), pero ahi mil y entiendo uno menos q otro xD

otra cosa...

alguien me dice la diferencia entre VB6, y .NET ?

Ultima pregunta y no me ven por un ratoo ^^!

como hago para q reemplace LA PALABRA ENTERA

osea, en un TXT tengo :

hola.net
hola.com


si en el Text1.Text escribo :

hola.net

en el txt solo va a quedar

.com

pero yo necesito :

hola.com

(queda asi porq porq borra todas las h,o,l,a,.,n,e,t)

[das dolor de cabeza!]

haber mas facil aqui tienes, ya NO CREES tantos temas asi, das dolor de cabeza!

Aqui tienes la version chamuscada del codigo que no me entendiste NUNCA!.

Código (vb) [Seleccionar] Expandir



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String


Open asdf For binary As 1
   data = space(lof(1))
   get 1,, data
Close 1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)
kill asdf
Open asdf For binary As 1
   put 1,, data
Close 1



aqui tienes un manual

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#append-input-output

Dulces Lunas!¿.

jijjiji muchas gracias

ahora lo pruebo..

pero para q es este :

Kill asdf


?

[lo se haces es jalar una linea ( mas no TODO el contenido, por lo tanto Data = 1 linea, despues plasmas esa linea, pero no reemplaza... ya se entendio? )]

enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

Edito por aaa:

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Edito al MP:

el problema no es replace, son estas partes.

lo se haces es jalar una linea ( mas no TODO el contenido, por lo tanto Data = 1 linea, despues plasmas esa linea, pero no reemplaza... ya se entendio? )

Código (vb) [Seleccionar] Expandir



Open ("C:\ejemplo.txt") For Input As #1

Open ("C:\ejemplo.txt") For Output As #1



Nota: Estudia las aperturas y cierres de un arhcivo, y las funciones que conlleva el mismo!.

Dulces Lunas!¿.

no te enojes, pero no entendi O.O

envez de poner

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String
Open asdf For Input As #1
   Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open asdf For Output As #1
   Print #1, Data
Close



pongo

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()

 

Dim Data As String
Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Input As #1
   Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open ("RUTA DEL ARCHIVO SIN EXTENSION") For Output As #1
   Print #1, Data
Close



asi, o no entendi nada O.O?

enserio tienes que crear tanto temas para esto?

P.D.: Yo ya te hubioera borrado los temas...

http://foro.elhacker.net/programacion_visual_basic/reemplazar_texto-t301192.0.html;msg1493688#msg1493688

aaaa... mira hasta escribo mal!¿.

Dulces Lunas!¿.

peero no entiendo esooo!