ab.com コミュニティ

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

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




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
 記事の件名: デスクトップの背景
投稿記事Posted: 2009年1月11日(日) 00:40 
オフライン

登録日時: 2006年9月21日(木) 21:55
記事: 13
お住まい: 愛知県
デスクトップの背景に設定してある画像を新しい画像に上書きしても(当然ですが)すぐには背景が新しいものに更新されないので更新したいのですが・・・。
コード:
Dim hDW As HWND
hDW=GetDesktopWindow()
SetForegroundWindow(hDW)

keybd_event(VK_RBUTTON,0,0,0)'押す
keybd_event(VK_RBUTTON,0,KEYEVENTF_KEYUP,0)'離す

keybd_event(Asc("R"),0,0,0)'押す
keybd_event(Asc("R"),0,KEYEVENTF_KEYUP,0)'離す

keybd_event(VK_MENU,0,0,0)'押す
keybd_event(Asc("K"),0,0,0)'押す
keybd_event(Asc("K"),0,KEYEVENTF_KEYUP,0)'離す
keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0)'離す
このように仮想キーコード使ってもうまくいかなかったのですが、なにか方法はないでしょうか?vistaです。


通報する
ページトップ
 記事の件名: もしかして
投稿記事Posted: 2010年1月10日(日) 04:15 
SystemParametersInfoを使えば良いと思います。

コード:
Dim bmp[MAX_PATH] As Byte
lstrcpy(bmp, "C:\Windows\グリーン ストーン.bmp")
SystemParametersInfo(SPI_SETDESKWALLPAPER,3,bmp, SPIF_UPDATEINIFILE)


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

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


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot], Bing [Bot] & ゲスト[23人]


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

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