He estado buscando y buscando y no he podido encontrar algún ejemplo de generar un QR sin utilizar una librería, alguien sabe de alguna clase o código que me pueda servir?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Public Class Form1
Dim WithEvents dtgw As New DataGridView
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.Controls.Add(dtgw)
Me.Width = 510
With dtgw
.Size = New Size(500, 200)
.ColumnCount = 3
.Columns.Item(0).Name = "Nombre"
.Columns.Item(1).Name = "Apellido"
.Columns.Item(2).Name = "País"
End With
dtgw.Rows.Add("Julio", "Hernández", "Puerto Rico")
dtgw.Rows.Add("Alicia", "Casanova", "España")
dtgw.Rows.Add("Manuel", "Pérez", "México")
End Sub
End Class
Dim Arr() As Byte = {}
Arr = System.IO.Files.ReadAllBytes("C:\1.jpg")
'La pregunta es como mostrar la imagen en un picturebox desde el array Arr
Dim X() As String = {"052;Juan;Lopez;México", "101;Enrique;Morales;Guatemala", "005;John;McCain;USA", "034;María;Delgado;España"}
'De esta manera me organiza la información por el primer Campo (Los números).
Array.Sort(X)
'Deseo Organizar por otros campos que no sea el primero.
'¿...?
My.Computer.Network.DownloadFile("https://foro.elhacker.net/Themes/converted/selogo.jpg", "c:\1.jpg"
Dim proxy As New WebProxy("proxydeprueba.com:3128", False)
proxy.Credentials = New NetworkCredential("yomismo", "mipass,")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim C As Integer
ListView1.View = View.Details
ListView1.Columns.Add("Items")
ListView1.Columns.Add("SubItems", 70)
ListView1.FullRowSelect = True
ListView1.GridLines = True
'A pesar que permito modificar los items,
'no me lo permite para los subitems, que es lo que quiero hacer.
ListView1.LabelEdit = True
For C = 0 To 20
ListView1.Items.Add("Prueba " & C)
ListView1.Items(C).SubItems.Add("SubItem " & C)
Next
End Sub
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
End Sub
Public Class Form1
Dim WithEvents tmrEfect As New Timer With {.Enabled = True, .Interval = 1000}
Private Sub tmrEfect_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrEfect.Tick
Me.Text = Now
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("calc.exe", AppWinStyle.NormalFocus, True)
MsgBox("cerrada la aplicación")
End Sub
End Class