قبل از END بنویسین:نقل قول:
کد:NotifyIcon1.Dispose()
Printable View
قبل از 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