Autor
1- como inoro las mayusculas en este codigo
Código:
Private Sub Command2_Click()
busca (Text1.SelStart + 1)
End Sub
Sub busca(Optional ByVal bs As Integer)
Dim a As Integer
Dim b As String
b = Text2.Text
If Len(b) Then
a = InStr(bs + 1, Text1.Text, b)
If a > 0 Then
Text1.SelStart = a - 1
Text1.SelLength = Len(b)
Text1.SetFocus
Else
MsgBox "No se puede encontrar: " & Chr$(13) & b, vbDefaultButton1, "Error en Busqueda"
Text2.SetFocus
End If
End If
End Sub
2 - al MSHFlexGrid como ago para borar todo una ves que esta puesto o escrito ( No se si me esplico) y para no poder haserle 2 veces click una ves seleccionado un cuadrodo.
Saludos KakiNets
En línea
