formResizeを使うとエラーになりますどうすれば？

Thread View: fj.lang.visualbasic

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by TO Wed, 04 Mar 1998 00:00

#502

Author: TO
Date: Wed, 04 Mar 1998 00:00

10 lines
874 bytes

はじめまして、VB歴１５日です。
Private Sub form_resize()
  text1.Width = Me.ScaleWidth
  text1.Height = Me.ScaleHeight - 440 - sbStatusBar.Height

End Sub

これって間違いでしょうか？
それとも何かプロパティを設定しなければならないのですか？

Re: formResizeを使うとエラーになりますどうすれば？

#504

Author: TO
Date: Thu, 05 Mar 1998 00:00

2 lines
691 bytes

これは、上にツールバーがあった場合です。

Re: formResizeを使うとエラーになりますどうすれば？

#507

Author: Masaru Kumakawa
Date: Thu, 05 Mar 1998 00:00

16 lines
1057 bytes

こんにちは、熊川です。

> 
> はじめまして、VB歴１５日です。
> Private Sub form_resize()
>   text1.Width = Me.ScaleWidth
>   text1.Height = Me.ScaleHeight - 440 - sbStatusBar.Height
> 
> End Sub
> 
> これって間違いでしょうか？
> それとも何かプロパティを設定しなければならないのですか？

　HeightやWidthプロパティにマイナスの値を入れるとエラーになります。
　計算式が０以下の場合も想定したほうがいいのでは。

Re: formResizeを使うとエラーになりますどうすれば？

#515

Author: 市崎大介
Date: Sat, 07 Mar 1998 00:00

21 lines
1454 bytes

Masaru Kumakawa wrote in message <34FDFF23.B207120D@ny.airnet.ne.jp>...
>こんにちは、熊川です。
>> はじめまして、VB歴１５日です。
>> Private Sub form_resize()
>>   text1.Width = Me.ScaleWidth
>>   text1.Height = Me.ScaleHeight - 440 - sbStatusBar.Height
>> End Sub
>> これって間違いでしょうか？
>> それとも何かプロパティを設定しなければならないのですか？
>　HeightやWidthプロパティにマイナスの値を入れるとエラーになります。
>　計算式が０以下の場合も想定したほうがいいのでは。

たとえば、
If Me.WindowState <> vbMinimized
    'サイズ変更処理
End If
なんて具合にすればいいかも。

あとは、強引に
On Error Resume Nextとか・・・

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads