Printable View
چه جوری میشه کاری کنیم که وقتی روی NotifyIcon کلیک راست میکنیم یه منو ظاهر بشه مثلا همین منوهای خود ویبی 2008 یعنی
MenuStrip و ContextMenuStrip .
و
اینو خیلی وقته دنبالشم ولی نه پیدا کردم . اینه که من میخوام یه بالن داشته باشم که بشه توش عکس گذاشت
که میشه گفت یه کنترل دارم که چنین قابلیتی داره.ولی فقط روی کنترل های روی فرم کار میکنه . در حالی که من میخوام این بالن رو از توی
آیکون کنار ساعت یا همون NotifyIcon بیرون بیارم. ممنون میشم اگه یه جواب کامل بدید.
نمیشه یه چنین چیزی درست کرد ؟
من همه مطلبتو نگرفتم ولی همون کنترل notifyicon خو دات نت که منو قبول میکنه. کافیه یه کنترل contextMenuStrip بسازی رو فرم بعد اسم این کنترل رو بدی به خصوصیت contextmenustrip همون کنترل notifyIcon.
ممنون
درمورد دومی میتونی کمکی بکنی
باید با True کردن OwnerDraw آن Tooltip را true کنید و سپس آن شکلی را دوست دارید با کد! بهش بدید...نقل قول:
درمورد دومی میتونی کمکی بکنی
نمونه:
کد:http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/13a0d32a-8b55-4dab-bc16-b01af0c92f7e
من یه منو درست کردم و گزاشتمش برای NotifyIcon و توی منو یه Close هم قرار دادم و میخوام که وقتی رو Close کلیک کردم کل برنامه بسته
بشه . من از دستور End استفاده کردم . ولی وقتی این کار می کنیم آیکون Notify هنوز هست . چیکار کنم که اونم از بین بره ؟
چه دوتا سوال دیگه هم داشتم که همینجا مطرح میکنم :
وقتی تو رو یداد لود فرم دستور زیر رو می نویسم فرم پنهان نمیشه .چرا ؟
من میخوام که وقتی برنامه رو اجرا می کنم فرم دیده نشه . حالا می گید چی کار کنم ؟کد:Me.hide()
و اینکه میخوام وقتی روی دکمه ی ضربدر یا همون Close فرم کلیک کردم . برنامه بسته نشه و اون فرم Hide بشه ؟
نه اصلا منظورم از بالن اون نیست به اینی که شما گزاشتید میگن Tooltip. من بالنی رو میگم که از NotifyIcon بیرون میاد مثل خاصیت ShowBalloonTip که توی Notify هست .
اول خصوصیت visible شی notifyicon رو false کن بعد End.نقل قول:
تو رویداد Shown بنویس.نقل قول:
ما سه تا متغیر داریم . و یه دکمه و NotifyIcon هم روی فرم .
من میخوام وقتی روی دکمه کلیک کردم مقدار های این سه متغبر هر کدوم در سطری جدا بره توی خاصیت ShowBallon کنترل NotifyIcon وبالن نمایش داده بشه . که تا اینجا مشکلی نیست . مثلا فرض کنید که متغیر اول و دوم هیچ مقداری رو نداشته باشند و متغیر سوم مقدار داشته باشه . اونوقت اکه روی دکمه کلیک کنیم . بالنی که نمایش داده میشه ابتدا دو خط خالی داره و بعد مقدار متغیر سوم که این طوری ظاهرش بد میشه . می خواستم میشه یه کاری کرد که این سطر های بی مقدار دیده نشه . البته میشه با دستورات شرط If یه کاری کرد ولی اونوقت کد نویسی زیاد میشه . اینم بگم ممکنه که متغیر اول و سوم مقدار نداشته باشه و فقط متغیر دوم مقدار داشته باشه .
درسته ولی یه لحظه فرم دیده میشه و بعد محو میشه . من میخوام که اصلا فرم دیده نشهنقل قول:
ممنون میشم اینم جواب بدید :
و اینکه میخوام وقتی روی دکمه ی ضربدر یا همون Close فرم کلیک کردم . برنامه بسته نشه و اون فرم Hide بشه ؟
نیستید .
یکی جواب ده.
قبل از END بنویسین:نقل قول:
کد:NotifyIcon1.Dispose()
خصیصه ی WindowState = Minimized و ShowInTaskbar = False قرار بده و در رویداد VisibleChanged و FormClosing این کد رو بنویسنقل قول:
این کارو می تونید با تغییر مقدار Opacity به 0 هم انجام دهید.کد:Me.Visible = False
ما یه تاریخ شمسی داریم مثل : 1389/02/02 . حالا چه جوری میشه ازش مقدار 89 رو به دست آورد .
سلام دوست عزیز. شما فکر کنم کل سوالاتون رو میخواین توی یه تاپیک بپرسین.:18: این طوری عنوان تاپیکتون گمراه کننده میشه.نقل قول:
بگذریم. منظورتون رو درست متوجه نمیشم. ولی برداشتم رو میگم شاید بدردتون بخوره:
شما میتونین از تابع Mid استفاده کنین. به عنوان مثال اگه تاریختون به فرم بالا هستش باید بنویسین:
تاریخ=a
و بعد:
(b=mid(a,3,2
حالا b برابر 89 میشه.
بله حق یا شماست . نمیخواستم به خاطر یه سوال کوچیک یه پست درست کنم.
ممنون میشدم اگه اینم رو جواب میدادید :
ما سه تا متغیر داریم . و یه دکمه و NotifyIcon هم روی فرم .
من میخوام وقتی روی دکمه کلیک کردم مقدار های این سه متغبر هر کدوم در سطری جدا بره توی خاصیت ShowBallon کنترل NotifyIcon وبالن نمایش داده بشه . که تا اینجا مشکلی نیست . مثلا فرض کنید که متغیر اول و دوم هیچ مقداری رو نداشته باشند و متغیر سوم مقدار داشته باشه . اونوقت اکه روی دکمه کلیک کنیم . بالنی که نمایش داده میشه ابتدا دو خط خالی داره و بعد مقدار متغیر سوم که این طوری ظاهرش بد میشه . می خواستم میشه یه کاری کرد که این سطر های بی مقدار دیده نشه . البته میشه با دستورات شرط If یه کاری کرد ولی اونوقت کد نویسی زیاد میشه . اینم بگم ممکنه که متغیر اول و سوم مقدار نداشته باشه و فقط متغیر دوم مقدار داشته باشه .
فکر کنم این تابع مشکلتو حل کنه.
این تابع یک آرگومان از نوع آرایه String میگیره و بعد اونو مرتب میکنه(همونجور که میخواستی) و در آخر یک رشته مرتب شده برمیگردونه.
کد:
PublicFunction SetLine(ByVal Lines() AsString) AsString
Dim strVal AsString
For i AsInteger = 0To Lines.Length - 1
If Lines(i) = ""Or Lines(i) = NothingThen
''If line is empty
ElseIf i = Lines.Length - 1Then
strVal += Lines(i)
Else
strVal += (Lines(i) + Chr(10))
EndIf
Next
IfNot strVal = ""AndNot strVal = NothingThen
Return strVal
Else
MsgBox("String arry is empty")
Return" "
EndIf
EndFunction
ممنون. ولی این تابع شما نمیتونه مقدار String بگیره و کلا فکر نکنم اون چیزی که من میخوام .شاید من متوجه نحوه کار با این تابع رو نشدم.
ممنون میشه اگه یه کد کامل تر بزارید که همون چیزی رو که من میخوام توش باشه . یه کد که سه تا متغیر بگیره و همون طور که در پست قبل گفتم با notify Icon.
ممنون
شما میتونید به جای تعریف 3 متغییر از نوع String فقط یک آرایه 3 عضوی از نوع String تعریف کنید و اونو به تابع بدی و یک رشته منظم(همونجوری که میخواستید باشه) از تابع در یافت کنید و اونو در NotifyIcon استفاده کنید.نقل قول:
یه کد که سه تا متغیر بگیره و همون طور که در پست قبل گفتم با notify Icon.
ممنون
اگر هم نمیخواهید از آرایه استفاده کنید میتونید این تابع رو با یکم تغییر به همون شکلی که میخواهید در بیارید.
ولی بهترین راه استفاده از آرایه هست.
یک مثال هم از استفاده از این تابع میزنم :
این مثال ابتدا بک آرایه 3 عضوی String ایجاد میکنه و بعد به خانه اول و خانه آخر مقدار میده و خانه وسطیو خالی میزاره و در نهایت این آرایه به تابع منتقل میشه و خروجی در یک MessegeBox نمایش داده میشه.کد:''This is click event of a Button
''for test Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strArr(2) As String
strArr(0) = "Salam"
strArr(1) = ""
strArr(2) = "123456"
MsgBox(SetLine(strArr))
End Sub
Public Function SetLine(ByVal Lines() As String) As String
Dim strVal As String
For i As Integer = 0 To Lines.Length - 1
If Lines(i) = "" Or Lines(i) = Nothing Then
''If line is empty
ElseIf i = Lines.Length - 1 Then
strVal += Lines(i)
Else
strVal += (Lines(i) + Chr(10))
End If
Next
If Not strVal = "" And Not strVal = Nothing Then
Return strVal
Else
MsgBox("String arry is empty")
Return " "
End If
End Function