نا گفته هاي كاربردي و جالب در Visual Basic.Net

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } تبدیل تاریخ از/به شمسی و دیگر تقویم ها :

تبدیل به میلادی:
کد:

Dim x As New  System.Globalization.PersianCalendar
Dim dt As Date = x.ToDateTime(1386, 1,  1, 0, 0, 0, 0, 0)

تبدیل از میلادی

کد:

  
Dim x As New  System.Globalization.PersianCalendar()

Dim dt As Date
dt =  #1/1/2007#
'Or یا
dt = New Date(2007, 1, 1)
'Or یا
dt =  CDate("1/1/2007")

Dim y As Integer = x.GetYear(dt)
Dim m As Integer =  x.GetMonth(dt)
Dim d As Integer =  x.GetDayOfMonth(dt)

دات نت 2 با تقویم میلادی در کل شامل 11 تقویم است!
مثلاً PersianCalendar تقویم ایرانی یا همان هجری شمسی است
یا HijriCalendar تقویم هجری قمری است
JapaneseCalendar ژاپنی
KoreanCalendar کره ای
TaiwanCalendar تایوانی
و...

برای تبدیل تاریخ های تقویم های دیگر به هم (که یک سرش میلادی نباشد) باید اول تاریخ مورد نظر را به میلادی تبدیل کرد و سپس میلادی را به تقویم دوم تبدیل کرد.

[TAHA]

برای اینکه برنامه ایی که نوشتین فقط یک بار باز بشه (به صورت همزمان) تنظیمات زیر را انجام بدین
در داخل ویژوال استادیو در Solution Explorer بر روی آیتم My Project دابل کلیک کنید تا یک پنجره برگه دار (tabbed window) باز شود. در این پنجره تنظیمات برنامه شما قرار دارد.بر روی برگه tab Application کلیک کنید و در قسمت windows application framework properties بر روی چک باکس Make Single instance application کلیک کنید تا انتخاب گردد.

در صورت انجام دادن مراحل بالا دیگر شما قادر نخواهید بود که کپی‌های دیگری از این برنامه را به صورت هم زمان بر روی آن کامپیوتر اجرا کنید و در صورت اجرا کردن نسخه‌های دیگر هیچ اتفاقی روی نخواهد داد و آنها فورا بسته خواهند شد.

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } تا حالا در مورد کلاس System.Management چیزی شنیدید؟
اصلا کار این کلاس چیه؟
تا حالا شده که اطلاعاتی در مورد سیستم عامل ، سخت افزار ، نرم افزار های موجود در ویندوز و .... لازم داشته باشید و Api ها هم جواب گوی شما نباشند یا مشخصات اون Api رو بلد نباشین؟
حالا من قصد دارم چیز جدید و جالبی رو معرفی کنم. (لازمه که بگم من خودم تازه مطالعه روی این زمینه رو شروع کردم و اگه اشتباهی در گفته های من است از اساتید خواهش میکنم که به بزرگی خودشون ببخشند و اون رو اصلاح کنند.)
شما میتونید به وسیله ی زبان اسکریپتی WQL که همانند زبان SQL است کار های خارق العاده ایی انجام بدین. (نمونه کدی که روی اون کار میکنیم گرفتن مشخصات کارت گرافیکه)
کد زیر رو ببینید :

Imports  System.Management
Public Class Form1
    Dim ObjMng As  Management.ManagementObject
    Private Sub Form1_Load(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim c  As New Management.ManagementObjectSearcher("SELECT * FROM  Win32_DisplayConfiguration")
        Dim DeviceName As String
        Dim  DisplayFlags As String
        Dim DisplayFrequency As String
        Dim  DriverVersion As String
        Dim PelsHeight As String
        Dim  PelsWidth As String
        '--------------------
        For Each ObjMng  In c.Get
            PelsWidth =  ObjMng("DisplayFlags").ToString
            DeviceName =  ObjMng("DeviceName").ToString
            DisplayFrequency =  ObjMng("DisplayFrequency").ToString
            DriverVersion =  ObjMng("DriverVersion").ToString
            PelsHeight =  ObjMng("PelsHeight").ToString
            PelsWidth =  ObjMng("PelsWidth").ToString
        Next
         '---------------------------
        MsgBox(PelsWidth)
         MsgBox(DeviceName)
        MsgBox(DisplayFrequency)
         MsgBox(DriverVersion)
        MsgBox(PelsHeight)
         MsgBox(PelsWidth)
    End Sub
End Class

در ابتدا باید رفرنس System.Management رو به برنامه اضافه کنیم.
ما به وسیله ی این کد یک جستجو با دستورات WQL انجام میدیم که حاصل اون در یک حلقه ی ForEach در متغیر ریخته میشه.

[TAHA]

این هم تمامی کلید های ترکیبی که در VisualBasic 2005 وجود دارند.

از لينك هاي دانلود زير استفاده كنيد

RapidShare: 1-CLICK Web hosting - Easy Filehosting

يا

http://www.zshare.net/download/72630445636713e5/

يا

Hotfile.com: One click file hosting

يا

Deposit Files

يا

http://www.zshare.net/download/72630445636713e5/

يا

VB_2005_color_Borna66.pdf - Powered by Multiupload.com - BADONGO

[TAHA]

یک نمونه برنامه برای کار با مقادیر پولی



به صورت همزمان هنگام تایپ عدد این امکانات رو به شما میده:
1- 3 رقم 3 رقم جدا کردن عدد
2- نمایش معادل به تومان
3- استفاده از مقدار عددی بدون علامت در انجام محاسبات عددی

[TAHA]

اضافه کردن رویداد سه بار کلیک به یک کنترل

  
Dim WithEvents Click3  As New TripleClick
    Private Sub Button1_Click(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Click3.Click()
    End Sub
    Private Sub Click3_TplClick(ByVal Text As  String) Handles Click3.TplClick
        TextBox1.Text = Text
    End  Sub
    Public Class TripleClick
        Public Event TplClick(ByVal Text  As String)
        Public Sub Click()
            Static intCount As  Integer = 0
            intCount += 1
            If intCount >= 3  Then
                intCount = 0
                RaiseEvent TplClick("The  Button was triple clicked.")
            End If
        End Sub
    End  Class

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } یکی از مشکلاتی که افراد زیادی با اون درگیر هستند اینه که :
ما در بانک یک جدول داریم که مشخصات افراد رو در اون ثبت میکنه

حالا میخوایم رو فرم یک ComboBox داشته باشیم که در اون نام افراد نشان داده بشه و با انتخاب هر فرد از این ComboBox یک ID که مربوط به همون فرد هست رو به ما نشون بده
خب برای این کار در ابتدا ما اطلاعات جدول را در یک DataSet یا DataTable میریزیم سپس کد زیر رو مینویسیم

   
 
ComboBox1.DataSource=Dt
ComboBox1.DisplayMember="Name"
ComboBox1.ValueMember="ID"
ComboBox1.Show()

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } دفعه یک پروپرتی جالب از TextBox رو میگم

پروپرتی ShortcutsEnabled که از نوع Boolean هست
بعضی وقتها میخواین که کاربر نتونه از تو TextBox متنی رو کپی کنه یا Undo کنه و ...
برای انجام اینکار این پروپرتی رو برابر False قرار بدین
عملیاتی که این پروپرتی مانع از انجام اونها میشه اینها هستند

•  
  CTRL+Z
   
  CTRL+E
   
  CTRL+C
   
  CTRL+Y
   
  CTRL+X
   
  CTRL+BACKSPACE
   
  CTRL+V
   
  CTRL+DELETE
   
  CTRL+A
   
  SHIFT+DELETE
   
  CTRL+L
   
  SHIFT+INSERT
   
  CTRL+R
  

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle } سلام
حتما" تا حالا عبارت Region# را دیدید؟ و این سوال براتون پیش اومده که این عبارت چی هست و چه کاری انجام میده !!!
این دفعه میخوام در باره ی Directive ها توضیح بدم

Directive ها دستوراتی هستند که کامپایل نمیشوند بلکه کامپایلر رو هدایت میکنند تا دستور خاصی را کامپایل کنه. تمامی Directive ها با علامت # اغاز میشوند. تعداد این دستورات در C#‎ از VB بیشتره. من در این پست دستوراتی که در vb به کار میروند را توضیح میدم

#Region  "Name"

#End Region

این Directive برای دسته بندی قسمت هایی از کد استفاده میشه. مثلا شما یک کلاس دارید که در اون اعمال مختلفی انجام میشه مثلا قسمتی از این کلاس اعمال مربوط به اساتید رو انجام میده و قسمت دیگری اعمال مربوط به دانشجویان. با این Directive میتونین این اعمال را دسته بندی کنید.

کد:

C#‎onst

کار این Directive تعریف یک مقدار ثابته مثلا" در دستور زیر شما به جای عدد 3.14 میتونید بنویسید PI . از این پس کامپایلر هر کجا که کلمه PI رو دید به جای آن مقدار 3.14 را قرار میدهد
کد:

C#‎onst PI = 3.14

#If   Then

#Else

#End If

عمل این Directive ها هم مثل if معمولی هست و فقط تفاوت اون هم در اینه که کامپایل نمیشه. پس شرط اون هم نباید کامپایل بشه. مثلا شما میتونید به این صورت از اون استفاده کنید

  
#If Pi = 3.14  Then
        'Return True
#Else
        'Return False
#End  If

Directive اخری که هست اینه :

#ExternalSource("FilePath", 1)
        MsgBox("In  FilePath")
#End ExternalSource

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

[TAHA]

.wysiwyg { BACKGROUND: #f5f5ff; FONT: 10pt tahoma,tahoma,tahoma; COLOR: #000000 } P { MARGIN: 0px } .inlineimg { VERTICAL-ALIGN: middle }
سلام
شاید شما هم از نوشتن دستورات SQL در برنامه خسته شده باشید.
نوشتن این دستورات (Insert,Update,Delete) باعث بروز مشکلات زیادی برای برنامه نویس میشه که خودتون بهتر میدونید
حالا روشی را معرفی میکنم که دیگه احتیاجی به نوشتن این دستورات نداشته باشین
تعریف متغیر ها و مقدار دهی اولیه:

 Dim con As  SqlClient.SqlConnection = New  SqlClient.SqlConnection("StrConnection")
        con.Open()
        Dim da  As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("Select * From  Table1", con)
        Dim dt As DataTable = New DataTable
         da.Fill(dt)
        Dim cmdbuild As SqlClient.SqlCommandBuilder

اضافه کردن سطر به DataTable :

Dim dr As  DataRow
        dr = dt.NewRow
        dr("Fild 1") = "Value 1"
         dr("Fild 2") = "Value 2"
        dr("Fild N") = "Value N"
         dt.Rows.Add(dr)
        cmdbuild = New  SqlClient.SqlCommandBuilder(da)
        da.Update(dt)

ویرایش :

  
dt.Rows(0)("Fild 1")  = "Value 1"
        dt.Rows(0)("Fild 2") = "Value 2"
         dt.Rows(0)("Fild N") = "Value N"
        cmdbuild = New  SqlClient.SqlCommandBuilder(da)
         da.Update(dt)

حذف:

dt.Rows(0).Delete()
        cmdbuild = New  SqlClient.SqlCommandBuilder(da)
        da.Update(dt)

شی SqlCommandBuilder ، تغییراتی که در DataTable داده شده است را به صورت دستورات SQL تبدیل میکند و در Da میریزد