codigos para visualbasic calculadora

Creación de un pequeño editor de textos utilizando Visual Basic :

1) Abrir un proyecto nuevo.
2) Crear un menú que servirá como el menú principal del Editor. Para ello realice los siguiente procedimientos :
a) Pulsar la combinación de teclas CTRL. + E. Otra forma seria hacer clic en Herramientas y clic en Editor de Menús.
b) En la ventana de Editor de Menús escriba las opcionesprincipales del menú a crear, similar a la siguiente imagen.

















3) Utilizando el objeto Cuadro de Texto, ponga un objeto de este tipo de forma similar a la que se le muestra a continuación :


















a) Defina las siguientes propiedades al Cuadro de texto :
i) Text = “”
ii) Multiline=True
iii) ScrollBars=Vertical

4) Inserte un componentellamado CommonDialog. Para insertar un componente realice los siguientes procesos :

a) Pulse la combinación de teclas CTRL. + T. Tambien puede hacer clic en Proyecto y clic en Componentes.
b) Aparece una lista de componentes de la cual debe seleccionar el componente Microsoft CommonDialog Control 5.0 y haga clic en Aceptar.







c) En la barra de herramientas aparece el nuevo componente,inserte uno en cualquier parte del formulario(solo es visible en tiempo de diseño).
d) Defina las siguientes propiedades al componente CommonDialog :
i) InitDir = C:\
ii) CancelError=True


5) Definamos algunas propiedades del formulario :
a) WindowsState=2 (Maximized)
b) Caption=Editor de Harley Solano Sánchez
c) Name=Form1


6) Finalmente agreguemos el código para que nuestroprograma trabaje correctamente:

Objeto : Form1
Evento : Resize
Código :
Private Sub Form_Resize()
Text1.Left = 0
Text1.Top = 0
Text1.Height = Form1.ScaleHeight
Text1.Width = Form1.ScaleWidth
End Sub




Opción Menú : mnuSalir
Evento : Click
Código :

Private Sub mnuSalir_Click()
Dim Respuesta As Integer
Respuesta = MsgBox("Desea Salir del Editor ? ", 36, "Editor")
If Respuesta =6 Then
Unload Form1
End If
End Sub





Opción Menú : mnuAbrir
Evento : Click
Código :

Private Sub mnuAbrir_Click()
Dim nLen, nCanal As Integer
On Error GoTo error
CommonDialog1.DialogTitle = "Abrir Archivo"
CommonDialog1.Filter = "Archivos de Texto (*.txt;*.wri;*.me;*.bss)|*.txt;*.wri;*.me;*.bss|Todos los Archivos(*.*)|*.*"
CommonDialog1.ShowOpennCanal = FreeFile
Open CommonDialog1.filename For Binary As #nCanal
nLen = LOF(nCanal)
texto$ = Space$(nLen)
Get #nCanal, , texto$
Text1.Text = RTrim$(texto$)
Close #nCanal
Exit Sub
error:
Close #nCanal
Exit Sub
End Sub








Opción Menú : mnuGuardar
Evento : Click
Código :

Private Sub mnuGuardar_Click()
Dim nCanal As Integer
OnError GoTo error
CommonDialog1.DialogTitle = "Guardar Archivo"
CommonDialog1.Filter = "Archivos de Texto (*.txt;*.wri;*.me;*.bss)|*.txt;*.wri;*.me;*.bss|Todos los Archivos(*.*)|*.*"
CommonDialog1.ShowSave
nCanal = FreeFile
Open CommonDialog1.filename For Output As nCanal
Print #nCanal, Text1, Text
Close #nCanal
Exit Sub
error:
Close #nCanal
Exit SubEnd Sub


A partir de este momento podemos ejecutar nuestra aplicación y notaremos que todavía no presenta un aspecto profesional. Para lograr mejor aspecto procederemos a modificarlo realizando las siguientes acciones :

7) Insertar un Componente llamado Microsoft Windows Common Controls 5.0 o Microsoft Windows Common Controls 6.0







En la barra de herramientas se han incorporadonuevos elementos de uso frecuente en el Windows tales como Fichas, Barra de Herramientas, Barra de Estado, Barra de Progreso, y otros. Las opciones son las siguientes :









8) En la parte inferior del cuadro de texto inserte un control StatusBar.
9) Haga clic con el botón derecho sobre el control StatusBar y haga clic en la opción Propiedades. Seleccione luego la opción Paneles...