|
|
Post by monini64 on Oct 2, 2018 19:04:52 GMT -5
i wryte a code but i need make anythink like input string$, but i not know how, the code is
nomainwin
dim transponder$(20)
ABIERTO=1
CERRADO=0
flagarchivo=0
WindowWidth = 1020
WindowHeight = 640
menu #window, "&Archivo","&Abrir", [open], "&grabar como...", [saveAs], "&grabar", [save], | , "&salir", [quit]
menu #window, "&Ayuda", "&About", [about]
menu #window, "&Menu inmo", "&Leer inmo",[leerinmo], "&escribir inmo",[writeinmo]
menu #window, "&Transponder", "&Agregar transponder",[agregar],"&Borrar transponder",[borrar],"&Reemplazar transponder",[reemplazar]
texteditor #window.te 5, 10, 1020, 640
open "inmo 009.10 por monini64" for window as #window
#window.te "!font courier_new 9"
#window.te "!autoresize"
#window "trapclose [quit]"
wait
rem ******************** ANY CODE *************************
[agregar]
rem I NEED MAKE ANYTHING LIKE INPUT STRING HERE,(input prompt$ for example, but not work in #window )
rem HOW CAN IDO IT
rem ******************** ANY CODE *************************
|
|
|
|
Post by Rod on Oct 3, 2018 3:15:11 GMT -5
A full screen texteditor maybe is not the correct choice for the input control. So look at this textbox example.
nomainwin
dim transponder$(20)
ABIERTO=1
CERRADO=0
flagarchivo=0
WindowWidth = 1020
WindowHeight = 640
menu #window, "&Archivo","&Abrir", [open], "&grabar como...", [saveAs], "&grabar", [save], | , "&salir", [quit]
menu #window, "&Ayuda", "&About", [about]
menu #window, "&Menu inmo", "&Leer inmo",[leerinmo], "&escribir inmo",[writeinmo]
menu #window, "&Transponder", "&Agregar transponder",[agregar],"&Borrar transponder",[borrar],"&Reemplazar transponder",[reemplazar]
textbox #window.tb 5, 20,200,20
button #window.bt "Enter",[agregar],UL,220,20,100,20
texteditor #window.te 5, 60, 950, 500
open "inmo 009.10 por monini64" for window as #window
#window.te "!font courier_new 9"
#window.te "!autoresize"
#window "trapclose [quit]"
wait
rem ******************** ANY CODE *************************
[agregar]
#window.tb "!contents? command$"
#window.te command$
wait
rem I NEED MAKE ANYTHING LIKE INPUT STRING HERE,(input prompt$ for example, but not work in #window )
rem HOW CAN IDO IT
rem ******************** ANY CODE *************************
[quit]
close #window
end
|
|
|
|
Post by monini64 on Oct 27, 2018 16:41:44 GMT -5
hello rod, i not like the text box when program start, i like this texbox in [agregar] subrutine
nomainwin
dim transponder$(20)
ABIERTO=1
CERRADO=0
flagarchivo=0
WindowWidth = 1020
WindowHeight = 640
menu #window, "&Archivo","&Abrir", [open], "&grabar como...", [saveAs], "&grabar", [save], | , "&salir", [quit]
menu #window, "&Ayuda", "&About", [about]
menu #window, "&Menu inmo", "&Leer inmo",[leerinmo], "&escribir inmo",[writeinmo]
menu #window, "&Transponder", "&Agregar transponder",[agregar],"&Borrar transponder",[borrar],"&Reemplazar transponder",[reemplazar]
rem i like this textbox is making in [agregar] subrutine mabe without button
rem *****************************************************
textbox #window.tb 5, 20,200,20
button #window.bt "Enter",[agregar],UL,220,20,100,20
rem *****************************************************
texteditor #window.te 5, 60, 950, 500
open "inmo 009.10 por monini64" for window as #window
#window.te "!font courier_new 9"
#window.te "!autoresize"
#window "trapclose [quit]"
wait
rem ******************** ANY CODE *************************
[agregar]
#window.tb "!contents? command$"
#window.te command$
wait
rem I NEED MAKE ANYTHING LIKE INPUT STRING HERE,(input prompt$ for example, but not work in #window )
rem HOW CAN IDO IT
rem ******************** ANY CODE *************************
[quit]
close #window
end
|
|
|
|
Post by Rod on Oct 30, 2018 3:34:30 GMT -5
Ok, is there something to fix?
|
|
|
|
Post by monini64 on Oct 31, 2018 15:10:06 GMT -5
i like open the textbox when i star subrutine, and close textbox when i return
|
|
|
|
Post by Rod on Oct 31, 2018 16:33:04 GMT -5
Show and hide?
|
|
|
|
Post by monini64 on Nov 1, 2018 14:36:08 GMT -5
Now i using prompt comand. I have other problem, exit any like locate in this windows? i like make a recursive subrutine, making screen many times, sometime i modifi one variable
|
|
|
|
Post by Rod on Nov 2, 2018 3:58:59 GMT -5
I am not understanding what you are wanting to do. Can we take a step back and you tell us what this part of the program is doing. I know you want to input text. But where and why and in what kind of text? Are you editing words are you inserting words into words are you editing a table of values?
Also SHOW and HIDE will add and remove a textbox and you may LOCATE it but until I better understand what the problem is I hesitate to guess.
|
|
