Monday, June 20, 2011

Mengambil Nilai Cell Pada Datagrid VB .NET

Untuk mengambil nilai atau teks pada cell dari sebuah DataGrid View gunakan perintah berikut:

Dim vFileNm As String = myGridView.Item(myGridView.Column.Index, myGridView.CurrentRow.Index).Value

Selengkapnya......

Script VB .NET untuk Meng-Copy Berkas (File)

Untuk dapat menjalankan script VB.NET yang akan digunakan untuk menyalin/meng-copy berkas membutuhkan File object System.IO.File yang harus disertakan dengan perintah:

Imports.System.IO.File


Contoh script yang digunakan untuk menyalin berkas:

Dim FSumber As String
Dim FTarget As String
FSumber = "C:\Data\Form01.Doc"
FTarget = " C:\Data\Form01Rev.Doc "
If Exists(FSumber ) = True Then
Copy(FSumber , FTarget)
MsgBox("Berkas Berhasil DiSalin")
End If


Untuk mengantisipasi kesalahan karena tidak ada nama berkas yang akan disalin, digunakan perintah:

If Exists(FileToCopy) = True Then

Jika berkas yang dimaksud ada, maka akan dilanjutkan dengan perintah:

Copy(FileToCopy, NewCopy)

Selengkapnya......

Friday, June 17, 2011

Mengisi Item ComboBox di Gridview

Untuk mengisi item pada ComboBox yang merupakan bagian dari GridView dapat dilakukan dengan memberikan perintah seperti ini :

Private Sub frmIsolationAct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cboCol1 As DataGridViewComboBoxColumn
cboCol1 = DataGridView1.Columns.Item(0)
cboCol1.Items.Add("Item1")
cboCol1.Items.Add("Item2")
End Sub

Selengkapnya......