Mensajes

Recuerda que antes tienes que importar la clase

Imports System.IO

si lo haces correctamente no tiene porque haber ningun error. Lo del Form_Load es porque yo lo hice que el bloque de codigo se ejecute al cargarse el formulario, claro que tu lo pondras en el Button_click o cuando lo necesites.

Piensa bien lo que vas hacer.

Ahahaha, supongo que por ser un lector de dvd tambien puede grabar verdad¿?
aunque no seria mejor comprar un DVD ROM, independientemente.¿¿?¿?

E usado ambos pero prefiero el C++ (no .net)

En el futuro, te lo vas a tragar te guste o no.
jejejje

Esto es así.

Nunca dije que no lo usara, dije que preferia el c++. E usado y actualmente uso el C#,  tiene muchos beneficios nadie lo niega, el C# es el hermano gemelo del VB, solo cambia la sintaxis, es una de las manias que tienen los de microsoft ademas tambien de la mania que tienen de sacar version tan rapidamente.

E usado ambos pero prefiero el C++ (no .net)

Imports System.IO
Form_load(.....)
        Dim strStreamW As Stream
        Dim strStreamWriter As StreamWriter
        Dim FilePath As String = "C:\nombreArchivo.txt"
        'Se abre el archivo y si este no existe se crea
        strStreamW = File.OpenWrite(FilePath)
        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)
        strStreamWriter.WriteLine("Hola este es el texto de pueba")
        strStreamWriter.Close()
end sub

Muy bien, entonces vamos a ver como le hacemos: hacemos unas pruebas con el label, y veamos cuantos pixeles ocupa una fila y una columna dentro del label, creamos un nuevo proyecto agregamos un label, un textbox, un boton y en el evento load, ponemos lo siguiente:

label1.text ="a"
msgbox label1.width 'con eso sabemos que un caracter ocupa 13 pixeles luego lo eliminas

Bueno entonces si tu deseas que tu width sea de 200px, hagamos lo siguiente en el evento click del boton.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim txt As String = TextBox1.Text 'se recupera la cadena
        Dim pix As Integer = 13 'cantidad que ocupa un caracter en pixeles
        Dim a As Integer = txt.ToString.Length 'total de caracteres de la cadena
        Dim tperm As Integer = 200 / pix 'numero de caracteres por fila
        Dim b, c As Integer 'contador
        c = 1
        Dim aux As String 'variable temporal que tomara los valores de cada fila
        For b = 0 To a - 1
            If c = tperm Then
                Label1.Text = Label1.Text & Chr(13) & aux
                aux = ""
                c = 1
            Else
                aux = aux & txt.ToString.Substring(b, 1)
                c = c + 1
            End If
        Next
    End Sub

Quizas eso funcione, saludos.

Bueno yo lo haria de la siguiente forma:
Si lo que quieres es obtener el numero de fila, has lo siguiente:

Dim conAs String = "data source=WINDOWS-ERWL836\SQLEXPRESS;initial catalog=benja;integrated security=true"
dim da as sqldataadapter
dim dtb as data.datatable
function retornavalor(byval fila as integer) as string
  da = new sqldataadapter("SELECT cod,nombre FROM benja ORDER BY cod",con)
  dtb = new data.datatable
  da.fill(dtb)
  dim nombre as string = dtb.rows(fila)("nombre").tostring
  return nombre
end function

sub load_form......
  msgbox retornavalor(1)
end sub

Espero te sea util.

Crea una funcion y retorna el tipo de dato:

Bueno no entiendo muy bien la pregunta, seria bueno que expliques bien que es lo que deseas para poder ayudarte, saludos.

Haber si entendi bien lo que quieres es que cuando le mandes una cadena a un label y esta se pasa de un width especifico, se debe de saltar a la siquiente linea dentro del label, y asi sucesivamente ¿?, es esto correcto ¿?, no se si haya una propiedad que haga posible esto, con un chr(13) deberia de funcionar

label1.text = "cadena1" & chr(13) & "cadena2)

Bueno yo creo que hay muchos buenos como tambien los hay malos y tambien estan los pesimos.
Creo que sobre todos sobre salen 2:
1) McAffe
2) Nod32