Simple INPUTBOX

[jcfuller]

Yes a LOT more code but I couldn't resist a native PBCC solution using the Link I posted above. PBCC 4.04

James

'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'SED_PBCC
'------------------------------------------------------------------------------
' PBCC InputBox For your using pleasure or not!
'------------------------------------------------------------------------------
'                                  James C. Fuller
'                                   August 7,2008
'------------------------------------------------------------------------------
'=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
#COMPILE EXE
#INCLUDE "WIN32API.INC"
'Link Located in prior Message
#INCLUDE "JCFRTDLG.BAS"
'==============================================================================
SUB  CenterWindow ( _
    BYVAL hWnd    AS DWORD _
  )

  DIM WndRect AS RECT
  DIM x       AS LONG
  DIM y       AS LONG

  GetWindowRect hWnd, WndRect

  x = (GetSystemMetrics(%SM_CXSCREEN) _
    - (WndRect.nRight-WndRect.nLeft))\2
  y = (GetSystemMetrics(%SM_CYSCREEN) _
    - (WndRect.nBottom-WndRect.nTop+GetSystemMetrics(%SM_CYCAPTION)))\2

  SetWindowPos hWnd, %NULL, x, y, 0, 0, %SWP_NOSIZE OR %SWP_NOZORDER

END SUB
'==============================================================================
GLOBAL UserName AS STRING
'==============================================================================
FUNCTION InputFunction(BYVAL Param1 AS STRING) AS LONG
    LOCAL sDlg AS STRING
    LOCAL w,RetVal AS LONG
    w = INT(LEN(Param1) * 5)   ' width of winidow
    IF w < 105 THEN w = 105
    DlgTemplate_Create sDlg, _
                      &H084C000D4&, _
                      0, _
                      0, _
                      %CW_USEDEFAULT, _
                      %CW_USEDEFAULT, _
                      (w + 40), _
                      30, _
                      "", _
                      "", _
                      Param1, _
                      0, _
                      400, _
                      0, _
                      "MS Sans Serif"

    DlgTemplate_AddControl      sDlg, _
                            14, _
                            9, _
                            (w-28), _
                            12, _
                            101, _
                            0, _
                            %WS_TABSTOP OR %WS_VISIBLE OR %WS_BORDER OR %ES_LEFT OR %ES_AUTOHSCROLL, _
                            %WS_EX_CLIENTEDGE OR %WS_EX_LEFT, _
                            "EDIT", _
                            "", _
                            ""

    DlgTemplate_AddControl      sDlg, _
                            w, _
                            9, _
                            30, _
                            14, _
                            %IDOK, _
                            0, _
                            %BS_PUSHBUTTON OR %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP, _
                            0, _
                            "BUTTON", _
                            "OK", _
                            ""

    sDlg = sDlg + CHR$(0)
  RetVal = DialogBoxIndirectParam(GetModuleHandle(""), BYVAL STRPTR(sDlg), 0, CODEPTR(DlgProc), 0)
  IF RetVal = -1 THEN
     PRINT "No Go"
     WAITKEY$
  END IF

END FUNCTION
'==============================================================================
FUNCTION _
    DlgProc ( _
      BYVAL hDlg      AS DWORD,_
      BYVAL wMsg      AS DWORD,_
      BYVAL wParam    AS DWORD,_
      BYVAL lParam    AS LONG _
    ) AS LONG

    SELECT CASE wMsg
        CASE %WM_INITDIALOG
            CenterWindow hDlg
        CASE %WM_COMMAND
            IF LO(WORD,wParam) = %IDOK THEN
                IF HI(WORD,wParam) = %BN_CLICKED THEN
                    UserName = STRING$(GetWindowTextLength(GetDlgItem(hDlg,101))+1,32)
                    GetWindowText GetDlgItem(hDlg,101),BYVAL STRPTR(UserName),LEN(UserName)
                    SendMessage hDlg,%WM_CLOSE,0,0
                END IF
            END IF
        CASE %WM_CLOSE
            EndDialog hDlg,1
    END SELECT
END FUNCTION
'==============================================================================
FUNCTION PBMAIN() AS LONG

    InputFunction "Enter Name"
    ? UserName
    WAITKEY$
END FUNCTION

[Michael Mattias]

Woo, you went 'deluxe' in spite of your request for " a very simple INPUTBOX$"

FWIW, you could put that in your library of code you can use with either compiler with conditional compilation...

#IF %DEF(%pb_cc32) 
  DECLARE FUNCTION InputBox LIB "mylib.dll" ALIAS "inputfunction" (BYVAL s AS STRING) AS STRING
#ENDIF

Or just put the two functions in a separate file and conditionally #INCLUDE instead of DECLARE...

You'd have to add the two optional parameters to your function header, but then you would have - literally - "INPUTBOX$ for PB/CC"

I've done this kind of thing with MSGBOX (for PB/CC) and STDOUT (for PB/WIN). That is, both MSGBOX and STDOUT are valid regardless of which compiler I am working with that day.



MCM

[Christopher Becker]

Michael, you also have to realize that sometimes I enjoy re-inventing the wheel. I have much more experience with PBCC than PB/DLL/Win, so there's always a lesson or two even in writing small functions like that one.

I've learned a lot just from reading your posts.

[Christopher Becker]

#COMPILE DLL

GLOBAL UserName AS STRING

CALLBACK FUNCTION OkButton () AS LONG
    IF CBCTLMSG = 0 THEN
        CONTROL GET TEXT CBHNDL, 101 TO UserName
        DIALOG END CBHNDL, 1
        FUNCTION = 1
    END IF
END FUNCTION

FUNCTION inputFunction ALIAS "inputFunction" (BYVAL Param1 AS STRING) EXPORT AS STRING
    DIM hDlg   AS DWORD
    DIM Result AS LONG
    DIM w AS LONG
    w = INT(LEN(Param1) * 5)   ' width of winidow
    IF w < 105 THEN w = 105
    DIALOG NEW 0, Param1,,, (w + 40), 30 TO hDlg
    CONTROL ADD TEXTBOX, hDlg, 101, "", 14,  9, (w - 28), 12
    CONTROL ADD BUTTON, hDlg, 102, "OK", w, 9, 30, 14, 1 CALL OkButton
    DIALOG SHOW MODAL hDlg TO Result
    IF Result THEN FUNCTION = UserName
END FUNCTION

Bulkier code, but smaller GUI. Whatever.

[Michael Mattias]

Here's the obvious source, written on-line

' Myfile.bas 
#COMPILE DLL 
FUNCTION InputFunction ALIAS "inputfunction" (BYVAL s AS STRING) EXPORT AS STRING
    FUNCTION = INPUTBOX$(S) 
END FUNCTION
' //END OF FILE

(If you can compile to a DLL, you must have PB/Windows, in which the INPUTBOX$ function is available!)

[Emil Menzel]

Christpher,
I would like to see the source code for your InputFunction.

[Christopher Becker]

#COMPILER PBCC 4
DECLARE FUNCTION inputFunction LIB "c:\InputBoxCC.dll" _
          ALIAS "inputFunction" (BYVAL Param1 AS STRING) AS STRING
          
FUNCTION PBMAIN () AS LONG
    DIM answer AS STRING
    answer = inputFunction("What's your name?")
    PRINT answer
    WAITKEY$
END FUNCTION

Michael, I liked the "Real Men" comment ('nuff said!). But I couldn't help take a little shortcut (a Marine once told me, if it's stupid but it works, it's not stupid. The DLL was written in PB/DLL 8.0. I can provide the source if anyone wants it. The compiled DLL, which you'll need to download and copy to your c:\ folder, is here: http://aatfss.net/InputBoxCC.dll

[Mike Doty]

This would work if the screen size could be correctly controlled.
I've had no luck controlling screen sizes without Console Tools.
Might try using virtual screens instead CONSOLE SET VIRTUAL

#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN () AS LONG
  LOCAL s AS STRING
  CONSOLE SET SCREEN 10, 40
  LINE INPUT "Please enter your name: " s
END FUNCTION

[Michael Mattias]

>...or to use Console Tools, which provides ..

Real Men...

[Eric Pearson]

...or to use Console Tools, which provides several different input boxes.

-- Eric Pearson, Perfect Sync, Inc.

OK, I think that I understand: a typical PBCC user must forget
about INPUTBOX and be happy with the good old INPUT,
unless she/he is willing to investigate low-level Windows programming.

[jcfuller]

Here's a start:

https://www.jcfuller.com/pbccdlg.zip

James

[Michael Mattias]

With PB/CC, it does not get any easier than Dialogbox.

Unless....

.. Some kind soul writes a PB/CC "INPUTBOX$" FUNCTION (using DialogBoxIndirect), which would be a really nice project resulting in a no doubt very useful piece of code and the undying and quasi-eternal appreciation of all PB/CC programmers everywhere.

I'll even start if for you ..

#IF NOT %DEF (%pb_cc32) 
 FUNCTION INPUTBOX ( some params go here )  AS STRING
    Some code goes here
 END FUNCTION 
#ENDIF

Of course, since YOU asked, YOU could do it. Search source code forum for examples of either DialogBoxIndirect[Param] or CreateDialogIndirect[Param]. The use of any of these four functions will show you how to build the dialog template and fill in the blanks left by the Windows SDK documentatation for those functions.

MCM

Is it possible to have in PBCC a very simple
INPUTBOX$ function (with its own window)?
Something like
answer$ = INPUTBOXCC$("Your name please:")

I saw in an old post a suggestion to use DialogBox API
but it seems that a good knowledge of the API is needed for this.

Thank you,
Victor