ab.com コミュニティ

ActiveBasicを通したコミュニケーション
前回の訪問日時: 2019年4月24日(水) 15:11 現在時刻 - 2019年4月24日(水) 15:11

All times are UTC+09:00




 [ 4 件の記事 ] 
作成者 メッセージ
 記事の件名: メニューのレ点
投稿記事Posted: 2005年6月18日(土) 11:54 
オフライン

登録日時: 2005年6月03日(金) 13:39
記事: 8
タスクトレイを右クリックするとポップアップメニューが表示され、
その中の項目にレ点(チェック)を使ってON&OFFの状態を作りたいのですが、
コード:
Sub MainWnd_IDM_Switch_MenuClick()
	Dim WorkMenu As MENUITEMINFO
	Dim WorkLong As Long

	WorkLong=GetMenuItemInfo(hMenu_IDM_TRAY,IDM_Switch,MF_BYCOMMAND,WorkMenu)
	GetLastErr("Test") ’過去ロブにあったエラーメッセージ確認ルーチン
	DEBUG	
	'SetMenuItemInfo(hMenu_IDM_TRAY,IDM_Switch,MF_BYCOMMAND,WorkMenu)
End Sub
パラメータが不正と怒られてしまいます。WorkMenuの中に値が入りません。
メニュー項目のチェックや文字列を取得し、値の変更を行いたいのですが
どのようにすればいいのでしょうか?

_________________
--/* from Canalime */--  


ページトップ
   
 
 記事の件名: Re: メニューのレ印
投稿記事Posted: 2005年6月20日(月) 20:30 
> タスクトレイを右クリックするとポップアップメニューが表示され、
> その中の項目にレ点(チェック)を使ってON&OFFの状態を作りたいのですが、
コード:
'メニュー項目のチェックマークを制御
Declare Function CheckMenuItem Lib "user32" _
    (hMenu As Long, wIDCheckItem As Long, wCheck As Long) As Long

'メニューのチェック状態を設定
  CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_CHECKED)      'ON

  CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_CHECKED)      'OFF
> パラメータが不正と怒られてしまいます。WorkMenuの中に値が入りません。
> メニュー項目のチェックや文字列を取得し、値の変更を行いたいのですが
> どのようにすればいいのでしょうか?

http://yokohama.cool.ne.jp/chokuto/uraw ... INFO.html] ←参照
コード:
Dim WorkMenu As MENUITEMINFO
Dim WorkLong As Long
Dim buf[MAX_PATH] As Byte

FillMemory (VarPtr(WorkMenu), Len(WorkMenu), 0)
With WorkMenu
  .cbSize=Len(WorkMenu)
  .fMask=MIIM_STATE Or MIIM_TYPE
  .fType=MFT_STRING
  .cch=MAX_PATH
  .dwTypeData=VarPtr(buf)
End With

WorkLong=GetMenuItemInfo(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND, WorkMenu)
Debug


ページトップ
   
 
 記事の件名: Re: メニューのレ印
投稿記事Posted: 2005年6月20日(月) 20:41 
ゴメンなさい、訂正します。
コード:
[誤]
  CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_CHECKED)    'OFF

[正]
  CheckMenuItem(hMenu_IDM_TRAY, IDM_Switch, MF_BYCOMMAND Or MFS_UNCHECKED)    'OFF
以上。

ID登録していないので、修正出来ませんでした。


ページトップ
   
 
 記事の件名:
投稿記事Posted: 2005年6月21日(火) 01:06 
オフライン

登録日時: 2005年6月03日(金) 13:39
記事: 8
http://yokohama.cool.ne.jp/chokuto/uraw ... uItem.html
上記のサイトに
> この関数はSetMenuItemInfo関数に取って代わられましたが、まだ使用できます。
とあったのでSetMenuItemInfoの方を使いましたがお陰様で解決いたしました。
有り難う御座いました。 <m(__)m>

_________________
--/* from Canalime */--  


ページトップ
   
 
 [ 4 件の記事 ] 

All times are UTC+09:00


オンラインデータ

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


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

ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke