lopezatienza.es

Primeramente crearemos nuestro proyecto.

Agregamos un tipo Button llamado "btncalcular".

Agregamos un label llamado "lbserie".

Agregamos el siguiente código a "Form1.vb"

Read more »

Creamos nuestro Proyecto.

Agregamos 4 TextBox llamados: "tbnombre" , "tbdireccion" , "tbedad" , "tbtelefono"

Agregamos un Button llamado "btnaceptar"

Introducimos el siguiente código en "Form1.vb"

Introducimos un TextBox llamado "tbfahrenheit".

Introducimos un Button llamado "btcentigrados".

Introducimos un Button llamado "btfahnrenheit".

Introducimos un Button llamado "btnlimpiar".

Read more »

Primeramente crearemos un proyecto Application Form.

Le damos el nombre de "ventana" a nuestro formulario.

Crearemos un TextBox llamado "tbintro".

Un CheckBox llamado "cknegrita".

Un CheckBox llamado "cksubrayado".

Un CheckBox llamado "ckrojo".

Introduciremos el siguiente código en nuestro "Form1.vb"

Read more »

Veremos un ejemplo de las llamadas a varios eventos:Primeramente creamos un proyecto.
Le damos el nombre de "ventana" a nuestro Form1.

Introducimos un boton llamado "btn".

Copiamos y pegamos este código en el "Form1.vb".

Read more »

IO.StreamWriter // nos permite I / S de archivos en dispositivos

SaveFileDialog .Title
.InitialDirectory
.Filter = " Literal \ *.doc \ Literal \ *.txt "
Literal == [ Documentos | Imagenes ]
.Filename
.DefaultExt
.CheckFileExists
.ValidateNames

Dim variable As IOStreamWriter
variable = new IOStreamWriter(SaveFileDialog1.FileName)
variable.Write(TBox.Text)
variable.close

Read more »

Dim Fuente As New Font (New FontFamily(“Arial”), tamaño) 'Le damos la fuente que deseemos y el tamaño

Dim Colores As New HatchBrush(HatchBrush.FUERZA, color.Aqua, color.Green) 'Le damos el color que deseemos

   SolidBrush(color.Aqua) 'Estilo del color

   PathGradientBrush(puntos) 'Dimensiones

DrawString(texto, Fuente, Colores) 'Propiedades

DrawImage(archivoBitmap, x, y, ancho, alto) 'Lo dibujamos

Graphics 'Especifica el entorno en el ke se va a dibujar el dibujo

Pen 'Que tipo de trazo se utilizara para dibujar

Brush 'Tipo de color y relleno que vamos a usar

Dim grafico As Graphics = me.graphics

Dim lapiz As New Pen(color, grosor)

Dim rectangulo As New Rectangle(x1,y1,x2,y2) 'de arriba izquierda a abajoderecha

Read more »

Unidades de almacenamiento:

System Environment.GetlogicalDrives 'Recorrer unidades logicas del sistema

Dim unidades() As String 'Se crea un array tipo string para contener las unidades

unidades = System Environment.GetlogicalDrives 'Se toman las unidades del sistema

Read more »

1. DOS VALORES ENTEROS SON O NO IGUALES

Public Class Form1

Function iguales(ByVal x As Integer, ByVal y As Integer) As Boolean

If x = y Then

Return True

Read more »