تکنیک ها برنامه نویسی VB.NET

[JaVa]

توجه:

فعلا تاپیک در حال ایجاد است لطفا تا تکمیل مراحل اولیه ایجاد تاپیک از ارسال هرگونه پستی خودداری نمایید.

89927



دوستان اگه نظری پیشنهادی در مورد روند اجرایی این تایپیک دارند به من از طریق پ.خ ابلاغ کنند.



هدف:
تمرینهایی از:

تولید برنامه های کاربردی

و
.
.
.

[JaVa]

این پست رزرو شده

[JaVa]

این پست رزرو شده.

[JaVa]

می خواهیم یه TextBox را به صورتی تنظیم کنیم اطلاعاتش را با فرمت عدد نشان دهد.


Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String = ""
If TextBox1.Text.Length > 3 Then
SendKeys.Send("{End}")
str = Format$(TextBox1.Text.Replace(",", ""))
TextBox1.Text = Format$(Val(str), "###,###,###")
End If
End Sub
End Class


نتیجه :


89928

[JaVa]

می خواهیم برنامه ای بنویسیم که ویندوز را Restart,Turn OFF,Stand By کند.


Imports System.IO.IsolatedStorage
Imports System.Reflection

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each proc As Process In Process.GetProcessesByName("Explorer")
proc.CloseMainWindow()
Next
End Sub

End Class


نتیجه:


89930

[JaVa]

می خواهیم با استفاده از Clipboard تصویری را از یک PictureBox به دیگری منتقل کنیم.


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Clipboard.SetImage(PictureBox1.Image)
PictureBox2.Image = My.Computer.Clipboard.GetImage
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox2.BackgroundImageLayout = ImageLayout.Stretch
PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

End Class


نتیجه:

89932

[JaVa]

این برنامه برای اجرای دستورات که از طریق Run در ویندوز استفاده می شود.
از اینجا (http://1380.blogfa.com/post-109.aspx)هم می توانید لیست کلیه دستورات قابل اجرا در Run را بدست بیارید.


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Shell(TextBox1.Text, AppWinStyle.NormalFocus)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class



90151

[JaVa]

سئوال : تکس باکسی که فقط عدد دریفت کند:

کد 1:

If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If


کد 2:

e.Handled = Not (IsNumeric(e.KeyChar) Or Asc(e.KeyChar) = 8)


سئوال: بدست آوردن کد اسکی دکمه های صفحه کلید:


Private Sub ListBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
ListBox1.Items.Add(e.KeyValue)
End Sub


سئوال: بدست آوردن کد اسکی دکمه ها بصورت ترکیبی:

Private Sub ListBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ListBox1.KeyPress
ListBox1.Items.Add(Convert.ToInt16(e.KeyChar))
End Sub


معرفی سایت:
مشاهده کلیه کدهای اسکی و .... (http://www.ascii-code.com/)

سئوال: چگونه کد یک رشته رو به کد اسکی تبدیل کنیم:


Dim I As Integer, A As String
A = "barnamenevis.org"
For I = 1 To Len(A)
txtCode.Text = txtCode.Text & Asc(Mid(A, I, 1)) & " "
Next


سئوال: چگونه می توان فقط عدد را همراه با کاراکتر '-' در تکس باکس وارد کرد.


e.Handled = Not (IsNumeric(e.KeyChar) Or Asc(e.KeyChar) = 45)

[JaVa]

در صورتی که بخواهیم اطلاعات موجود در کنترل های روی فرم را Clear کنیم از این کد استفاده می کنیم:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next

End Sub

End Class

[JaVa]

برای کپی برداری از یک فایل به شکل زیر عمل می کنیم.:



Imports System
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

File.Copy("E:\SHAHROKH85\1.mp3", "c:\1.mp3")
''''حال کلی
''''File.Copy("مبدا", "مقصد")
End Sub

End Class

[JaVa]

برای ایجاد یک پوشه در مسیر دلخواه به شکل زیر عمل می کنیم:


Imports System
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
''''ایجاد یک پوشه در مسیر دلخواه
Directory.CreateDirectory("C:\Test")
End Sub

End Class

[JaVa]

مشاهده برنامه های موجود در task Manager



Imports System
Imports System.Diagnostics

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim running() As Process = Process.GetProcesses
If running.Length > 0 Then
Dim cnt As Integer
For cnt = 0 To running.Length - 1
ListBox1.Items.Add(running(cnt).ProcessName)
Next cnt
End If
End Sub

End Class

[JaVa]

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



Imports System
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
''''برای حذف کردن یک فایل
File.Delete("C:\1.mp3")
''''حالت کلی
''''file.Delete("مسیر فایل")
End Sub

End Class

[JaVa]

در صورتی که نیاز باشد یک فایل متنی ایجاد نماییم و در آن اطلاعات وارد کنیم می توان همانند زیر عمل کرد:



Imports System
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SWFile As StreamWriter = File.CreateText("C:\check.txt")
SWFile.WriteLine("Hello")
SWFile.WriteLine("Name")
SWFile.WriteLine("Family")
SWFile.WriteLine("Parent")
SWFile.Flush()
SWFile.Close()

End Sub

End Class

[JaVa]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ing As Integer
ing = Shell("RunDll32.exe Shell32.dll,Control_RunDLL desk.cpl,,2")

End Sub

End Class

[JaVa]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(System.Windows.Forms.Screen.PrimaryScreen.B ounds.Width)
MsgBox(System.Windows.Forms.Screen.PrimaryScreen.B ounds.Height)

End Sub

End Class

[JaVa]

1- ذخیره سازی تنظیمات برنامه در ویژوال استودیو
(http://www.prolearn-vs.com/vs-net-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%B3%D8%A7%D8%B2%DB%8C-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D8%AA-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%B1-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84/)
2- انجام عملیات Caching در برنامه های Net 4. (http://www.prolearn-vs.com/vs-net-%D8%A7%D9%86%D8%AC%D8%A7%D9%85-%D8%B9%D9%85%D9%84%DB%8C%D8%A7%D8%AA-caching-%D8%AF%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-net-4/)

3- الگوریتم جستجوی QuickSort (http://www.prolearn-vs.com/vb-net-%D8%A7%D9%84%DA%AF%D9%88%D8%B1%DB%8C%D8%AA%D9%85-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88%DB%8C-quicksort/)

4-بازیابی شماره سریال هارد دیسک در Visual Basic 6 (http://www.prolearn-vs.com/code-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C-%D8%B4%D9%85%D8%A7%D8%B1%D9%87-%D8%B3%D8%B1%DB%8C%D8%A7%D9%84-%D9%87%D8%A7%D8%B1%D8%AF-%D8%AF%DB%8C%D8%B3%DA%A9-%D8%AF%D8%B1-visual-basic-6/)

5- اسکرول کردن خودکار کادر متن در ویژوال باسیک (http://www.prolearn-vs.com/trick-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AE%D9%88%D8%AF%DA%A9%D8%A7%D8%B1-%DA%A9%D8%A7%D8%AF%D8%B1-%D9%85%D8%AA%D9%86-%D8%AF%D8%B1-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84/)

6-رسم مربع و دایره در VB.Net (http://www.prolearn-vs.com/vb-net-%D8%B1%D8%B3%D9%85-%D9%85%D8%B1%D8%A8%D8%B9-%D9%88-%D8%AF%D8%A7%DB%8C%D8%B1%D9%87-%D8%AF%D8%B1-vb-net/)

7-رسم تصاویر در +GDI (http://www.prolearn-vs.com/vb-net-%D8%B1%D8%B3%D9%85-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-gdi/)

8-مجموعه کدهای مربوط به تصاویر در VB.Net (http://www.prolearn-vs.com/code-%D9%85%D8%AC%D9%85%D9%88%D8%B9%D9%87-%DA%A9%D8%AF%D9%87%D8%A7%DB%8C-%D9%85%D8%B1%D8%A8%D9%88%D8%B7-%D8%A8%D9%87-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1-%D8%AF%D8%B1-vb-net/)

9-ارسال ایمیل از طریق پروتکل SMTP در VB.Net (http://www.prolearn-vs.com/vb-net-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D9%BE%D8%B1%D9%88%D8%AA%DA%A9%D9%84-smtp-%D8%AF%D8%B1-vb-net/)

10-مرتب کردن رشته ی حاوی مقادیر عددی در VB.Net (http://www.prolearn-vs.com/trick-%D9%85%D8%B1%D8%AA%D8%A8-%DA%A9%D8%B1%D8%AF%D9%86-%D8%B1%D8%B4%D8%AA%D9%87-%DB%8C-%D8%AD%D8%A7%D9%88%DB%8C-%D9%85%D9%82%D8%A7%D8%AF%DB%8C%D8%B1-%D8%B9%D8%AF%D8%AF%DB%8C-%D8%AF%D8%B1-vb-net/)

11-سطح سیستم امنیتی برنامه ها (http://www.prolearn-vs.com/vb-net-%D8%B3%D8%B7%D8%AD-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D8%A7%D9%85%D9%86%DB%8C%D8%AA%DB%8C-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7/)

موفق باشید.*

[layegh110]

در صورتی که بخواهیم اطلاعات موجود در کنترل های روی فرم را Clear کنیم از این کد استفاده می کنیم:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next

End Sub

End Class


احسنت:تشویق:
من اوایل یه اپلیکیشن نوشته بودم و لازم بود وقتی کلید ذخیره رومیزد اطلاعات توی یه فایل تکست بشینه و برای رکورد بعدی کنترلها به حالت خام دربیاد. همه شونو یکی یکی نوشته بودم که کلر کنه:عصبانی++:. این متد خیلی راحت تره. ممنون.:لبخندساده:

[Mani_rf]

تاپیک هایی با موضوعات مشابه قبلا ایجاد شده است. لطفا به منظور حفظ یک پارچگی مطالب ادامه مطالب خود را درون یکی از دو تاپیک زیر اضافه کنید.

سورس کد برنامه های (http://barnamenevis.org/showthread.php?t=194903&page=1)

ناگفته ها در Visual Basic.NET (http://barnamenevis.org/showthread.php?t=130290)