ImageComboBox ورژن 1.2

سلامی دوباره به دوستان عزیزم

من اون چیزی رو که مانی گفته بود رو روی این ImageCombobox اعمال کردم و ورژن 1.2 این کامپونت رو برای دوستان ساختم

من فقط کامپونت رو میزارم چرا که هیچ Property جدیدی اضافه نشده و فقط خاصیت RightToleft این کامپونت رو درست کردم

برای دانلود کامپونت اینجا کلیک کنید

برای دانلود مثال طریقه استفاده از کامپونت



فقط دوستان اگر کسی نظری داره برای بهبود این کامپونت حتما بیان کنه خواهشا.

باتشکر!

ورژن 1.1 از Image ComboBox

دوستان عزیز ورژن 1.1 از ImageCombobox رو براتون آماده کردم و امیدوارم که به کارتون بیاد

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

تعیین ساز عکس توسط برنامه نویس یا کاربر

تغییر مشخصات و عکس یک آیتم

امکان بازگرداندن عکس آیتم انتخاب شده

برای تغییر اندازه عکس به دلخواه خودتون میتونید توی خاصیت (Property) به نام ImageSize مقدار طول و عرض عکس رو تغییر بدهید

برای دانلود کامپونت اینجا کلیک کنید

برای دانلود مثال طریقه استفاده از کامپونت 

فقط دوستان اگر کسی نظری داره برای بهبود این کامپونت حتما بیان کنه خواهشا.

باتشکر!

ورژن اول Image ComboBox

دوستان عزیز من ورژن اول ImageComboBox رو آماده کردم
یکم ناقصی داره ولی خوب فعلا میشه ازش استفاده کرد
هم نمونه برنامه رو میزارم و هم کامپونت استفاده ازش رو
 

برای دانلود کامپونت اینجا کلیک کنید 

برای دانلود نمونه برنامه طریقه استفاده از کامپونت اینجا کلیک کنید  

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

ImageCombobox1.AddItems("Ali Najari", Image.FromFile("C:\Ali 3.png"))

برای نمایش عکس ایتم انتخاب شده در پشت زمینه فرم از دستور زیر استفاده کنید 

Me.BackgroundImage = ImageCombobox1.SelectedImage

کلاسی برای کار با بانک اطلاعاتی SQL

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی SQL هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده

Imports System.Data
Imports System.Data.SqlClient

Public Class SQLDatabase

Private ObjCon As New SqlConnection
Private ObjCom As New SqlCommand
Private da As New SqlDataAdapter
Public dt As New DataTable

Public Sub doConnect(ByVal Server As String, ByVal Database As String, ByVal Password As String, ByVal Username As String)

   Dim cs As String = "Data Source=" & Server & ";Initial Catalog=" & Database & ";User      ID=" & Username & "Sa;Password=" & Password 
   ObjCon.ConnectionString = cs
   ObjCon.Open()  
End Sub

Public Function doSelect(ByVal Str As String)
   dt.Reset()
   ObjCom.Connection = ObjCon 
   ObjCom.CommandText = Str 
   da.SelectCommand = ObjCom 
   dt = New DataTable 
   da.Fill(dt) 
   Return dt 
End Function

Public Sub doCommand(ByVal str As String)
   ObjCom.Connection = ObjCon
   ObjCom.CommandText = str
   ObjCom.ExecuteNonQuery()
End Sub

Public Function Docheck(ByVal str As String) As Boolean
   ObjCom.Connection = ObjCon
   ObjCom.CommandText = str
   Dim dr As SqlDataReader = ObjCom.ExecuteReader
   Docheck = dr.Read 
   ObjCon.Close() 
   Return Docheck 
End Function

Public Sub Disconnect()
  ObjCon.Close() 
End Sub

End Class

برای دانلود کلاس اینجا کلیک کنید

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

کلاسی برای کار با بانک اطلاعاتی Access

دوستان این کلاسی که براتون واسه دانلود گذاشتم واسه کار با بانک اطلاعاتی Access هست که کلیه عملیات Insert - Update - Delete - Select - Read رو انجام میده

Imports System.Data
Imports System.Data.OleDb

Public Class Mydb

Private ObjCon As New OleDbConnection
Private ObjCom As New OleDbCommand
Private da As New OleDbDataAdapter
Public dt As New DataTable

Public Sub doConnect()
      Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|                                      \Database.mdb;Persist Security Info=True"
      ObjCon.ConnectionString = cs
      ObjCon.Open()
End Sub

Public Function doSelect(ByVal Str As String)
      dt.Reset()
      ObjCom.Connection = ObjCon
      ObjCom.CommandText = Str
      da.SelectCommand = ObjCom
      dt = New DataTable
      da.Fill(dt)   
      Return dt 
End Function

Public Sub doCommand(ByVal str As String)
   ObjCom.Connection = ObjCon
  ObjCom.CommandText = str 
  ObjCom.ExecuteNonQuery() 
End Sub

Public Function Docheck(ByVal str As String) As Boolean
  ObjCom.Connection = ObjCon 
  ObjCom.CommandText = str 
  Dim dr As OleDbDataReader = ObjCom.ExecuteReader 
  Docheck = dr.Read 
  ObjCon.Close() 
  Return Docheck 
End Function

Public Sub Disconnect()
  ObjCon.Close() 
End Sub

End Class

برای دانلود کلاس اینجا کلیک کنید

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