Cómo guardar el cuadro de texto incrustado en el control vsflexgrid usando vb6.0

¿privado? ¿Función? YiDongTXT(¿Tabla? como? MSHFlexGrid,? vacía? como? cuadro de texto,? Número de fila? como? entero,? cornum? como? entero)

¿Si? mesa. ¿Col? <=?Cornum? Entonces qué. mesa. ¿Plan? <=?Núm.fila? Entonces

no veo nada. ¿izquierda? =?Tabla. ¿izquierda? +?Mesa. ColPos(Table.Col)

Vacío. ¿Arriba? =?Tabla. ¿Arriba? +?Mesa. RowPos(table.row)

¿Si? mesa. ¿Col? =?1?Entonces

no veo nada. ¿ancho? =?1330

Otros

Vacío. ¿ancho? =?1050

¿Fin? Si

vacío. ¿altura? =?Tabla. AlturaDeFila(tabla.fila)

Vacío. ¿Palabra? =?Tabla. Texto

Vacío. ¿visible? =?Verdadero

¿Y si? MSHF1. ¿Col? =?9?¿Y entonces qué? Vista vacía. ¿Palabra? =?""

Vista vacía. Establecer enfoque

¿Fin? ¿Si

termina? Función

¿Hacer una llamada telefónica? YiDongTXT (MSHF1,? txt,? MSHF1. Row,? Mshf1. Cols) es lo mismo que MSHF. Solo puede mover el cuadro de texto, hacer clic en el botón para activar el evento y entregar el contenido modificado a VS. p>