|
861
|
Programación / .NET (C#, VB.NET, ASP) / Re: como creo archivos de texto en viusal 2005
|
en: 14 Octubre 2007, 16:44 pm
|
Bueno el error radica en que el import esta en el lugar equivocado, lo correcto deberia de ser asi: Imports system.IO Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 End Class
|
|
|
862
|
Programación / .NET (C#, VB.NET, ASP) / Re: como creo archivos de texto en viusal 2005
|
en: 14 Octubre 2007, 04:43 am
|
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.
|
|
|
864
|
Programación / .NET (C#, VB.NET, ASP) / Re: Elegir entre C++ o C#
|
en: 12 Octubre 2007, 04:19 am
|
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.
|
|
|
866
|
Programación / .NET (C#, VB.NET, ASP) / Re: como creo archivos de texto en viusal 2005
|
en: 11 Octubre 2007, 18:15 pm
|
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
|
|
|
867
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema con Label
|
en: 11 Octubre 2007, 07:14 am
|
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.
|
|
|
868
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿como almacenar el resultado de una query en una variable?
|
en: 11 Octubre 2007, 06:35 am
|
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.
|
|
|
870
|
Programación / .NET (C#, VB.NET, ASP) / Re: Problema con Label
|
en: 9 Octubre 2007, 23:47 pm
|
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)
|
|
|
|
|
|
|