Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| 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 | |
| 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 | |
| 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 | |
| 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 | |
| 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, | |
| 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 | |
| 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. | |
| 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 | |
| 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 | |
| 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. | |
| |< << 9 10 11 12 13 14 15 16 17 18 19 >> >| |
