Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[問題] 關於VB中resize form的問題

0 views
Skip to first unread message

<=======I==@

unread,
Apr 25, 2000, 3:00:00 AM4/25/00
to
> 發信人: BiBo...@wd.atc.ntut.edu.tw (小傑), 看板: OOP
> 標 題: [問題] 關於VB中resize form的問題
> 發信站: 風與塵埃的對話 BBS (Tue Apr 25 14:49:04 2000)
> 轉信站: AU_BBS!news.ntu!feeder.seed.net.tw!spring!news.ntust!wd.atc.ntut!WD
> Origin: wd.atc.ntut.edu.tw
>
> 我將form的resize寫成下面這樣
> *******
> Private Sub Form_Resize()
> If Form1.Width < 5880 Then
> Form1.Width = 5880
> End If
> End Sub
> ******
> 這樣子做是為了不讓使用者將form縮的太小..所以寫成這樣
> 不過在執行時畫面好像會亂亂的ㄋㄟ~~
> 請問該怎麼改呢?
>
> 我不想將form的size固定住!
>

你的程式我測過不會亂掉啊~!
如果你的問題是將Form最小化會出現錯誤的話..改成這樣就可以了:
Private Sub Form_Resize()
If Form1.WindowState <> vbMinimized Then
If Form1.Width < 5880 Then
Form1.Width = 5880
End If
End If
End Sub

--
[1;32m※ Origin: [33m雲淡風清 [37m<bbs.au.edu.tw> [m
[1;31m◆ From: [36mppp59.au.edu.tw [m

小傑

unread,
Apr 26, 2000, 3:00:00 AM4/26/00
to
※ 引述《han...@bbs.au.edu.tw (<=======I==@)》之銘言:
: > 我將form的resize寫成下面這樣

: > *******
: > Private Sub Form_Resize()
: > If Form1.Width < 5880 Then
: > Form1.Width = 5880
: > End If
: > End Sub
: > ******
: > 這樣子做是為了不讓使用者將form縮的太小..所以寫成這樣
: > 不過在執行時畫面好像會亂亂的ㄋㄟ~~
: > 請問該怎麼改呢?
: > 我不想將form的size固定住!
: 你的程式我測過不會亂掉啊~!
: 如果你的問題是將Form最小化會出現錯誤的話..改成這樣就可以了:
: Private Sub Form_Resize()
: If Form1.WindowState <> vbMinimized Then
: If Form1.Width < 5880 Then
: Form1.Width = 5880
: End If
: End If
: End Sub
我的問題是..使用者拉form時超過預定的值時就會亂亂的ㄚ
這樣子不是最小化的問題吧?


--
[1;36m※Post by [37mBiBol [36mfrom [33mclass1.cs.ccu.edu.tw [m
[1;34m▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂▂ [m
[1;36m風與塵埃的對話 [31m˙ [33m電子佈告欄系統 [31m˙ [32mwd.twbbs.org [31m˙ [37m140.124.201.23 [m
[1;34m▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ [m

虛擬實境

unread,
Apr 26, 2000, 3:00:00 AM4/26/00
to
【 在 BiBo...@wd.atc.ntut.edu.tw (小傑) 的大作中提到: 】
: ※ 引述《han...@bbs.au.edu.tw (<=======I==@)》之銘言:
: : 你的程式我測過不會亂掉啊~!

: : 如果你的問題是將Form最小化會出現錯誤的話..改成這樣就可以了:
: : Private Sub Form_Resize()
: : If Form1.WindowState <> vbMinimized Then
: : If Form1.Width < 5880 Then
: : Form1.Width = 5880
: : End If
: : End If
: : End Sub
: 我的問題是..使用者拉form時超過預定的值時就會亂亂的ㄚ
: 這樣子不是最小化的問題吧?


what is 亂亂的 ???

--

[m [1;32m※ 來源:‧中原大學資管森林站 bbs.mis.cycu.edu.tw‧[FROM: pc52.mis.cycu.edu.tw] [m

小傑

unread,
Apr 26, 2000, 3:00:00 AM4/26/00
to
※ 引述《goldo...@bbs.mis.cycu.edu.tw (虛擬實境)》之銘言:
: 【 在 BiBo...@wd.atc.ntut.edu.tw (小傑) 的大作中提到: 】
: : 我的問題是..使用者拉form時超過預定的值時就會亂亂的ㄚ

: : 這樣子不是最小化的問題吧?
: what is 亂亂的 ???
就是在拉的時候畫面亂掉ㄚ
放開後就又沒有問題了ㄚ
這樣子不算有bug嗎?


--
[1;36m※Post by [37mBiBol [36mfrom [33mclass2.cs.ccu.edu.tw [m

0 new messages