CONTROLADORES Y VIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]

TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

If TextBox1.Text = "MESIAS" Or TextBox1.Text = "mesias" Then

FMain.Hide

Form1.Show

Else

Message("Esta Equivovada nena!!!!!")

TextBox1.SetFocus

Endif

End 

SISTEMA

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Timer1.Enabled = True

Timer1.Delay = 60

ProgressBar1.Value = 0.01

Timer2.Enabled = True

Timer2.Delay = 7000

End

Public Sub Timer1_Timer()

If ProgressBar1.Value < 1.00 Then

ProgressBar1.Value = ProgressBar1.Value + 0.01

Endif

End

Public Sub Timer2_Timer()

Me.Close

Form2.Show

End 

MANÚ

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

Form2.Hide

Form3.Show

End

Public Sub Button2_Click()

Form2.Hide

Form6.Show

End

Public Sub Button3_Click()

Me..Close

End

MENÚ DE OPCIONES N° 1

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button4.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

Form3.Hide

Form4.Show

End

Public Sub Button2_Click()

Form3.Hide

Form4.Show

End

Public Sub Button3_Click()

Form3.Hide

Form5.Show

End

Public Sub Button4_Click()

Form3.Hide

Form5.Show

End

Public Sub Button5_Click()

Me.Close

Form2.Show

End

Public Sub Button6_Click()

Quit

End 

CONTROLADORES

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

Label3.foreground = Color.Red

Label3.Text = CInt(TextBox1.Text) ^ 2

Label1.Font = Font["URW Chancery ,18,italic,underline,bold"]

Label2.Font = Font["URW Chancery ,18,italic,underline,bold"]

Label3.Font = Font["URW Chancery ,18,underline,italic,bold"]

TextBox1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button2_Click()

TextBox1.Text = ""

Label3.Text = ""

End

Public Sub Button3_Click()

Form3.Show

Form4.Hide

End

Public Sub Button4_Click()

Quit

End 

NÚMERO CUBÍCO

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

TextBox2.Text = CInt(TextBox1.Text) ^ 3

TextBox1.Font = Font["URW Chancery ,18,underline,italic,bold"]

TextBox2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

End

Public Sub Button3_Click()

Form3.Show

Form5.Hide

End

Public Sub Button4_Click()

Quit

End 

MENÚ DE OPCIONES N° 2

'Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button4.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button5.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button6.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button7.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button8.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button9.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button10.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button1_Click()

Form6.Hide

Form7.Show

End

Public Sub Button2_Click()

Form6.Hide

Form7.Show

End

Public Sub Button3_Click()

Form6.Hide

Form8.Show

End

Public Sub Button4_Click()

Form6.Hide

Form8.Show

End

Public Sub Button5_Click()

Form6.Hide

Form9.Show

End

Public Sub Button6_Click()

Form6.Hide

Form9.Show

End

Public Sub Button7_Click()

Form6.Hide

Form10.Show

End

Public Sub Button8_Click()

Form6.Hide

Form10.Show

End

Public Sub Button9_Click()

Form6.Hide

Form11.Show

End

Public Sub Button10_Click()

Form6.Hide

Form11.Show

End

Public Sub Button11_Click()

Me.Close

Form2.Show

End

Public Sub Button12_Click()

Quit

End 

GRAWINGAREA

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Xant As Float

Public Yant As Float

Public Sub DrawingArea1_MouseMove()

Draw.Begin(DrawingArea1)

If Xant = 0 And Yant = 0 Then

' [GB2:FCOL] Draw.ForeColor = Color.Blue

Draw.Foreground = Color.Blue

Draw.line(Mouse.x + 1, Mouse.Y + 1, Mouse.X, Mouse.Y)

Yant = Mouse.X + 1

Xant = Mouse.Y + 1

Draw.LineWidth = 3

Draw.End

Else

' [GB2:FCOL] Draw.ForeColor = Color.Blue

Draw.Foreground = Color.Blue

Draw.line(mouse.X + 1, Mouse.Y + 1, Xant, Yant)

Xant = Mouse.X + 1

Yant = Mouse.Y + 1

Draw.LineWidth = 3

Draw.End

Endif

End

Public Sub DrawingArea1_MouseDown()

Xant = 0

Yant = 0

End

Public Sub Button2_Click()

Dim Destino As String

Dim Dibujo As New Picture

Dibujo = DrawingArea1.Grab()

Dialog.Title = "Escriba un nombre de archivo para guadar la imagen"

If Not Dialog.SaveFile() Then

If Upper(Right(Dialog.Path, 4) <> ".BMP") Then

Destino = Dialog.Path & "BMP"

Else

Destino = Dialog.Path

Endif

Dibujo.SaveDestino

Endif

End

Public Sub Button3_Click()

Form6.Show

Form7.Hide

End

Public Sub Button4_Click()

Quit

End

Public Sub Button5_Click()

Me.Colse

End 

TREEVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub TreeView1_Click()

End

Private NumPersona As Integer

Private Amistad As Integer

Private Cliente As Integer

Private Proveedor As Integer

Private OpcionSeleccionada As Integer

Private Imagen1 As Picture

Private Imagen2 As Picture

Public Sub Form_Open()

Me.Title = "EJEMPLO CON TREEVIEW"

TreeView1.Add("Contactos", "Contactos") 'Nodo Raiz

TreeView1.Add("Amistades", "Amistades",, "Contactos") 'Nodo Padre1

TreeView1.Add("Clientes", "Clientes",, "Contactos") 'Nodo Padre2

TreeView1.Add("Proveedores", "Proveedores",, "Contactos") 'Nodo Padre3

TreeView1["Contactos"].Expanded = True ' Permite ver en nodo raiz extendido

'Para hacer el contador de lo que se va a ingresar

NumPersona = 1 'Inicializa el contador de personas

Amistad = 1

Proveedor = 1

Cliente = 1

End

Public Sub AdicionarElem_Click()

If RadioButton1.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Amistad-" & Amistad, "Amistad-" & Amistad, Imagen1, "Amistades")

End Select

Amistad += 1

Endif

If RadioButton2.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Cliente-" & Cliente, "Cliente-" & Cliente, Imagen1, "Clientes")

End Select

Cliente += 1

Endif

If RadioButton3.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Proveedor-" & Proveedor, "Proveedor-" & Proveedor, Imagen1, "Proveedores")

End Select

Proveedor += 1

Endif

End

Public Sub BorrarElem_Click()

If TreeView1.Key <> "Contactos" And TreeView1.Key <> "Amistades" And TreeView1.Key <> "Clientes" And TreeView1.Key <> "Proveedores" Then

TreeView1.Remove(TreeView1.Key)

Else

Message.Info("No se puede eliminar el nodo raiz o padre")

Endif

End

Public Sub Volver_Click()

Form6.Show

Form8.Hide

End

Public Sub Salir_Click()

Me.Close

End 

COLUMNVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

'Establese cuantas columnas vas autilizar en este caso 6

ColumnView1.Columns.Count = 7

'Primera columna

'Establece el nombre de la primera columna

ColumnView1.Columns[0].Text = "Nombre"

'El ancho de la primera columna

ColumnView1.Columns[0].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[0].Alignment = 3

'Segunda columna

'Establece el nombre de la segunda columna

ColumnView1.Columns[1].Text = "Apellido"

'El ancho de la segunda columna

ColumnView1.Columns[1].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[1].Alignment = 3

'Tercera columna

'Establece el nombre de la tercera columna

ColumnView1.Columns[2].Text = "Edad"

'El ancho de la tercera columna

ColumnView1.Columns[2].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[2].Alignment = 3

'Cuarta columna

'Establece el nombre de la cuarta columna

ColumnView1.Columns[3].Text = "Direccion"

'El ancho de la cuarta columna

ColumnView1.Columns[3].Width = 300

'La alineacion del texto en este caso izquierda'

ColumnView1.Columns[3].Alignment = 3

'Quinta columna

'Establece el nombre de la quinta columna

ColumnView1.Columns[4].Text = "Pais"

'El ancho de la quinta columna

ColumnView1.Columns[4].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[4].Alignment = 3

'Sexta columna

'Establece el nombre de la sexta columna

ColumnView1.Columns[5].Text = "Provincia"

'El ancho de la sexta columna

ColumnView1.Columns[5].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[5].Alignment = 3

'Septima columna

'Establece el nombre de la septima columna

ColumnView1.Columns[6].Text = "Cantón"

'El ancho de la septima columna

ColumnView1.Columns[6].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[6].Alignment = 3

End

Public Sub Mostrar_Click()

'Agregarle datos a la ColumnView1

'Agregar el primer dato"José" con un key "0" para despues seguir agregando mas datos

'Agregar otro dato especificando el key y la columna key "0", columna "1"

ColumnView1.Add(0, "Juan José")

'Agregar otro dato especificando el key y la columna key "0", columna "2"

ColumnView1.Add(1, "Miguel Alejandro")

'Agregar otro dato especificando el key y la columna key "0", columna "3"

ColumnView1.Add(2, "Adriana Beatriz")

ColumnView1[0][1] = "Agualongo Arévalo"

ColumnView1[1][1] = "Naranjo Núñez"

ColumnView1[2][1] = "Torres Espinoza"

ColumnView1[0][2] = "22"

ColumnView1[1][2] = "16"

ColumnView1[2][2] = "35"

ColumnView1[0][3] = "Caceiche"

ColumnView1[1][3] = "Murcia"

ColumnView1[2][3] = "Gabriel Ignacio de Veintimilla"

ColumnView1[0][4] = "Ecuador"

ColumnView1[1][4] = "España"

ColumnView1[2][4] = "Ecuador"

ColumnView1[0][5] = "Bolívar"

ColumnView1[1][5] = "Córdova"

ColumnView1[2][5] = "Bolívar"

ColumnView1[0][6] = "Guaranda"

ColumnView1[1][6] = "Madrid"

ColumnView1[2][6] = "Guaranda"

End

Public Sub Limpiar_Click()

ColumnView1.Clear

End

Public Sub Volver_Click()

Form6.Show

Form9.Hide

End

Public Sub Salir_Click()

Me.Close

End 

TABLEVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

'Cantidad de columnas a usar

TableView1.Columns.Count = 3

'Nombre de la primera columna

TableView1.Columns[0].Text = "Nombre"

'Ancho de la primera columna

TableView1.Columns[0].Width = 200

'Nombre de la segunda columna

TableView1.Columns[0].Text = "Ocupacion"

'Ancho de la segunda columna

TableView1.Columns[1].Width = 200

End

Public Sub Clear_Text()

TextBox1.Clear

TextBox2.Clear

TextBox3.Clear

End

Public Sub Button4_Click()

'Guardo en la variable row la cantidad de filas que existen

Dim row As Integer = TableView1.Rows.Count

'Comparo si los tres textbox estan vacios op no

If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then

'Agrego una fila si los tres textbox contienen informacion

TableView1.Rows.Count += 1

'Agrego el nombre, ocupacion,direccion a la fila

TableView1[row, 0].Text = TextBox1.Text

TableView1[row, 1].Text = TextBox2.Text

TableView1[row, 2].Text = TextBox3.Text

Clear_Text() 'subrutina para eliminar los datos escritos en el textbox

Else 'Si los textboxs estan vacios mandara el siguiente mensaje

Message.Info("Debe llenar los datos")

Endif

End

Public Sub Button5_Click()

TableView1.Clear

End

Public Sub Button6_Click()

Form6.Show

Form10.Hide

End

Public Sub Salir_Click()

Me.Close

End

GRIDVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

GridView1.Columns.Count = 3 'Especifico cuantas columnas llevara el GridView

GridView1.Columns[0].Text = "NOMBRE" 'No de la primera columna

GridView1.Columns[0].Width = 250 'Espacifica el ancho de la primera columna

GridView1.Columns[1].Text = "EDAD" 'Nombre de la primera columna

GridView1.Columns[1].Width = 100 'Ancho de la segunda columna

GridView1.Columns[2].Text = "DIRECCION" 'Nombre de la psegunda columna

GridView1.Columns[2].Width = 250 'Ancho de la segunda columna

GridView1.Rows.Count = 3 'Cantidad de filas que se utilizara para agregar datos"

End

Public Sub Mostrar_Click()

'Primer dato

'Alineo el texto de la primera columna y la primera fila al centro

GridView1[0, 0].Alignment = Align.Center

'Inserte el primer nombre a la primera columna

GridView1[0, 0].Text = "Marco Gonzales"

'Alineo el texto de la segunda columna y la primera fila al centro

GridView1[0, 1].Alignment = Align.Center

'Agrego el dato 15 a la primera fila de la segunda columna

GridView1[0, 1].Text = "15"

GridView1[0, 2].Alignment = Align.Center

'Inserte el primer nombre a la primera a la primera columna

GridView1[0, 2].Text = "Chimbo"

'Segundo dato

GridView1[1, 0].Alignment = Align.Center

GridView1[1, 0].Text = "Francisco Torres"

GridView1[1, 1].Alignment = Align.Center

GridView1[1, 1].Text = "17"

GridView1[1, 2].Alignment = Align.Center

'Inserte el primer nombre a la primera a la primera columna

GridView1[1, 2].Text = "San Miguel"

'Tercer dato

GridView1[2, 0].Alignment = Align.Center

GridView1[2, 0].Text = "Marco chaves"

GridView1[2, 1].Alignment = Align.Center

GridView1[2, 1].Text = "22"

GridView1[2, 2].Alignment = Align.Center

'Inserte el primer nombre a la primera a la primera columna

GridView1[2, 2].Text = "Guaranda"

End

Public Sub Borrar_Click()

GridView1.Clear

End

Public Sub Volver_Click()

Form6.Show

Form11.Hide

End

Public Sub Salir_Click()

Me.Close

End