Belajar Visual Basic

Open PDF dengan VB6.

noreply@blogger.com (Syamsul) — Fri, 30 Sep 2011 13:03:00 +0000

Jika didalam program anda memerlukan form untuk membuka file .pdf semisal untuk menampilkan petunjuk tentang program dimana anda membuatnya dengan format .pdf maka disini saya tampilkan program bagaimana membuka file .pdf dengan menggunakan vb6.

Adapun control yang diperlukan adalah AcroPDF.dll yang biasanya berada didalam folder “C:\Program Files\Common Files\Adobe\Acrobat\ActiveX”

Atau jika anda belum mempunyai control AcroPDF.dll mungkin anda bisa mencarinya di internet.

Dan control Command Dialog pada toolbox anda.

Untuk design formnya adalah seperti ini :

Dimana tampak di form tersebut saya menambahkan control Picture, Button, Commond Dialog dan AcroPDF.

Sedangkan script command dari form tersebut :

Private Sub cmdOpen_Click()

dlg.Filter = "PDF (*.pdf)|*.pdf"

dlg.ShowOpen

pdf.src = dlg.FileName

End Sub

Private Sub Form_Load()

Me.WindowState = 2

End Sub

Private Sub Form_Resize()

pct.Width = Me.Width

pdf.Width = Me.Width - 500

pdf.Height = Me.Height

End Sub

Maka jika program dijalankan akan tampak seperti ini :

Jika anda ingin membuka file yang ada di computer tersebut maka anda tinggal klik tombol Open PDF dimana command dialog sudah memfilter hanya file yang ber ekstensi .pdf yang akan tampak.

Seperti pada script

…….

dlg.Filter = "PDF (*.pdf)|*.pdf"

dlg.ShowOpen

…..

Mungkin apliksi ini bisa ditambahkan pada program anda. Silahkan mencoba…

Media Player dengan VB6

noreply@blogger.com (Syamsul) — Fri, 30 Sep 2011 12:51:00 +0000

Membuat media player dengan menggunakan VB6 kita memerlukan library wmp.dll yang ada di folder ..windows\system32\wmp.dll ada pun cara add component seperti ini :

Maka kita perlu mencari control Windows Media Player :

Tampak pada toolbox kita sudah ada control Windows Media Player, kemudian kita tambahkan control Commond Dialog yang nantinya berguna untuk kita mencari file-file multimedia seperti .mp3, .avi, .dat, .wmv juga .mpg yang nantinya kita siap untuk play di control Windows Media Player.

Maka untuk script commandnya adalah :

Private Sub cmdOpen_Click()

dlg.ShowOpen

Label1.Caption = dlg.FileName

wdp.URL = Label1.Caption

End Sub

Private Sub cmdVolMin_Click()

wdp.settings.volume = wdp.settings.volume - 1

End Sub

Private Sub cmdVolPlus_Click()

wdp.settings.volume = wdp.settings.volume + 1

End Sub

Private Sub Form_Load()

wdp.settings.autoStart = False

End Sub

Maka jika setelah kita Run (F5) form yang sudah kita buat akan tampaklah seperti berikut

Anda juga bisa mengembangkan program ini sesuai tampilan yang anda inginkan tampak pada tampilan script command : “wdp.settings.volume = wdp.settings.volume + 1 ” ini adalah seting volume control, tampak gambar dibawah adalah kita akan memilih peoperties dari control Windows Media Player :

Dengan mengolah dari properties yang ada maka program anda akan tampak lebih mewah.

Untuk anda yang memerlukan Sourcecode nanti bisa saya kirim ke email anda.

Pemrograman Pocket PC dengan VS2008.

noreply@blogger.com (Syamsul) — Fri, 30 Sep 2011 12:24:00 +0000

Pemrogrman Pocket PC yang juga disebut aplikasi Mobile dengan mengunakan VS2008 berbeda dengan pemrograman windows pada PC untuk membuat pemrograman Pocket PC pertama anda harus create Project :

Lalu pada New Project, Project type pilih Smart Device.

Pada Templets pilih Smart Device Project kemudian tekan OK.

Untuk pilihan emulator pilih Windows Mobile 5.0 Pocket PC SDK, pada Templets pilih Device Appliction lalu tekan OK.

Lalu didalam Form Design tampak form kita berada didalam Pocket PC disinilah kita merangcang program kita.

Tampak diatas saya menambahkan 2 textbox, 1 Button dan 2 Label. Textbox 1 dan Textbox2 adalah untuk isian , Label1 adalah untuk tulisan perkalian (X), Label2 adalah untuk menampilkan hasil perkalian, Button adalah untuk mengeksekusi perkalian Textbox1 dan Textbox2 yang nantinya dimasukkan kedalam Label2.

Disini saya tampilkan pula script commandnya :

Public Class Form1

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

Label2.Text = TextBox1.Text * TextBox2.Text

End Sub

End Class

Jika program dijalankan maka akan tampak seperti gambar berikut :

Demikian sekilas pemrograma Pocket PC dari saya semoga anda bisa mencobanya.

Koneksi VS2008 Pada PostgreSQL Dengan NpgSQL.

noreply@blogger.com (Syamsul) — Fri, 30 Sep 2011 10:47:00 +0000

Dalam membuat aplikasi Visual Studio 2008 dengan database PostgreSql menggunakan koneksi NpgSQL pertama-tama saat kita sudah membuka Form kita tambahkan Referensi NpgSQL sepeti ini :

Lalu kemudian pada form kita tambahkan komponen ListBox :

Pada View Code disini saya tampilkan script :

Imports Npgsql

Public Class Form2

Dim Conn1 As New NpgsqlConnection()

Dim command As IDbCommand

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim StrCol1 As String

StrCol1 = "nnnn"

Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

"User Id=postgres;Password=abc123;Database=accnet"

Conn1.Open()

command = New NpgsqlCommand("SELECT * FROM perkiraan WHERE tahun=2009 order by noperkiraan", Conn1)

Dim reader As IDataReader = command.ExecuteReader

Try

Do While reader.Read

StrCol1 = Trim(reader.Item(0))

Select Case Len(Trim(reader.Item(0)))

Case 1

StrCol1 = Trim(reader.Item(0)) & " "

Case 2

StrCol1 = Trim(reader.Item(0)) & " "

Case 3

StrCol1 = Trim(reader.Item(0)) & " "

Case 4

StrCol1 = Trim(reader.Item(0)) & " "

End Select

ListBox1.Items.Add(StrCol1 & " " & reader.Item(1))

Loop

Finally

reader.Close()

End Try

reader.Close()

Conn1.Close()

ListBox1.Focus()

End Sub

End Class

Tampak Pada View Code ada script :

Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

"User Id=postgres;Password=abc123;Database=accnet"

Disinlah koneksi Npgsql di deklarasikan yaitu menunjukkan elemen :

Server – spesifikasi lokasi server
User Id – database user
Port - default adalah 5432
Password - password untuk database user
Database - nama database

Lalu kita Open dengan cara Conn1.Open() sedang untuk command disitu tampak dideklarasi dengan Type IDbCommand untuk membuat perintah “Select….” Sedangkan untuk membaca data digunakan read dengan Type IDataReader

Maka jika di Run (F5).

Ok silahkan anda mencobanya……………

Koneksi VS2008 Pada PostgreSQL Dengan dotConnect.

noreply@blogger.com (Syamsul) — Fri, 30 Sep 2011 10:30:00 +0000

dotConnect adalah komponen berbayar jadi anda harus membeli lisensinya, dotConnect menggunakan library Devart.Data.dll dan Devart.Data.PostgreSql.dll jadi kedua library ini harus ditambahkan pada Referensi.

Dalam membuat aplikasi Visual Studio 2008 dengan database PostgreSql menggunakan koneksi Devart pertama-tama saat kita sudah membuka Form kita tambahkan Referensi Devart sepeti ini :

Lalu kemudian pada form kita tambahkan komponen ListBox :

Pada View Code disini saya tampilkan script :

Imports Devart.Data.PostgreSQL

Public Class Form2

Dim Conn1 As New PgSqlConnection()

Dim command As IDbCommand

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim StrCol1 As String

StrCol1 = "nnnn"

Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

"User Id=postgres;Password=abc123;Database=accnet"

Conn1.Open()

command = New DevartCommand("SELECT * FROM perkiraan WHERE tahun=2009 order by noperkiraan", Conn1)

Dim reader As IDataReader = command.ExecuteReader

Try

Do While reader.Read

StrCol1 = Trim(reader.Item(0))

Select Case Len(Trim(reader.Item(0)))

Case 1

StrCol1 = Trim(reader.Item(0)) & " "

Case 2

StrCol1 = Trim(reader.Item(0)) & " "

Case 3

StrCol1 = Trim(reader.Item(0)) & " "

Case 4

StrCol1 = Trim(reader.Item(0)) & " "

End Select

ListBox1.Items.Add(StrCol1 & " " & reader.Item(1))

Loop

Finally

reader.Close()

End Try

reader.Close()

Conn1.Close()

ListBox1.Focus()

End Sub

End Class

ConnectionString pada Npgsql sama dengan Devart.

Tampak Pada View Code ada script :

Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

"User Id=postgres;Password=abc123;Database=accnet"

Disinlah koneksi Devart di deklarasikan yaitu menunjukkan elemen :

Server – spesifikasi lokasi server
User Id – database user
Port - default adalah 5432
Password - password untuk database user
Database - nama database

Maka jika di Run (F5).

Yang lebih menarik dari dotConnect yaitu adanya komponen yang bisa konect pada aplikasi Smart Device Project yaitu untuk aplikasi Mobile VS2008, jika anda mengembangkan aplikasi Smart Device Project maka anda harus membeli lisensi dotConnect yang khusus untuk koneksi Smart Device Project dengan database PostgreSQL

Ok silahkan anda mencobanya…………….

Merubah Isi Textbox Menjadi Numerik.

noreply@blogger.com (Syamsul) — Tue, 20 Sep 2011 01:15:00 +0000

Dari posting yang pernah saya bikin tentang Merubah Textbox menjadi Huruf Kapital. Maka disini juga menjadi pertanyaan bagai mana merubah Textbox yang diinput hanya bisa menerima angka (Numuric), Koma (,) lalu Titik (.).

Di dalam kasus sehari-hari biasanya data yang diinput berupa data Numeric karena akan ada perhitungan pada data tersebut, jika yang diinput adalah Character maka akan fatal akibatnya karena program akan Error. Untuk mencegah agar tidak terjadi hal-hal yang demikian maka sebagai pembuat program bisa mencegah hal ini terjadi.

Untuk menangani hal yang demikian maka kita perlu memberi lingkup untuk membatasi ASCII yang diinputkan, misal didalam form kita ada terdapat Text1 yang nantinya hanya bisa menerima input angka maka kita perlu merubah Event KeyPress pada Text1 tersebut dengan perintah sebagai berikut :

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 48 To 57, 44, 46

Case Else

Beep

KeyAscii = 0

End Select

End Sub

Pada select case diatas menangkap parameter KeyAscii dan hanya membolehkan ASCII 48 hingga 57 ini adalah ASCII angka 0 – 9 sedang ASCII 44 adalah untuk Koma (,) dan ASCII 46 adalah Titik (.). Jadi jelas adanya pembatasan lingkup jenis ASCII yang diinputkan jika tidak sama maka maka ada perintah Beep atau bel berbunyi dan merubah parameter KeyAscii menjadi 0.

Jika form dieksekusi (Tekan F5) maka pada saat kita ketik pada Text1 didalamnya hanya bisa menerima angka tanda koma dan titik. Dan untuk ini anda bisa mencobanya.

Merubah Textbox Menjadi Huruf Kapital.

noreply@blogger.com (Syamsul) — Tue, 20 Sep 2011 01:11:00 +0000

Terkadang didalam Textbox kita menginginkan huruf yang di input menjadi huruf besar (Kapital) namum kadang operator lupa menekan Caps Lock sehingga huruf yang di input menjadi huruf kecil, untuk membantu operator jika menemukan masalah yang demikian maka sebagia pembuat program bisa menemukan solusinya.

Pada perintah VB ada fungsi yang merubah Character menjadi huruf capital yaitu : Ucase().

Misal didalam Textbox1 kita menginginkan Character yang di input adalah huruf Kapital maka kita bisa menjadikannya pada Event KeyPress pada Tools Textbox tersebut seperti demikian :

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Jika kita jalankan (F5) dan kita ketik huruf makan akan tampak huruf menjadi huruf Kapital semua namun tidak berpengaruh jika yang kita input adalah angka. Jadi kita tidak perlu mencari koponen Textbox yang bisa merubah input menjadi huruf capital.

Dari script diatas tampak parameter KeyAscii dirubah dengan perintah : Asc(Ucase(Chr(KeyAscii)))

KeyAscii yang lama dirubah menjadi Character lalu kemudian dirubah Ucase menjadi huruf Kapital kemudian hasilnya dirubah lagi menjadi Ascii oleh perintah Asc() dan disimpan ke KeyAscii yang baru.

Silahkan anda mencobanya.

Slider Pada Visual Basic 6.

noreply@blogger.com (Syamsul) — Tue, 20 Sep 2011 01:09:00 +0000

Jika anda Programmer VB 6 yang biasa dengan berinteraksi pada pemrogramam komunikasi data, pembuatan report dengan grafik mungkin dengan contoh berikut bisa membuka wawasan bagaimana program yang dibikin bisa lebih dikembangkan lagi.

Pada komponen VB sendiri sudah tersedia komponen Progress tetapi tidak ada salahnya jika komponen yang saya bikin “SliderBar.OCX” jika dipakai pada program anda karena Picture Bar yang ada bisa dirubah dengan sesuka anda.

Inilah gambar dari contoh program yang saya buat.

Slider yang dibuat bisa Vertikal dan Horizontal, bagi anda yang biasa membuat program VB yang berinteraksi dengan perangkat alat lain seperti PLC atau membaca data dari Arduino dan menampilkan di komputer menggunakan Visual Basic dengan komponen Slider ini anda bisa lebih memberdayakan program anda.

Disini saya tampilkan juga Script Command dari form :

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_NCLBUTTONDOWN = &HA1

Const HTCAPTION = 2

Dim Val1 As Integer

Dim Val2 As Integer

Private Function imagecontroller(ByVal image As image)

closen.Visible = True

image.Visible = False

End Function

Private Sub body_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmSlideBar.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

End Sub

Private Sub closen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

closes.Visible = True

Call imagecontroller(closen)

End Sub

Private Sub closes_Click()

End

End Sub

Private Sub cmdDown_Click()

If Val1 > Slider1.Min Then

Val1 = Val1 - 1

Slider1.Value = Val1

Label8.Caption = Val1

End If

End Sub

Private Sub cmdLeft_Click()

If Val2 >= Slider2.Min Then

Val2 = Val2 - 1

Slider2.Value = Val2

Label6.Caption = Slider2.Value

End If

End Sub

Private Sub cmdRight_Click()

If Val2 <= Slider2.Max Then

Val2 = Val2 + 1

Slider2.Value = Val2

Label6.Caption = Slider2.Value

End If

End Sub

Private Sub cmdUp_Click()

If Val1 < Slider1.Max Then

Val1 = Val1 + 1

Slider1.Value = Val1

Label8.Caption = Val1

End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

End

End If

End Sub

Private Sub Form_Load()

Val1 = 1

Slider1.Value = Val1

Label8.Caption = Val1

Val2 = 1

Slider2.Value = Val2

Label6.Caption = Slider2.Value

Slider3.Value = 1

End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmSlideBar.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmSlideBar.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

End Sub

Private Sub Slider1_Change(Value As Long)

Val1 = Slider1.Value

Label8.Caption = Val1

End Sub

Private Sub Slider2_Change(Value As Long)

Val2 = Slider2.Value

Label6.Caption = Val2

End Sub

Private Sub Slider3_Change(Value As Long)

Label2.Caption = Slider3.Value

End Sub

Private Sub Slider4_Change(Value As Long)

Label4.Caption = Slider4.Value

End Sub

Private Sub topbar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmSlideBar.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

closen.Visible = True

End Sub

Terlihat pada script diatas pada Event Slider_Change bisa dijadikan trigger untuk berinteraksi dengan perangkat yang lain dan Slider ini juga bisa menerima respon dari perangkat lain yaitu pada properties Value.

Jika program anda terdapat event Receive dan Transmit maka untuk Event Transmit bisa di eksekusi pada Event Slider_Change sedangkan Receive merubah properties Value.

Tidak menutup kemungkinan anda bisa mengembangkan komponen tersebut, jika anda ingin mencoba contoh program saya bisa mengirim contoh program tersebut ke email anda.

ReleaseCapture Kreasi Tampilan Form Sendiri.

noreply@blogger.com (Syamsul) — Tue, 20 Sep 2011 01:00:00 +0000

Jika anda berkeinginan membuat tampilan form pada aplikasi anda maka anda harus merubah properties BorderStyle menjadi 0 atau None. Namun hal ini akan menjadikan kaku pada tampilan setelah Run (F5) pada aplikasi anda, ini dikarenakan posisi form anda tidak bisa dipindah kemana-mana pada saat mouse di drag pada form anda.

Hal ini dapat diatasi dengan bantuan dari fungsi win API yaitu :

ReleaseCapture
SendMessage

Dimana ReleaseCapture akan menghapus Caputure posisi yang lama dari Form anda dan setelah itu posisi form anda yang baru dibentuk oleh fungsi SendMessage, ini semua terjadi pada Event MouseMove pada komponen anda yang ada pada Form

Seperti gambar contoh form yang sudah saya buat diatas.

Adapun Script Command dari form tersebut :

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_NCLBUTTONDOWN = &HA1

Const HTCAPTION = 2

Private Function imagecontroller(ByVal image As image)

Button1.Visible = True

closen.Visible = True

image.Visible = False

End Function

Private Sub Button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Button2.Visible = True

Call imagecontroller(Button1)

End Sub

Private Sub Button2_Click()

End

End Sub

Private Sub closen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

closes.Visible = True

Call imagecontroller(closen)

End Sub

Private Sub closes_Click()

End

End Sub

Private Sub body_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmInput.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

Button1.Visible = True

End Sub

Private Sub topbar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lngReturnValue As Long

If Button = 1 Then

Call ReleaseCapture

lngReturnValue = SendMessage(frmInput.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End If

closen.Visible = True

End Sub

Tampak diatas adanya deklarasi win API yaitu :

Private Declare Sub ReleaseCapture

Private Declare Function SendMessage

Yang dipanggil pada Event MouseMove pada saat anda menekan Klik sebelah kiri maka parameter Button = 1. maka form jika dijalankan atau Run (F5) form tersebut bisa dipindah-pindahkan di drag dengan mouse.

Untuk lebih jelasnya silahkan kirim emai anda dan saya akan kirim contoh programnya ke email anda.

Jika anda sudah mahir mengolahnya maka untuk pengembangannya anda bisa berkreasi sendiri dengan menambah component Image pada form anda.

VB6 Database PostgreSQL.

noreply@blogger.com (Syamsul) — Thu, 15 Sep 2011 05:54:00 +0000

Untuk membuat program dengan menggunakan VB6 dengan database Postsgree sangatlah mudah. Dengan menambahkan komponen ADODC pada form kita dan menggantikan property Connectionstring maka form kita sudah terhubung dengan database Postgree.

Untuk lebih lengkapnya mari kita lihat contoh gambar berikut :

Design View Form1.

Tampak pada Form1 Componen ADODC ditambahkan dan Datagrid juga ditambahkan.

Kemudian pada Code View tambahkan :

Private Sub Form_Load()

Adodc1.ConnectionString = "Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=dbvbpostgree;Uid=postgres;Pwd=pwd1;"

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = "SELECT * FROM vbtabel where date_part('year',tanggal)=2009”

order by mtype,tanggal"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1.Recordset

End Sub

Jika sudah maka tekan F5 untuk Run program.

Maka tampaklah Form Aplikasi kita yang sudah konek dengan database Postgree.

Form1 pada saat Run (F5).

Jika anda melihat Script Command diatas telihat pada Connectionstring ada “Driver={PostgreSQL ANSI}” Driver ini bisa digunakan jika anda sudah menginstall :

Psqlodbc.msi yang mana bisa anda download dari internet.

Pembuatan Conrol Array Visual Basic 2008

noreply@blogger.com (Syamsul) — Tue, 13 Sep 2011 08:27:00 +0000

Microsoft Visual Basic atau dikenal dengan VB, merupakan salah satu perangkat lunak (software) yang digunakan untuk pengembangan software (software development), dimana dengannya kita dapat membuat aplikasi-aplikasi sederhana bahkan profesional. Versi yang telah ada dari Microsoft Visual Basic adalah Visual Basic 9 atau disebut juga Visual Basic 2008. Pada versi ini kita dihadapkan pada tampilan grafis dan lingkungan IDE (Integrated Development Environment) yang sangat berbeda dari versi sebelumnya.

Sebagaimana judul tulisan ini, sebelum kita melakukan uji coba softwarenya alangkah baik jika kita mengetahui terlebih dahulu hal-hal apa saja yang fitur-fitur yang ada bersama dengan hadirnya Visual Basic 2008 ini, dan satu hal lagi dalam perbandingannya nanti saya lebih membandingkannya dengan versi 6. Karena selain telah familier juga karena kepopuleran dari versi tersebut, melihat hal-hal apa yang ada (feature) dari versi 9.0 ini, adalah sebagai berikut :

- Support for Data

- Language Feature

- Project Designer Sopport for Windows Presentation Foundation (WPF) Applications

- Windows Communication Foundation (WCF)

- Improvements to IDE

- ClickOnce Deployment

Menuju pada judul tulisan saya, Control array dari visual Basic 6 berbeda dengan Visual Basic 2008, jika anda menggunakan Visual Basic 6 anda tinggal copy-paste maka control tersebut anda bisa jadikan dengan control array, tetapi tidak sama dengan Visual Basic 2008. Jika anda menggunaka Visual Basic 2008 control array harus dideklarasikan pada Class.

Langsung saja kita masuk ke Visual Basic 2008 pada Start Page pilih -> Create Project pada Tamplate pilih -> Windows Forms Application lalu diberi nama “CreateCntrlArray”. Lalu tambahkan dua Class yaitu denga cara pada window Solution Explorer pada Project File “CreateCntrlArray” anda Klik kanan pilih -> Add -> pilih Class.

Disini saya menggunaka Class dengan nama : ClsTxtBox.vb dan ClsTxtBox2.vb, dan satu User Control yaitu : CtrlDetil.vb.

Untuk menambahkan User Control yaitu denga cara pada window Solution Explorer pada Project File “CreateCntrlArray” anda Klik kanan pilih -> Add -> pilih User Control kemudian anda beri nama “CtrlDetil”.

juga satu Form yaitu : Form1.vb.

Berikut adalah Script dari View Code ClsTxtBox.vb

Public Class ClsTxtBox

Inherits System.Collections.CollectionBase

Private mHost As UserControl

Private mHostName As String

' Visual Basic

Private ReadOnly HostForm As System.Windows.Forms.UserControl

' Visual Basic

Public Sub New(ByVal host As System.Windows.Forms.UserControl)

HostForm = host

Me.AddTextbox()

End Sub

' Visual Basic

' Declare Property Item

Default Public ReadOnly Property Item(ByVal Index As Integer) As _

System.Windows.Forms.TextBox

Get

Return CType(Me.List.Item(Index), System.Windows.Forms.TextBox)

End Get

End Property

' Visual Basic

' Declare Property UBound

Public ReadOnly Property UBound() As Integer

Get

'Collection Index is Zero-Based

'UpperBound = Count of ListItems - 1

Return (list.Count - 1)

End Get

End Property

' Visual Basic

' Function to add Control TextBox

Public Function AddTextbox() As System.Windows.Forms.TextBox

' Create a new instance of the TextBox class.

Dim aTextbox As New System.Windows.Forms.TextBox()

' Add the TextBox to the collection's internal list.

Me.List.Add(aTextbox)

' Add the TextBox to the controls collection of the form

' referenced by the HostForm field.

HostForm.Controls.Add(aTextbox)

' Set intial properties for the TextBox object.

aTextbox.Top = (Count - 1) * 20

aTextbox.Left = 0

aTextbox.Width = 80

aTextbox.TabStop = False

aTextbox.Tag = Me.Count

aTextbox.Text = "Textbox " & Me.Count.ToString

' Visual Basic

' Declare Event TextBox

AddHandler aTextbox.Click, AddressOf ClickHandler

AddHandler aTextbox.KeyDown, AddressOf KeyDownHandler

Return aTextbox

End Function

' Visual Basic

' Function to Remove Control TextBox

Public Sub Remove()

' Check to be sure there is a Label to remove.

If Me.Count > 0 Then

' Remove the last TextBox added to the array from the host form

' controls collection. Note the use of the default property in

' accessing the array.

HostForm.Controls.Remove(Me(Me.Count - 1))

Me.List.RemoveAt(Me.Count - 1)

End If

End Sub

' Visual Basic Event Click

' Address of Event Click

Public Sub ClickHandler(ByVal sender As Object, ByVal e As _

System.EventArgs)

MessageBox.Show("you have clicked Textbox " & _

CType(CType(sender, _

System.Windows.Forms.TextBox).Tag, String))

End Sub

' Visual Basic Event KeyDown

' Address of Event KeyDown

Private Sub KeyDownHandler(ByVal sender As Object, ByVal e As _ System.Windows.Forms.KeyEventArgs)

If e.KeyCode = Keys.Enter Then

CtrlDetil.MyTB2(CType(CType(sender, _

System.Windows.Forms.TextBox).Tag, String) - 1).Focus()

End If

End Sub

End Class

Lalu kemudian adalah Script dari View Code ClsTxtBox2.vb

Public Class ClsTxtBox2

Inherits System.Collections.CollectionBase

Private mHost As UserControl

Private mHostName As String

' Visual Basic

Private ReadOnly HostForm As System.Windows.Forms.UserControl

' Visual Basic

Public Sub New(ByVal host As System.Windows.Forms.UserControl)

HostForm = host

Me.AddTextbox()

End Sub

' Visual Basic

Default Public ReadOnly Property Item(ByVal Index As Integer) As _

System.Windows.Forms.TextBox

Get

Return CType(Me.List.Item(Index), _ System.Windows.Forms.TextBox)

End Get

End Property

Public ReadOnly Property UBound() As Integer

Get

'Collection Index is Zero-Based

'UpperBound = Count of ListItems - 1

Return (list.Count - 1)

End Get

End Property

' Visual Basic

' Function to add Control TextBox2

Public Function AddTextbox() As System.Windows.Forms.TextBox

' Create a new instance of the TextBox class.

Dim aTextbox As New System.Windows.Forms.TextBox()

' Add the TextBox to the collection's internal list.

Me.List.Add(aTextbox)

' Add the TextBox to the controls collection of the form

' referenced by the HostForm field.

HostForm.Controls.Add(aTextbox)

' Set intial properties for the TextBox object.

aTextbox.Top = (Count - 1) * 20

aTextbox.Left = 80

aTextbox.Width = 100

aTextbox.TabStop = False

aTextbox.Tag = Me.Count

aTextbox.Text = "Textbox2 " & Me.Count.ToString

' Visual Basic

' Declare Event TextBox

AddHandler aTextbox.Click, AddressOf ClickHandler

AddHandler aTextbox.KeyDown, AddressOf KeyDownHandler

Return aTextbox

End Function

' Visual Basic

' Function to Remove Control TextBox2

Public Sub Remove()

' Check to be sure there is a Label to remove.

If Me.Count > 0 Then

' Remove the last TextBox added to the array from the host form

' controls collection. Note the use of the default property in

' accessing the array.

HostForm.Controls.Remove(Me(Me.Count - 1))

Me.List.RemoveAt(Me.Count - 1)

End If

End Sub

' Visual Basic Event Click

' Address of Event Click

Public Sub ClickHandler(ByVal sender As Object, ByVal e As _

System.EventArgs)

MessageBox.Show("you have clicked Textbox2 " & CType(CType(sender, _

System.Windows.Forms.TextBox).Tag, String))

End Sub

' Visual Basic Event KeyDown

' Address of Event KeyDown

Private Sub KeyDownHandler(ByVal sender As Object, ByVal e As _ System.Windows.Forms.KeyEventArgs)

If e.KeyCode = Keys.Enter Then

CtrlDetil.MyTB(CType(CType(sender, _

System.Windows.Forms.TextBox).Tag, String) - 1).Focus()

End If

End Sub

End Class

Gambar dari User Control View Designer CtrlDetil.vb :

CtrlDetil Designer.

Berikutnya Script dari View Code User Control : CtrlDetil.vb

Public Class CtrlDetil

Public Shared MyTB As ClsTxtBox

Public Shared MyTB2 As ClsTxtBox2

Dim mOwner As Form1

#Region " Windows Form Designer generated code "

Public Sub New(ByVal owner As Form1, _

ByVal myX As Integer, ByVal myY As Integer)

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

mOwner = owner

Me.Top = myY

Me.Left = myX

MyTB = New ClsTxtBox(Me)

MyTB2 = New ClsTxtBox2(Me)

End Sub

#End Region

End Class

Gambar dibawah adalah Form1 masih dalam format Designer.

Form1 Designer.

Control-control yang perlu ditambahkan pada Form1 adalah :

-Button:

* Button1 -> Name : btnLoad

Text : Load

Enabled : True

* Button2 -> Name : btnUnLoad

Text : UnLoad

Enabled : False

-Label:

* Label1 -> Name : Label1

Text : -

* Label2 -> Name : Label2

Text : UBound :

* Label3 -> Name : Label3

Text : Count :

* Label4 -> Name : Label4

Text : -

Script View Code Form1.vb :

Imports CreateCntrlArray.CtrlDetil

Imports Microsoft.VisualBasic

Public Class Form1

Dim Ctl As New CtrlDetil(Me, 0, 0)

Dim mUbound As Long = 0

Private Sub ChangeCtrl()

Label1.Text = Trim(Str(MyTB.UBound))

Label4.Text = Trim(Str(MyTB2.UBound + 1))

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles MyBase.Load

Me.Controls.Add(Ctl)

Ctl.AutoScroll = True

Ctl.Width = 208

Ctl.Height = 279

Ctl.BackColor = Color.LightSteelBlue

Me.StartPosition = FormStartPosition.CenterScreen

ChangeCtrl()

End Sub

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles btnLoad.Click

MyTB.AddTextbox()

MyTB2.AddTextbox()

btnUnLoad.Enabled = True

ChangeCtrl()

End Sub

Private Sub btnUnLoad_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles btnUnLoad.Click

MyTB.Remove()

MyTB2.Remove()

If MyTB.UBound = 0 Then btnUnLoad.Enabled = False

ChangeCtrl()

End Sub

End Class

Dan jika Project dijalankan dengan tekan F5. maka hasilnya adalah seperti berikut:

Form1 Run (tekan F5).

Dan jika anda menekan Button Load makan Control TextBox dan TextBox2 akan bertambah kebawah seperti ini :

Form1 setelah tekan Button Load.

Untuk menghapus Control makan tekan saja Button UnLoad. OK ternyata mudahkan… Semoga berhasil… Terimakasih.

Pembuatan Form Dengan Activeskin.

noreply@blogger.com (Syamsul) — Tue, 13 Sep 2011 08:02:00 +0000

Aplikasi Visual Basic 6. Form yang kita buat biasanya selalu setandard nah… Bagaimana jika form aplikasi yang kita buat bisa tampil lain dari biasanya. Dalam hal ini kita bisa membuat tampilan form dengan bantuan komponen Activeskin. Activeskin yang saya gunakan disini adalah Activeskin versi 4.3.

Pada saat pertama kita memulai Project pada VB6 biasanya kita langsung ditawari form yang standard dari VB6.

Form Standard VB6.

Lalu kemudian kita tambahkan komponen pada Toolbox, dengan cara klik kanan Toolbox.

Toolbox untuk menambah komponen

Maka akan keluar daftar komponen yang sudah ada, lalu kita klik ActiveSkin 4.3 Library makan akan di centang ActiveSkin yang akan kita tambahkan pada Project kita.

Lalu tekan OK.

Daftar komponen control.

Maka akan bertambah komponen ActiveSkin pada Toolbox kita.

Pada Toolbox akan bertambah 2 komponen yaitu Skin :->

dan SkinLabel : ->

Lalu tambahkan komponen ActiveSkin pada Form kita dengan cara double klik Skin, maka pada Form kita akan bertambah komponen Skin.

Form ditambahkan ActiveSkin.

Untuk memilih Skin yang akan kita gunakan dapat dilakukan dengan 2 cara :

Cara pertama :

Klik kanan komponen Skin yang ada pada Form kita, lalu pilih Load Skin.

Klik kanan Skin.

Maka kita disuruh memilih Skin yang sudah ada :

Kemudian pilih Skin Files dengan Ekstensi “.skn” lalu pilih open.

Jika Project kita jalankan (tekan F5) maka tampilan Skin tidak akan terlihat, untuk itu kita perlu menambahkan scrip command pada Even Form_Load() : -> “Skin1.ApplySkin Me.hWnd”

Private Sub Form_Load()

Skin1.ApplySkin Me.hWnd

End Sub

Lalu jalankan Project dengan menekan F5. Maka akan tampak tampilan Form kita berubah

Form setelah memakai Skin.

Form Standard.

Tampak perbedaan Form kita sekarang sudah berubah tidak seperti biasanya.

Cara yang kedua :

Dengan langsung menambahkan command pada Even Form_Load()

Private Sub Form_Load()

Skin1.LoadSkin App.Path & "\skins\Zhelezo.skn"

Skin1.ApplySkin Me.hWnd

End Sub

Dalam hal ini file *.skn sudah ada didalam folder App Path kita dan tersimpan pada sub Folder skis.

Maka jika Project dijalankan (tekan F5) hasilnya akan sama dengan gambar Form setelah memakai Skin.

Jangan heran jika kita ingin menambahkan Label pada form Project kita dengan menambahkam komponen Label Standard, maka tidak akan tampak pada form setelah Project dijalankan (tekan F5). Hal ini dikarenakan “hWnd” from sudah berubah setelah ada command “Skin1.ApplySkin Me.hWnd”, untuk itu jika kita ingin menambahkan Label pada Form kita maka kita harus menggunakan komponen SkinLabel.

Untuk menambahkan SkinLabel sama yaitu dengan Double klik SkinLabel maka akan tampak Komponen SkinLabel sudah berada didalam form kita.

SkinLabel setelah Project di jalankan (F5).

Form setelah ditambahkan Skinlabel.

Untuk merubah Caption pada SkinLabel sama dengan waktu kita merubah Caption pada komponen Lable Standard, yaitu :

Private Sub Form_Load()

Skin1.LoadSkin App.Path & "\skins\Zhelezo.skn"

Skin1.ApplySkin Me.hWnd

SkinLabel1.Caption=”Ini Label SkinLabel”

End Sub

Komponen Textbox sama seperti cara Standard.

Ok… semoga tidak sulit anda membuat Project anda dengan menggunakan tampilan Form ActiveSkin.

Terimakasih.