PREGUNTAS CONTESTADAS - Visual Basic.NET

 Hay un total de 338 Preguntas.<<  >> 

    Pregunta:  63819 - COMO CREAR UNA TABLAS EN SQLSERVER A TRAVES VISUAL.NET?
Autor:  Felipe
quisiera saber como puedo crear una tabla en sql server a traves de codigo en visual.net 2005
  Respuesta:  Rafael Yzarra
Lo que debes de hacer, es crear un Store Procedure en el cual, se especifiquen cada una de las columnas con el tipo de datos de cada una de ellas.

IMPORTANTE: recordar el utilizar los bloques de manejo de transacciones BEGIN TRAN
...
COMMIT TRAN | ROLLBACK TRAN

...con el fin de prevenir cualquier dificultad al momento de ejecutarse el código.
Otro detalle importante: Especificar al crear la tabla, el Schema, el Owner y cualquier dato que identifique a la tabla a crear.
El código, dependerá de tu estilo de como programar. SUERTE!!!!

    Pregunta:  63961 - OBTENER RESULTADOS EN OPERACION CON MAXIMO DE 2 DECIMALES
Autor:  Miguel Angel Tahay Higueros
Estoy desarrollando una aplicacion, pero cuando quiero realizar un calculo matematico en donde quiero que el resultado tenga como maximo 2 digitos (decimales) me da el siguiente problema,
ejemplo: quiero realizar la siguiente multiplicacion
cuando utilizo el tipo de datos Integer, me da como resultado
123.55 * 12.43 = 1535
cuando utilizo el tipo de datos double, me da como resultado
123.55 * 12.43 = 1535.7265
Idem cuando utilizo tipo de datos Decimal
La pregunta es, como puedo hacer para que el resultado de este tipo de calculo matematico me muestre solamente 2 decimales (1535.73)
Le agradesco al que me pueda apoyar en esto
Saludos
  Respuesta:  Sandra Fernández Pérez
Hola,
¿has probado a hacer un redondeo a 2 decimales una vez realizado el cálculo con tipos Decimal? (Integer sólo trabaja con el valor entero)
Prueba con
Math.Round (número, 2)
donde número será 1535.73 (en el ejemplo).

Un saludo,

    Pregunta:  63963 - ERROR CON IMAGELIST
Autor:  FABIAN PA
Hola, estoy realizando una aplicación, ya la tengo bastante avanzada y hasta el día de hoy no me había salido este problema. A ver si alguien me pudiera ayudar:

Tengo 2 imagelist en un formulario, uno para imágenes chicas y otro para medianas, el caso es que si intento añadir una imagen más al imagelist o añadir otro imagelist me da un error al intentar crear el formulario que pone:

Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: Índice fuera de los límites de la matriz.

Ese error sale al hacer show para el formulario FrmGestionResidentes. Si quito las imágenes que he metido tira perfectamente, si las añado en alguno de los imagenlist ya existentes o en uno nuevo da error. Los imagelist existentes tienen 3 y 5 imágenes, así que no creo que sea porque haya excedido el número de imágenes permitidas.

Si por el contrario intento poner una imagen de la biblioteca, en vez a través del imagelist, tampoco la muestra, aunque no da error.

No es problema de las imágenes porque he probado con otras que ya tengo añadidas en otro formulario.

Uso Visual Studio 2008 con Windows XP.

Gracias de antemano!.
  Respuesta:  Daniel RM
A mí me ha pasado lo mismo.

Encontré lasolución.

Menú Generar - Limpiar Solución
Menú Generar - Volver a generar la solución

Yo tengo studio 2005, pero pienso que puede funcionar.

Al parecer, el compilado a veces no almacena todas las imágenes y por eso cuando el código de depueración se ejecuta no encuentra la imagen nueva y marca el error de los límites de la matriz.

Saludos.

    Pregunta:  64409 - MOSTRAR TEXBOX O LABEL AL PASAR EL MOUSE POR IMAGEN
Autor:  OSWALDO CONTRERAS
Estoy diseñando una pequeña aplicación en visual.net y tengo cargadas las unas imágenes en el formulario. deseo que al pasar el el puntero del muose por encima de las imagenes estas me desplieguen un textbox o label que se encuentra oculto y me muestre en el un comentario acerca de la imagen que tengo en ese momento.

amigos programadores de antemano muchas gracia
  Respuesta:  Abel M. Montalvo
Hola


Tiene que agregar por cada imagen un evento como el siguiente

Private Sub PictureBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles PictureBox1.MouseHover
TextBox1.Text = "Aqui tu comentario"
End Sub


Un saludo
Abel M.

    Pregunta:  64436 - GUARDAR UN FORMULARIO MODIFICADO EN TIEMPO DE EJECUCION
Autor:  Daniel Vazquez
Esoty trabajando en un proyecto donde genero una ventana con varios controles que puedo mover, agregar, eliminar y modificar su posicion y tamano, todo esto ya tengo un avance.
El problema que tengo ahora es, no encuentro la manera de guardar la ventana modificada y usarla tal cual la deje modificada, solo la puedo abrir como la cree desde el diseno.

Alguna sugerencia es muy bienvenida, de antemano muchas gracias
  Respuesta:  Abel Montalvo
Lo que ves en la vista diseño realmente es un archivo que guarda la una clase parcial con el mismo nombre del formulario, al compilar o corres este archivo es unificado en un archivo .exe, esta algo raro lo que quieres hacer.

Lo que puedes hacer es para que guarde los cambio modificacados del formulario se salven en un XMl u otro archivo. Al momento de correr la aplicacion buscas este archivo que creaste y aplicas los cambios en las propiedades...

Saludos

    Pregunta:  64615 - RECORRER GRIDVIEW Y CAMBIAR COLOES DE CELDAS
Autor:  Gustavo
hola mi problema es que en un gridview donde inserto el porcentaje propuesto de un pryecto y el avance real, y quiero que si el avance real es menor al prpuesto cambie de color la celda (o se su defecto el texto) espero que alguien me pueda ayudar Gracias!!!
  Respuesta:  abel montalvo
Hola compañero
Espero y te sirva
un saludo
Agrega un DataGridView as un Form en un proyecto nuevo y pega esto

Public Class Form1

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged

Try
Dim AvanceReal As Integer = Integer.Parse(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)
Dim AvancePropuesto As Integer = 80
If AvanceReal < AvancePropuesto Then
Dim CellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
CellStyle.BackColor = Color.Red
CellStyle.ForeColor = Color.Blue
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style = CellStyle
Else
Dim CellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
CellStyle.BackColor = Color.Green
CellStyle.ForeColor = Color.Black
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style = CellStyle
End If

Catch ex As Exception
'Entrara en dado caso que la celda =""
Dim CellStyle As DataGridViewCellStyle = New DataGridViewCellStyle
CellStyle.BackColor = Color.White
CellStyle.ForeColor = Color.Black
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style = CellStyle
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet = New DataSet("DS")
Dim dt As DataTable = New DataTable("dt")
dt.Columns.Add(New DataColumn("AvanceReal", GetType(String)))
dt.Columns.Add(New DataColumn("AvancePropuesto", GetType(String)))
dt.Rows.Add("", 90)
dt.Rows.Add("", 80)
dt.Rows.Add("", 70)
dt.Rows.Add("", 50)
'ds.Tables.Add(dt)
DataGridView1.DataSource = dt



DataGridView1.Columns(1).ReadOnly = True

End Sub
End Class

    Pregunta:  64945 - PROBLEMA EN CARGA DE FOTOS EN UNA APLICACION
Autor:  Almu .Net2010
Buens días.

Tengo una dudilla, os comento:
Estoy haciendo una aplicación Windows Form y quiero que el administrador de la aplicación pueda hacer carga de fotos y meterlo en un directorio ya creado, para luego que se visualizen en la parte publica de la aplicación.
Estoy utilizando esto:
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "Cursor Files|*.*"
saveFileDialog1.Title = "Select a Cursor File"


Try
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
If saveFileDialog1.FileName <> "" Then
Me.Cursor = New Cursor(saveFileDialog1.OpenFile())
End If
End If
Catch ex As Exception

MsgBox(ex.Message)
End Try

Pero no se como indicarle que lo guarde en una ruta fija de la aplicación.

¿Me pideis ayudar?

Muchas graciasssssssssssssssssssss:)
  Respuesta:  Dark_zen arias
lo que yo sepa para copiar un archivo del cual sea la extencion debes de tener la ruta de origen y la ruta de destino incluyendo el nombre...

primero cargas el archivo(ruta) con un openfiledialog en mic aso la almaceno en "Ls_Pic"

Try
With OpenFileDialog1
.Filter = "Archivos PDF (*.pdf)|*.pdf|Documentos de Word (*.doc)|*.doc|Archivos JPG (*.jpg)|*.jpg|Todos los archivos (*.*)|*.*"
.InitialDirectory = "C:"
.Title = "Abrir Documento"
.FileName = ""
If (.ShowDialog = Windows.Forms.DialogResult.OK) Then
Ls_Pic = .FileName
End If
End With
Catch ex As Exception
MsgBox("Error en la ubicacion de foto ", MsgBoxStyle.Critical)
End Try
Label28.Text = Ls_Pic

y luego la guardo donde yo quiera... por ejemplo una ruta pre definida claro lo mas logico seria que la ruta este en un archivo ini o un xml
algo como esto

'CONFIGURACIONES
Dim Xml As XmlDocument
Dim NodeList As XmlNodeList
Dim Node As XmlNode

Xml = New XmlDocument()
Xml.Load(SYSSOURCE.S_APP & "FLsys.xml")
NodeList = Xml.SelectNodes("/conf/AppConfig")

For Each Node In NodeList
With Node.Attributes
If .GetNamedItem("Name").Value <> "Default" Then
SYSNAME = .GetNamedItem("Title").Value
SYSTEM_FOLIO_OBT = CUShort(.GetNamedItem("Archivo").Value)
SYSTEM_FOLIO_NAME = .GetNamedItem("Url").Value
SYSSOURCE.S_DB = .GetNamedItem("DB").Value
SYSVERSION = .GetNamedItem("Vers").Value
SYSSOURCE.S_TEMP = .GetNamedItem("Templates").Value
SYSSOURCE.S_SERVER = .GetNamedItem("Server").Value
SYSSOURCE.S_RECURSES = .GetNamedItem("Recourses").Value
SYSSOURCE.S_PHOTOGRAFIC = .GetNamedItem("Photografic").Value
SYSUSUARIO.KEY.PERMISO = CBool(.GetNamedItem("Usbkey").Value)
Else
Exit Sub
End If
End With
Next

y finalmente el procedimiento para copiar los archivos ..

Function Function_FILE_COPY(ByVal SOURCE As String, ByVal DESTINATION As String) As Boolean
Try
System.IO.File.Copy(SOURCE, DESTINATION, True)
Return True
Catch ex As Exception
Return False
End Try
End Function


la carpeta de destino debe de estar totalmente habilitada para poder crear archivos en entorno de red local

    Pregunta:  65227 - SUBIR ARCHIVO A SKYDRIVE
Autor:  Alejandro Diaz Torres
Alguien sabe como poner subir un archivo, desde visual basic, a una cuenta de skydrive?

Gracias.
  Respuesta:  alejandro diaz torres
Nada, he visto por ahí que no se puede, debido a que estos servidores utilizan links dinámicos para las carpetas, y pocos servidores dejan acceder a sus espacios mediante ftp.... o al menos eso entiendo

    Pregunta:  65236 - BUSCAR EN LISTBOX
Autor:  Alejandro Diaz Torres
Hola, tengo unos códigos que me sirven para buscar items de un listbox, mientras lo voy escribiendo en un textbox y que los items que tengan las palabras escritas en el textbox salgan en otro list. El codigo es este:

ListBox2.Items.Clear()
Dim listLength As Integer = (ListBox1.Items.Count - 1)
Dim i As Integer
Dim listString As String
For i = 0 To listLength
listString = ListBox1.Items.Item(i)
If InStrRev(listString.ToLower, TextBox4.Text.ToLower) Then
ListBox2.Items.Add(listString)
End If
Next
listString = Nothing

El problema es que si tengo una lista que es: España, América, y Inglaterra, y pongo la letra e en el textbox, tendrían que salir los tres, pero me salen solo España e Inglaterra. El problema es que no me distingue los acentos. Hay alguna forma para que aunque escriba sin acentos lo encuentre?

Gracias
  Respuesta:  abel montalvo
Creo es mas complejo de lo que parece igual espero y te ayude
un saludo


ListBox2.Items.Clear()
If TextBox1.Text.Trim <> "" Then
For Each elemento In ListBox1.Items
Dim palabra As String = elemento.ToString.ToUpper
Dim palablra2 As String = ""
For Each letra In palabra
Dim l As Char = letra
If letra = "Á" Then
l = "A"
ElseIf letra = "É" Then
l = "E"
ElseIf letra = "Í" Then
l = "I"
ElseIf letra = "Ó" Then
l = "O"
ElseIf letra = "Ú" Then
l = "U"
End If
palablra2 += l
Next
If palablra2.Contains(TextBox1.Text.ToUpper) Then
ListBox2.Items.Add(elemento.ToString)
End If
Next
End If

    Pregunta:  65579 - COMO PONERLE STILO AL BUTTON?
Autor:  Areon david
necesito que me ayuden a programar o a diceñar un button asi
como los del msn el que contiene los emoticons tiene un efecto

sunpongamos asi s = [ s ] con el maus le da otro efecto un button que se paresca al de ares asi como ese o como los botones que tiene el block de notas esos efectos

ayudenme!!!
  Respuesta:  Daniel Jasso
como el block de Notas.... es un menu
del cuadro de herramientas seleccionas la Herramienta MenuStrip, lo arrastras al formulario que deseas y vas agregando las opciones
del menu que pueden ser
-Item Menu
-combobox
-Separador (dibuja una linea)
-cuadro de texto

Al agregar un item al Menu das click en el item y vas haciendo subMenus
y puedes hacer mas sub menus de menus etc..

para los accesor Rapidos ctr + s te vas a la ventana de propiedades
y en la pestaña de Varios en la propiedad ShorcutKey puedes programar el acceso rapido ejemplo ctrl + S en el sub menu SALIR

si quieres que abran otras cosas puedes hacer que llamen otros formularios o cuadros de dialogo

No se si es mas o menos lo que estabas buscando espero te sirva o te de una idea de lo que deseas..

el combo box pues te puede desplegar una lista de cosas..

Saludos

|<  <<  24 25 26 27 28 29 30 31 32 33 34  >>  >|