tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルRefreshについて
記事No14558
投稿日: 2010/03/17(Wed) 10:21
投稿者Do_shirouto
以前ここでRefreshについて教えて頂いたのですが、
(その節はありがとう御座いました)
今回はうまく出来ないので又教えて頂きたく思います。
'---------------
Private Sub Form_Load()
Text8.Text = "ただ今初期化中しばらくお待ちください"
Text8.Refresh
'今初期化処理 20秒〜30秒かかる
Text8.Text = Visible = False
End Sub
'----------------
上記のコードでText8.Textが表示されないのです、
初期設定はText8.Text = Visible = Trueです。
Text8.RefreshをRefreshだけにしても同じです。
よろしくお願いいたします。
Win XP(Pro) VB6.0 SP2
Text8.Text は最前面に設定してあります。

[ツリー表示へ]
タイトルRe: Refreshについて
記事No14559
投稿日: 2010/03/17(Wed) 10:40
投稿者魔界の仮面弁士
> Private Sub Form_Load()
Load 時点では、自フォームはまだ表示されていないはずです。
もしかして、Load イベント中で Me.Show させているのでしょうか?

> Text8.Text = Visible = False
このコードは、
 If Me.Visible Then
  Me.Text8.Text = "False"
 Else
  Me.Text8.Text = "True"
 End If
の意味で動作しますが、その認識であっていますか?

[ツリー表示へ]
タイトルRe^2: Refreshについて
記事No14561
投稿日: 2010/03/17(Wed) 11:15
投稿者Do_shirouto
魔界の仮面弁士さん早速のご回答ありがとう御座います
> > Private Sub Form_Load()
> Load 時点では、自フォームはまだ表示されていないはずです。
そうなんですか、勉強不足で

> もしかして、Load イベント中で Me.Show させているのでしょうか?
Me.Show の意味 使い方知らないのです。これから勉強してみます。
とにかく 投稿時のコード用にPrivate Sub Form_Load()の
直後に記してあります
>
> > Text8.Text = Visible = False
> このコードは、
>  If Me.Visible Then
>   Me.Text8.Text = "False"
>  Else
>   Me.Text8.Text = "True"
>  End If
ここの意味は分かりました。スマートですね
ありがとう御座います。
> の意味で動作しますが、その認識であっていますか?

[ツリー表示へ]