Visual Basic 2005

نقل قول:

---

اول : چه جوری کاری کنم که وقتی روی دکمه مینی مایز کلیک شد برنامه به قسمت سیستم ترای بره

---

اول : از نوار ToolBox و از قسمت Common Controls کامپوننت NotifyIcon رو به پروژه اضافه کن.

دوم : کد زیر را در روال Form_SizeChanged کپی کن.

کد:

---

If Me.WindowState = FormWindowState.Minimized Then
Me.NotifyIcon1.Icon = Me.Icon
Me.NotifyIcon1.Visible = True
Me.Visible = False
End If

---

سوم : کد زیر را هم در روال NotifyIcon_MouseDoubleClick کپی کن.

کد:

---

Me.NotifyIcon1.Visible = False
Me.Visible = True
Me.WindowState = FormWindowState.Normal

---

کد:

---

y= بزرگترین عدد
x= کوچک ترین عدد

        Dim x As Integer = 0
        Dim y As Integer = 9
        MsgBox(Int((y - x + 1) * Rnd() + x))

---

نقل قول:

---

دوم: چه جوری کاری کنم که شخصیت مرلین قسمت های مختلف برنامه رو توضیح بده

---

این تکنولوژی مایکروسافت بحث مفصلی رو می طلبد. من در اینجا با مثالی شما را با نحوه فراخوانی Agent ها آشنا میسازم و بقیه اش دیگه بستگی به خلاقیت شما خواهد داشت.

ابتدا کامپوننت Microsoft Agent Control 2 را به پروژه اضافه کنید.
سپس روی فرم برنامه یک دکمه با نام Button1 قرار دهید. و کد زیر را در روال Button1_Click قرار دهید:

کد:

---

Dim Merlin As AgentObjects.IAgentCtlCharacter
Dim WinDir As String
WinDir = My.Computer.FileSystem.SpecialDirectories.Desktop
WinDir = WinDir.Substring(0, 1)
On Error Resum eNext
Me.AxAgent1.Characters.Unload("Merlin")
Me.AxAgent1.Characters.Load("Merlin", WinDir & ":\WINDOWS\msagent\chars\merlin.acs")

Merlin = AxAgent1.Characters("Merlin")

Merlin.MoveTo(Button1.Top, Button1.Left)
Merlin.Show()

Merlin.Speak("This is Button1.")

Merlin.Hide()

---

نقل قول:

---

سوم: چه طور فایل های داخل یه دایرکتوری رو نمایش بدم و با یه دکمه پاکشون کنم ( مثلا با زدن دکمه جستجو فایل ها نمایش داده بشن و با زدن دکمه پاک همه فایل ها از روی هارد پاک بشن )

---

در وی بی 2005، انجام این گونه کارها بسیار ساده شده است!
با دستور My.Computer.FileSystem.GetFiles به راحتی میتوان تمامی فایلهای موجود در یک دایرکتوری را لیست کرد و هر عمل سیستمی را روی آنها اعمال کرد.
این دستور چندین پارامتر دارد:
پارامتر اول: مسیر دایرکتوری به صورت یک رشته
پارامتر دوم: نوع جستجو ( 1- جستجو فقط درون دایرکتوری ریشه 2- جستجوی دایرکتوری ریشه و تمام ساب دایرکتوریها ).
پارامتر سوم: نوع پسوند فایلهای مورد جستجو.
فقط پارامتر اول اجباری است.

با دستور My.Computer.FileSystem.DeletFile نیز میتوان فایل مورد نظر را پاک کرد.
این دستور هم چندین پارامتر دارد:
پارامتر اول: مسیر فایل به صورت یک رشته
پارامتر دوم: نمایش دیالوگها ( یعنی اینکه آیا دیالوگ هشدار حذف شدن فایلها نمایش داده شود یا نه؟ ).
پارامتر سوم: چگونگی حذف فایل ( حذف مستقیم یا انتقال به داخل سطل بازیافت )
اینجا هم فقط پارامتر اول اجباری است.

برای روشن شدن موضوع، به مثال زیر توجه کن:

کد:

---

For Each foundFile AsStringInMy.Computer.FileSystem.GetFiles _

("C:\MyFolder", FileIO.SearchOption.SearchAllSubDirectories)
My.Computer.FileSystem.DeleteFile _
(foundFile, FileIO.UIOption.OnlyErrorDialogs, _
FileIO.RecycleOption.SendToRecycleBin)
Next

---

با اجرای کد فوق، تمام فایلها و ساب دایرکتوریهای موجود در پوشه MyFolder واقع در درایو C حذف خواهند شد ( البته به داخل سطل بازیافت انتقال خواهند یافت ).

ببین بی نهایت ممنون ولی قسمت دوم کد
On Error Resum eNext
مرلین رو میگم کار نکرد
سومی هم نفهمیدم !!
امید وارم بتونم جبران کنم

یک تابع جالب برای چاپ Shape و متن با زاویه دلخواه روی فرم.
کد زیر را در روال Form_Paint قرار دهید و نتیجه را ببینید:

کد:

---

Dim myMatrix As New System.Drawing.Drawing2D.Matrix
myMatrix.Rotate(45, System.Drawing.Drawing2D.MatrixOrder.Append)
e.Graphics.Transform = myMatrix
e.Graphics.DrawString("Visual Basic 2005", _
New Font("tahoma", 30, FontStyle.Bold), Brushes.Red, 50, 0)

---

نقل قول:

---

نوشته شده توسط khaiyam

من در بانک اطلاعاتم دو جدول دارم که در یکی از اون ها دوفلید وجود داره که یکیش ID و دیگری نام شرکت هست و جدول دیگر مربوط هست به محصول که اطلاعات اون درش ذخیره می شه حالا من در جدول دوم به جای نام شرکت ID اون شرکت را قرار می دم اما من میخوام در زمانی که یک لیست کامل از محصولات را نمایش می دم به جای ID اون شرکت در دیتاگرید نام اون شرکت نمایش داده بشه نحوه کوئری به چه صورت میشه کلا چطوری این کار انجام بدم ( بانک من اکسس هست)

---

دوست گرامی، مشکل شما با دستور INNER JOIN حل خواهد شد.

فرض می کنیم شما در بانک اطلاعاتی خود دو جدول به نامهای Table1 و Table2 دارید. در جدول 1 ،دو فیلد دارید که فیلد اول ID و فیلد دوم نام شرکت را ذخیره میکند.
در جدول 2 هم دو فیلد وجود دارد: فیلد اول ID و فیلد دوم محصولات شرکت ها می باشد.
حال برای اینکه ما بتوانیم اطلاعات مورد نظر را از هر دو جدول بخوانیم و در دیتاگرید بریزیم نیاز به اتصال دادن این دو جدول به هم داریم، اتصالی که من اینجا استفاده کردم از نوع اتصال متعادل درونی هست و با دستور INNER JOIN مشخص میشود.

شکل کلی دستور به شکل زیر خواهد بود:
SELECT Table2.Product, Table1.Name FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID

برای اینکه با مفهوم توضیحاتم بیشتر آشنا بشی، واست یه مثال کامل آماده کردم که از آدرس زیر میتونی داونش کنی.

[HTML]http://shalineh.parsaspace.com/Files/For_khaiyam.zip[/HTML]

خیلی ساده و روشن توضیح دادم، با کمی دقت میتونی متوجه جزئیات بشی.

ممنون از توجه شما.

سلام
تشخیص connect یا disconnect بودن

کد:

---

Select Case My.Computer.Network.IsAvailable
            Case True
                MessageBox.Show("connect to internet", "message", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case False
                MessageBox.Show("disconnect", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select

---

کد:

---

System.Environment.MachineName
 System.Environment.OSVersion
System.Environment.SystemDirectory
 System.Environment.UserName
System.Environment.Version
...

---

این کلاس هم چیز هایه جالبی داره

کد:

---


System.Windows.Forms.SystemInformation

---

دوستان کدی دارید که با فشار یه دکمه یه ادرس اینترنتی مثلا یه فایل رو دانلود و در محلی ذخیره کنه