Código de Visual Basic.NET - Generador y lector de códigos QR

Imágen de perfil

Generador y lector de códigos QRgráfica de visualizaciones


Visual Basic.NET

Publicado el 15 de Octubre del 2013 por Administrador (718 códigos)
31.156 visualizaciones desde el 15 de Octubre del 2013
Excelente aplicación para leer y crear códigos QR, con diferentes plantillas, ya sea para SMS, Url's, contacto, direcciones de correo, eventos, geolocalización,...
Permite especificar el nivel de corrección, la escala y los colores.
Desarrollado en Visual Basic .NET 2010

Versión 1
estrellaestrellaestrellaestrellaestrella(9)

Publicado el 15 de Octubre del 2013gráfica de visualizaciones de la versión: Versión 1
31.157 visualizaciones desde el 15 de Octubre del 2013
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella


Forma parte de AjpdSoft

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: Versión 1 (9)

mariano
29 de Mayo del 2015
estrellaestrellaestrellaestrellaestrella
excelente
Responder
beckerjhon
8 de Marzo del 2016
estrellaestrellaestrellaestrellaestrella
buen aporter, gracias
Responder
gustavo
14 de Agosto del 2016
estrellaestrellaestrellaestrellaestrella
muchas gracias por el aporte! excelente!!
Responder
fredy
21 de Septiembre del 2016
estrellaestrellaestrellaestrellaestrella
No ha dejado ningún comentario
Responder
Osmar
7 de Abril del 2017
estrellaestrellaestrellaestrellaestrella
Buenisimo gracias, una consulta esa dll es de libre uso?
Responder
JMVD70
23 de Febrero del 2018
estrellaestrellaestrellaestrellaestrella
Gran aporte. Espero que no tenga licencia de prueba.
Suerte.
Responder
15 de Abril del 2019
estrellaestrellaestrellaestrellaestrella
Muchas Gracias, excelente aporte, he sufrido por el codigo
Responder
5 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
Buenoas dias estimados,

Tengo el siguiente problema, mediante codigo tengo una conexion a una base de datos en access y cuando creo un nuevo registros desde visual Basic (Visual Studio 2019) me dice que el registro se guardo pero cuando salgo del formulario invocando el envento FormClosing me da un error.

Estoy usando tambien parte del codigo publicado aqui en la web para generar un codigo QR con la informacion. Forma parte de AjpdSoft.

En la salida me dice que el programa termino codigo 0 (0x0) y me dice que se produjo una Excepción:
Excepción producida: 'System.Data.OleDb.OleDbException' en System.Data.dll
El subproceso 0xf038 terminó con código 0 (0x0).
El subproceso 0x11044 terminó con código 0 (0x0).
El programa '[68032] CodeQRme2.exe' terminó con código 0 (0x0).

Les dejo codigo a ver si me dan una mano:


Private Sub formLesenGenerierenCodeQR_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If MyState = "Edit" Or MyState = "Add" Then
MessageBox.Show("You must finish the current edit before stopping the application.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Else
Try
'save the updated Projekt table
Dim ProjektAdapterCommands As New OleDbCommandBuilder(ProjektAdapter)
ProjektAdapter.Update(ProjektTable)
Catch ex As Exception
MessageBox.Show("Error saving database to file:" + ControlChars.CrLf + ex.Message, "Save Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
'close the connection
ProjektConnection.Close()
'dispose of the objects
ProjektConnection.Dispose()
ProjektCommand.Dispose()
ProjektAdapter.Dispose()
ProjektTable.Dispose()
End If
End Sub
______________________________________________________________________________________
Private Sub btnDone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDone.Click
Me.Close()
End Sub
______________________________________________________________________________________
Private Sub formLeerGenerarCodigosQR_Load(sender As System.Object,
e As System.EventArgs) Handles MyBase.Load
lsNivelCorreccion.SelectedIndex = 1
txtEscalaPixel.Text = 4
'connect to Phone database
ProjektConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = c:\VBDB\Working\Projektme2.accdb;Persist Security Info = False; ;")
ProjektConnection.Open()
'establish command object
ProjektCommand = New OleDbCommand("Select * from Projekt", ProjektConnection)
'establish data adapter/data table
ProjektAdapter = New OleDbDataAdapter()
ProjektAdapter.SelectCommand = ProjektCommand
ProjektTable = New DataTable()
ProjektAdapter.Fill(ProjektTable)
'bind controls to data table
txtIDProjekt.DataBindings.Add("Text", ProjektTable, "IDProjekt")
txtCustomer.DataBindings.Add("Text", ProjektTable, "Customer")
txtModule.DataBindings.Add("Text", ProjektTable, "Module")
txtProjekt.DataBindings.Add("Text", ProjektTable, "ProjektName")
txtSerial.DataBindings.Add("Text", ProjektTable, "SerialNo")
txtOrderType.DataBindings.Add("Text", ProjektTable, "OrderType")
txtDatum.DataBindings.Add("Text", ProjektTable, "DatumPro")
txtTotalUhr.DataBindings.Add("Text", ProjektTable, "TotalUhr")
'establish currency manager
ProjektManager = DirectCast(Me.BindingContext(ProjektTable), CurrencyManager)

pColorFondo.BackColor = Color.FromArgb(colorFondoQR)
pColorQR.BackColor = Color.FromArgb(colorQR)

tabFormatoQR.SelectedTab = TabProjekt
Call SetState("View")
txtProjekt_TextChanged(sender, e)
End Sub
Responder
Imágen de perfil
29 de Junio del 2020
estrellaestrellaestrellaestrellaestrella
Gracias
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2511