View Full Version : آموزش: تکنیک ها برنامه نویسی VB.NET
JaVa
چهارشنبه 28 تیر 1391, 15:16 عصر
توجه:
فعلا تاپیک در حال ایجاد است لطفا تا تکمیل مراحل اولیه ایجاد تاپیک از ارسال هرگونه پستی خودداری نمایید.
89927
دوستان اگه نظری پیشنهادی در مورد روند اجرایی این تایپیک دارند به من از طریق پ.خ ابلاغ کنند.
هدف:
تمرینهایی از:
تولید برنامه های کاربردی
و
.
.
.
JaVa
چهارشنبه 28 تیر 1391, 15:34 عصر
این پست رزرو شده
JaVa
چهارشنبه 28 تیر 1391, 15:35 عصر
این پست رزرو شده.
JaVa
چهارشنبه 28 تیر 1391, 15:38 عصر
می خواهیم یه 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
چهارشنبه 28 تیر 1391, 15:55 عصر
می خواهیم برنامه ای بنویسیم که ویندوز را 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
چهارشنبه 28 تیر 1391, 16:08 عصر
می خواهیم با استفاده از 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
سه شنبه 03 مرداد 1391, 01:05 صبح
این برنامه برای اجرای دستورات که از طریق 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
سه شنبه 03 مرداد 1391, 20:24 عصر
سئوال : تکس باکسی که فقط عدد دریفت کند:
کد 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
چهارشنبه 04 مرداد 1391, 20:07 عصر
در صورتی که بخواهیم اطلاعات موجود در کنترل های روی فرم را 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
چهارشنبه 04 مرداد 1391, 20:13 عصر
برای کپی برداری از یک فایل به شکل زیر عمل می کنیم.:
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
چهارشنبه 04 مرداد 1391, 20:16 عصر
برای ایجاد یک پوشه در مسیر دلخواه به شکل زیر عمل می کنیم:
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
چهارشنبه 04 مرداد 1391, 20:21 عصر
مشاهده برنامه های موجود در 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
چهارشنبه 04 مرداد 1391, 20:29 عصر
برای حذف کردن یک فایل در مسیر دلخواه:
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
پنج شنبه 05 مرداد 1391, 00:45 صبح
در صورتی که نیاز باشد یک فایل متنی ایجاد نماییم و در آن اطلاعات وارد کنیم می توان همانند زیر عمل کرد:
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
پنج شنبه 05 مرداد 1391, 00:53 صبح
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
پنج شنبه 05 مرداد 1391, 01:02 صبح
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
دوشنبه 09 مرداد 1391, 11:36 صبح
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
شنبه 11 خرداد 1392, 11:57 صبح
در صورتی که بخواهیم اطلاعات موجود در کنترل های روی فرم را 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
شنبه 11 خرداد 1392, 17:16 عصر
تاپیک هایی با موضوعات مشابه قبلا ایجاد شده است. لطفا به منظور حفظ یک پارچگی مطالب ادامه مطالب خود را درون یکی از دو تاپیک زیر اضافه کنید.
سورس کد برنامه های (http://barnamenevis.org/showthread.php?t=194903&page=1)
ناگفته ها در Visual Basic.NET (http://barnamenevis.org/showthread.php?t=130290)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.