Temas

Public Class ejercicio2

Function Texto() As String
Dim cadena, resultado, contar As String
Dim n As Integer = 1
cadena = " " & Trim(txtcadena.Text)
Texto= Len(cadena)
resultado = ""
contar = ""

If txtcadena.Text = "" Then

MsgBox("tienes que ingresar una cadena", 16, "ERROR")
txtcadena.Focus()
ElseDo While n <= Texto
contar = Mid(cadena, n, 1)
If contar = " " Then
contar = ""
If Mid(cadena, n + 1, 1)<> " " Then
contar = UCase(Mid(cadena, n, 2))
n = n + 1
End If
End If
resultado = resultado& contar
n = n + 1
Loop
End If

Return resultado

End Function
Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnmostrar.Click
lbltexto.Text = Texto()

End Sub
End Class


Public Class ejercicioNº3
Sub deshabiltar()
btnprimero.Enabled = Falsebtnanterior.Enabled = False
btnsegundo.Enabled = True
LBLTEXTO.Text = LBLTEXTO.Text + 1
btnultimo.Enabled = True
End Sub
Sub havilitar()
Dim inicial, final AsInteger
inicial = 1
final = 10
btnprimero.Enabled = True
btnanterior.Enabled = True
LBLTEXTO.Text = LBLTEXTO.Text - 1
If LBLTEXTO.Text = inicialThen
btnsegundo.Enabled = FALSE
btnultimo.Enabled = False
End If
End Sub



Private Sub btnprimero_Click(ByVal sender As System.Object, ByVale As System.EventArgs) Handles btnprimero.Click
havilitar()
If LBLTEXTO.Text = 1 Then
MsgBox("enpieza desde el numero 1", 16, )
btnprimero.Enabled = False...