VisualBasic6.0を使用しているのですが、何かのきっかけで標準ツールバー(メニューバーの下の保存ボタンなどがあるバー)から、起動のたびにボタンが1つずつ消えていきます。リセットすると元に戻るのですが、次回の起動にはまた1つ消えている・・・と言った具合です。
昨年同じ現象が起こった時は、確かVBを再インストールしても直りませんでした。その後何かして直ったんですが、何をしたやら・・・(おい)。多分原因はレジストリ関連だと目星をつけていますが、うかつに触れませんし・・・。
どうぞ解決方法をご存知の方はお教えくださいませ。

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

A 回答 (2件)

私も、同じ現象に遭遇しています。


表示メニューあたりが、ほとんど消えてしまう状況になります。
知り合いの話では、SP4を入れると現象がでるようなことらしいです。
最近出たSP5でも直っていないということでした。

で、対処方法ですが。。。
ツールバーが表示される領域で右クリックすると、表示させるツール
バーのメニューが表示されますが、この下に、ユーザ設定っていうメ
ニューがありますよね。
これをクリックして表示されるダイアログに、リセットっていうボタ
ンがありますので、こいつをクリックすると、初期設定に戻ります。
ただし、いつしか、またメニューが消えることがあるので、そうなっ
たら、また、上記の操作を行ってあげてください。
いまのところ、こういう操作でしか回避できる方法は知りません。

参考になりましたでしょうか??

MSのことなので、どうせ直る前に次のメジャーバージョンアップが
行われるのでしょうが。。
    • good
    • 0
この回答へのお礼

SP5でも直ってないんですね。(まだSP4で動かしてます…)
私は自作アドインを作り直したところ安定しました。
右クリックのメニューも消えたりしたので、きっとツールバーユーザ設定関係のデータの保存か読み出しで失敗してたのかなぁと思っています。
確かにツールバー表示リセットさえしてあげれば済む問題なので、
対処されずにバージョンアップしそうですね・・・
dayan_dayanさま、古い質問にありがとうございました。

お礼日時:2001/06/07 11:44

VBのアドインなどで、ドキュメントツールを入れてませんか?


実は私は以前に「Vα」という、ドキュメントツールを入れたのですが、どうような現象になりました。

まぁこれに関しては、アプリ側のバグだったのですが、どうでしょうか?
SPとか環境をもう少し聞きたいです。

この回答への補足

お答えありがとうございます。
確かに前回発生時は「Vα」が入っていましたが、
今回現象が起こったマシンにはVαは入れていません。
しかし代わりに、自作のアドイン(コードに行番号を追加する動作をします)が入っています。・・・そのアドインがあやしいのかしら・・・?
SPを当て忘れていることに、お答え見て気付きました。
現在あてている最中ですので、その後現象が出るか試して、再度補足いたします。

補足日時:2001/03/14 09:16
    • good
    • 0
この回答へのお礼

サービスパックを当てても変わらず、
自作アドインを消去した所、動作が正常に戻りました。
ヒントを頂きありがとうございました。

この質問は、引き続いて情報を募集いたします。
もし心当たりのある方がいらっしゃれば、お教え下さいませ。

お礼日時:2001/03/19 10:44

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人が検索しているワード

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

QVisualBasic6.0からVisualBasic.NET

今までVisualBasic6.0で作っていたプログラムは、VisualBasic.NETで動かすことは可能でしょうか?

Aベストアンサー

これでわからなければ、やめておいた方がいい様です。
http://www.microsoft.com/japan/msdn/vbasic/techinfo/upgrade/

QVisualBasic6でドラック&ドロップのアプリを作成したい

VisualBasic6で、作成したアプリケーションのフォーム上に、他のファイルをドラック&ドロップした場合に、
ファイル名をフォーム上やラベルに表示させたいのですが、参考になるソースはありますか?

Aベストアンサー

D&D対象のイベントリスナのプロパティを以下に設定し、

OLEDragMode = 1 - 自動
OLEDropMode = 1 - 手動

_OLEDragDrop イベントプロシジャに処理を記述すればOKです。

下記が参考になるかどうか・・・。
(1年以上前に作成したものなので、詳細な内容は失念)


Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'2002/01/05 ファイルのドラッグ&ドロップ
'(マイコンピュータ、IE、ゴミ箱等の特殊ショートカットは以下の処理でエラーと
'なるため、エラー処理が必要)
On Error Resume Next
Me.Text1.Text = GetLinkPath(Data.Files(1))
On Error GoTo 0
End Sub
 

D&D対象のイベントリスナのプロパティを以下に設定し、

OLEDragMode = 1 - 自動
OLEDropMode = 1 - 手動

_OLEDragDrop イベントプロシジャに処理を記述すればOKです。

下記が参考になるかどうか・・・。
(1年以上前に作成したものなので、詳細な内容は失念)


Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
'2002/01/05 ファイルのドラッグ&ドロップ
'(マイコンピュータ、IE、ゴミ箱等の特殊ショ...続きを読む

Qツールバーのボタンの動きがおかしい

VB6(SP5)でプログラムを作っていますが、ツールバーのボタンの動作がおかしくて困っています。

ツールバーにボタンを3つ作り(Aボタン、Bボタン、Cボタンとします)、スタイルをtbrButtonGroupにしました。当然、どれかひとつのボタンを押すと、他の二つは自動的にUnPressed状態に変わります。
起動直後、どのボタンがPressed状態になっているかは、INIファイルの設定にしたがいます。

この、ボタンを押しての機能切り替えをメニューからもできるようにしています。
つまり、メニューでAを選択すると、Aボタンを押したのと同じ状態になり、AがPressed、B、CボタンがUnPressed状態になります。

ところが、メニューで操作すると、起動時にPressed状態になっているボタンがずっとUnpressed状態のままになってしまいます。一度ツールバーでボタンを操作すると、その後はメニューで操作してもボタンは正常にトグルするのですが、メニューだけで操作していると、ずっとPressed状態のままです(ボタン表面の色だけ、PressedとUnpressedで変わります)。

現時点で以下の対策を試してみましたが、まったく効果ありませんでした。
・ツールバーのリフレッシュ。
・押されない他の二つのボタンに対してtbrUnPressedを設定する(本来tbrButtonGroupにしてあればいらないはず)。その後ツールバーをリフレッシュしてもダメ。
・メニューを選択した場合でも、一度Toolbar_ButtonClick()へ飛んでからボタンの処理に飛ぶようにする。

上記以外に、何か手段はありますでしょうか?
また、ツールバーコントロール自体のバグなんじゃないかとも思っているのですが、何かこの現象について情報がありましたら、お教えください。

VB6(SP5)でプログラムを作っていますが、ツールバーのボタンの動作がおかしくて困っています。

ツールバーにボタンを3つ作り(Aボタン、Bボタン、Cボタンとします)、スタイルをtbrButtonGroupにしました。当然、どれかひとつのボタンを押すと、他の二つは自動的にUnPressed状態に変わります。
起動直後、どのボタンがPressed状態になっているかは、INIファイルの設定にしたがいます。

この、ボタンを押しての機能切り替えをメニューからもできるようにしています。
つまり、メニューでAを選...続きを読む

Aベストアンサー

すみません。#1 では何にもならないですね。デバックのとき出来たと思って勘違いしてしまいました。
Load イベントを次に変えればOKかと思います。根本的な要因についてはわかりません。

Private Sub Form_Activate()

DoEvents
mnuTest_Click GetPrivateProfileInt("Settings", "test", 1, App.Path & "\test.ini")

End Sub

Qform2がボタンを押すと消えてしまう

vb2010で、作成しています。form1から、form2を呼び出し、okボタンまたは、cancelボタンを押すと、無条件でform2が消えてしまいます。私がしたいのは、form2(パスワード入力ウィンドウ)でテキストボックスにパスワードを入力してokボタンを押して、それが正しい(1234)ときのみform2を消去することです。現在のところ、入力したパスワードが間違っていてもokボタンを押すと、form2は消えてしまいます。
form1側のコードとform2側のコードは以下です。お手数ですが御教示いただけると幸いです。

/////////Form1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2()

f.TextBox1.PasswordChar = "*"c '//入力文字をマスクする
If f.ShowDialog(Me) = DialogResult.OK Then
If f.TextBox1.Text = "1234" Then
f.Dispose()
End If
End If

End Sub
End Class

/////////Form2
Public Class Form2
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Dim f As Form1
f = Me.Owner

Me.DialogResult = DialogResult.OK
End Sub


Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Dim f As Form1
f = Me.Owner

Me.DialogResult = DialogResult.Cancel
End Sub

End Class

vb2010で、作成しています。form1から、form2を呼び出し、okボタンまたは、cancelボタンを押すと、無条件でform2が消えてしまいます。私がしたいのは、form2(パスワード入力ウィンドウ)でテキストボックスにパスワードを入力してokボタンを押して、それが正しい(1234)ときのみform2を消去することです。現在のところ、入力したパスワードが間違っていてもokボタンを押すと、form2は消えてしまいます。
form1側のコードとform2側のコードは以下です。お手数ですが御教示いただけると幸いです。

/////////Form1
P...続きを読む

Aベストアンサー

Form の DialogResult プロパティに値を設定するとそのフォームが非表示になります。
パスワードがあってるかどうかの判定は Form2 の方で行いましょう。

/////////Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2()

f.TextBox1.PasswordChar = "*"c '//入力文字をマスクする
If f.ShowDialog(Me) = DialogResult.OK Then
// パスワードが一致したときの処理をここに書く
// (「Form2 の結果が OK = パスワードが一致した」ということだから改めてここでパスワードを確認する必要は無い)
End If

End Sub
End Class

/////////Form2
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Dim f As Form1
f = Me.Owner

If Me.TextBox1.Text = "1234" Then
Me.DialogResult = DialogResult.OK
End If

End Sub

Form の DialogResult プロパティに値を設定するとそのフォームが非表示になります。
パスワードがあってるかどうかの判定は Form2 の方で行いましょう。

/////////Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As New Form2()

f.TextBox1.PasswordChar = "*"c '//入力文字をマスクする
If f.ShowDialog(Me) = DialogResult.OK Then
// パスワードが一致したときの処理をここに書く
// (「Form2 の結果が OK = パスワードが一致...続きを読む

Q入力者にメニューバーや終了ボタンを使わせない方法?

エクセルのVBAで入力プログラムを作っています。入力者には数字の入力とリストボックス・ボタンだけで操作をさせたいと思うのですが、メニューバー・ツールバー・終了ボタンを使わせない方法があれば教えてください。よろしくお願いします。

Aベストアンサー

メニューバーと標準ツールバー、書式ツールバーを消す。
下記で適当に’を外してください。
Sub test01()
' Application.CommandBars("worksheet Menu bar").Enabled = False 'メニューバー非表示
' Application.CommandBars("worksheet Menu bar").Enabled = True 'メニューバー表示
' Application.CommandBars("Standard").Visible = False '標準ツールバー非表示
' Application.CommandBars("Standard").Visible = True '標準ツールバー表示
' Application.CommandBars("formatting").Visible = True '書式ツールバー表示
' Application.CommandBars("formatting").Visible = False '書式ツールバー非表示
End Sub
コッマンドバー一覧は例えば
http://plaza14.mbn.or.jp/~sunago/cmdid/cmdid00.htmlに載せられています。

メニューバーと標準ツールバー、書式ツールバーを消す。
下記で適当に’を外してください。
Sub test01()
' Application.CommandBars("worksheet Menu bar").Enabled = False 'メニューバー非表示
' Application.CommandBars("worksheet Menu bar").Enabled = True 'メニューバー表示
' Application.CommandBars("Standard").Visible = False '標準ツールバー非表示
' Application.CommandBars("Standard").Visible = True '標準ツールバー表示
' Application.CommandBars("formatting").Visible = True '書...続きを読む


人気Q&Aランキング

おすすめ情報