hola a todos tengo 2 dudas
1- como inoro las mayusculas en este codigo
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
No te entiendo a que te refieres con tus preguntas, Explicate un poco mejor y explica que es lo que quieres lograr con la funcion.
-
Con respecto a la pregunta 1 ese es el codigo para buscar palabras en un Text mi pregunta es cual es la Solusion para que si hay una palabra escrita: HoLa y yo ponga hola me la encuentre =. (Creo que fui muy claro)
En cuanto a la 2 duda no se como esplicarla. En ese contro lo utiloso para marcar con puntos cada ves que ago click en algun cuadrado de la tabla queda un O ahora mi pregunta es como borar toda la tabla ya que deberia quedar marcados los cuadrados. Tambien me gustaria saber como hacer para que no pueda marcar 2 veces el mismo cuadrado en la Tabla.Espero que mme entiendan. Sino pongo Imagenes