ab.com コミュニティ

コード: 全て選択

Declare Function strtok CDECL Lib "crtdll" (s1 As *Byte,s2 As *Byte) As *Byte

Sub MainWnd_CommandButton1_Click()
	Dim buf[255] As Byte,k As *Byte
	k=buf
	GetWindowText(hTime1,k,255)
	strtok(k,":"):SetWindowText(GetDlgItem(hMainWnd,Static1),k):k=k+lstrlen(k)+1
	strtok(k,":"):SetWindowText(GetDlgItem(hMainWnd,Static2),k):k=k+lstrlen(k)+1
	SetWindowText(GetDlgItem(hMainWnd,Static3),k)
End Sub

コード: 全て選択

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

Type NMDATETIMECHANGE
    nmhdr As NMHDR 
    dwFlags As DWORD       
    st As SYSTEMTIME       
End Type

Const DTN_FIRST = (-760)
Const DTN_DATETIMECHANGE = (DTN_FIRST + 1)

Dim DTPInfo As NMDATETIMECHANGE

コード: 全て選択

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

	Select Case dwMsg

		Case WM_NOTIFY

		'送られてきたlParamの内容を「DTPInfo」へコピーする
		memcpy(VarPtr(DTPInfo),lParam,Len(DTPInfo))

		'日付時刻の変更通知ならば...
		If DTPInfo.nmhdr.code = DTN_DATETIMECHANGE Then
			
			'送信元が「hDate1」ならば...
			If DTPInfo.nmhdr.hwndFrom = hDate1 Then

				Dim temp[100] As Byte
				wsprintf(temp, "選択された日付：%04d/%02d/%02d" ,DTPInfo.st.wYear, DTPInfo.st.wMonth , DTPInfo.st.wDay)

				'メインウィンドウのEditBox1へ結果を表示する
				SetDlgItemText(hMainWnd,EditBox1,temp)

			End If

		End If

		Exit Function

	End Select

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

End Function