ab.com コミュニティ

by **エイチ** » 2005年10月23日(日) 11:17

なるほど。どうもありがとうございました。早速やってみたいと思います。

by **イグトランス** » 2005年10月21日(金) 17:08

後でSetDlgItemIntを使って設定するので，mwp[1].lpWindowName = ""としておけばいいです。
IDを入れるmwp[1].hMenuはHWNDとは関係なく適当な値を使えばいいのです。
(Constを使って名前を付けておけばいいです)

ところでSetDlgItemIntの最初の引数は親となるcalenderです。

by **エイチ** » 2005年10月20日(木) 22:49

　イグトランス様、ありがとうございます。
　ずうずうしいですが、重ねてお聞きします。もしこのソースを生かすとして、mwp[1].lpWindowName には、どのように代入すればいいのでしょうか？先日来この掲示板にて質問させていただいていたのはまさにここなのですが。あと、mwp[1].hMenu には、w_num[1]を代入すればいいのですか？

by **イグトランス** » 2005年10月20日(木) 22:25

SetDlgItemIntはウィンドウが作成された後でないと使えません。
その他HWNDを引数にとる関数は全てそうです。

また子ウィンドウを作るときにはHMENU引数には子ウィンドウを識別するためのID(整数値)を指定します。
このIDこそSetDlgItemInt/Textなどの第２引数に渡します。

あと、MWP構造体を作らずとも、多少メンバ名は違いますがCREATESTRUCT構造体が使えると思います。
ヘルプにはありませんのでメンバ補完で見てください。
全てCreateWindowExの引数と対応しています。

by **エイチ** » 2005年10月20日(木) 21:50

毎日すみません。どうしても期待どうりに動かないのでソースを見ていただけないでしょうか？多分、基本的なところで間違っているんだと思います。

Type MWP 'ウィンドウを作るための構造体宣言
dwExStyle As DWord
lpClassName As BytePtr
lpWindowName As BytePtr
dwStyle As DWord
x As Long
y As Long
nWidth As Long
nHeight As Long
hMenu As HMENU
hInstance As HINSTANCE
lpParm As VoidPtr
End Type

'変数宣言
Dim year As integer
year = 2005
Make_Window()
end

/*-------------------------------------------------------------------------------------------------*/
/*------------------------------------------以下、ウィンドウの作成---------------------------------*/
/*-------------------------------------------------------------------------------------------------*/
Function Make_Window()
Declare Function SetDlgItemInt Lib "User32" (
hDlg As HWND,
nIDDlgItem As long,
uValue As DWord,
bSigned As Long) As Long

Dim lpWcx As WNDCLASSEX
Dim hBrush As HBRUSH

Dim calender As HWND 'カレンダー表示のメインウィンドウ
Dim w_num[50] As HWND 'カレンダー表示のチャイルドウィンドウ
Dim mwp[50] As MWP 'カレンダー表示のための引数構造体

'作成ウィンドウのサイズ定数
Const CalenderWindow_Width = 440 'カレンダー表示ウィンドウの横幅
Const CalenderWindow_Height = 390 'カレンダー表示ウィンドウの高さ

Const Height = 20 '高さ
Const Yohaku = 20 '余白
Const ButtonLength = 75 'ボタンの長さ
Const EditBoxLength = 50 'エディットボックスの長さ

Const FirstRetsu_X = Yohaku '１列目のウィンドウのＸ座標

Const FirstGyo_Y = 20 '１行目のウィンドウのＹ座標

/*-------------------------------------------------------------------*/
/*------カレンダー表示のための引数構造体に代入-----------------------*/
/*-------------------------------------------------------------------*/
mwp[0].dwExStyle = NULL '以下、一月前表示ボタン作成のための引数データです
mwp[0].lpClassName = "BUTTON"
mwp[0].lpWindowName = "<"
mwp[0].dwStyle = WS_CHILD or WS_VISIBLE
mwp[0].x = FirstRetsu_X
mwp[0].y = FirstGyo_Y
mwp[0].nWidth = ButtonLength
mwp[0].nHeight = Height
mwp[0].hMenu = 0
mwp[0].hInstance = GetModuleHandle(0)
mwp[0].lpParm = NULL

mwp[1].dwExStyle = NULL '以下、年の表示エディットボックス作成のための引数データです
mwp[1].lpClassName = "EDIT"
mwp[1].lpWindowName = SetDlgItemInt(w_num[1],mwp[1].lpWindowName,2005,TRUE)
mwp[1].dwStyle = WS_CHILD or WS_VISIBLE or SS_CENTER
mwp[1].x = FirstRetsu_X + ButtonLength + Yohaku
mwp[1].y = FirstGyo_Y
mwp[1].nWidth = EditBoxLength
mwp[1].nHeight = Height
mwp[1].hMenu = NULL
mwp[1].hInstance = GetModuleHandle(0)
mwp[1].lpParm = NULL

Dim lpMsg As MSG

Dim i As Integer 'カウンター変数

' ブラシの作成
hBrush = CreateSolidBrush(GetSysColor(COLOR_3DFACE))

' 変数lpWcxの初期化
FillMemory(VarPtr(lpWcx), Len(lpWcx), 0)

' クラスデータの設定
With lpWcx
.lpszClassName = "NORMAL"
.lpfnWndProc = AddressOf(MainWndProc)

.hIcon = LoadIcon(NULL,IDI_APPLICATION)
.hIconSm = LoadIcon(NULL,IDI_WINLOGO)
.hCursor = LoadCursor(NULL,IDC_ARROW)

.cbSize = SizeOf(WNDCLASSEX)
.style = CS_DBLCLKS or CS_HREDRAW or CS_VREDRAW
.hInstance = GetModuleHandle(0)
.hbrBackground = hBrush
End With

' ウィンドウクラスの登録
RegisterClassEx(lpWcx)

' メインウィンドウの作成
calender =_
CreateWindowEx(
NULL, '以下、メインウィンドウの作成のための引数データです
"NORMAL",
"ToDo" ,
WS_OVERLAPPEDWINDOW or WS_VISIBLE ,
CW_USEDEFAULT ,
CW_USEDEFAULT ,
CalenderWindow_Width ,
CalenderWindow_Height ,
NULL ,
NULL ,
GetModuleHandle(0),
NULL
)

'チャイルドウィンドウの作成
for i = 0 to 1
w_num =_
CreateWindowEx(
mwp.dwExStyle ,
mwp.lpClassName ,
mwp.lpWindowName ,
mwp.dwStyle ,
mwp.x ,
mwp.y ,
mwp.nWidth ,
mwp.nHeight ,
calender,
mwp.hMenu ,
mwp[i].hInstance ,
mwp[i].lpParm
)
Next

' メッセージループ
While GetMessage(lpMsg, 0, 0, 0) > 0
TranslateMessage(lpMsg)
DispatchMessage(lpMsg)
Wend

' 終了
DeleteObject(hBrush)
End Function

' コールバック関数
Function MainWndProc(hWnd As HWND, wMsg As DWord, wParam As DWord, lParam As DWord) As Long
Select Case wMsg
Case WM_CLOSE
DestroyWindow(hWnd)
Case WM_DESTROY
PostQuitMessage(0)
Case Else
MainWndProc = DefWindowProc(hWnd, wMsg, wParam, lParam)
Exit Function
End Select
MainWndProc = 0
End Function

by **エイチ** » 2005年10月19日(水) 22:15

　イグトランス様、どうもありがとうございました。
　早速やってみました。しかし...。Str$を使い***.abp(**) - "Str$(year)" 無効な識別子ですとなってしまいます。またSetDlgItemIntですが、やってみたところコンパイルエラーにはなりませんが、EDITBOXに何も入ってきません。
どうしてなのでしょうか？

by **イグトランス** » 2005年10月18日(火) 23:02

すいません。Valではなく、Str$でした。
Str$は数値を文字列に変換する関数で、Valは文字列を数値にする関数です。
たとえばそのInteger型の変数が x ならStrPtr(Str$(x))とします。
これをCreateWindowExの第３引数に指定します。

SetDlgItemIntは自分でソースに宣言を置く必要があります。
プロジェクトのソースのどこかにこれを書いてください。
Declare Function SetDlgItemInt Lib "User32" (
hDlg As HWND,
nIDDlgItem As Long,
uValue As DWord,
bSigned As Long) As Long
使い方は１番目、２番目の引数はSetDlgItemTextと同じです。
３番目にコントロールに表示させたい数値を指定して、４番目はTRUEを指定してみてください。

by **エイチ** » 2005年10月18日(火) 22:28

ごめんなさい。ログインしてませんでした。

by **ゲスト** » 2005年10月18日(火) 22:26

　イグトランス様、大変ありがとうございました。
　早速やってみましたが満足いく結果ではなかったので、ご報告させていただきます。
　まず教えていただいたStrPtr(Val())を引数にしたところ、"Val()が無効です"とメッセージが出てコンパイルできません。またSetDlgItemIntについてですが、使い方が分からなかったので付属のヘルプを見たところ、この名前ではトピックで見つかりませんでした。似た名前のSetDlgItemTextを試してみましたが、エラーは出ませんが何も入っていないようです。
　やっぱり無理なことをしようとしているんでしょうかね。

by **イグトランス** » 2005年10月18日(火) 18:18

EditコントロールなどでしたらいったんCreateWindowExの第3引数は""として、直後でSetDlgItemIntを使うのが簡単です。
SetDlgItemIntはLong/DWord型の値で指定できます。
どちらもIntegerと同じく整数型なので、自動的に変換されます。

（あるいはStrPtr(Val())という手段もありますが）

by **エイチ** » 2005年10月18日(火) 06:27

　言葉足らずですみません。CreateWindowEx関数の第３パラメータに使いたい（EDITで表示したいし、できるなら入力されたものをinteger型に変更したい）と思ったのですが...。自分の中では、ここに表示させたい西暦が表示されるようにしたいと思っています。

by **konisi** » 2005年10月17日(月) 23:56

訂正、なんと言う名前の関数で使うのですか?

by **konisi** » 2005年10月17日(月) 23:46

> 　konisi様、イグトランス様、お忙しい中大変ありがとうございました。参考にさせていただきます。
> 　昨日の質問の件につきましては解決しました。Function内でTypeしてました。
> 　また新たな質問なのですが、integer型を関数の引数の型に合わせるために、BytePtr型にするにはどうすればいいのでしょうか？その場合、元のinteger型の変数も計算に使えるようにしておきたいのですが。
> 　本当に初心者で質問の仕方も要領がよく分かっていないのでおかしな表現があると思いますが、参考になるようなものがあればご紹介いただけると助かります。
> 　よろしくお願いします。
そもそもinteger型とBytePtr型のサイズが違うので、意味が良く分かりにくいのですが・・・何の関数で使うのですか?

by **エイチ** » 2005年10月17日(月) 23:41

　konisi様、イグトランス様、お忙しい中大変ありがとうございました。参考にさせていただきます。
　昨日の質問の件につきましては解決しました。Function内でTypeしてました。
　また新たな質問なのですが、integer型を関数の引数の型に合わせるために、BytePtr型にするにはどうすればいいのでしょうか？その場合、元のinteger型の変数も計算に使えるようにしておきたいのですが。
　本当に初心者で質問の仕方も要領がよく分かっていないのでおかしな表現があると思いますが、参考になるようなものがあればご紹介いただけると助かります。
　よろしくお願いします。

by **konisi** » 2005年10月17日(月) 23:13

相当暇だったので二ヶ国語対応にしてみました。
海外のWinOSで動くかどうかは問題外で、表記だけを英語にも出来るようにしたってだけですが。
もうちょっと小分け関数作ったほうがよかったなー。

コード: 全て選択


'ここから自作関数の定義
Function Sleep_IfFore()
	Do
		if GetForegroundWindow()=_PromptSys_hWnd then Exit Do
	Loop
End Function
Function PutKey$(ByRef C As Byte,ByRef S As Byte,ByRef A As Byte,ByRef R As Byte,ByRef L As Byte,ByRef H As Byte) As String
	C=0
	S=0
	A=0
	R=0
	L=0
	H=0
	Dim i,A$ As String
		For i=&h00 To &hf0
		if GetAsyncKeyState(i) And &h8000 Then
			Select Case i
				Case 1
					L=1
				Case 2
					R=1
				Case 4
					H=1
				Case 16
					S=1
				Case 17
					C=1
				Case 18
					A=1
				Case 160
					if S=1 then S=2
				Case 162
					if C=1 then C=2
				Case 164
					if A=1 then A=2
				Case Else
					A$=Chr$(i)
			End Select
		Endif
	Next I
	if S=1 then S=0
	if C=1 then C=0
	if A=1 then A=0
	if S=2 then S=1
	if C=2 then C=1
	if A=2 then A=1
	PutKey$=A$
End Function
Function OnMouse(ByRef X As DWord,ByRef Y As DWord) As Double
	Dim A As POINTAPI
	Dim B As RECT
	GetWindowRect(_PromptSys_hWnd,B)
	GetCursorPos(A)
	X=A.x-B.left-6
	Y=A.y-B.top-31
	OnMouse=-1
End Function
Type FuncKey
	A As Byte
	C As Byte
	S As Byte
End Type
Type FuncMouse
	L As Byte
	R As Byte
	H As Byte
End Type
Function Eng$(Month As Long) As String
if Month=1 then Eng$="January"
if Month=2 then Eng$="February"
if Month=3 then Eng$="March"
if Month=4 then Eng$="April"
if Month=5 then Eng$="May"
if Month=6 then Eng$="June"
if Month=7 then Eng$="July"
if Month=8 then Eng$="August"
if Month=9 then Eng$="September"
if Month=10 then Eng$="October"
if Month=11 then Eng$="November"
if Month=12 then Eng$="December"
End Function
'ここまで。
'ここからメイン
#N88BASIC
Dim Mouse_x As DWord
Dim Mouse_y As DWord
Dim MouseKey As FuncMouse
Dim DoubleKey As FuncKey
Dim Key$ As String
Dim I As Long
Dim D As Long,DN As Long
Dim st As SYSTEMTIME
Dim Month_Day
Dim Flag_Input As Long
Dim A$ As String,TIME$ As String
Dim Lang As Long
Lang=1'1の時日本語、2の時英語
GetLocalTime(st)

'現在の日付と曜日からその月の開始する曜日を計算
st.wDay=(st.wDay-st.wDayOfWeek+5) Mod 7
if st.wDay=0 then st.wDay=7
*START_J

DN=1

'その月の日数を計算
if st.wMonth=1 then Month_Day=31
if st.wMonth=2 then
	if st.wYear Mod 4=0 then'4で割れると閏年
		Month_Day=29
	Else
		Month_Day=28
	Endif
	if st.wYear Mod 100=0 then'ただし100で割れると閏年としない
		Month_Day=28
	Endif
	if st.wYear Mod 400=0 then'ただし400で割れれば閏年とする
		Month_Day=29
	Endif
End If
if st.wMonth=3 then Month_Day=31
if st.wMonth=4 then Month_Day=30
if st.wMonth=5 then Month_Day=31
if st.wMonth=6 then Month_Day=30
if st.wMonth=7 then Month_Day=31
if st.wMonth=8 then Month_Day=31
if st.wMonth=9 then Month_Day=30
if st.wMonth=10 then Month_Day=31
if st.wMonth=11 then Month_Day=30
if st.wMonth=12 then Month_Day=31

'ここから表示
Cls 3
Locate 21,0
Print st.wYear;"年";st.wMonth;"月"
Locate 7,0
Print "先月"
Locate 47,0
Print "次月"
Locate 7,2
Print "日     月     火     水     木     金     土"
For D=st.wDay To 7
	Locate D*7,4
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,7
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,10
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,13
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	if DN>Month_Day then Exit For
	Locate D*7,16
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	if DN>Month_Day then Exit For
	Locate D*7,19
	Print DN
	DN=DN+1
Next D
Locate 8,21
A$="現在時刻:"+Date$()+"   "+TIME$
Print A$
Locate 0,23
Print "Altキーで表示言語切り替え"
Print "Ctrlキーで適用"
Print "It is a display language switch with the Alt key. "
Print "It applies with the Ctrl key. "
'ここまで
'ここから入力待ち
Do'左ボタンがクリックされた場合に抜け出せる場合があるループ
	Sleep_IfFore()'フォアグランドウインドウではない場合にクリックに反応しない
	Key$=PutKey$(DoubleKey.C,DoubleKey.S,DoubleKey.A,MouseKey.R,MouseKey.L,MouseKey.H)
	OnMouse(Mouse_x,Mouse_y)
	Flag_Input=0
	if MouseKey.L=1 then Flag_Input=1
	if Mouse_x>53 then Flag_Input=Flag_Input+1
	if Mouse_x<86 then Flag_Input=Flag_Input+1
	if Mouse_y>-1 then Flag_Input=Flag_Input+1
	if Mouse_y<16 then Flag_Input=Flag_Input+1
	if Flag_Input=5 then
		st.wMonth=st.wMonth-1
		if st.wMonth=0 then st.wMonth=12:st.wYear=st.wYear-1

		if st.wMonth=1 then Month_Day=31
		if st.wMonth=2 then
			if st.wYear Mod 4=0 then
				Month_Day=29
			Else
				Month_Day=28
			Endif
			if st.wYear Mod 100=0 then
				Month_Day=28
			Endif
			if st.wYear Mod 400=0 then
				Month_Day=29
			Endif
		End If
		if st.wMonth=3 then Month_Day=31
		if st.wMonth=4 then Month_Day=30
		if st.wMonth=5 then Month_Day=31
		if st.wMonth=6 then Month_Day=30
		if st.wMonth=7 then Month_Day=31
		if st.wMonth=8 then Month_Day=31
		if st.wMonth=9 then Month_Day=30
		if st.wMonth=10 then Month_Day=31
		if st.wMonth=11 then Month_Day=30
		if st.wMonth=12 then Month_Day=31

		st.wDay=(st.wDay-Month_Day+35) Mod 7
		if st.wDay=0 then st.wDay=7
		Exit Do
	End if

	Flag_Input=0
	if MouseKey.L=1 then Flag_Input=1
	if Mouse_x>373 then Flag_Input=Flag_Input+1
	if Mouse_x<406 then Flag_Input=Flag_Input+1
	if Mouse_y>-1 then Flag_Input=Flag_Input+1
	if Mouse_y<16 then Flag_Input=Flag_Input+1
	if Flag_Input=5 then
		st.wDay=(st.wDay+Month_Day) Mod 7
		if st.wDay=0 then st.wDay=7
		st.wMonth=st.wMonth+1
		if st.wMonth=13 then st.wMonth=1:st.wYear=st.wYear+1
		Exit Do
	Endif
	'ここから現在時刻の表示
	if Time$()<>TIME$ then
		Locate 8,21
		TIME$=Time$()
		A$="現在時刻:"+Date$()+"   "+TIME$
		Print A$
	End If
	if DoubleKey.A=1 then Lang=2
	if DoubleKey.C=1 then Exit Do
Loop
Do'押しっぱなしの場合にせきとめるループ
	Key$=PutKey$(DoubleKey.C,DoubleKey.S,DoubleKey.A,MouseKey.R,MouseKey.L,MouseKey.H)
	if MouseKey.L=0 then Exit Do
Loop
'ここまで
if Lang=1 then goto *START_J Else goto *START_E

*START_E

DN=1

'その月の日数を計算
if st.wMonth=1 then Month_Day=31
if st.wMonth=2 then
	if st.wYear Mod 4=0 then'4で割れると閏年
		Month_Day=29
	Else
		Month_Day=28
	Endif
	if st.wYear Mod 100=0 then'ただし100で割れると閏年としない
		Month_Day=28
	Endif
	if st.wYear Mod 400=0 then'ただし400で割れれば閏年とする
		Month_Day=29
	Endif
End If
if st.wMonth=3 then Month_Day=31
if st.wMonth=4 then Month_Day=30
if st.wMonth=5 then Month_Day=31
if st.wMonth=6 then Month_Day=30
if st.wMonth=7 then Month_Day=31
if st.wMonth=8 then Month_Day=31
if st.wMonth=9 then Month_Day=30
if st.wMonth=10 then Month_Day=31
if st.wMonth=11 then Month_Day=30
if st.wMonth=12 then Month_Day=31

'ここから表示
Cls 3
Locate 21,0
Print st.wYear;"/";Eng$(st.wMonth)
Locate 7,0
Print "Last"
Locate 47,0
Print "Next"
Locate 7,2
Print "Sun    Mon    Tue    Wed    Thu    Fri    Sat"
For D=st.wDay To 7
	Locate D*7,4
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,7
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,10
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	Locate D*7,13
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	if DN>Month_Day then Exit For
	Locate D*7,16
	Print DN
	DN=DN+1
Next D
For D=1 To 7
	if DN>Month_Day then Exit For
	Locate D*7,19
	Print DN
	DN=DN+1
Next D
Locate 8,21
A$="Now Time:"+Date$()+"   "+TIME$
Print A$
Locate 0,23
Print "Altキーで表示言語切り替え"
Print "Ctrlキーで適用"
Print "It is a display language switch with the Alt key. "
Print "It applies with the Ctrl key. "
'ここまで
'ここから入力待ち
Do'左ボタンがクリックされた場合に抜け出せる場合があるループ
	Sleep_IfFore()'フォアグランドウインドウではない場合にクリックに反応しない
	Key$=PutKey$(DoubleKey.C,DoubleKey.S,DoubleKey.A,MouseKey.R,MouseKey.L,MouseKey.H)
	OnMouse(Mouse_x,Mouse_y)
	Flag_Input=0
	if MouseKey.L=1 then Flag_Input=1
	if Mouse_x>53 then Flag_Input=Flag_Input+1
	if Mouse_x<86 then Flag_Input=Flag_Input+1
	if Mouse_y>-1 then Flag_Input=Flag_Input+1
	if Mouse_y<16 then Flag_Input=Flag_Input+1
	if Flag_Input=5 then
		st.wMonth=st.wMonth-1
		if st.wMonth=0 then st.wMonth=12:st.wYear=st.wYear-1

		if st.wMonth=1 then Month_Day=31
		if st.wMonth=2 then
			if st.wYear Mod 4=0 then
				Month_Day=29
			Else
				Month_Day=28
			Endif
			if st.wYear Mod 100=0 then
				Month_Day=28
			Endif
			if st.wYear Mod 400=0 then
				Month_Day=29
			Endif
		End If
		if st.wMonth=3 then Month_Day=31
		if st.wMonth=4 then Month_Day=30
		if st.wMonth=5 then Month_Day=31
		if st.wMonth=6 then Month_Day=30
		if st.wMonth=7 then Month_Day=31
		if st.wMonth=8 then Month_Day=31
		if st.wMonth=9 then Month_Day=30
		if st.wMonth=10 then Month_Day=31
		if st.wMonth=11 then Month_Day=30
		if st.wMonth=12 then Month_Day=31

		st.wDay=(st.wDay-Month_Day+35) Mod 7
		if st.wDay=0 then st.wDay=7
		Exit Do
	End if

	Flag_Input=0
	if MouseKey.L=1 then Flag_Input=1
	if Mouse_x>373 then Flag_Input=Flag_Input+1
	if Mouse_x<406 then Flag_Input=Flag_Input+1
	if Mouse_y>-1 then Flag_Input=Flag_Input+1
	if Mouse_y<16 then Flag_Input=Flag_Input+1
	if Flag_Input=5 then
		st.wDay=(st.wDay+Month_Day) Mod 7
		if st.wDay=0 then st.wDay=7
		st.wMonth=st.wMonth+1
		if st.wMonth=13 then st.wMonth=1:st.wYear=st.wYear+1
		Exit Do
	Endif
	'ここから現在時刻の表示
	if Time$()<>TIME$ then
		Locate 8,21
		TIME$=Time$()
		A$="Now Time:"+Date$()+"   "+TIME$
		Print A$
	End If
	if DoubleKey.A=1 then Lang=1
	if DoubleKey.C=1 then Exit Do
Loop
Do
	Key$=PutKey$(DoubleKey.C,DoubleKey.S,DoubleKey.A,MouseKey.R,MouseKey.L,MouseKey.H)
	if MouseKey.L=0 then Exit Do
Loop
if Lang=2 then goto *START_E Else goto *START_J

どれだけ暇なんだろ。俺。
こういう改造しても意味無かったかな。

ab.com コミュニティ

カレンダーを作成しているのですが...

返信する

展開ビュートピックのレビュー: カレンダーを作成しているのですが...

返信遅くなり申し訳ありませんでした。

すごい恥ずかしいのですが

二ヶ国語対応版