|
62
|
Programación / .NET (C#, VB.NET, ASP) / Dos formas de lanzar aplicación desde sub main
|
en: 26 Abril 2012, 21:09 pm
|
Hola a todos. Tengo dos códigos que compartir, uno el que he usado siempre y otro que vi ayer. Los dos son para iniciar nuestras aplicaciones desde un método sub main, en lugar de que se lance directamente el formulario principal. Public Class principal Public Shared Sub main() Application.EnableVisualStyles() System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("es-ES") Dim formulario As New frmMenu() Application.Run(formulario) Application.ExitThread() Application.Exit() End Sub End Class
Y la mía: Public Class principal Public Shared Sub main() Dim formulario As New frmMenu() formulario.show() End Sub End Class
La segunda es la que siempre he usado... no sé que ventajas puede tener usar el primer código pero supongo que habrá alguna razón por la que los profesionales lo utilizan, a ver si alguien me puede aclarar esa duda. Saludos!
|
|
|
63
|
Programación / .NET (C#, VB.NET, ASP) / Re: No consigo pasar un DataTable a un DataGridView
|
en: 26 Abril 2012, 21:05 pm
|
forecolor y backcolor, ¿verdad? Soy novato, no gilipollas.. jajaja XD Se agradece la ayuda, de hecho fue lo primero que pensé pero no tendría sentido (en ningún momento cambio ningún color), y además si meto un bucle for que recorra el datatable y el grid celda a celda sí funciona... pero queda un código larguísimo y cuando lo vea el jefe me va a mandar a mi casa xD El código que uso no lo tengo aquí, está en la oficina, pero era algo como dReader.ExecuteCommand datos.Load(dReader) 'Ahora hablo de memoria, podría estar poniendo una burrada! XD
Donde dReader era un elemento Data.Reader el dataset datos tiene todos los datos bien cargados, de eso estoy seguro por que usando la forma cutre va bien, y porque con el debugger me salen tb los datos que tienen que salir... Saludos.
|
|
|
64
|
Programación / .NET (C#, VB.NET, ASP) / No consigo pasar un DataTable a un DataGridView
|
en: 26 Abril 2012, 16:30 pm
|
Bueno... pues eso.. Tengo unos datos en un data table y quiero visualizarlos en un DataGridView. Lo que veo por todos lados es esto: grdTiendas.DataSource = datos.DefaultView
Pero lo que hace es si tengo 5 filas en el datatable, me pinta 5 filas pero vacías (aunque con el debugger veo que hay datos en el datatable...) No sé por dónde tirar... Saludos. gracias
|
|
|
65
|
Programación / .NET (C#, VB.NET, ASP) / Re: ¿Rellenar datagrid con datatable/datareader?
|
en: 24 Abril 2012, 14:00 pm
|
me respondo. he hecho esto, pero no sé si es muy correcto: While dRead.Read i += 1 grdAutores.Rows.Add() grdAutores.Item("au_id", i).Value = dRead.Item("au_id").ToString() grdAutores.Item("au_fname", i).Value = dRead.Item("au_fname").ToString() grdAutores.Item("au_lname", i).Value = dRead.Item("au_lname").ToString() grdAutores.Item("city", i).Value = dRead.Item("city").ToString() End While
|
|
|
66
|
Programación / .NET (C#, VB.NET, ASP) / ¿Rellenar datagrid con datatable/datareader?
|
en: 24 Abril 2012, 13:48 pm
|
Hola, buenas. Tengo dos dudas: la primera es si es mejor usar un datatable o un datareader para rellenar un datagrid... Y la segunda es cómo se hace. Este es mi formulario. pero no encuentro la forma de meter en mi datagrid los datos que he recuperado de la consulta... Public Class frmAutores Sub New() InitializeComponent() Dim conexion As String = "server=server; user id=user; Password=pass; Initial Catalog=library;" Dim cnn As New Data.SqlClient.SqlConnection(conexion) Dim cmd As New Data.SqlClient.SqlCommand("select au_id, au_fname, au_lname, city from authors", cnn) 'Dim dt As New Data.DataTable Dim dRead As Data.SqlClient.SqlDataReader = Nothing Try cnn.Open() dRead = cmd.ExecuteReader While dRead.Read End While Catch ex As Exception MessageBox.Show(ex.Message) Finally If Not dRead Is Nothing Then dRead.Close() End If cnn.Close() cnn.Dispose() cmd.Dispose() End Try End Sub End Class
Gracias, saludos
|
|
|
69
|
Media / Multimedia / .vob a algún formato común ?
|
en: 17 Abril 2012, 19:29 pm
|
Hola, ¿qué tal? Bueno,os comento por encima... tuve que hacer un trabajo para la uni haciendo una grabación de vídeo y mi cámara graba bastante raro... os pongo una captura de lo que ha hecho: Cuando meto el CD, automáticamente me salta una pantalla de presentación en la que puedo elegir entre todos los vídeos que he grabado (como solo grabé uno, me sale uno). Supongo que el vídeo bueno es el penúltimo archivo porque es el que más ocupa, pero cuando lo abro con cualquier cosa q no sea con VLC se ven solo los 8 primeros segundos. Con el VLC se ve bien, pero donde pone el tiempo no lo coge bien, y además a saber qué reproductor tiene el profesor, o si lo mirará en casa, etc... ¿ayuda para pasarlo a avi, mpeg, o lo que sea que seguro que se pueda visualizar sin problemas? GRACIAS
|
|
|
70
|
Programación / .NET (C#, VB.NET, ASP) / Recorrer ListBox con ForEach y posicionarme
|
en: 17 Abril 2012, 17:09 pm
|
Hola a todos, ¿qué tal? Bueno, os cuento. Tengo un formulario que tiene una lista de clientes en una ListBox que contiene items de una clase mía que he llamado Cliente. Tengo una función buscar que busca clientes repetidos para actualizar o insertar uno nuevo según el caso. Este es el framento de código: Public Sub actualizar() If validar() Then Dim posicion As Integer = 0 Dim nombre As String = txtNombre.Text Dim apellidos As String = txtApellidos.Text Dim mandarInformacion As Boolean = chkMandarInformacion.CheckState Dim analizarRiesgo As Boolean = chkAnalizarRiesgo.CheckState Dim direccion As String = txtDireccion.Text Dim codigoPostal As String = txtCodigoPostal.Text Dim persona As Cliente = New Cliente(nombre, apellidos, mandarInformacion, analizarRiesgo, direccion, codigoPostal) If Not buscarCliente(persona, posicion) Then lstListaDeClientes.Items.Add(persona) lstListaDeClientes.SelectedIndex = lstListaDeClientes.Items.Count - 1 Else lstListaDeClientes.Items.Item(posicion) = persona End If End If End Sub Public Function buscarCliente(ByVal persona As Cliente, ByRef i As Integer) As Boolean Dim ok As Boolean = False For Each cli As Cliente In lstListaDeClientes.Items If persona.apellidos.Trim.Equals(cli.apellidos.Trim) AndAlso persona.nombre.Trim.Equals(cli.nombre.Trim) Then ok = True lstListaDeClientes.SelectedItem = cli Exit For End If i += 1 Next 'For i = 0 To lstListaDeClientes.Items.Count - 1 ' If lstListaDeClientes.Items.Count > 0 Then ' lstListaDeClientes.SelectedIndex = i ' End If ' If persona.apellidos.Trim.Equals(lstListaDeClientes.Items.Item(i).apellidos.Trim) _ ' AndAlso persona.nombre.Trim.Equals(lstListaDeClientes.Items.Item(i).nombre.Trim) Then ' ok = True ' Exit For ' End If 'Next Return (ok) End Function
pero al que manda se le ha puesto entre ceja y ceja 1º que use for each en lugar del for y después que me cargue la i... y no sé hacerlo sin ella... ¿ayuda? Gracias.
|
|
|
|
|
|
|