viernes, 30 de octubre de 2009

Formulario que se desvanece cuando lo cierras

Es una pijadita, pero le da un efecto diferente a la aplicación

Sólo hay que añadir este código a cualquier winform:

Public Sub FadeForm(ByVal FadeForm As Form, ByVal NumberOfSteps As Byte)
Dim StepVal As Double = Convert.ToDouble(100.0F / NumberOfSteps)
Dim dOpacity As Double = 100.0F
Dim b As Byte = 0

For b = 0 To NumberOfSteps
FadeForm.Opacity = dOpacity / 100
FadeForm.Refresh()
dOpacity -= StepVal
Next
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
FadeForm(Me, 200)
End Sub

Revisión de ortografía usando Apis de Word

Creamos un winForm con un textbox y un botón.

Añadimos la referencia Microsoft.Office.Interop.Word.Application al proyecto:



Hacemos doble click sobre el botón y escribimos el siguiente código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" Then
Dim Corrector_Ortograf As New Microsoft.Office.Interop.Word.Application

If Corrector_Ortograf.CheckSpelling(TextBox1.Text) = True Then
MessageBox.Show("La ortografía es correcta.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("La ortografía es Incorrecta.", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Else
MessageBox.Show("Ingrese un texto para comprobar la ortografía", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub

Y ya está!!! Qué fácil!!!