hola erbunson!
Cita:
Iniciado por erbuson 
El .Row es la fila donde se ha hecho click con el ratón y el .Col es la columna, aunque tu puedes definir por código en que Fila y Columna quieres posicionarte, en cuanto al orden depende del ciclo que quieras usar en tu proceso o sea, si quieres procesar por filas o por columnas.
Lo del .Row y .Col lo tengo claro que con raton o por codigo puedes hacerlo celda por celda, la pregunta era que otros paramentros y en que orden se podian añadir, pues al menos que no hubiese una manera de identificar que es, si el valor era solo entre "," es donde me daria error o datos equivocados.
Cita:
Iniciado por erbuson En cuanto al UDT creo que es correcto pero el problema es que me resulta francamente difícil introducirme en tu código tal vez porque muchas de las cosas que hay en el mismo se podrían simplificar enormemente con algunos trucos y resultaría mas fácil su lectura.
Msgbox Format("15/07/2009", "dddd")
MsgBox Format("15/07/2009", "mmmm")
Aqui me comentas que se podrian hacer varios trucos, yo tenia pensado por un lado en el tema de identificador de dias y meses hacer un modulo.cls (de clase) y simplemente con una llamada a una sentencia me diese el dia o mes, he probado meter toda la parte de codigo que hace eso en un modulo.cls y no see si es que se debe introducir diferente pero me daba error pero lo dejo para mas adelante para no complicar las cosas.Sobre lo del comando Format si le introduzco los "dddd" siempre me da el dia del mes pero no si es Jueves o Lunes de echo el Date lo que me responde es "13-abril-2010 y si le separo los parametros te da "13" "4" y "2010" si te fijas en las lineas 151 hasta la 158 lo unico que hacen es con el MsgBox visualizarme lo que se ha guardado en la variable que introducira el dato en el archivo.dat, lo realizo temporalmente para saber que es lo que me guarda por lo de la incomprension del archivo binario con intencion de eliminarlo posteriormente (el MsgBox), aqui si es solo un comado te diria cual es la forma de guardar en ASCII pero si son muchas lineas de codigo lo dejamos para mas adelante tambien.
Cita:
Iniciado por erbuson Creo que primero deberías simplificar el proceso de guardado de los datos para posteriormente tener mas facil su proceso, al fin y al cabo lees el fichero de modo secuencial desde principio a fin ¿ no es asi ?
Exactamente de momento, aunque cuando haya mas de 20 registros supongo que lo logico es poner un contador de registros y hacer un bucle para seleccionar los que necesite para visualizar en el MSFlexGrid del otro formulario.Sobre este tema una pregunta: ¿VBasic identifica, guarda internamente en el archivo.dat el número de registro o dato de cuando fue guardado?¿Debe guardar siempre aunque sea con valor "0" (cero) o nulo todos los campos o si por ejemplo un registro tiene el campo dia "jueves" y otro dia "viernes" yo los puedo identificar posteriormente al leerlos? lo pregunto porque las variantes relacionadas con la Fecha las introduzco solo para identificar el registro sin error.Comentas que deberia simplificarlo ¿Como? yo para guardar en el archivo solo utilizo esto :
Código vb:
Ver originalPrivate Sub GuardarDatos()
'Asignamos los datos de la estructura con el contenido de las variables.
With Horas
' Variable para del archivo Horas.dat
.horainicio1 = horainicio1
.horafin1 = horafin1
.horainicio2 = horainicio2
.horafin2 = horafin2
.horainicio3 = horainicio3
.horafin3 = horafin3
.Totalhoras = conthoras
.dia = dia_C
.semana = semana_C
.mes = mes_C
.año = año_C
End With
End Sub
eso para guardar en el archivo y esto para obtener los datos .:
Código vb:
Ver originalPrivate Sub cmd_fin_Click()
diatemp = Weekday(Format(Date, "ww"))
mestemp = Month(Now)
semana_C = Format(Date, "WW")
año_C = Format(Date, "YYYY")
horafin = Time
marco = 0
dia_C = diatemp
mes_C = mestemp
'Sentencia para Nombrar los dias de la semana.
Select Case diatemp
Case 1
dia_C = "Lunes"
Case 2
dia_C = "Martes"
Case 3
dia_C = "Miercoles"
Case 4
dia_C = "Jueves"
Case 5
dia_C = "Viernes"
Case 6
dia_C = "Sabado"
Case 7
dia_C = "Domingo"
End Select
'Sentencia para Nombrar los meses.
Select Case mestemp
Case 1
mes_C = "Enero"
Case 2
mes_C = "Febrero"
Case 3
mes_C = "Marzo"
Case 4
mes_C = "Abril"
Case 5
mes_C = "Mayo"
Case 6
mes_C = "Junio"
Case 7
mes_C = "Julio"
Case 8
mes_C = "Agosto"
Case 9
mes_C = "Septiembre"
Case 10
mes_C = "Octubre"
Case 11
mes_C = "Noviembre"
Case 12
mes_C = "Diciembre"
End Select
tiempo_C = horafin - horainicio
'Datos salida por MsgBox
MsgBox tiempo_C & " minutos realizados." & vbCrLf & vbCrLf _
& Date & vbCrLf & vbCrLf & "KW-" & semana_C
MsgBox horafin & vbCrLf & horainicio & vbCrLf & "________" & vbCrLf & " " & vbCrLf _
& tiempo_C & vbCrLf & año_C & vbCrLf & dia_C & " , " & mes_C & vbCrLf & "KW-" & semana_C
'Guardamos en el archivo Horas.dat los datos del contenido de las variables.
GuardarDatos
'Escribimos los datos en el archivo y en la posición
Put #FileFree, RegActual, Horas
'Cerramos archivo de datos.
Close FileFree
End
End Sub
Se ve largo por el
case pero en realidad son 8 lineas ya que el resto de codigo son el correspondiente a los botones de paro y encendido del cronometro y que cada uno solo tiene 8 lineas. ¿Que truco aplicarias?
Por cierto la parte del guardado final esta en el boton "Private Sub cmd_fin_Click()" que lo pongo para que no me duplique los datos al mismo tiempo de salir de la función.
Un saludo