フォーム上にフォーカスがない常態にするにはどうしたらいいんでしょうか？

解決

ロイ坊 2003-08-09 10:30:51 No: 78948

はじめまして、最近始めた者です。
フォーカスがないまたは見えない状態にしたいのですが、プロパティを調べてもないし、フォームにセットしてもＩｎｄｅｘ０のコマンドに行ってしまいます。
使ってるのはＶｂ５ｃｃｅだけど、６．０の製品版とかにはあるのでしょうか？
初歩的な質問で恐縮ですがご教授ください。

oku URL 2003-08-09 11:22:06 No: 78949

VisibleをFalseにするとか？

ロイ坊 2003-08-09 17:47:27 No: 78950

試してみました、しかしフォーカスが次のＴａｂＩｎｄｅｘのコマンドに行ってしまうのでだめです。

VBレスキュ-(花ちゃん) 2003-08-09 18:46:49 No: 78951

理由が解らないので、いいかどうか解りませんが。
１．フォームを最大化しないのなら隠れた位置にテキストボックスを配置して
    そこへフォーカスを移動する。
２．必要時、すべてのコントロールのEnabled = False  にする
    Private Sub Form_Activate()
        Dim i As Long
        On Error Resume Next
        For i = 0 To Controls.Count - 1
            Controls(i).Enabled = False
        Next i
    End Sub

どうして、フォーカスがないまたは見えない状態にしなければならないかに
よって、他にも方法があるとは思いますが？。

ロイ坊 2003-08-09 19:53:13 No: 78952

電卓を作ってます、windosについてる電卓にはフォーカスがないのでそのようにしたいと思ってます。

VBレスキュー(花ちゃん) 2003-08-09 23:49:30 No: 78953

それなら、使い物なりませんね (-_-;)
ウィンドウレスコントロールならどうかなと思って調べて見ましたが、簡単には
出来そうにありませんので、フリーのコントロールを使用されたらいかがでしょうか？

http://hp.vector.co.jp/authors/VA013031/tips/uty001.htm
拡張されたコマンドボタンコントロール(wkButton.ocx)
拡張されたコマンドボタンコントロールその２

上記を使用されたら簡単に実現できます。
又は、自分で作ってみるとか。

Say 2003-08-10 01:01:22 No: 78954

押したときと離したときのボタンの絵をキャプチャーしておいて、
Imageコントロールに貼り付けて、MouseDown/Upで切り替えるとか。

ロイ坊 2003-08-10 01:02:29 No: 78955

VBレスキュー(花ちゃん) さんありがとうございます！解決できました。
ずっと悩んでいましたが,本来にはない機能だったんですね。