アプリケーションのメニューを一定の条件で使用できるか出来ないかを
プログラムしたいと考えています。
開発環境では、メニューエディタの「有効」のチェックボックスをチェックしないで使用不可にした後、実行環境で使用不可にしたメニューを使用可に変更したいのですが、プロパティがわかりません。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

お疲れ様です。



MenuObjectName.Enabled = False  '// 使用不可
MenuObjectName.Enabled = True   '// 使用可

で使用可能設定をできます。

間違っていたらごめんなさい。
    • good
    • 0
この回答へのお礼

よくわかりました。ありがとうございました。

お礼日時:2001/08/30 12:01

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QVB6 開発環境のエディタに行番号を表示

開発環境のエディタに行番号を表示したいのですが、
方法はあるのでしょうか?

ぜひ教えてください。

win2000
vb6

Aベストアンサー

ツールバーの右の方に x行,x桁 と表示されています。
全ての行に行番号を表示するようなことはできません。(VB.NETではできます)

QVBのチェックボックス、オプションボタン、テキストボックス

以前にたような質問したのですがうまくいかなかったので改めて質問します。
チェックボックスを使ってテキストに文字を表示させる。
オプションボタンを使ってテキストに文字を表示させる。この2つは簡単にできるのですが、これを組み合わせて、チェックをしたときはオプションボタンで表示されたものと違う表示をしたいのですがうまくいきません。
構成はチェックボックスが2つ、オプションボタン4つ。テキストボックスが4つです。テキストボックスはチェックボックスとオプションボタンそれぞれ同じものをつかっています。わかる方教えてください。説明がわかりにくいかもしれませんが・・

Aベストアンサー

すみません、質問の内容が良くわかりません。
要するに
・チェックだけの場合は”チェック”
・オプションだけの場合は”オプション”
・チェックとオプションの場合は”両方”
と言った感じでしょうか。

'チェックボックスがクリックされた
Private Sub Check1_Click()
Call textcheck
End Sub

'オプションボタン1がクリックされた
Private Sub Option1_Click()
Call textcheck
End Sub

'オプションボタン2がクリックされた
Private Sub Option2_Click()
Call textcheck
End Sub

'表示文字判定
Sub textcheck()
If Check1.Value = 0 Then 'CheckBox Off ?
If Option1.Value = True Then 'Option1 ?
Text1.Text = "オプション1"
Else 'Option2
Text1.Text = "オプション2"
End If
Else 'CheckBox On
Text1.Text = "両方"
End If
End Sub

で出来ると思います。

すみません、質問の内容が良くわかりません。
要するに
・チェックだけの場合は”チェック”
・オプションだけの場合は”オプション”
・チェックとオプションの場合は”両方”
と言った感じでしょうか。

'チェックボックスがクリックされた
Private Sub Check1_Click()
Call textcheck
End Sub

'オプションボタン1がクリックされた
Private Sub Option1_Click()
Call textcheck
End Sub

'オプションボタン2がクリックされた
Private Sub Option2_Click()
Call textcheck
End Sub

...続きを読む

Qテキストエディタ作成で「元に戻る」メニューはどうしたら?

最近VBの勉強をはじめました。それで(メモ帳みたいな)テキストエディタを作成しているのですが、「元に戻る」メニューのところはどのようにしたらいいのでしょうか?今は変数を2つ用意して、テキストのChangeイベントで交互に代入し、「元に戻る」メニュークリックで交互に代入しなおすという感じでいこうかと思っていますが、もっといい方法がありませんでしょうか?
どなたか教えていだだけると大変ありがたいです。

Aベストアンサー

アンドゥ機能はAPIを使用することもできます。

参考URL:http://www.vbvbvb.com/cgi-bin/namazu.cgi?query=%83A%83%93%83h%83D&whence=0&max=20&result=normal&sort=score&idxname=gtips

QVisual C++ 2008 Express Editionでのアプリケーション開発

Visual C++ 2008 Express Editionを使い始めて間もないのですが、
Win32プロジェクトで作成したプログラミングをエンドユーザー向けにアプリケーションとして動かせるようにしたいのですが、その方法が見つかりません。
つまり、友達のパソコンなどでも動かせれるアプリケーションを作成したいのですが。

プロジェクト:Win32プロジェクト
アプリケーションの種類:Windows アプリケーション
追加オプション:空のプロジェクト
で始めて、
新しい項目の追加でソースファイルに拡張子「.c」でファイルを作成し、プログラミングをしています。

駄文ではありますが、お願いいたします。
また、使い慣れていないので詳しく教えていただけたら幸いです。

Aベストアンサー

・アプリケーションの動作が確認出来ているのであれば,EXEはどこかに生成されています。プロジェクトのフォルダを見ていくとdebugとかreleaseのフォルダにあります。それを相手に渡せば相手のPCでもアプリケーションが動く可能性があります。
 

QチェックボックスのValueを残して他プロパティを修正したい

Excel上で「コントロールツールボックス」からチェックボックスやオプションボタンを使ったアンケートを作りました。
出力結果の集計を意識せず、LinkedCellを未指定のままで配布しました。
そろそろアンケート結果が回収されてくるのですが、
回答者が入力した値:Valueを生かしたまま(当たり前)、
LinkedCellを書き加えて、回答結果の集計を楽にしたいと考えています。

以下のようなプログラムを書いたところ、LinkedCellは任意に書き加えられたのですが、大事な入力値:Valueが消えてしまいました。(泣)

Sub test()
ActiveSheet.CheckBox1.LinkedCell = "f1"
End Sub

どのようなプログラムを書き加えたらよいのでしょうか?
どうぞご指導くださいますよう、お願いします。m(_ _)m

Aベストアンサー

Range("F1").Value = ActiveSheet.CheckBox1.Value


人気Q&Aランキング

おすすめ情報