ab.com コミュニティ

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

    Dim BHandle As HWND

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

    Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
    	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	    ' イベントプロシージャの呼び出しを行います。
	    MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
    End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

    Sub MainWnd_Destroy()
	    Test_DestroyObjects()
	    PostQuitMessage(0)
    End Sub

    Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
        BHandle = GetDlgItem(hMainWnd,EditBox1)
    End Sub

    Sub MainWnd_CommandButton1_Click()
        GetText("2")
    End Sub

    Sub GetText(Addition As BytePtr)
        Dim GStr As BytePtr
        GStr=GetStr(BHandle)
        MsgBox hMainWnd, MakeStr( GStr )
        GStr=realloc(GStr,Len(MakeStr(Addition))+1)
	    Invalid(lstrcat (GStr,Addition))
        MsgBox 0,MakeStr(GStr)
        free(GStr)
        free(Addition)
    End Sub

    Function GetStr(Handle As HWND) As BytePtr
        Dim StrByte As Byte
        StrByte = SendMessage (
                Handle ,
                WM_GETTEXTLENGTH ,
                NULL ,
                NULL
            ) As Byte + 1
        GetStr = malloc (StrByte)
        Select Case GetWindowText( Handle , GetStr, StrByte )
            Case Not NULL
                free (GetStr)
                GetStr = NULL
        End Select
    End Function

    Sub Invalid ( GStr As BytePtr )
        SetDlgItemText (
                hMainWnd ,
                EditBox1 ,
                GStr ,
            )
    End Sub

コード: 全て選択

'指定したIDのコントロールのテキストを取得し、BytePtr型で返す。
'必要なくなったら、そのBytePtr変数はfree()しなければならない。
'取得に失敗した場合はNULLが返る。その場合は当然free()する必要は無い。
Function CallocAndGetDigItemTestBytePtr( nIDDlgItem As Long ) As BytePtr
    Dim hAny As HANDLE
    Dim nLength As Long

    hAny = GetDlgItem( hMainWnd, nIDDlgItem )
    nLength = GetWindowTextLength( hAny ) + 1
    CallocAndGetDigItemTestBytePtr = Calloc( nLength )
    If( 0=GetWindowText( hAny, CallocAndGetDigItemTestBytePtr, nLength ) )Then
        free( CallocAndGetDigItemTestBytePtr )
        CallocAndGetDigItemTestBytePtr = NULL
    EndIf
EndFunction


'ここから実際にEditBoxの文字列取得。
Dim pBuf As BytePtr

'戻り値がBytePtr型。NULLで無ければ、文字列が格納されている。
pBuf = CallocAndGetDigItemTestBytePtr( EditBox1 )

MsgBox hMainWnd, MakeStr( pBuf ), "確認"
free( pBuf )

コード: 全て選択

Function GetWindowStr(ByVal hWnd As HWND) As LPSTR
Dim length As Long
	length=GetWindowTextLength(hWnd)+1
	GetWindowStr=malloc(length)
	GetWindowStr[GetWindowText(hWnd,GetWindowStr,length)]=0
End Function

' 使い方
Dim lpStringBuf As LPSTR
	lpStringBuf=GetWindowStr(hMainWnd)
	MessageBox(hMainWnd,lpStringBuf,"タイトル",MB_OK)
	free(lpStringBuf)

コード: 全て選択

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。


'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub MainWnd_Destroy()
	Test_DestroyObjects()
	PostQuitMessage(0)
End Sub

Sub MainWnd_CommandButton1_Click()
    Dim hEdit As HWND
    Dim EditStr As BytePtr
    Dim MemoryF As Byte
    hEdit=GetDlgItem(hMainWnd,EditBox1)
    Select Case MemoryF
        Case 0
            EditStr=malloc(SendMessage(hEdit,WM_GETTEXTLENGTH +1,0,0))
            MemoryF = 1
        Case 1
            realloc( EditStr,SendMessage (hEdit,WM_GETTEXTLENGTH +1,0,0))
    End Select
    GetWindowText(hEdit,EditStr,SendMessage(hEdit,WM_GETTEXTLENGTH,0,0) +1)
    MsgBox 0,MakeStr(EditStr)
    free(EditStr) 'ここでエラーが出てしまいます。
End Sub