Quantcast
Channel: Canal Visual Basic
Viewing all 1863 articles
Browse latest View live
↧

Guardar un formulario en tiempo de ejecución.

August 13, 2013, 4:22 am
$
0
0
Hola compañeros.

Tengo una duda, estoy realizando un panel SCADA con VB. La creación de todos los controles la realizo en tiempo de ejecución, hasta este punto he conseguido realizar todo. Ahora la idea es dotar al panel de dos botones, uno de guardar y otro de cargar, de tal manera que si pulsas el primero, consigas guardar el estado de todos los controles con todas sus características, para que en el momento que pulses cargar, te aparezca el formulario como lo habías guardado.

Alguien sabe como guardar el estado de un formulario en tiempo de ejecución?

muchas gracias y espero vuestra respuesta.
↧
Search

Arrastrar, copiar y mover un picture box dentro de otro picture box

August 13, 2013, 7:41 am
$
0
0
Que tal comunidad, aqui solicitando su ayuda para el siguiente problema. Tengo una serie de pictures box en un panel y al arrastrar cualquiera de ellos hacia otro picture box que sirve como contenedor este se copia, el incoveniente es que quisiera saber como mover este picture box que se copia dentro de los limites del otro picture box que sirve como contenedor, he utilizado los eventos Mouse_Move, Mouse_Up y Mouse_Down, pero solo consigo mover el formulario completo y no el picture box que se copia. La idea principal de esto es acerca de un módulo en donde se carga una imagen que sirve como mapa y poder colocarle imagenes que representen ciertos puntos del mapa. Espero puedan ayudarme...



el código es:

public partial class PerformedRouteMapForm2 : Form
{
public PerformedRouteMapForm2()
{
InitializeComponent();
Image img = Image.FromFile(@"C:\Users\rlopez.SERVIDOR\Document s\Visual Studio 2008\Projects\GuardNetOutline\GuardNetOutline\Reso urces\GuardMap.png");
this.pictureBoxGuard.Image = img;
this.pictureBoxGuard.MouseDown += new System.Windows.Forms.MouseEventHandler(this.pictur eBoxGuard_MouseDown);
Image img2 = Image.FromFile(@"C:\Users\rlopez.SERVIDOR\Document s\Visual Studio 2008\Projects\GuardNetOutline\GuardNetOutline\Reso urces\RedCircle.png");
this.pictureBoxRedCircle.Image = img2;
this.pictureBoxRedCircle.MouseDown += new System.Windows.Forms.MouseEventHandler(this.pictur eBoxRedCircle_MouseDown);
Image img3 = Image.FromFile(@"C:\Users\rlopez.SERVIDOR\Document s\Visual Studio 2008\Projects\GuardNetOutline\GuardNetOutline\Reso urces\GreenCircle.png");
this.pictureBoxGreenCircle.Image = img3;
this.pictureBoxGreenCircle.MouseDown += new System.Windows.Forms.MouseEventHandler(this.pictur eBoxGreenCircle_MouseDown);
Image img4 = Image.FromFile(@"C:\Users\rlopez.SERVIDOR\Document s\Visual Studio 2008\Projects\GuardNetOutline\GuardNetOutline\Reso urces\BlueCircle.png");
this.pictureBoxBlueCircle.Image = img4;
this.pictureBoxBlueCircle.MouseDown += new System.Windows.Forms.MouseEventHandler(this.pictur eBoxBlueCircle_MouseDown);
this.pictureBoxMapContent.AllowDrop = true;
this.pictureBoxMapContent.DragDrop += new System.Windows.Forms.DragEventHandler(this.picture BoxMapContent_DragDrop);
this.pictureBoxMapContent.DragEnter += new System.Windows.Forms.DragEventHandler(this.picture BoxMapContent_DragEnter);
}





private void pictureBoxGuard_MouseDown(object sender, MouseEventArgs e)
{
PictureBox picgm = (PictureBox)sender;
picgm.DoDragDrop(picgm.Image, DragDropEffects.Copy);
}

private void pictureBoxRedCircle_MouseDown(object sender, MouseEventArgs e)
{
PictureBox picrc = (PictureBox)sender;
picrc.DoDragDrop(picrc.Image, DragDropEffects.Copy);
}

private void pictureBoxGreenCircle_MouseDown(object sender, MouseEventArgs e)
{
PictureBox picgc = (PictureBox)sender;
picgc.DoDragDrop(picgc.Image, DragDropEffects.Copy);
}

private void pictureBoxBlueCircle_MouseDown(object sender, MouseEventArgs e)
{
PictureBox picbc = (PictureBox)sender;
picbc.DoDragDrop(picbc.Image, DragDropEffects.Copy);
}

private void pictureBoxMapContent_DragDrop(object sender, DragEventArgs e)
{
PictureBox pbmc = (PictureBox)sender;
Graphics g = pbmc.CreateGraphics();
g.DrawImage((Image)e.Data.GetData(DataFormats.Bitm ap), new Point(0, 0));
}

private void pictureBoxMapContent_DragEnter(object sender, DragEventArgs e)
{
if (e.Data.GetDataPresent(DataFormats.Bitmap))
{
e.Effect = DragDropEffects.Copy;
}
else
{
e.Effect = DragDropEffects.None;
}
}

private void buttonOpenImage_Click(object sender, EventArgs e)
{
OpenFileDialog opfImagen = new OpenFileDialog();
opfImagen.Filter = "Archivos de Imagen(*.jpg,*.png,*.bmp.,*.gif)|*.jpg;*.png;*.bmp ;*.gif";
opfImagen.FileName = "";
opfImagen.Title = "Cargar imagen";
opfImagen.InitialDirectory = "C:\\";

if (opfImagen.ShowDialog() == DialogResult.OK)
{
string direccion = opfImagen.FileName;

this.pictureBoxMapContent.ImageLocation = direccion;

pictureBoxMapContent.SizeMode = PictureBoxSizeMode.StretchImage;
}
}
}
↧
↧

Ayuda con visor PDF

August 13, 2013, 8:14 am
$
0
0
wenas!!!

Necesito poder visualizar en un formulario un pdf, pero sin usar el componente ACROPDF.
Necesitaria un visor que sea lo mas basico posible, me refiero a que no tenga ninguna barra de herramientas para editar y/o imprimir. Solo que se visualize el pdf.
agradezco si me pueden dar una mano.

Saludos;)
↧

Compañero para desarrollar un juego de rol

August 13, 2013, 9:12 am
$
0
0
Hola, bueno la idea es la del título. Crear un juego de rol parecido en lo más posible al Argentum Online. Ya empecé hace unas semanas y ya tengo la parte de logeo(Conexion entre Cliente-Servidor, usando sql server 2008 como base de datos), la interface del juego, etc.

Estoy por empezar a desarrollar toda la parte de la lógica del juego: movimiento de personajes, movimiento de bichos, ataques, dibujar pantalla del cliente con la porción del mapa donde se encuentra su personaje, etc, etc, etc.

Voy a estar usando XNA anexado con Visual Basic, XNA para desarrollar todo lo que es la parte de redibujado, que creo es la mejor opción. Asi que cualquiera que tenga idea o tenga ganas de tirarme ideas o ayudarme podría hacerlo.

Espero haber sido claro, cualquiera que se sienta interesado puede hablarme. Saludos! Y espero no haber desordenado el foro con este posteo, es que acabo de registrarme. Así que perdón de antemano.
↧

filtrar 2 campos con recordset.filter

August 13, 2013, 9:21 am
$
0
0
hola, soy nuevo en este foro.
van pocos meses que practico vb6.
baje un codigo de un buscador con 1 campo de texto y funciona; pero quiero intentar modificarlo usando 2 campos pero me sale error de argumento incorrecto.
abajo esta el codigo:

[ highlight=vb]
Private Sub Text1_Change()
On Error GoTo error_Handler
With Adodc1
If Text1 <> "" Then
' -- Fltrar por el campo especificado en Combo1
'.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'"
'.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'"
'.Recordset.Filter = "Combo1" & " LIKE '*" + Text1 + "*'" And "Combo22" & " LIKE '*" + Text2 + "*'"
' -- Enlazar el Grid con el recordset
.Recordset.Filter = "Objeto1" & " LIKE '*" + Text1 + "*'" & "AND" & "Objeto2" & " LIKE '*" + Text2 + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
Else
' Limpiar el Filtro
.Recordset.Filter = ""
End If
' -- Refrescar el control ADO
.Refresh
End With
Exit Sub
' -- errores
error_Handler:
' -- Este error se produce al buscar en un campo que no existe
If Err.Number = 3265 Then
MsgBox "el campo seleccionado no es válido", vbCritical
Else
MsgBox Err.Description, vbCritical
End If
End Sub
[/highlight]

alguien me puede ayudar?
gracias de antemano.
saludos.
↧
↧

duda comando shellexecute

August 13, 2013, 10:39 am
$
0
0
Tengo un problema.

Necesito abrir un pdf con un determinado programa pero sin tener q asociar dicho programa a la apertura de pdfs.
intente usar el comando ShellExecute pero no me funciono.
Mi duda es como hago en VB6 para pasando el path del archivo y el path del programa abrir dicho archivo con ese programa.
Espero haber sido claro.

Saludos
↧

¿ Se puede hacer esta consulta de fechas ?

August 13, 2013, 3:47 pm
$
0
0
Hola, quiero hacer una consulta en vbnet de un intervalo de fechas. Quiero que me diga tal como lo siguiente:

Function sTiempo(dInicio As Date, dFin As Date) As String
sTiempo = Str((DateDiff("s", dInicio, dFin) \ 86400) Mod 365) & " días, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24) & " horas, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60) & " minutos, "
sTiempo = sTiempo & Str(DateDiff("s", dInicio, dFin) Mod 60) & " segundos."
End Function

Lo que hace es calcular la diferencia en segundos y después ajustarla a dias, horas...

p.e. Imaginemos que en un TextBox (Text1) tienes una fecha en este formato "25/07/2007 15:00:00" y en otro (Text2) lo siguiente "26/07/2007 17:25:32"

Si haces una llamada a la función así:
Variable = sTiempo(Text1, Text2)
retornará la cadena "1 días, 2 horas, 25 minutos, 32 segundos."

Pero yo quiero que el intervalo me diga los meses, semanas y días.
Por ejemplo del 01/03/2013 al 10/04/2013 y me diga que hay 1 MES, 1 SEMANA y 3 DÍAS.

¿Se podría hacer?
↧

Ayuda porfavor

August 14, 2013, 10:50 am
$
0
0
Hola amigos del foro necesito ayuda porfavor


como puedo validar que se aya enviado el mensaje y me lo informe este es el codigo q utilizo para enviar el mensaje, urgente!!!!!!.

Código:
MSComm1.Output = "AT+CMGF=1" & vbCrLf
    Sleep (300)
    MSComm1.Output = "AT+CMGS=" & Chr(34) & "9999411548 "& Chr(34) & vbCr
    MSComm1.Output = "Hola enviar sms" & Chr(26) & vbCr
↧
Search

Compañero para desarrollar un juego de rol

August 13, 2013, 9:12 am
$
0
0
Hola, bueno la idea es la del título. Crear un juego de rol parecido en lo más posible al Argentum Online. Ya empecé hace unas semanas y ya tengo la parte de logeo(Conexion entre Cliente-Servidor, usando sql server 2008 como base de datos), la interface del juego, etc.

Estoy por empezar a desarrollar toda la parte de la lógica del juego: movimiento de personajes, movimiento de bichos, ataques, dibujar pantalla del cliente con la porción del mapa donde se encuentra su personaje, etc, etc, etc.

Voy a estar usando XNA anexado con Visual Basic, XNA para desarrollar todo lo que es la parte de redibujado, que creo es la mejor opción. Asi que cualquiera que tenga idea o tenga ganas de tirarme ideas o ayudarme podría hacerlo.

Espero haber sido claro, cualquiera que se sienta interesado puede hablarme. Saludos! Y espero no haber desordenado el foro con este posteo, es que acabo de registrarme. Así que perdón de antemano.
↧
↧

Visualizar Imagen Pdf almacenado en base datos

August 15, 2013, 9:19 am
$
0
0
Saludos a todos,

Tengo unas imagenes guardas en una bd sqlserver. En un gridView tengo una lista con los nombres de las imagenes junto a un icono para visualizar cada una de ellas.

todas las imagenes las visualizo en un objeto <asp:Image> mediante un archivo .ashx excepto las imagenes de tipo .pdf dichas imagenes estan en la base de daatos pero cuando intento mostrarla no la muestra solo pasa con las pdf.

en la pagina .ashx la imagen la consulto en la base de datos y la caro a una variable de tipo Byte(), el tipo de imagen es de "application/pdf" el siguiente codigo es el que tengo(.ashx)

Dim Imagen As Byte()
Dim TipoImagen As String


Imagen = ClaseImagen.ConsultarImagen(IdImagen)
TipoImagen = ClaseImagen.ConsultarTipoImagen(IdImagen)

context.Response.ContentType = TipoImagen
context.Response.BinaryWrite(Imagen)

Asi funciona para imagenes de tipo "image/pjpeg", "image/x-png","image/tiff"

pero no me funciona para pdf.("application/pdf")

Si alguien tiene algun aporte muchas gracias


Ruben Rivera
↧

Añadir un registro

August 15, 2013, 10:33 am
$
0
0
He un creado un formulario con un DataGridView, el cual lo obtengo al arrastra la tabla al formulario desde Origenes de datos. Dicho DataGridView se ha generado automáticamente con botones incluidos.
El código generado es el siguiente.
Private Sub FamiliasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FamiliasBindingNavigatorSaveItem.Click
Me.Validate()
Try
Me.FamiliasBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PozoBarriaData Set)
MsgBox("Registro Actualizado")
Catch ex As Exception
MessageBox.Show(ex.Message, "No se pudo Actualizar el registro", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Cuando añado un registro pasa por "Registro Actualizado", pero cuando voy a la tabla dicho registro no existe.
Me puede alguien aclarar esta situación.

Muchas gracias.
↧

filtar entre dos dtpfecha1 and dtpfecha2 con vb6 en crytal reports vers 11.5

August 15, 2013, 1:34 pm
$
0
0
con esto consigo guardar el report en formato pdf.

quisera que ese report me filtrara entre dos fechas con dtpfecha1 and dtpfecha2

gracias a este foro por la ayuda siempre dada

Private Sub Command1_Click()
Dim hoy As String

FECHAhoy = Format(Now, "ddmmyyyy")
hoy = FECHAhoy
Dim ExportFileName As String

Dim CRApp As CRAXDRT.Application
Dim CRReport As CRAXDRT.Report

Set CRApp = CreateObject("CrystalRuntime.Application")
Set CRReport = CRApp.OpenReport("C:\Informe1.rpt")

ExportFileName = "C:\reports " & hoy & ".pdf"

CRReport.RecordSelectionFormula = ""
CRReport.ExportOptions.FormatType = crEFTPortableDocFormat
CRReport.ExportOptions.DestinationType = 1
CRReport.ExportOptions.DiskFileName = ExportFileName

'CRReport.ExportOptions.ExcelTabHasColumnHeadings = True

CRReport.DisplayProgressDialog = False
CRReport.ExportOptions.PDFExportAllPages = True

CRReport.Export (False)
End Sub
↧

Leer campos calculados en ACCESS 2007

August 15, 2013, 6:06 pm
$
0
0
Saludos.

Estoy aprendiendo sobre macros en Access 2007 y tengo la necesidad de leer las formulas de los campos calculados de una Consulta.
Cómo se pueden leer las formulas de los campos calculados en una tabla-consulta en Access 2007, usando macro?

Gracias anticipadas
↧
↧

JVO SDK - Libreria de controles y funciones

August 16, 2013, 5:36 am
$
0
0
Buenas , traigo un miniproyecto entre manos, una libreria con funciones y controles para programadores. Esta ambientada a la gente que esta un poco cansada de los controles por defecto de Windows y que quieren dar otro aspecto a sus programas.

Por ahora contiene:

JProgressbar-Progressbar que puede usar colores e imagenes para el progreso y tiene algunas mas personalizaciónes, tambien contiene para insertar texto en el progreso , para los que odien tener que hacer un texto(Opcional) aparte.

JHDCheckButton-Conoces el viejo ¿check box? ¿Te gustaria uno mas llamativo? Este es HD xD

JMetalicButton-Boton con estilo metalizado, con texto en el centro, ademas posee sistema de skins

JSearchControl- ¿Estas creando un buscador? Pero te da flojera hacer el boton y el cuadro de busqueda. Pues este es tu control.

JMessages-¿Cansado del Msgbox? ¿Quieres probar uno nuevo? Aqui lo tienes.(De momento solo posee un tipo de mensaje)

JColorSelector-¿Cansado de usar el selector en nueva ventana para los colores? Dale estilo a tu programa con este.

JCheckButton- Un boton para marcar si o no a las opciones, Redimensionable, de alta resolución.

JWinsocks-Aun en fase de prueba, no se garantiza buen funcionamiento

AndroidStyleNotification-¿Te gu stan las notificaciones de android con estilo neon?, pues puedes usarlas a traves de esta libreria, permite elegir donde se mostrara , que color, mensaje y duración tendra.



IMPORTANTE:Si veo actividad en este post prometo sacar nuevas versiones mejorando el contenido existente y añadiendo nuevas funciónes.

*

Descarga:226KB
*https://www.dropbox.com/s/khy2mdwz1e...lpha%200.1.rar

ESPERO QUE ESTA LIBRERIA LES SEA DE AYUDA EN EL DESARROLLO DE SUS PROGRAMAS, ASI COMO AMI PARA APRENDER Y MEJORAR

AGRADECERIA FUERTEMENTE QUE ME DIESEN IDEAS DE CONTROLES Y FUNCIONES PARA AÑADIRLAS

GRACIAS POR LEER.
↧

No puedo forzar una cadena a un numero...

August 16, 2013, 3:51 pm
$
0
0
Estoy haciendo un porgrama que guarda un archivo de comas (por asi llamarlo) y de existir lo lee.
Dicho archivo tiene una 'columna' como id del registro.
El problema es que no puedo incrementar el id porque no me deja cambiar una string (la que captura).
Aqui esta mi codigo...

Dim currline As String
Dim datos As New StreamReader(FileName)
Dim lines As String() = datos.ReadToEnd.Split(New Char() {"#"c})
d1.Text = lines.Count() - 1
Dim parts As String() = lines(lines.Count() - 1).Split(New Char() {";"c})
If aryText(26) = "" Then
aryText(26) = parts(parts.Count() - 1)
End If
datos.Close()
aryText(26) = aryText(26) + 1

Y el desdichado error =/
Conversion from string "" to type 'Double' is not valid.

Asi se guardan los datos:
1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20 ;21;22;23;24;25;1#

Se que esta cachando un valor ' "" ' pero no se porque...

¿Alguien podria ayudarme?
↧
Search

Leer expresion de campo calculado en consulta Access 2007

August 17, 2013, 2:37 pm
$
0
0
Saludos.

Estoy aprendiendo sobre macros en Access 2007 y tengo la necesidad de leer las formulas de los campos calculados de una Consulta.
Cómo se pueden leer las formulas de los campos calculados en una tabla-consulta en Access 2007, usando macro?
Es decir leer todo el TEXTO en el espacio del nombre de campo.

Ejemplo: RENTA:[SALARIO]*0.10
donde RENTA es el nombre de campo.

Necesito extraer tanto el nombre RENTA como la expresion [SALARIO]*0.10
Esta expresion forma parte en un campo calculado de una consulta en access

Ojala puedan ayudarme!

(y disculpas si la solicitud se repite. Aun no encuentro como editar)
Gracias anticipadas
↧

Duda con manipulacion web atraves de una aplicacion vb.net

August 19, 2013, 10:28 am
$
0
0
Hola, saludos a todos, primero que nada les comento, estoy haciendo una aplicacion pequeña para ingresar a la configuracion de mi router atraves de una aplicacion vb.net, el problema está en que al abrir la pagina de configuracion de mi router que es http://192.169.1.1/rpSys.html atraves del componente WebBrowser, éste me abre una ventana popup pidiendo usuario y contraseña las cuales manejo y no se como pasar esos datos de mi aplicacion vb.net a la ventana popup y que entre solita a la web sin acer click ni ingresar datos.

Si me pueden ayudar un poco les estaria muy agradecidos, desde ya muchas gracias y estare atento a sus dudas.
↧
↧

posicionar desde dataset campos de texto en cristal report para impirmir facturas

August 19, 2013, 11:08 pm
$
0
0
Que tal, me presento, Soy Fernando y este es mi Primer post en el Foro.

Estoy desarrollando un Soft de gestión y contable en Visual Basic 2010 ,

pero a la hora de Imprimir facturas estoy usando Crystal report para realizar esta tarea, el tema es que las facturas, Serán Facturas Pre impresas , y no se como poder hacer para indicarle por medio de código a los campos de textos que están en el reporte Crystal Report que se ubiquen en cierta posición es decir , indicarles por medio de código por ejemplo que el campo Cuit se ubique a 900 Left 1200 Top etc.

creo pensar que eso quizás se deba hacer desde el taller de Funciones de Crystal Report , pero no tengo ni la mas mínima idea que código o función se debe colocar, alguna idea de como lograrlo ?

mi idea es crear una tabla en mi base de datos con los campos id, Nombre_campo, left, top para que desde un form llamado configuración de impresión pueda asignar a cada campo su valor de posición en el Reporte pero estoy frenando al no saber que función usar para ello

desde ya les agradezco a todos
↧

Duda en modificar una columna en grid view

August 20, 2013, 3:28 pm
$
0
0
Hola amigos del foro, aqui me tiene de nuevo molestandoles pero tengo un problema quiero cambiar los datos de la columna N_Factura que esta en cero, cambiarlo por el Nº de la Factura que esta por emitirse, lo que quiero hacer de esta manera no se si es posible.
ds1 = Session("Tabla1")
For Each item As DataRow In ds1.Tables("Grilla1").Rows
item("N_Factura") = CInt(TXTFACTURA.Text)
Next
loo que pretendo que recorra las filas y lo cambie por el valor de la caja de texto hacia la columna antes descrita, no me nada ningún error al ejecutarlo pero no realiza ningún cambio, y no quero realizar el editar por cada fila, ya que se eimaginan al usuario si hay filas, hay que estar 20 veces aplicando el boton editar, favor de ayudarme con este problema, desde ya muchas gracias
↧

Duda en modificar una columna en grid view

August 20, 2013, 3:30 pm
$
0
0
Hola amigos del foro, aqui me tiene de nuevo molestandoles pero tengo un problema quiero cambiar los datos de la columna N_Factura que esta en cero, cambiarlo por el Nº de la Factura que esta por emitirse, lo que quiero hacer de esta manera no se si es posible.
ds1 = Session("Tabla1")
For Each item As DataRow In ds1.Tables("Grilla1").Rows
item("N_Factura") = CInt(TXTFACTURA.Text)
Next
loo que pretendo que recorra las filas y lo cambie por el valor de la caja de texto hacia la columna antes descrita, no me nada ningún error al ejecutarlo pero no realiza ningún cambio, y no quero realizar el editar por cada fila, ya que se eimaginan al usuario si hay filas, hay que estar 20 veces aplicando el boton editar, favor de ayudarme con este problema, desde ya muchas gracias
↧
Viewing all 1863 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>