Form Size

[mus3na 5]

aku nak tanya kepada sesiapa yg mengetahui cara2 nak set minimum form size.

contohnya, aku set minimum form size = 200 * 100, so bila run program, sebarang percubaan mengecilkan form akan gagal sekiranya saiz kurang dari nilai di atas. sekiranya lebih, process mengecilkan form akan berjaya. sekiranya gagal, form akan automatic di setkan ke minimum form size seperti nilai di atas.

paham ke? aku pun pening camana nak terangkan.

[hotfloppy 19]

.....................

If (Me.Width < 200) And (Me.Height < 100) Then
Me.Width = 200
Me.Height = 100
End If

.....................

camtu la kot..

aku pon tak test tu, sebab kat office ni tadak vb..

try la dulu..

[mus3na 5]

macam secang je! nanti aku balik umah aku test. thanks.

[mus3na 5]

thanks hotfloppy, cara tu berguna tapi kurang professional la. kalau nak nampak lebih pro, ada tak command utk disable form resize. kalau single form leh set kat form properties, but dalam multiple form inviroment (MDI), option utk disable form resize hanya ada kat MDI Child nye form but takde kat MAIN MDI Form.

so any idea camana nak disablekan form resize pakai command?

[hotfloppy 19]

aku try godek2 kat umah..

cara ni cam okay je utk prevent resize kat MDI Form..

guna timer..

Private Sub Timer1_Timer()

'cara ni pon boleh, tapi tak pro la.. :P
'If (Me.Width < 200) OR (Me.Height < 100) Then
'Me.Width = 200
'Me.Height = 100
'End If

'cara ni pro skit kot.. hehe
If (Me.Width < 200) Then
Me.Width = 200
Else If (Me.Height < 100) Then
Me.Height = 100

End If

utk Interval bagi Timer1, set kan 1 je.

Timer1 letak atas MDI Form.

[nagakeciks 0]

aku try godek2 kat umah..

cara ni cam okay je utk prevent resize kat MDI Form..

guna timer..

Private Sub Timer1_Timer()

'cara ni pon boleh, tapi tak pro la.. :P
'If (Me.Width < 200) OR (Me.Height < 100) Then
'Me.Width = 200
'Me.Height = 100
'End If

'cara ni pro skit kot.. hehe
If (Me.Width < 200) Then
Me.Width = 200
Else If (Me.Height < 100) Then
Me.Height = 100

End If

utk Interval bagi Timer1, set kan 1 je.

Timer1 letak atas MDI Form.

kalo camtuh,xyah pakai timer...taruk je koding hotfloppy kat Private Sub MDIForm_Resize()

[hotfloppy 19]

bleh eh ?

aahahah..

sebab mus3na kate takde option disable resize, aku ingatkan takde Resize() tu..

aku tak try pon

[mus3na 5]

resize ada, dan aku memang dah masukkan code tu dalam block resize. memang dia jalan, cuma kalau kau try drag gak pakai mouse, nampak la border tu kelip2.

cam single form leh set disable resize kat properties dia, yg ni kau letak la mouse kat border form, dia takkan kasi kau drag border nye, kira2 fixsize la tu.

tapi tak kisah la, benda ni pun sekadar pelajaran je.