Membuat Aplikasi berbasis plugin dengan vbnet

Tentunya Anda sudah akrab dengan istilah plugin atau add-on, yaitu fungsionalitas yang bisa ditambah ataupun dikurangi terhadap satu aplikasi. Sebagai contoh WinAmp, yang umum dikenal sebagai aplikasi pemutar MP3, dengan bantuan plugin maka fungsionalitas WinAmp tidak hanya sebagai pemutar MP3, tapi bisa juga digunakan untuk mengkonversi MP3 ke format lainnya, menambahkan efek suara tertentu, atau bahkan dapat digunakan untuk bermain game.

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.

Menampilkan gambar dalam DataGridview

Menampilkan gambar dalam DataGridview
Sering kali kita melihat aplikasi yang berbentuk tabel dengan isi kolom berupa gambar, Di bawah ini kita akan mencoba membuat sebuah aplikasi dengan vbnet dengan komponen datagridview untuk menampilkan gambar.

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

Memanfaatkan Combobox dalam Datagridview

Memanfaatkan Combobox dalam Datagridview

Dalam sebuah aplikasi spreadsheets, bisanya sering kita jumpai sebuah lookup dengan memanfaatkan combobox untuk searching data yang ingin dimasukan ke dalam kolom tersebut.

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

Dim cboKodeAccount As New DataGridViewComboBoxColumn
Dim txtKeterangan As New DataGridViewTextBoxColumn
Dim txtDC As New DataGridViewTextBoxColumn
Dim CboCur As New DataGridViewComboBoxColumn
Dim txtAmount As New DataGridViewTextBoxColumn

With cboKodeAccount
.DataPropertyName = “KodeAccountnya”
.HeaderText = “KodeAccount”
.Width = 100
End With
With txtKeterangan
.DataPropertyName = “Keterangannya”
.HeaderText = “Keterangan”
.Width = 150
End With
With txtDC
.DataPropertyName = “DCnya”
.HeaderText = “DC”
.Width = 40
End With
With CboCur
.DataPropertyName = “Curnya”
.HeaderText = “Cur”
.Width = 70
End With
With txtAmount
.DataPropertyName = “Amountnya”
.HeaderText = “Amount”
.Width = 100
End With

With Grid1
.Columns.Add(cboKodeAccount)
.Columns.Add(txtKeterangan)
.Columns.Add(txtDC)
.Columns.Add(CboCur)
.Columns.Add(txtAmount)
End With
cboKodeAccount.Items.Add(”Kode Acc 1″)
cboKodeAccount.Items.Add(”Kode Acc 2″)
cboKodeAccount.Items.Add(”Kode Acc 3″)
CboCur.Items.Add(”Curency 1″)
CboCur.Items.Add(”Curency 2″)
CboCur.Items.Add(”Curency 3″)
End Sub

‘Menambahkan Data Row ke dalam DGV
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Grid1.Rows.Add(New String() {”Kode Acc 1″, “Kode Acc 1″, “Value2″, “Curency 1″, “Value3″})
End Sub

end sub

Source kode di atas digunakan untuk melakukan penyetingan Datagridview

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Grid1.Rows.Add(New String() {”Kode Acc 1″, “Kode Acc 1″, “Value2″, “Curency 1″, “Value3″})
End Sub

Private Sub Grid1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles Grid1.EditingControlShowing
Dim cb As ComboBox = TryCast(e.Control, ComboBox)
If cb IsNot Nothing Then
RemoveHandler cb.SelectedIndexChanged, AddressOf Grid1_SelectedIndexChanged
Select Case Grid1.CurrentCell.ColumnIndex
Case 0 ‘Posisi / nomor kolom control ComboBox pada DatagridView
AddHandler cb.SelectedIndexChanged, AddressOf Grid1_SelectedIndexChanged
Case 3 ‘Posisi / nomor kolom control ComboBox pada DatagridView
AddHandler cb.SelectedIndexChanged, AddressOf Grid1_SelectedIndexChanged
End Select
End If
End Sub

‘Event pada ComboBox dimana keperluan Anda akan ditanam di sini
Private Sub Grid1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim comboBox1 As ComboBox = CType(sender, ComboBox)
‘Ketikkan sintaks untuk menampilkan data yang di inginkan
If Grid1.CurrentCell.ColumnIndex = 0 Then
Grid1.Rows(Grid1.CurrentRow.Index).Cells(1).Value = comboBox1.Text
End If
If Grid1.CurrentCell.ColumnIndex = 3 Then
Grid1.Rows(Grid1.CurrentRow.Index).Cells(4).Value = comboBox1.Text
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Menangani EvenHandler Komponen

Menangani EvenHandler Komponen
Tujuan dari tutorial ini adalah kita akan dapat menyederhanakan penulisan source code.

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.

Menampilkan Data dari Acces Database di datagridview

Menampilkan Data dari Acces Database di Datagridview

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

Memasukan data ke dalam database

Memasukan data ke dalam database
untuk memasukan data ke dalam database
padasarnya ada tiga metode yang saya ketahui dari berbagai referensi. dalam metode-metode tersebut perbedaanya hanya pada sintak saja, methode-metode tersebut sebagai berikut

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.

Nama Field	Jenis Field	Panjang Fields
Id	String	15
Nama	String	30
Jenis_Kelamin	String	20
Alamat	String	60
notlp	String	20

Membuat Context Menus

Membuat Context Menus

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.

Koneksi ke MYSQl Database

Koneksi ke MYSQl Database

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

Memasukan dan Menampilkan gambar ke Database Access

Memasukan dan Menampilkan gambar ke Database Access

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.

Sintaks XML

Sintaks XML

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

<Message>penulisan yang salah</message> <message>penulisan yang benar</message>

<root> <child> <subchild>……….</subchild> </child> </root>

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>