ویژوال بیسیک دات نت

عناوین یادداشت‌ها

  • گزارش گیری از تاریخ جمعه 24 اسفند‌ماه سال 1386 20:08
    select * from Orders where orderDate='1996-07-4' go select * from Orders where orderDate between '1996-07-4' and '1997-07-4' Date Between 't' AND 't2'
  • Reset کردن explorer جمعه 24 اسفند‌ماه سال 1386 20:07
    System.Diagnostics.Process.Start("explorer.exe")
  • جلوگیری از خاموش شدن سیستم پنج‌شنبه 9 اسفند‌ماه سال 1386 21:25
    Static masir As String = "software\microsoft\windows\currentversion\policies\explorer" Dim regeditkey As RegistryKey regeditkey = Registry.CurrentUser regeditkey = regeditkey.CreateSubKey(masir) regeditkey.SetValue("NoClose", 1, RegistryValueKind.DWord) System.Diagnostics.Process.Start("explorer.exe")
  • مقایسه ورژن های مختلف VS شنبه 22 دی‌ماه سال 1386 19:58
    http://msdn2.microsoft.com/en-us/vstudio/aa700921.aspx
  • استفاده از کنترول آرایه شنبه 22 دی‌ماه سال 1386 19:55
    اگه بخواید برای n تا کنترل شبیه به هم (مثلا دکمه های ماشین حساب) فقط یه بار کد بنویسید باید این کار رو بکنید: کد: Private Sub Button1_Click (...) Handles Button1.Click, Button2.Click, Button3.Click ...
  • برنامه در حال اجراست؟ شنبه 22 دی‌ماه سال 1386 19:44
    اگر از VS2005 استفاده کنید در قسمت Myproject که تنظیمات برنامه در آنجا هست گزینه ای با نام Make Single instance Appliction وجود دارد که با فعال کردن اون برنامه فقط یک نسخه از برنامه شما در حال اجرا خواهد بود و برنامه دو یا چند بار اجرا نمی شود در پناه حق موفق باشی
  • برنامه شنبه 22 دی‌ماه سال 1386 16:21
    برای این که فرم بر روی سایر پنجره ها قرار بگیره :: me.TopMost=True برای اجرای برنامه :: Process.Start("explorer.exe") بستن پنجره ها :: Dim a As Process() = Process.GetProcessesByName("explorer") Dim b As Process() = Process.GetProcessesByName("taskmgr") If a.Length > 0 Then a(0).Kill() If b.Length > 0 Then b(0).Kill()
  • :: چک کردن این که پرینتر نصب شده است یا خیر چهارشنبه 5 دی‌ماه سال 1386 21:56
    If PrinterSettings.InstalledPrinters.Count MessageBox.Show("Printer Not found...") Return End If For Each pName As String In PrinterSettings.InstalledPrinters ListBox1.Items.Add(pName) Next البته قبلش این کارو بکن :: Imports System.Drawing.Printing
  • سایت کانورت c# به vb و بلعکس . سه‌شنبه 4 دی‌ماه سال 1386 23:21
    http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx
  • فونت های ویندوز سه‌شنبه 4 دی‌ماه سال 1386 23:02
    با این کد تمام فونت های ویندوز رو میتونی در ComboBox نشون بدی کد: Dim font_collect As New Drawing.Text.InstalledFontCollection For Each f As FontFamily In font_collect.Families Me.ComboBox1.Items.Add(f.Name) Next
  • آمار کاربران سایت در ASP.NET جمعه 16 آذر‌ماه سال 1386 18:12
    آمار کاربران سایت در ASP.NET روزانه کاربران زیادی از سایت شما بازدید می کنند و برای هر مدیر سایت آمار بازدیدها، صفحات بازدید شده، ساعت و تاریخ بازدید، لینک و سایتی که کاربر به واسطه آن از سایت ما بازدید نموده است و . . . از اهمیت ویژه‌ای برخوردار است. برای آمارگیری از سایت‌ها از روشهای مختلفی می توان استفاده نمود: 1-...
  • چک کردن وجود دیتابیس در SQLSERVER2005 از طریق VB.NET جمعه 16 آذر‌ماه سال 1386 12:33
    Dim con As New SqlClient.SqlConnection(" data source = .sqlexpress;database = master ; Integrated Security=True") Dim cmd As New SqlClient.SqlCommand(Nothing, con) Dim reader As SqlClient.SqlDataReader cmd.CommandText = " SELECT count(*) FROM sys.sysdatabases WHERE [NAME]= 'pubs'" Try con.Open() Dim a As Integer =...
  • Data Center چیست؟ جمعه 16 آذر‌ماه سال 1386 12:32
    تا قبل از دهه ۹۰ استفاده از اینترنت برای مردم عادی به سادگی امکان‌پذیر نبود، چرا که استفاده از امکانات اینترنت نیاز به دانش خاصی داشت. محیط خط فرمانی(Command Line) و ساختار غیر گرافیکی اینترنت سبب شده بود که کاربران عادی علاقه چندانی به استفاده از اینترنت نداشته باشند. در اوایل دهه ۹۰، پس از به وجود آمدن مفهوم وب در...
  • تبدیل تاریخ جمعه 16 آذر‌ماه سال 1386 12:30
    تبدیل تاریخ میلادی سیستم به شمسی :: Function MiladiToShamsi(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As String Dim A As Date = Year & "/" & Month & "/" & Day Dim B As New System.Globalization.PersianCalendar Return B.GetYear(A) & "/" & B.GetMonth(A) & "/" &...
  • جملات نقض جمعه 16 آذر‌ماه سال 1386 12:30
    اَللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِداً وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَکَ طَوْعاً وَتُمَتِّعَهُ فیها طَویلاً آموختن بدون اندیشیدن رنجی است بیهوده و اندیشیدن بدون آموختن کاری است بس...
  • تغییر زبان صفحه کلید سه‌شنبه 6 آذر‌ماه سال 1386 13:35
    Dim c As New System.Globalization.CultureInfo("fa-IR") InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(c)
  • ایجاد فایل منتی . جمعه 2 آذر‌ماه سال 1386 19:19
    ایجاد :: Dim File as System.Io.File Io.File.CreateText("Path+Name") نوشتن :: System.IO.File.AppendAllText("Path", "DotNet" + vbNewLine) خواندن :: System.IO.File.ReadAllText("path")
  • انتقال ساده مکان نما پنج‌شنبه 1 آذر‌ماه سال 1386 21:46
    Private Sub fMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.Up Me.SelectNextControl(Me.ActiveControl, False, True, False, True) Case Keys.Down Me.SelectNextControl(Me.ActiveControl, True, True, False, True) End Select End Sub
  • تبدیل عدد به حرف -- سه‌شنبه 29 آبان‌ماه سال 1386 20:38
    Private Const hezar = " هزار" Private Const melun = " میلیون " Private Const melyard = " میلیارد " Private Const va = " و " Public Function Adad(ByVal Adad_En As Double) As String Dim hooroof As String Dim SS As Integer 'sadgan Dim hh As Integer 'hezargan Dim mm As Integer 'melungan Dim yy As Integer 'melyardgan Dim...
  • عشق یعنی ... دوشنبه 28 آبان‌ماه سال 1386 21:52
  • Zoom بر روی تصویر دوشنبه 28 آبان‌ماه سال 1386 20:22
    ' ---------------------------------------- ' Required Imports : ' ' Microsoft.VisualBasic ' System ' System.Drawing ' System.Windows.Forms ' ---------------------------------------- ' This code simulates a zoom effect with two ' bitmaps of the same size, where the second ' contains a zoomed center section of the...
  • برنامه نویسی شی گرا در VB.Net دوشنبه 28 آبان‌ماه سال 1386 20:19
    امروزه برنامه‌های کاربردی بر پایه شئ‌گرایی استوارند. تکنولوژی NET. امکانات بسیار جالب و کاملی در این زمینه دارد این مقاله که از کتاب ارزشمند Developing windows-based applications with microsoft VB.net & C#.net برگرفته شده است به شما کمک می‌کند با مفاهیم و چگونگی استفاده از این امکانات آشنا شوید. مطالبی مانند کلاسها،...
  • استفاده از ویژگی AutoComplete در ComboBox جمعه 25 آبان‌ماه سال 1386 15:06
    یکی از ویژگی های Net Framework 2. به ComboBox اضافه شده ، ویژگی AutoComplete هستش . این ویژگی این امکان رو برای ما فراهم میکنه که هنگام تایپ کردن مقداری در ComboBox نزدیکترین معادل رو برای ما از لیست پیدا کند و به روشهای مختلفی که در ادامه توضیح داده میشه اون رو به مقدار وارد شده توسط ما اضافه کنه . مطمئنا بسیاری از...
  • برنامه چندلایه چیست ؟ پنج‌شنبه 24 آبان‌ماه سال 1386 15:09
    در معماری چند لایه تمام برنامه به چندین بخش تقسیم می‌شود. این بخش‌ها می‌توانند فیزیکی یا منطقی باشند. هر بخش کار خاصی را انجام می‌دهد مثلا نمایش interface کاربر یا دسترسی به داد‌ه‌ها. برنامه می‌تواند به هر تعداد لایه داشته باشد ولی به هر حال بیش‌تر برنامه‌ها سه لایه‌ی مجزا دارند که عبارت‌اند از: Presentation Layer...
  • لیست توابع در Vb.Net پنج‌شنبه 24 آبان‌ماه سال 1386 14:59
    http://www.developercenter.ir/download/VB.NET%20Functions.zip
  • بدست آوردن سایز فایل سه‌شنبه 22 آبان‌ماه سال 1386 13:19
    Public Shared Function FileSize(ByVal path As String) As String Dim myFile As FileInfo Dim mySize As Single Try myFile = New FileInfo(path) If Not myFile.Exists Then mySize = 0 Else mySize = myFile.Length End If Select Case mySize Case 0 To 1023 Return mySize & " bytes" Case 1024 To 1048575 Return Format(mySize /...
  • نحوه خالی کردن DataGridView دوشنبه 21 آبان‌ماه سال 1386 22:02
    می توانید از دستور ساده زیر استفاده کنید : DataGridView1.DataSource =Nothing DataGridView1.DataMember=Nothing چون خودم دنبال این دستور می گشتم . گفتم شاید مهم باشه .
  • ساخت یک کنترل در زمان اجرا دوشنبه 21 آبان‌ماه سال 1386 13:00
    ساخت یک کنترل در زمان اجرا گاهی از اوقات در برنامه احتیاج هست که یک کنترل ( برای مثال یک Button یا یک Image ) را در هنگام اجرا بوجود آوربد . این کار در vb6 با استفاده از توابع API صورت می گرفت ولی در VB.NET این کار را به راحتی آب خوردن می توان درون برنامه انجام داد ساخت یک کنترل در زمان اجرا گاهی از اوقات در برنامه...
  • Zip & Unzip In Vb.Net یکشنبه 20 آبان‌ماه سال 1386 16:58
    Imports System.IO Imports System.IO.Compression Namespace ECP Public Class ZipUtility Public Sub CompressFile(ByVal sourceFile As String, ByVal destinationFile As String) ' make sure the source file is there If Not File.Exists(sourceFile) Then Throw New FileNotFoundException End If ' Create the streams and byte arrays...
  • دستیابی به رجیستری در VB.NET یکشنبه 20 آبان‌ماه سال 1386 16:57
    سلام. این مقاله در راستای جلوگیری از ایجاد تاپیک های بی مورد بوجود آمده است. امید است کاربران قبل از ارسال تاپیک با مطالعه ی اینگونه مقاله ها مشکلات خود را بر طرف کنند و اگر در جایی مسئله ای برایشان پیش آمد آن وقت تاپیک بزنند. این مقاله به بررسی چگونگی دستیابی به رجیستری در ویژوال بیسیک دات نت می پردازد. رجیستری...