PREGUNTAS CONTESTADAS - Visual Basic.NET

Hay un total de 338 Preguntas.

<< >>

Pregunta:	49330 - AVISO CUANDO ESTE ENCENDIDO EL CAPS LOOK
Autor:	mauricio bolivar
¿CUAL ES EL CÓDIGO PARA QUE UN FORMULARIO ME MUESTRE EL AVISO DE QUE LA TECLA BLOQ MAYUS ESTA ENCENDIDA?

Respuesta:

Alfredo Juez

Ya se que esta contestado con anterioridad, pero me gustaría ampliar un poco el uso de la funcion que nos presentó nuestro compañero:

Public Function EstaEncendidaBloqMayus() As Boolean
' If (GetKeyState(Keys.CapsLock) = 1) Then
' Return True
' Else
' Return False
' End If
' o lo que es lo mismo...
Return GetKeyState(Keys.CapsLock)
End Function

Public Function EstaEncendidoBloqueNumerico() As Boolean
Return GetKeyState(Keys.NumLock)
End Function

Public Function EstaEncendidoBloqueDesplazamiento() As Boolean
Return GetKeyState(Keys.Scroll)
End Function

Un saludo a tod@s

Respuesta:

Eider Mauricio Aristizábal Erazo

'Hola Tocayo,
'El código a continuación se realiza sobre un formulario vacio llamado
'Form1 insertale un boton y llama a la función EstaEncendidaBloqMayus
'a mi me funciona

Imports System.Runtime.InteropServices

Public Class Form1
<DllImport("user32.dll", ExactSpelling:=True)> _
Public Shared Function GetKeyState _
(ByVal nVirtKey As Integer) As Integer
End Function

'Bloq Mayús es la key número 20D
Public Function EstaEncendidaBloqMayus() As Boolean
If (GetKeyState(20) = 1) Then
Return True
Else
Return False
End If
End Function
End Class

'Espero te sirva.
'Saludos a todos!. desde Cali - Colombia

Contestar

Pregunta:	49419 - COPIA DE COLUMNA OCULTA - VISIBLES EN DATAGRID
Autor:	Daniel
Buenas, pues mi duda es que tengo un datagrid creado en el aspx con una columnas en una posición que quiero que en tiempo de ejecución esta cambie de posición. Para tal efecto copio la columna y la añado al final, poniendo a true la propiedad de visible de esta última y a false la de la anteriro, pero al ser una copia ambas tienen la misma propiedad visible, así que no funciona. He probado de crear un nuevo objeto y hacer la copia ahí, para después agregarla al final del datagrid, pero sigue ocurriendo lo mismo. Lo que yo quiero es copiar una columna ya existente al final del datagrid y hacer que sólo esta última sea visible de algún modo. No me interesa crear de nuevo la columna desde 0 ya que esta contiene checks y combos ya rellenados anteriormente. Muchas gracias.

Respuesta:

Eider Mauricio Aristizábal Erazo

Ok, Hazlo pero sin crear una copia.
En el diseñador de formularios haz click derecho sobre la grilla y escoge la opcion generador de propiedades, en el menu columnas inserta una columna enlazada y colocale las mismas propiedades BoundColumn(Texto del Encabezado y Campo de datos) de la otra columna(La que quieres mover al final) y desactivas el check visible

luego en el boton o check que te permitira crear el efecto de mostrar u ocultar la columna escribe este código:
'MOVER es el indice de la columna que quieres ocultar/mostrar
Grilla.Columns(MOVER).Visible = not Grilla.Columns(MOVER).Visible
Grilla.Columns(ULTIMA).visible = not Grilla.Columns(ULTIMA).visible

Contestar

Pregunta:	49496 - BLOQUEAR BOTON INICIO
Autor:	MARIANO MARQUEZ
HOLA ESTOY HACIENDO UN PROYECTO EN EL CUL DEBO BLOQUEAR LA TECLA DE INICIO I NO SE COMO ME GUSTARIA Q ME AYUDARAN TEGO UNA IDEA CON EL KEYCODE PARO NO ENCUENTRO CUAL ES EL VALOR NUMERICO DE LA TECLA GRACIAS

Respuesta:

Dj_Dans

Mira en un formulario nuevo en Visual Basic coloca este codigo y ejecútalo:

Private Const SPI_SCREENSAVERRUNNING = 97&

Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "User32" (ByVal _
hWnd As Long, ByVal fEnable As Long) As Long

Private Sub Form_Load()
' desactiva entrada del ratón
Dim hWnd As Long, RetVal As Long
hWnd = FindWindow("Shell_TrayWnd", "")
If hWnd = 0 Then
MsgBox "No encuentro Shell_TrayWnd"
Exit Sub
End If
RetVal = EnableWindow(hWnd, False)

' desactiva Ctrl-Esc, Ctrl-Alt-Del, etc
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
True, blnOld, 0&)
End Sub

Private Sub Form_Unload(Cancel As Integer)
' activa entrada del ratón
Dim hWnd As Long, RetVal As Long
hWnd = FindWindow("Shell_TrayWnd", "")
If hWnd = 0 Then
MsgBox "No encuentro Shell_TrayWnd"
Exit Sub
End If
RetVal = EnableWindow(hWnd, True)

' activa Ctrl-Esc
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, _
False, blnOld, 0&)
End Sub

EXPLICACIÓN:

Cuando ejecutas el formulario automáticamente desactiva la tecla del botón inicio, y cuando apretas la "X" k trae la ventana para cerrar, se vuelve a Activar el botón inicio.

Espero te sirva.
:D
Salu2

Contestar

Pregunta:	49615 - MOSTRAR Y ACTUALIZAR EN UN MISMO DATAGRID VARIAS TABLAS
Autor:	Freddy Montenegro García
Por favor quiero que me ayuden, estoy realizando un sistema de Control de notas. Quiero mostrar en un mismo Datagrid información de 3 tablas para luego poder actualizar las notas. La tabla ESTUDIANTE tiene atributos Cod_estud(KP), Nombre_estud, Apellidos_estud; la tabla MATRICULAS tiene los campos Num_matricula(KP), cod_estud, epec(kf), curso, etc.; la tabla NOTAS tiene los campos Num_mat(kp), codasig(kp),Aporte11, Aporte12, Aporte13,... y necesito mostrar en una grilla de la siguiente manera: NOMINA APORTE1 APORTE2 APORETE3 .... Almedia Victor 12 15 16 .... Benitez Fanny 18 14 17 ..... Calderón Jorge 14 17 16 ... Para luego poder actulaizar solo las Calificaciones. Por FAvor ayúdenme. Garacias.....

Respuesta:

Eider Mauricio Aristizabal Erazo

Realiza un Query Join de las tres tablas

SELECT e.cod_estud as CODIGO
e.nombre_estud as NOMINA,
n.aporte11 as APORTE1,
n.aporte12 as APORTE2,
n.aporte13 as APORTE3
FROM estudiante e
inner join matricula m on (e.cod_estud = m.cod_estud)
inner join notas n on (m.num_matricula = n.num_mat)

'En el generador de propiedades de la grilla
'agrega las columnas CODIGO, NOMINA, APORTE1, APORTE2, APORTE3
' tambien agrega el boton Editar/actualizar/cancelar

'En el metodo updatecommand de la grilla grdNotas
Private Sub grdNotas_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles grdNotas.UpdateCommand
cod_alumno = e.item.cells(0).text
nombre_alumno = e.item.cells(1).text
nota1 = e.item.cells(2).text
nota2 = e.item.cells(3).text
nota3 = e.item.cells(4).text
actualizarnotas(codigo_alumno, nombre_alumno, nota1, nota2, nota3)

end sub

'dentro de la funcion actualizarnotas debes ejecutar un Query como este
strSQL = "update Notas set Aporte11 = " & nota11
strSQL += ", Aporte12 = " & nota12
strSQL += ", Aporte13 = " & nota3
strSQL += " where cod_alumno = " & codigo_alumno

'Bye espero te sirva
'Saludos desde Cali-Colombia

Contestar

Pregunta:	49668 - COMO PUEDO LIMPIAR LA PAPELERA DE RESICLAJE DESDE VB.NET
Autor:	alexander castillo reyna
hola: tengo un problemita quisiera saber como limpiar la papelera de reciclaje desde el mismo visual.net

Respuesta:	kdlc
Busca en Google por la funcion SHEmptyRecycleBinA Suerte,

Contestar

Pregunta:	49676 - IMPRIMIR GRAFICO
Autor:	luis juarez
Hola a todos, quiera ver si me podrian ayudar, mi problema es que quiero imprimir un grafico que tengo en una form y ya e leido que primero lo tengo que enviar al portapapeles y despues pegarlo en el printpreview pero ese ultimo punto es el que no se como hacerlo, si alguien me podria ayudar en eso o si tienen alguna idea mejor se las agradeceria muchisimo Gracias.

Respuesta:

albe delg

no se bien como es eso del porta papeles pero he tenido q hacer eso q quieres y lo q hago es utilizar las apis de windows... lo q hago es un print screen al form trabajar con la imagen y despues imprimirla...
aqui te mando el ejemplo de la api..

Module pscreen
Private Declare Function CreateDC Lib "GDI32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As IntPtr

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As IntPtr) As IntPtr

'cria um bitmap compatível com o dispostivo associato ao contexto usado.
Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As IntPtr, ByVal nWidth As Integer, ByVal nHeight As Integer) As IntPtr

Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr

Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As IntPtr, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As IntPtr, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer

Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As IntPtr) As Integer

Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As IntPtr) As Integer

Const SRCCOPY As Integer = &HCC0020

Public Function capturaTela() As Bitmap
' ----- pega uma imagem da tela
Dim screenHandle As IntPtr
Dim canvasHandle As IntPtr
Dim screenBitmap As IntPtr
Dim previousObject As IntPtr
Dim resultCode As Integer
Dim screenShot As Bitmap

' ----- Obtém uma referencia para o display.
screenHandle = CreateDC("DISPLAY", "", "", "")

' ----- Crie um canvas que vai servir como uma exibição
canvasHandle = CreateCompatibleDC(screenHandle)

' ----- Crie um bitmap que será tratado como a imagem da tela
screenBitmap = CreateCompatibleBitmap(screenHandle, screen.PrimaryScreen.Bounds.Width, screen.PrimaryScreen.Bounds.Height)

' ----- Copie a imagem da tela para Canvas
previousObject = SelectObject(canvasHandle, screenBitmap)
resultCode = BitBlt(canvasHandle, 0, 0, screen.PrimaryScreen.Bounds.Width, screen.PrimaryScreen.Bounds.Height, screenHandle, 0, 0, SRCCOPY)

screenBitmap = SelectObject(canvasHandle, previousObject)

' ----- encerra
resultCode = DeleteDC(screenHandle)
resultCode = DeleteDC(canvasHandle)

' ----- Copia a imagem para um bitmap .NET.
screenShot = Image.FromHbitmap(screenBitmap)
DeleteObject(screenBitmap)

' ----- encerra
Return screenShot
End Function
End Module
........
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim imagen As New Bitmap(800, 600)
imagen = pscreen.capturaTela
end sub

Contestar

Pregunta:	49707 - MOVER OBJETOS EN TIEMPO DE EJECUCION
Autor:	Oscar Vazquez
hola a todos. Quisiera que alguien de ustedes pudiera ayudarme. Estoy haciendo una aplicacion y necesito que el usuario pueda arrastrar algunos "label" y desencadenar otra accion al arrastrarlos a cierto lugar. en si mi pregunta es ¿¿¿Como se hace para poder mover labels o cualquier objeto en tiempo de ejecucion????

Respuesta:	franco garcia
Lee sobre el evento drag & drop, eso te ayudará mucho. Es fácil de utilizar.

Contestar

Pregunta:	49788 - INDICAR LA BASE DE DATOS DE UN CRYSTAL REPORT EN EJECUCIóN
Autor:	lazaru
Hola! Mi problema es que quiero lanzar un informe de crystal reports desde un formulario en VB .NET pero la base de datos (Access) de la que saca el informe está en una ruta que no se conoce a priori. La ruta viene en un un fichero de configuración que puede cambiar el usuario. Mi pregunta es si hay alguna forma de indicarle al informe dónde tiene que buscar la base de datos Gracias

Respuesta:

Erly Topalaya Ñaupari

no entiendomuy bien tu pregunta pero

si dces que tienes una ruta el cual el usuario lo modifica en cualquiermomento no seria mejor crear un directorio tipo path para que automaticamente busque la BD?

para eso
importas imports system.IO --creas una variable string luego :

dim ruta as string=directory.getCurrentDirectory

----------------------------------------------------------------------------------------------------
para que creas un informe en crystal Report haces:

como ya tienes la conecion a la bd tons de k te preocupas:

usas el objeto crystalreportview

en el form colocas:

dim reporte as "el nombre del crystal report"

nombre del objcrystalreportview x ejem k su nombre sea crvreporte

crvreporte.reportsource=reporte

eso es en el caso que ya tengas un datasource o un dataset

pero sino

dim reporte as "el nombre del crystal report"
reporte.reportsource(DataSet)
crvreporte.reportsource=reporte

crvreporte.selectionformaula={"paramtro en lenguaje SQL"}
||
V
si quieres mandarle parametros

Contestar

Pregunta:	49827 - WINSOCK: DE DONDE LO SACO?
Autor:	Seba Barci
Estuve intentando programar un cliente servidor pero no encuentro el WinSock en el visual.net. Probe Proyecto> Componentes> y luego seleccionar WinSock Control y Aceptar. Pero no esta ahí. ¿hay que bajarlo de algun lado?¿donde lo consigo? un saludo.

Respuesta:	saiet
Los sockets los puedes encontrar en el namespace SYSTEM, de esta forma: system.net.sockets obviamente, tienes que hacer el import del namespace antes de la declaracion de la clase, de la siguiente forma: imports system.net.sockets espero y esto te ayude

Contestar

Pregunta:	49897 - SONIDOS EN VB.NET 2002
Autor:	Pablo Aguirre
¿Cómo puedo hacer para agregar sonidos a un video juego que hice en VB.NET versión 2002? Les agradezco sus comentarios.

Respuesta:	Javier Suero
Hola, Pablo, uso vs 2005 y no tengo un 2002 para probar, pero supongo que te funcionará. Dim reproductor As New System.Media.SoundPlayer reproductor.SoundLocation = "c: utaficheroAudio.wav" reproductor.Play() Un saludo, Javier Suero.

Contestar

|< << 9 10 11 12 13 14 15 16 17 18 19 >> >|