ab.com コミュニティ

お二人ともありがとうございます

参考にして今後とも精進していきたいと思います。

'註:timerは設定したい数値, hWndは設定したいウィンドウのハンドル
'さらに註:SetWindowTextは別のアプリケーションのウィンドウには使えません
Dim str As String
str = "あと" + Str$(timer) + "秒"
SetWindowText(hWnd, StrPtr(str))

[url]http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwinui/html/_win32_setwindowtext.asp[/url]
タイマーということなので数値をタイトルバーに設定するとして、
SetWindowTextはLPCTSTR,すなわちchar*(BytePtr)またはwchar_t*しか取らないので変換する必要があります

[code]'註:timerは設定したい数値, hWndは設定したいウィンドウのハンドル
'さらに註:SetWindowTextは別のアプリケーションのウィンドウには使えません
Dim str As String
str = "あと" + Str$(timer) + "秒"
SetWindowText(hWnd, StrPtr(str))[/code]

やっていることは、timerの数値をStringに変換して"あと"と"秒"をつけて
StringからBytePtrに変換してSetWindowTextを呼び出しています.

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim Titel[MAX_PATH] As BYTE
lstrcpy(Titel ,"abcdefg")
SetWindowText(hMainWnd, Titel)
End Sub

ウィンドウが作成された後にSetする必要があります。

[code]
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim Titel[MAX_PATH] As BYTE
lstrcpy(Titel ,"abcdefg")
SetWindowText(hMainWnd, Titel)
End Sub
[/code]

こんにちはbynn62といいますが・・・


現在、見よう見真似で作ったタイマーのソフトを作っていますが

タイトルバーにあと○○秒などの文字を入れたいと思っていますが


はじめはSetWindowText関数で行けばいいかと思いましたが

設定する文字列が格納されている、バッファへのポインタがわかりません


これは別の関数で設定するのでしょうか？

よろしくお願いします