ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 10:55

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年7月22日(土) 21:00 
//質問:EditBoxのテキストをSetTimerで更新すると
//正しく表示されない時があるのはなぜ?
Dim dw_pClock As DWord
dw_pClock = AddressOf(Clock) As DWord
/*
上記でAddressOf()はVoidPtrを返す為、
As DWordでキャストしないと、
[警告] VoidPtrからDWordに強制変換されています。と出る。
*/
SetTimer(GetDlgItem(hTimerWindow,EditBox),1,980,dw_pClock)
'980msecたったら、Clock()というFunction内で、年月日時分秒を更新し、
'EditBoxに再描画するコードを書きました。しかし、
Dim ST As SYSTEMTIME
Dim Now As String
GetLocalTime(ST)
Now = "今は"+Str$(ST.wYear)+"年"+Str$(ST.wMonth)+"月"+Str$(ST.wDay)+"日"+ _
Str$(ST.wHour)+"時"+Str$(ST.wMinute)+"分"+Str$(ST.wSecond)+"秒"+"です。
'としてEditBoxに
SetWindowText(hWnd2,StrPtr(Now))
'でテキスト設定をしましたが、
'ここで、hWnd2は、親ウィンドウがTimerWindowとして、
'GetDlgItem(hTimerWindow,EditBox)
'このようにすると、SetTimerでStr$(ST.wYear)の部分でEditBoxの表示は
'一旦は、2006年と表示されても、すぐに0年となってしまいます。

'しかし、
Dim bufferTime[255] As Byte
Dim bufferDate[255] As Byte
GetDateFormat(LOCALE_USER_DEFAULT,LOCALE_NOUSEROVERRIDE,ByVal 0,0,bufferDate,255)
GetTimeFormat(LOCALE_USER_DEFAULT,LOCALE_NOUSEROVERRIDE,ByVal 0,0,bufferTime,255)
Now = "今は"+MakeStr(bufferDate)+"の"+MakeStr(bufferTime)+"です。"
'として、EditBoxに
SetWindowText(hWnd2,StrPtr(Now))
'でテキスト設定をすると2006の部分は0となりません。
'どのような原因でしょうか?
'どなたか、初心者に御教え頂けませんでしょうか?


通報する
ページトップ
   
投稿記事Posted: 2006年7月22日(土) 22:46 
7月22日のkの投稿はフォーラムを間違えています。
すいませんでした。
実践コードモジュールではなくプログラム質問箱でした。


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2006年7月23日(日) 00:25 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
・・・箱?
プログラム質問のことですか?

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[14人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean