Mengembangkan aplikasi yang berbasis plugin menggunakan .NET tidaklah sulit, dengan menggunakan reflection sebetulnya cukup, hanya saja akan sangat sulit untuk dimaintain apalagi jika melibatkan banyak developer.

Mengembangkan aplikasi berbasis plugin tentunya mempunyai beberapa kelebihan, satu diantaranya

Microsoft telah mengeluarkan sebuah framework baru, yaitu Net Framework 4, yang salah satu komponennya Managed Extensibility Framework (MEF)

Managed Extensibility Framework (MEF) is the next BIG thing happening in .Net Framework 4. This framework allows the developers to extend their apps in completely decoupled fashion.So what does that means well you can simply plug in (let us say new module) without recompiling the your main application. All that is required here that all the modules of the application follows the same contract.In this post , which is part one of two series. I will do a walkthrough of some real time scenario where you can apply MEF practically. Before you continue to read further , I strongly recommend that you get sound understanding of MEF. This post only talks about the MEF stuff that will be used in this project. You can look below in the reference section below to learn MEF.

mengunakan gambar yang telah dimasukan ke dalam komponen imagelist
Dim x As Integer
Dim imageColumn As System.Windows.Forms.DataGridViewImageColumn
Dim columnCount As Integer = 0
Do

imageColumn = New System.Windows.Forms.DataGridViewImageColumn
i = 0

imageColumn.Image = ImageList1.Images.Item(i)

imageColumn.ImageLayout = DataGridViewImageCellLayout.Stretch
imageColumn.Description = “default image layout”
DataGridView1.Columns.Add(imageColumn)
columnCount = columnCount + 1
i = i + 1
Loop While columnCount < 3
DataGridView1.Refresh

Untuk para proggramer yang sering menggunnakan VB6.0 mungkin salah satu yang wajib untuk dipelajari yaitu mengenai event dan event handler. kemungkinan biasa kita sering membuat sebuah event handler dengan cara standart.

Misalnya kita mempunyai tiga buah event handler pada tiap-tiap komponen butoon seperti source code di bawah ini :

Private Sub Btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsave.Click

Msgbox(“Save”)

end sub

Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click

Msgbox(“Delete”)

end sub

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

Msgbox(“Cancel”)

end sub

Dari ketiga even handler komponen seperti di atas sebenarnya dapat kita lakukan penyerdehaan penulisan kode menjadi satu buah event handler yang menangani lebih dari satu event untuk masing-masing komponen, dengan syarat  event hanlder yang mirip dan dari komponen yang sama. Intinya terdapat pada handles keyword.

Private sub ClickEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnsave.click, Btncancel.click, Btndelete.click

end sub

Setelah Handles keyword kita tinggal mendifinisikan event-event yang akan dibuat hanldernya dari masing-masing komponen dengan dipisahkan dengan tanda koma. Sekarang kita akan melakukan pentriggeran pada event tersebut. dengan variabel sender yang terdapat pada parameter pertama di prosedur tersebut, yang dilakua adalah melakukan casting explicit ke kontrol yang mentrigger event tsb. Setelah didapatkan object nya maka kita dapat memanfaatkan properti yang dimiliki oleh kontrol tsb untuk identifikasi. Properti yang mudah dan umum digunakan yaitu properti Name. Berikut code nya :

Private sub ClickEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnsave.click, Btncancel.click, Btndeleate.click

dim abutton = directcast(sender,button)

select case abutton.name.tolower

case”btnsave”

msgbox(“save”)

case”btncancel”

msgbox(“cancel”)

case”btndelete”

msgbox(“delete”)

end select

end sub

membuat handler secara dinamis, pertama kita buat event handler dengan signature nya yang sama tanpa handles keyword.

Private sub ClickEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
dim abutton = directcast(sender,button)
select case abutton.name.tolower
case “btnsave”
msgbox(“save”)
case “btndelete”
msgbox(“delete”)
case”btncancel”
msgbox(“cancel”)
end select
end sub

selanjutnya yang harus kita lakukan adalah proses assignment, gunakan addhandler keyword. kita dapat menempatkan perintah tersebut dimana saja, saya menggunakan perintah tersebut di event form load

Private sub eventandeventhandler_load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Mybase.load
AddHandler btnSave.Click, AddressOf ClickEventHandler
AddHandler btnCancel.Click, AddressOf ClickEventHandler
AddHandler btnDelete.Click, AddressOf ClickEventHandler
end sub

Perintah removehandler digunakan untuk memutuskan asosiasi antara event dan eventhandlernya labih dari satu kali penulisan kodenya sebagai berikut

Private sub btnRemoveHandler_Click()
RemoveHandler btnSave.Click, AddressOf ClickEventHandler
RemoveHandler btnCancel.Click, AddressOf ClickEventHandler
RemoveHandler btnDelete.Click, AddressOf ClickEventHandler
end sub

http://waroengvb.net/menangani-event-handler-di-vb-net/

Datagridview merupakan komponen yang sering digunakan database programer untuk menampilkan data dalam bentuk table.

Kode dibawah salah satu cara untuk menampikan data di datagridview, kita mulai dengan membuat table di acces.
Buat aplikasi windows, dan tambahkan komponen datagridview di form

Interface ketika program dijalankan

imports systems.data
imports system.data.oledb

‘membuat koneksi

Dim connString As String = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb”
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
‘ create a data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(“Select * from Customers”, myConnection)

Create a DataSet Object and Fill with the data

You use Fill method of OleDbDataAdpater to fill data to a DataSet object.

‘ create a new dataset
Dim ds As DataSet = New DataSet
‘ fill dataset
da.Fill(ds, “Customers”)

Attach DataSet to DataGrid

Now you use DataSource method of DataGrid to attached the DataSet data to the data grid.

‘ Attach DataSet to DataGrid
DataGrid1.DataSource = ds.DefaultViewManager

Here is entire source code written on the form load method.

Imports System.Data
Imports System.Data.OleDb
‘ some code here
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘ create a connection string
Dim connString As String = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb”
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
‘ create a data adapter
Dim da As OleDbDataAdapter = New OleDbDataAdapter(“Select * from Customers”, myConnection)
‘ create a new dataset
Dim ds As DataSet = New DataSet
‘ fill dataset
da.Fill(ds, “Customers”)
‘ write dataset contents to an xml file by calling WriteXml method
‘ Attach DataSet to DataGrid
DataGrid1.DataSource = ds.DefaultViewManager
End Sub
End Class

Dengan cara oledbcommand dan dilooping
imports System.Data
Imports System.Data.OleDb

Public Class Form2
Dim baris_sekarang As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim kolom As Integer

Dim sqlfill As String = “Select * from tb1″
Dim fillcommand As OleDbCommand

fillcommand = New OleDbCommand(sqlfill, opendbconnection)

Try

Dim rdr As OleDbDataReader = fillcommand.ExecuteReader
While rdr.Read

DataGridView1.Rows.Add()

For kolom = 0 To DataGridView1.ColumnCount – 1

DataGridView1.Rows(baris_sekarang).Cells(kolom).Value = rdr(kolom)

Next
baris_sekarang = baris_sekarang + 1
End While
Catch ex As OleDbException
MsgBox(ex.Message.ToString)
End Try
closedbconnection()
End Sub

1. Memasukan data SQLCommand dengan SQL parameter
2. Memasukan data SQLCommand dengan SQL
3. Memasukan data dengan Stored Procedure
4. Memasukan data dengan Dataset

Ketiga metode tersebut berlaku pada pada semua platform DBMS, tentu saja DBMS yang mendukung SQL. Sekarang kita bahas satu persatu metode diatas.

dalam pembahasan penulis menggunakan contoh menggunakan DBMS Microsoft access.
sebagai tahap awal kita buat dahulu database dan tabelnya, Berinama INSERTDB.MDB untuk database, dan tablenya diberinama TBL1, letakan database itu di directory C supaya gampang untuk membuat pathnya.

Interface program ketika dirun

Propeties Komponen yang dipakai

Memasukan data SQLCommand dengan SQL
imports system.data
imports system.data.oledb
Dim Mycn As OleDbConnection
Dim MyCommand As OleDbCommand
Dim SQLInsert As String
Private Sub ButtonAdd_Clic
Try
Mycn = New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\INSERTDB.MDB;”)
Mycn.Open()
SQLstr = “INSERT INTO TBL1 VALUES(‘” & txtid.Text & “‘,’” & txtnama.Text & “‘,’” & _
cbojkel.Text & “‘,’” & txtalamat.Text & “‘,’” & txtnotlp.Text & “‘)”
myCommand = New OleDbCommand(SQLstr, Mycn)
myCommand.ExecuteNonQuery
Catch ex As Exception
MessageBox.Show(“could not insert record”)
End Try
Mycn.Close()
end Sub

Memasukan data SQLCommand dengan sql Parameter
imports system.data
imports system.data.oledb
Dim Mycn As OleDbConnection
Dim MyCommand As OleDbCommand
Dim SqlInsert as string
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Mycn = New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestInsertDataVB\DataBaseTestInsertVB.mdb;”)
Mycn.Open()
try
sqlinsert = “Insert into TBL1(id,nama,jenis_kelamin,alamat,notlp)values(@id,@nama,@jenis_kelamin,@alamat,@notlp)”
MyCommand= new oledbcommand(Mycn,sqlinsert)
mycommand.CommandType = CommandType.Text
mycommand.Parameters.Add(“@id”, OleDbType.Char, 50).Value = Txtid.Text
mycommand.Parameters.Add(“@nama”, OleDbType.Char, 50).Value = txtnama.Text
mycommand.Parameters.Add(“@jenis_kelamin”, OleDbType.Char, 20).Value = cbojkel.Text
mycommand.Parameters.Add(“@alamat”, OleDbType.Char, 100).Value = txtalamat.Text
mycommand.Parameters.Add(“@tlp”, OleDbType.Char,20).Value = txtnotlp.text
mycommand.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(“could not insert record”)
end try
Mycn.Close()
end sub

Insert data dengan Stored Procedure

Pertama yang dilakukan dalam metode ini, dengan membuat stored procedure. stored procedure merupakan objek yang terdapat dalam sebuah dbms yang tidak mempunyai interface

Memasukan Data dengan Dataset

imports system.data
imports system.data.oledb
Dim Mycn As OleDbConnection
Dim MyCommand As OleDbCommand
Dim SqlInsert as string

Dim myConnection as SqlConnection
Dim mySqlDataAdapter as SqlDataAdapter

myConnection = new SqlConnection(“server=(local)\SQLExpress;Integrated Security=SSPI;database=northwind”)
mySqlDataAdapter = new SqlDataAdapter(“Select * from Customers”, myConnection)

Dim myDataSet as DataSet = new DataSet()
Dim myDataRow As DataRow

‘ Create command builder. This line automatically generates the update commands for you, so you don’t
‘ have to provide or create your own.
Dim myDataRowsCommandBuilder as SqlCommandBuilder = new SqlCommandBuilder(mySqlDataAdapter)

‘ Set the MissingSchemaAction property to AddWithKey because Fill will not cause primary
‘ key & unique key information to be retrieved unless AddWithKey is specified.
mySqlDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey

mySqlDataAdapter.Fill(myDataSet, “Customers”)

myDataRow = myDataSet.Tables(“Customers”).NewRow()
myDataRow(“CustomerId”) = “NewID”
myDataRow(“ContactName”) = “New Name”
myDataRow(“CompanyName”) = “New Company Name”

myDataSet.Tables(“Customers”).Rows.Add(myDataRow)

Context Menus adalah menu yang muncul ketika sebuah item atau component, di aplikasi yang berbasis windows, ketika ada aksi click kanan tombol mouse. Sebagai contoh kamu akan menjumpai sebuah menu yang mana akan menampilkan shortcut dari edit menu, cut, copy, paste, paste special dan lain-lain. semua item menu  tersebut dapat dijumpai ketika terjadi event click kanan pada tombol mouse . dalam visual basic untuk membuat context menu dibutuhkan component ContextMenu. untuk melakukan pengeditan ContextMenu component sama persisnya dengan pengeditan MainMenu component.

contoh membuat context menu

di sebuah form baru drag contexmenu component dari toolbox, clik ci contexmenu component untuk membuka editor. di editor tepatnya pada kotak yang bertuliskan type here , masukan Copy, Cut, Paste. Cut ditandai dengan MenuItem1, Copy ditandai dengan menu MenuItem2, dan Paste ditandai dengan MenuItem. selanjutnya drag dua buah richtextbox component ke form. diproperties window dari form dan kedua  richtextbox, pilih contextmenu property dan set isi menjadi ContextMenu1.

dibawah ini kode untuk fungsi menu Cut, Copy, Paste
Public Class Form3 Inherits System.Windows.Forms.Form

#Region ” Windows Form Designer generated code “

#End Region

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MenuItem1.Click
RichTextBox1.Cut()
End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MenuItem2.Click
RichTextBox1.Copy()
End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MenuItem3.Click
RichTextBox2.Paste()
End Sub

End Class

Kalau di run program akan berjalan seperti di bawah ini

source code di bawah ini merupakan salah satu bentuk koneksi

imports MySql.Data.MySqlClient
‘code
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
‘ Memeriksa apakah objek koneksi masih ada
‘ Jika ada, maka menutup terlebih dahulu
If Not Conn Is Nothing Then Conn.Close()
‘ memasukkan informasi ke variabel
ConnString = “server=localhost;” _
& “uid=tidak_ada;” _
& “pwd=apasaja;” _
& “database=test;”
Try
‘ Membuat objek MySqlConnection melalui
‘ konstruktor dengan parameter string koneksi
Conn = New MySqlConnection(ConnString)
‘ membuka koneksi database
Conn.Open()
MsgBox(“Koneksi ke ” & Conn.DataSource _
& Chr(10) & “Status : ” & Conn.State.ToString(), _
MsgBoxStyle.Information, “Sukses”)
‘ menutup koneksi
Conn.Close()
Catch ex As MySqlException
Select Case ex.Number
Case 0
MessageBox.Show(”Tidak dapat Koneksi ke ” _
& Conn.DataSource, “Koneksi Gagal”, _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Case 1045
MessageBox.Show(”Nama user atau password ” & _
” tidak dikenal”, “Login Gagal”, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Finally
‘ menghapus objek koneksi
Conn.Dispose()
End Try
end sub

Pada dasarnya dalam proses menyimpan data gambar ke dalam database kita, dapat melakukan dengan dua metode

1. Menyimpan gambar yang disimpan dalam database adalah path dari gambar tersebut.

2. Menyimpan gambar yang disimpan dalam database  adalah gambar tersebut dalam bentuk byte.

Dibawah ini kode untuk menyimpan gambar acces database, mengunakan metode yang kedua. terlebih dahulu dubuat databasenya di acces. Database yang dalam kode dibawah ini namanya “DB_PIC.Mdb”, path dari database di directory C, nama tablenya “PIC_ TBl”, strukturnya sebagai berikut:

Setelah dibuat database dan tablenya dengan struktur seperti di atas, dibuat interface dan hasil ketika program dijalankan. seperti gambar di bawah ini

Pengkodean dimulai dengan membuat procedure untuk membuka dan menutup databasenya.

‘deklarasi namespace untuk data
imports system.data
imports system.data oledb
Public Conn As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB_PIC.Mdb; Persist Security Info=False”)

Public Function openconnection() As OleDbConnection
Try
If conn.State ConnectionState.Open Then
conn.Open()
End If
Catch ex As OleDbException
MsgBox(ex.Message.ToString)
End Try
Return conn
End Function

Public Function closeconnection() As OleDbConnection
Try
If conn.State ConnectionState.Closed Then
conn.Close()
End If
Catch ex As OleDbException
MsgBox(ex.Message.ToString)
End Try
Return conn
End Function

Menyiapkan gambar
imports system.data ‘ name space untuk data
imports system.data.oledb
imports system.io ‘name space untuk membuat file stream

kita akan mengambil gambar dari hard
private sub loadimage()
pic.image = nothing
dlgpic.showdialog
dim fname as string= dlgpic.filename
if fname.length = 0 then exit sub
try
pic.image = image.fromfile(fname)
catch

end try

end sub

Simpan gambar
penyimpanan gambar ke dalam database, apabila dilakukan click pada button1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As New MemoryStream

Dim mycommand As OleDbCommand
Dim sqlinsert As String = “INSERT INTO TABLE1(ID,PICTURE)VALUES(@id,@nama,@alamat,@picture)”
Try
PictureBox1.Image.Save(str, Imaging.ImageFormat.Jpeg)
Dim buffer(CInt(str.Length – 1)) As Byte
‘untuk mereset posisi
str.Position = 0
str.Read(buffer, 0, str.Length)
mycommand = New OleDbCommand(sqlinsert, openconnection)
mycommand.CommandType = CommandType.Text
mycommand.Parameters.Add(“@id”, OleDbType.Char, 50).Value = TextBox1.Text
mycommand.Parameters.Add(“@nama”, OleDbType.Char, 50).Value = TextBox2.Text
mycommand.Parameters.Add(“@alamat”, OleDbType.Char, 100).Value = TextBox3.Text

mycommand.Parameters.Add(“@picture”, OleDbType.Binary).Value = buffer
mycommand.ExecuteNonQuery()
Catch ex As Exception
Finally
End Try
closeconnection()
End Sub

Menampilkan gambar
private sub Display_Image(strinput as string)
dim Sqlshow as string = “select * from where id=’” && “‘”
Dim mycommand As OleDbCommand
Dim myreader As OleDbDataReader

mycommand = New OleDbCommand(sqlload, openconnection)
myreader = mycommand.ExecuteReader

‘jika recordnya tidak kosong
If myreader.Read Then
Try
Dim buffer() As Byte = CType(myreader(“picture”), Byte())
Dim str As New MemoryStream(buffer)
PictureBox1.Image = Image.FromStream(str)

Catch ex As Exception

End Try
End If
‘tutup koneksi database
closeconnection()
end sub

Sintak Dasar

Contoh Sintaks XML
<?xml version=”1.0″?>
<note>
<to>Tove</to>
<from>Jani</from>
<heading>Reminder</heading>
<body>Don’t forget me this weekend!</body>
</note>

Keterangan
<note> sebagai root, 4 baris di bawahnya (to, from, heading, body), merupakan elemen anak. semua baris pemerintah XML harus mempunyai tag pembuka dan penutup.

Berdasarkan contoh penulisan XMl di atas,  dapat disimpulkan

Semua baris perintah XML harus mempunyai tag pembuka dan penutup.

<p>ini adalah paragraph</p>
<p>ini adalah sebuah yang lain paragraph</p>

XML case sensitif, berarti dalam penulisan tag XML harus diperhatikan besar kecilnya huruf.  Untuk lebih dapat dimengerti diperhatikan contoh di bawah ini

Elemen XML beratribut
Dalam perintah HTML yang

Setiap elemen yang beratribut harus di beri tanda (“”)

<note date=12/11/2007>
<to>Tove</to>
<from>Jani</from>
</note>

<note date=”12/11/2007″>
<to>Tove</to>
<from>Jani</from>
</note>