私のゲストブックです

qq - 04/06/02 17:07:50

コメント:
はじめまして。 VBでわからない事があり、web上で調べていた所、ここへたどりつきました。 ------------ http://www.bcap.co.jp/hanafusa/VBdengon/log_401to450.htm 上記ページに「残像が...。」という現象が解決できませんでした。もし、ご存知であれば教えて頂きたいと思いますので、よろしくお願いします。 ------------- No.412 コンボボックスのリスト表示残像が・・・　　投稿者：ｏｓｓａｎ [99/5/19(水)11：24分] 初心者なもので初歩的な質問になります。コンボボックスをクリックし、リストを表示し選択します。この時コンボボックスの残像が消えずに残ってしまいます。原因はどこにあるのでしょうか？ ----------- No.415 RE:コンボボックスのリスト表示残像が・・・　　　投稿者：たくボン [99/5/19(水)20：20分] コンボボックスのClickイベント等に時間のかかる処理をされていないでしょうか？もしされているのならば、 Private Sub ComboBox1_Click() DoEvents ComboBox1.Refresh '　～　通常の処理　～ End Sub のように一度制御をシステムに渡してみたらどうでしょうか？ ========== 自分も同現象が発生しており、「Refresh」メソッドや、「DoEvents」や、「AutoRedraw」などをやってみたのですが、改善されませんでした。他に対策をご存じないでしょうか?

めり - 99/06/19 18:24:52

コメント:
無事に表示できました。ありがとうございました～。m(__)m

たくボン - 99/06/16 04:19:25

コメント:
見出し画面は、MDI画面の初期化に時間がかかる場合に
使用される場合が多いのですが、単に見出し画面を表示
したいと言うのなら、見出し画面にタイマーを付けて、

'====================================================
' frmSplash.frm
'====================================================
Private Sub Form_Load()
lblVersion.Caption = "バージョン " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title

'見出し画面を３秒間表示
Timer1.Interval = 3000
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 0
Unload Me
End Sub
親画面は、これだけ
'====================================================
' MDIForm.frm
'====================================================
Private Sub MDIForm_Load()
Call mnuFileNew_Click
End Sub

プロジェクトに標準モジュールを追加して、プロジェクトのプロパティ
を開いて、スタートアップの設定を、MDIFormからSub Main（）に
変更します。

'====================================================
' Module1.bas
'====================================================
Sub main()
With MDIForm
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
.Show
End With

With frmSplash
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
.Show
End With
End Sub

これで、大丈夫やと思います。MDIの初期化に時間がかかる場合
は、また違った方法で書きますが、今回のような場合は上記の
方法が一番手軽です。

めり - 99/06/14 18:21:06
ホームページアドレス:http://www1.neweb.ne.jp/wa/pov/
電子メールアドレス:meri@ma.neweb.ne.jp

コメント:
たくボンさん、こんにちは。(^.^)
すいません、またまた質問なのですが・・・。^^;

アプリ起動時にスプラッシュロゴを入れたいのですが
「フォームモジュールの追加」→「見出し画面」で作成し、
単純に親フォームに

'=====================================================
'スプラッシュロゴを開きます
'=====================================================
'=====================================================
'最初は無題の編集画面を開きます
'=====================================================
Private Sub MDIForm_Load()
frmSplash.Show

Call mnuFileNew_Click
End Sub

と打ってみたのですが、実行してみると
ロゴが親フレームの下に隠れて表示されてしまいます。(-_-;)
これを前面に出すにはどうしたらよいのでしょうか？

たくボン - 99/05/18 02:24:10
電子メールアドレス:takubon@osaka.interq.or.jp

コメント:
なんでもいいので書き込んでいって下さい

私のホームページへ|