ab.com コミュニティ

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

メニューのレ点

返信する

ユーザー名:

件名:

メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。

フォントサイズ:
	フォントカラー
[quote=Canalime post_id=404 time=1119283608 user_id=30] [url]http://yokohama.cool.ne.jp/chokuto/urawaza/api/CheckMenuItem.html[/url] 上記のサイトに > この関数はSetMenuItemInfo関数に取って代わられましたが、まだ使用できます。とあったのでSetMenuItemInfoの方を使いましたがお陰様で解決いたしました。有り難う御座いました。　＜ｍ（＿＿）ｍ＞ [/quote]

オプション:

BBCode: ON

[img]: ON

[flash]: OFF

[url]: ON

スマイリー: OFF

	BBCode を無効にする
	URL を自動的にパースしない

クイズ

お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。

トピックのレビュー - メニューのレ点

作成者

メッセージ

Canalime

記事の件名:

引用付きで返信する

http://yokohama.cool.ne.jp/chokuto/uraw ... uItem.html
上記のサイトに
> この関数はSetMenuItemInfo関数に取って代わられましたが、まだ使用できます。
とあったのでSetMenuItemInfoの方を使いましたがお陰様で解決いたしました。
有り難う御座いました。　＜ｍ（＿＿）ｍ＞

投稿記事

Posted: 2005年6月21日(火) 01:06

ＫＩＣＯ

記事の件名:

Re: メニューのレ印

引用付きで返信する

ゴメンなさい、訂正します。

コード:

[誤]
  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月20日(月) 20:41

ＫＩＣＯ

記事の件名:

Re: メニューのレ印

引用付きで返信する

> タスクトレイを右クリックするとポップアップメニューが表示され、
> その中の項目にレ点（チェック）を使ってＯＮ＆ＯＦＦの状態を作りたいのですが、

コード:

'メニュー項目のチェックマークを制御
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

投稿記事

Posted: 2005年6月20日(月) 20:30

Canalime

記事の件名:

メニューのレ点

引用付きで返信する

タスクトレイを右クリックするとポップアップメニューが表示され、
その中の項目にレ点（チェック）を使ってＯＮ＆ＯＦＦの状態を作りたいのですが、

コード:

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の中に値が入りません。
メニュー項目のチェックや文字列を取得し、値の変更を行いたいのですが
どのようにすればいいのでしょうか？

投稿記事

Posted: 2005年6月18日(土) 11:54

掲示板トップ » »

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