Mensajes

busca en internet hay pila de ejemplos...aca tenes el mas facil:

Numbering lines of RichTextBox in .NET 2.0

y aca otro parecido pero maneja diferentes fuentes para el richtextbox:

Line Numbering of RichTextBox in .NET 2.0

LineNumbers for the RichTextBox

saludos.

adaptalo a lo que queres...

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Command1_Click()

    Dim vArchivo As String
    Dim i As Integer
    Dim vLinea As String
   
    vArchivo = App.Path & "\archivo.txt"
   
    i = FreeFile
   
    Open vArchivo For Input As i
   
    Do While Not EOF(i)
        Line Input #i, vLinea
        List1.AddItem vLinea
    Loop
   
    Close #i
End Sub


otra forma es cargar todo el archivo directamente y con un Split() ir añadiendo las lineas.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Dim vLineas() As String
    Dim i As Integer
    Dim vArchivo As Integer
   
    vArchivo = FreeFile

    Open "C:\archivo.txt" For Binary Access Read As #vArchivo
        vLineas = Split(Input(LOF(vArchivo), vArchivo), vbNewLine)
        For i = 0 To UBound(vLineas)
            List1.AddItem vLineas(i)
        Next i
    Close #vArchivo
End Sub

lo que pasa tio es q yo quiero q al abrir el  exe se genere el objeto en este caso la creacion de la carpeta en la path del exe vale y quiero q al finalizar  el form y volver a iniciarlo no me salga run time error x q sale q la apliacaion ya existe solo quiero q si no esta creada la carpeta q la genere en caso de q si este la carpeta omitir esta accion me explico ? amigo

justamente los codigos que te pusimos hacen eso.... ...chequean si existe la carpeta, si no existe la crean, y si ya existe no hace nada...

a vos te tira error porque no estas chequeando en ningun lado si existe la carpeta antes de crearla...la estas creando siempre...usa los codigos que te pusimos y no te va a tirar error.

["c:\windows"]

como no te funcionaron ? , me imagino que has reemplazado "c:\windows" por App.Path & "\Descargas" no ?

PD:vos ahora lo estas haciendo con FSO y este tiene una funcion llamada FolderExists, que funciona igual que las que te pusimos, retornan un boolean si existe o no...pero yo lo haria con cualqueira de las 2 que te pasamos, no hay que crear un objeto.

saludos.

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
    If CBool(PathIsDirectory("c:\windows")) = False Then
       ' El directorio no existe y entonces aca lo creas
    End If
End Sub

[bassmod.dll]

Hola, otra forma es con la libreria llamada bassmod.dll, con esa podes reproducir en memoria todo estos formatos raros como .MOD o .XM que tienen los keygen, esta libreria la usa el winamp y mas reproductores de audios, aca te paso una descripcion en ingles:

BASS is an audio library for use in Windows software. Its purpose is to provide developers with the most powerful and efficient (yet easy to use), sample, stream (MP3, MP2, MP1, OGG, WAV, custom generated, and more via add-ons), MOD music (XM, IT, S3M, MOD, MTM, UMX), MO3 music (MP3/OGG compressed MODs), and recording functions. All in a tiny DLL, under 100KB in size.

esta libreria dentro tiene funciones para hacer lo que quieras, pausa, stop..etc.

ya hace mucho la habia probado y funciona perfecto, este codigo de prueba esta en VB .NET

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Declare Sub BASSMOD_Free Lib "bassmod.dll" ()
    Private Declare Function BASSMOD_Init Lib "bassmod.dll" (ByVal device As Integer, ByVal freq As Integer, ByVal flags As Integer) As Short
    Private Declare Function BASSMOD_MusicLoad Lib "bassmod.dll" (ByVal mem As Short, ByVal pfile As String, ByVal offset As Integer, ByVal Length As Integer, ByVal flags As Integer) As Short
    Private Declare Function BASSMOD_MusicPlay Lib "bassmod.dll" () As Short
    Private Declare Function BASSMOD_MusicStop Lib "bassmod.dll" () As Short
    Private Declare Function BASSMOD_MusicGetPosition Lib "bassmod.dll" () As Short
    Private Declare Function BASSMOD_MusicIsActive Lib "bassmod.dll" () As Short
    Private Declare Function BASSMOD_MusicSetPosition Lib "bassmod.dll" (ByVal Posição As Integer) As Integer
    Private Declare Function BASSMOD_MusicGetLength Lib "bassmod.dll" (ByVal Tamanho As Integer) As Integer
    Private Declare Function BASSMOD_MusicPause Lib "bassmod.dll" () As Short

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BASSMOD_MusicStop()
        BASSMOD_Free()

        BASSMOD_Init(-1, 44100, 0)
        BASSMOD_MusicLoad(0, "C:\keygen.xm", 0, 0, 2 Or 512)

        BASSMOD_MusicPlay()
    End Sub
End Class

tambien seria posible meter el archivo de sonido como archvios de recursos asi no tenes que llevarlo.

saludos.

[Syntax highlight]

Hola, busca en internet codigos de ejemplos de Syntax highlight tenes miles donde poder ingresar en una lista las palabras reservadas y el color que queres a cada una...

saludos.

Hola, mira yo habia hecho uno para visual basic 6, lo publique en este foro, usa la api de youtube para traer los datos del video a descargar y descargar en algunos formatos, pero ya no funciona mas la descarga ya que youtube cambio su forma para descargar el video, y como nunca mas lo actualize...

yo lo comenzaria de cero mirando a fondo la api de youtube, no es dificil, pero tenes que leerla bien, como cualquier api de cualquier sitio.

seguro tenes por ahi paginas que explican todo el proceso para poder descargar el video.

saludos.

si se declara la variable como public funciona, sino no 

[@BlackZeroX:]

@BlackZeroX: con variables no va, pero se puede crear una clase que tenga metodos que cambie los valores de las variables y tengan el mismo nombre los metodos que las variables, el tema es que hay que crear un metodo para cada variable...otra que se me ocurre y no probe si es posible, es manipular ya la variable desde memoria obteniendo la direccion de la variable con StrPtr(nombreVariable) y con alguna api setearle el valor que el pone en el textbox, pero ya se hace mas complicado para algo que creo se puede solucionar mas facil.

agus0 , tendrias que decir para que realmente necesitas hacer esto, para ver si se puede hacer de otra forma.

PD: ojala hubiera estado de parranda, al contrario estuve mas ocupado por eso no entraba.

saludos.