چگونگی مینیمایز و ماکسیمایز کردن فرم

[SalehVB]

آقا یه چندتا سوال دارم ترو خدا جواب بدید خیلی لازم دارم!
من کد مینیمایز و ماکسیمایز کردن فرم و کد فرستادن برنامه به نوتیفیکیشن بار (کنار ساعت) رو میخواستم ممنونم میشم اگه لطف کنید و کدشونو برام بزارید
مرســـی.
*ببخشید اگه سوال تکراریه آخه هر چی سرچیدم پیدا نشد*
خواهش میکنم جواب بدیــــــــــــد.

[MohammadGh2011]

سلام
ماكسيمايز كردن فرم
Me.WindowState = vbMaximized
مينيمايز كردن فرم
Me.WindowState = vbMinimized

و فرستادن برنامه كنار ساعت رو هم با استفاده از كد و هم با استفاده از كامپوننت ها امكان پذيره ميتونيد پست6 (6#) اين تاپيك رو هم نگاه كنيد.
http://barnamenevis.org/showthread.php?81542-آرشیو-سورس-های-کاربردی-و-بدردبخور


موفق باشــــيد

[farboodj1375]

سلام.
ماکزیمایز کردن فرم:

Me.WindowState = vbMaximized

مینیمایز کردن فرم:
Me.WindowState = vbMinimized

برای قرار دادن آیکون برنامه کنار ساعت ویندوز هم یک کامپوننت هست بنام MbTray که آقای Mbt925 زحمتشو کشیدن و تو همین سایت گذاشتن.کامپوننت همراه با مثال هست.
این هم لینکش:
http://mbt925.persiangig.com/ActiveX/MBTray120-Sample.rar

[SalehVB]

بازم سلام ممنون از پاسخگوییتون یه چند تا سوال دیگه هم دارم
1. چجوری میتونم اون کلوز قرمز رنگ بالای فرم رو حذف کنم(کد)
2. میخوام به یه متن لینک بدم که وقتی رو اون متن کلیک کنی بره به سایت.
با تشکر.
3.منظورم از فرستادن برنامه کنار ساعت این بود که برنامه مینیمایز بشه و بره کنار ساعت و بعد که روش دابل کلیک کردیم دوباره بیاد بالا.

[محسن واژدی]

بازم سلام ممنون از پاسخگوییتون یه چند تا سوال دیگه هم دارم
1. چجوری میتونم اون کلوز قرمز رنگ بالای فرم رو حذف کنم(کد)
2. میخوام به یه متن لینک بدم که وقتی رو اون متن کلیک کنی بره به سایت.
با تشکر.
3.منظورم از فرستادن برنامه کنار ساعت این بود که برنامه مینیمایز بشه و بره کنار ساعت و بعد که روش دابل کلیک کردیم دوباره بیاد بالا.
سلام علیکم
1-
Private Const SC_CLOSE As Long = &HF060&
Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_MINIMIZE As Long = &HF020&
Private Const SC_MOVE As Long = &HF010&

Private Const MF_BYCOMMAND As Long = &H0&
Private Const MF_BYPOSITION As Long = &H400&

Private Declare Function GetSystemMenu _
Lib "user32.dll" (ByVal hwnd As Long, _
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu _
Lib "user32.dll" (ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()

On Error Resume Next

Dim hMenu&

hMenu& = GetSystemMenu(Me.hwnd, 0)
DeleteMenu hMenu&, SC_CLOSE, 0
DeleteMenu hMenu&, 0, 0
DrawMenuBar Me.hwnd

End Sub



2- در ساده ترین صورت میتوانید از کد زیر استفاده کنید:

Private Sub Label1_Click()
Shell """" & Environ("homedrive") & "\Program Files\Internet Explorer\iexplore.exe"" http://google.com"
End Sub


3-
http://barnamenevis.org/showthread.php?81542-%D8%A2%D8%B1%D8%B4%DB%8C%D9%88-%D8%B3%D9%88%D8%B1%D8%B3-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C-%D9%88-%D8%A8%D8%AF%D8%B1%D8%AF%D8%A8%D8%AE%D9%88%D8%B1&p=1311877&viewfull=1#post1311877

موفق باشید

[MohammadGh2011]

سلام
از جناب آقاي واژدي ممنونم
سوال 2 جناب SalehVB ساده تر هم ميشه.

Shell ("Explorer http://google.com")

[SalehVB]

سلام
از جناب آقاي واژدي ممنونم
سوال 2 جناب SalehVB ساده تر هم ميشه.

Shell ("Explorer http://google.com")
ممنون از جوابتون ولی میشه کاری کرد که با مرورگر پیشفرض باز بشه؟!

[MohammadGh2011]

میشه کاری کرد که با مرورگر پیشفرض باز بشه؟!
منظورتون اينه كه با مرورگري كه خود كاربر رو سيستمش نصب كرده به جز مرورگر خود ويندوز؟؟؟!!!!
اين كد با مرورگر خود ويندوز يعني Explorer باز ميكنه.

[محسن واژدی]

میشه کاری کرد که با مرورگر پیشفرض باز بشه؟!



همانگونه که آقای قائم پناه هم گفتند در Explorer آدرس مورد نظر توسط مرورگر ویندوز گشوده میشود؛ برای باز کردن url در مرورگر پیشفرض از APIی ShellExecute استفاده کنید، بصورت زیر:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "http://google.com", vbNullString, App.Path, 1
End Sub

موفق باشید