|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Bopo
51
« en: Sábado 17 de Enero de 2004, 23:08 »
Como introducir un enter en un textbox :
Si hago t.txt = "AA" + chr (13) + chr (10) + "BB"
Me sale AA||BB en vez de
AA
BB
Alguien sabe porqué ?
Gracias
NG pon multiline wn 
52
« en: Sábado 17 de Enero de 2004, 21:18 »
Hola Bopo.
Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.
Private Sub Leer() On Error Goto Err_Lectura Dim intCanal as integer intCanal = FreeFile Open "C:\Ruta\Archivo.xxx" For Input As intCanal Dim strRcd as String, intCta as integer Do Until EOF(intCanal) intCta = intCta + 1 Line Input #intCanal, strRcd MsgBox strRcd,vbInformation,"Registro " & intcta Loop Exit_Lectura: On Local Error Resume Next Close #intCanal Exit Sub Err_Lectura: MsgBox Err.Description Resume Exit_Lectura End Sub
Suerte. y como hago que me lea una linea definida  ya descubrri como:
a
Line Input #intCanal, strRcd
le agregue
Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd
Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea? creo q si pones LINE Nº osea
Line 3 Input #intCanal, strRcd
creo si me equivoco coriganme ahora mi pregunta...
yo quiero hacer esto pero necesito en un text box y necesito saber como pongo a travez de codigo un "enter" probe con vbclrf pero me salen 2 barras a lo mejor sale en un label o algo asi xq lo copio y me sale un enter XD  hay alguna solución a eso  
Salu2! pon el textbox multiline P.D: No funiono lo de Line Nº
53
« en: Sábado 17 de Enero de 2004, 17:21 »
Hola a todos ...
Me podrian decir como puedo deshabilitar la teclas de suspender sistema de este teclado...
Ese boton se encuentra entre los numeros y las teclas direccionales... y como podran imaginar .. siempre hay posibilidad de presionarlo cuando estoy jugando ...
Bueno pues por culpa de ese boton muchas veces pierdo...
Me imagino que esto debe de ser igual a lo que se hace para impedir que se pueda presionar las teclas alt + F4, alt + esc, crtl+alt+del, etc... bueno eso pienso..pero no se como hacer con esta tecla.... muchas gracias.........
gracias
gracias a todos...
muchas gracias No se si se peuda por Visual basic ya que la tecla suspender no tiene un codigo ascii , pero si lo puedes hacer por BIOS... si no sabes lo que es dime el modelo e tu placa madre y te digo doned deberias entrar en BIOS 
54
« en: Sábado 17 de Enero de 2004, 06:27 »
¿Cómo puedo sacar la temperatura del PC y que em la devuelva en una variable? 
55
« en: Viernes 16 de Enero de 2004, 23:54 »
Hola Bopo.
Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.
Private Sub Leer() On Error Goto Err_Lectura Dim intCanal as integer intCanal = FreeFile Open "C:\Ruta\Archivo.xxx" For Input As intCanal Dim strRcd as String, intCta as integer Do Until EOF(intCanal) intCta = intCta + 1 Line Input #intCanal, strRcd MsgBox strRcd,vbInformation,"Registro " & intcta Loop Exit_Lectura: On Local Error Resume Next Close #intCanal Exit Sub Err_Lectura: MsgBox Err.Description Resume Exit_Lectura End Sub
Suerte. y como hago que me lea una linea definida ya descubrri como: a Line Input #intCanal, strRcd le agregue Line Input #intCanal, strRcd1 Line Input #intCanal, strRcd2 Line Input #intCanal, strRcd Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?
56
« en: Viernes 16 de Enero de 2004, 23:45 »
Hola Bopo.
Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.
Private Sub Leer() On Error Goto Err_Lectura Dim intCanal as integer intCanal = FreeFile Open "C:\Ruta\Archivo.xxx" For Input As intCanal Dim strRcd as String, intCta as integer Do Until EOF(intCanal) intCta = intCta + 1 Line Input #intCanal, strRcd MsgBox strRcd,vbInformation,"Registro " & intcta Loop Exit_Lectura: On Local Error Resume Next Close #intCanal Exit Sub Err_Lectura: MsgBox Err.Description Resume Exit_Lectura End Sub
Suerte. y como hago que me lea una linea definida
57
« en: Viernes 16 de Enero de 2004, 00:57 »
Lo que quiero es que el programa lea tal linea del txt y em la deevuelva como una variable,,, cómo se hace
58
« en: Viernes 16 de Enero de 2004, 00:32 »
Y que me de la ruta en una variable
¿Cómo se hace? ya lo hice  Private Sub Drive1_Change() Dir1.Path = Drive1 End Sub
59
« en: Viernes 16 de Enero de 2004, 00:15 »
El ejemplo mas sencillo es:
Pones unavariable global en un modulo:
Public directorioSeleccionado as string.
dps haces un formulario con un dirlistbox y dos botones uno que dice aceptar y otro cancelar.
Supongamos que tenes el boton aceptar se llama cmdAceptar y el de cancerlar cmdCancelar, y el dirlistbox se llama dir1, entonces:
sub cmdAceptar_click() if (dir1.path <> "") then directorioSeleccionado = dir1.path else directorioSeleccionado = "" end if unload me end sub sub cmdCancelar_click() unload me end sub
frmSeleccionarDirectorio.show
Y cuando necesites usar el directorio seleccionado se encotrara en la variable directorioSeleccionado.
Esperi qeu este mas claro...
slds. Gracias , em funciono, ahora... como hago para el el el dirbox o como se llame no aparesca solo el Disco C:
60
« en: Jueves 15 de Enero de 2004, 17:55 »
Hola Bopo.
Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("123456789", Chr(KeyAscii)) = 0 and KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Abur. Gracias
61
« en: Jueves 15 de Enero de 2004, 17:38 »
en un textbox que solo aceeptar numeros pero no peudo borrar uno con la teclaretroceso o como se llame, el codigo para que acepte solo numeros eseste: Sub Text1_KeyPress(KeyAscii As Integer) If InStr("123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub pero como le pongo que oueda borrar tb?
62
« en: Jueves 15 de Enero de 2004, 16:29 »
Si tambien podes usar un form con un dirlistbox, hacer que la seleccione ahí poner un boton que diga aceptar, en el cual pone el path en una variable (global por ejemplo) y cierra la ventana. Y donde devuelve ese valor?
63
« en: Jueves 15 de Enero de 2004, 16:27 »
Si tambien podes usar un form con un dirlistbox, hacer que la seleccione ahí poner un boton que diga aceptar, en el cual pone el path en una variable (global por ejemplo) y cierra la ventana. No les entiendo nada
64
« en: Jueves 15 de Enero de 2004, 15:00 »
Hola Bopo.
Puedes usar una función de este estilo:
Public Function RtvPath(ByVal Cadena As String) As String On Local Error Resume Next Cadena = Trim(Cadena) Cadena = Replace(Cadena, "//", "\\") Dim int1 As Integer int1 = InStrRev(Cadena, "\") If int1 > 2 Then RtvPath = Left(Cadena, int1 - 1) & "\" Else If Len(Cadena) = 2 And Mid(Cadena, 2, 1) = ":" Then RtvPath = Cadena & "\" ElseIf Left(Cadena, 2) = "//" And InStr(3, Cadena, ":") = 0 Then RtvPath = Cadena & "\" End If End If End Function
Suerte. Y como hago para que abra la cosa donde se selecciona  
65
« en: Jueves 15 de Enero de 2004, 04:16 »
Y que me de la ruta en una variable ¿Cómo se hace?
66
« en: Jueves 15 de Enero de 2004, 04:14 »
como puedo Darle formato de numero a una variables
gracias.... Byte Integer Long Single Double Currency Decimal De menor a mayor
67
« en: Jueves 15 de Enero de 2004, 04:04 »
68
« en: Jueves 15 de Enero de 2004, 03:39 »
Hola , quisiera saber como manejar el tabstrip osea que aprete la segunda opcion y me cambie  , como de hace , es que todavia estoy aprendiendo 
69
« en: Jueves 15 de Enero de 2004, 03:31 »
70
« en: Martes 13 de Enero de 2004, 20:42 »
Y poder prenderlos y apagarlos. 
71
« en: Martes 13 de Enero de 2004, 20:41 »
Y poder prenderlos y apagarlos.
|
|
|
Mostrar Mensajes
