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
viernes, 30 de octubre de 2009
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!!!
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!!!
Suscribirse a:
Entradas (Atom)